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()
        for()
            var/obj/BodyParts/h = new /obj/BodyParts/Head
            var/obj/BodyParts/t = new /obj/BodyParts/Torso
            var/obj/BodyParts/ra = new /obj/BodyParts/Right_Arm
            var/obj/BodyParts/la = new /obj/BodyParts/Left_Arm
            var/obj/BodyParts/rl = new /obj/BodyParts/Right_Leg
            var/obj/BodyParts/ll = new /obj/BodyParts/Left_Leg
            h.Owner = real_name; t.Owner = real_name; ra.Owner = real_name; la.Owner = real_name; rl.Owner = real_name; ll.Owner = real_name
            contents += h
            contents += t
            contents += ra
            contents += la
            contents += rl
            contents += ll
            Head = locate(/obj/BodyParts/Head) in contents
            Torso = locate(/obj/BodyParts/Torso) in contents
            RightArm = locate(/obj/BodyParts/Right_Arm) in contents
            LeftArm = locate(/obj/BodyParts/Left_Arm) in contents
            RightLeg = locate(/obj/BodyParts/Right_Leg) in contents
            LeftLeg = locate(/obj/BodyParts/Left_Leg) in contents
            if(!client) return
            break

    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()