#if !defined(NEW)
#define NEW "New Character"
#endif
#if !defined(LOAD)
#define LOAD "Load Character"
#endif
#if !defined(QUIT)
#define QUIT "Quit"
#endif

var/list/HTML_TAGS = list ("<",">")
var/pk=0
mob/proc/Check_For_Tags(T as text,var/list/L)
	for(var/V in L)
		if(findtext(T,V))
			return TRUE


world
	mob = /mob/game
	turf = /turf/grass
	name = "Test"

client
	proc
		Load()
			var/savefile/load
			load = new ("Save Files/[src.mob.ckey]")
			load["mob"] >> src.mob
			load["x"] >> src.mob.x
			load["y"] >> src.mob.y
			load["z"] >> src.mob.z
		SaveMob()
			var/savefile/save
			save = new ("Save Files/[src.mob.ckey]")
			save["mob"] << src.mob
			save["x"] << src.mob.x
			save["y"] << src.mob.y
			save["z"] << src.mob.z
	New()
		..()
		world << "<b>[mob] has entered."
		world <<sound('login.wav')
	Del()
		world << "<b>[mob] has left."
		src.mob.client.SaveMob()
		del src.mob


mob/game
	Logout()
		del(src)
	Login()
		var/list/L = newlist()
		if(fexists("Save Files/[src.client.ckey]"))
			L.Add(NEW,LOAD,QUIT)
			var/menu = input("Character File Found.","[world.name]") in L
			usr <<sound('enter.mid')
			switch(menu)
				if(LOAD)
					src.client.Load()
				if(NEW)
					Create()
				if(QUIT)
					del(src)
		else
			L.Add(NEW,QUIT)
			var/newmenu = input("Character File Not Found.","[world.name], \"New Player\"") in L
			usr <<sound('enter.mid')
			pk=0
			switch(newmenu)
				if(NEW)
					Create()
				if(QUIT)
					del(src)
		..()
	proc
		Create()
			var/mob/mobcreation
			var/newname = input("Type Your Character's Name","Name",src.key)
			if(lentext(newname) > 20)
				src << "Your Name Can Not Exceed 20 Characters."
				Create()
			if(isnull(newname) | newname == "" | !newname)
				src << "Type Your Name First."
				Create()
			if(Check_For_Tags(newname,HTML_TAGS) == TRUE)
				src << "You May Not Have HTML In Your Name!"
				Create()
			else
				newname = html_encode(newname)

				mobcreation.loc = locate(2,2,2)
				mobcreation.name = newname
				src.client.mob = mobcreation
				del(src)