mob/proc

	char_create()
		while(src)
			var/NL = input("Character Screen") in list("New", "Load", "Delete")
			if(NL == "New")
				Race = input("Select a race") in list("Human", "Unknown")
				Size = input("Select a size") in list("Large", "Medium", "Small")
				gender = lowertext(input("Select a Gender") in list("Male", "Female"))
				var/classPath = text2path("/ClassData/[Race]/[Size]") // Create type path based on race and size
				var/ClassData/data = new classPath() // Create an instance of the type path
				for(var/varName in data.vars) // For each variable defined in class data
					if(issaved(data.vars[varName]))
						vars[varName] = data.vars[varName] // Copy over the value to src
				var/naming = 1
				while(naming)
					name = input("Give yourself a name") as text
					if(name == "")
						continue
					naming = 0
				real_name = name
				Birthday = C_Date
				loc = locate(100,100,1)
				hascreated = 1
				add_bparts()
				save_proc()
				world << "[key] has created a character."
				return

			else if(NL == "Load" && load_proc())
				if(Attacking)
					sleep(20/SpdMod)
					Attacking = 0
				return

			else if(NL == "Delete")
				DeleteProc()

	add_bparts()
		Head = new /obj/BodyParts/Head(src)
		Torso = new /obj/BodyParts/Torso(src)
		RightArm = new /obj/BodyParts/Right_Arm(src)
		LeftArm = new /obj/BodyParts/Left_Arm(src)
		RightLeg = new /obj/BodyParts/Right_Leg(src)
		LeftLeg = new /obj/BodyParts/Left_Leg(src)

	hud_bparts()
		client.screen += Head
		client.screen += Torso
		client.screen += RightArm
		client.screen += LeftArm
		client.screen += RightLeg
		client.screen += LeftLeg


mob
	New()
		..()
		if(!client)
			add_bparts()