#define CREATE_NEW "Create a new Character"
#define DELETE "Delete a Character"
#define LOAD "Load into Existing"
#define QUIT "Leave the Game"
#define NUMBER_OF_CHAR_ALLOWED 5
#define WORLD_VIEW 7
#define MOTD ""
mob
    Choosing_Char
        var/helptext = "What will you be called?"
        var/title = "CHARMED: New Character"
        Move()
            return
        Login()
            loc = locate(/turf/loginscreen/loginstart)
            name = ""
            RELOG
            var/savefile/save = new("./player/[ckey].sav")
            save.cd = "/"
            //var/list/characters = save.dir

            //TO GET NAME OF CHAR
            var/char_name
            var/list/names = new()
            for (var/entry in save.dir)
                if(entry!="unlock")
                    save["[entry]/name"] >> char_name
                    names += char_name

            if(!names.len)
                sleep(10)
                usr << ""
                call(/mob/Player/proc/Unlock)(ckey, "Human")
                while(Create_New()==0);
            else
                save.cd = "/"
                var/list/menu = new()
                if(names.len<=NUMBER_OF_CHAR_ALLOWED)
                    menu += CREATE_NEW
                //menu += characters
                menu += names
                if(names.len>1)
                    menu += DELETE
                menu += QUIT

                //menu -= "Unlock"
                //check ip
                var/choice = input("","CHARMED: Main Menu",null) in menu
                switch(choice)
                    if(CREATE_NEW)
                        while(Create_New()==0);
                    if(DELETE)
                        while(Deleteme()==1);
                        goto RELOG;
                    if(QUIT)
                        Logout()
                    else
                        Loadme(choice)
        proc/Loadme(choice as text)
            //var { savex;savey;savez }
            var/savefile/save = new("./player/[ckey].sav")
            var/safe = lowertext(choice)
            safe = ckey(choice)
            save["/[safe]"] >> usr
            //var { savex;savey;savez }
            //Move(locate(usr.locx, savey, savez))
        proc/Deleteme()
            var/savefile/save = new("./player/[ckey].sav")
            save.cd = "/"

            var/char_name
            var/list/names = new()
            for (var/entry in save.dir)
                if(entry!="unlock")
                    save["[entry]/name"] >> char_name
                    names += char_name

            //var/list/characters = save.dir
            //var/list/menu = new()
            //menu+=characters
            names += "Cancel"
            var/choice = input("Who to delete?","CHARMED: Delete a Character",null) in names
            switch(choice)
                if("Cancel") return 0
                else
                    var/deletecon = alert("[choice] will be deleted.",null,"Confirm","No")
                    switch(deletecon)
                        if("Confirm")
                            var/safe = lowertext(choice)
                            safe = ckey(choice)
                            save.dir.Remove(safe)
                            return 1
                        else
                            return 1
        proc/Create_New()
            var/namechosen = input(helptext,title,null)
            if(namechosen == "")
                var/choice = alert("Your need to have a name.",title, "Continue","Auto-Generate Name")
                switch(choice)
                    if("Continue")
                        return 0
                    else namechosen = randname(usr.gender)
                choice = alert("Use this name:[namechosen]?",null, "Yes", "No")
                switch(choice)
                    if("Yes")
                        ..() //do continue
                    else
                        return 0
            var/safename = lowertext(namechosen)
            safename = ckey(safename)
            var/savefile/save = new("./player/[ckey].sav")
            save.cd = "/"
            if(safename in save.dir)
                alert("That name has already been taken.",title, "Continue")
                return 0
            //continue
            save.cd = "/"
            save.cd = "/Unlock"
            var/list/classes = save.dir
            classes -= "name"
            var/whattobe = input("What are you?",title,null) in classes
            var/mob/Player/m = new()
            m.death = 1
            m.name = namechosen
            m.class = whattobe
            m.icon_state = "body2"
            m.origname = namechosen
            m.style = 2
            var/hair = input("What is the colour of your hair?",title,null) in list("White","Black","Brown","Blonde","Red")
            m.orighair = hair
            m.hair = hair
            var/skin = input("What is the colour of your skin?",title,null) in list("Pale","Normal","Tan","Tanner","Dark")
            m.origskin = skin
            m.skin = skin
            if(gender==MALE)
                m.gender=MALE
                m.origgender=MALE
            else
                m.gender=FEMALE
                m.origgender=FEMALE
            var/list/thergb = m.tehrgb
            m.origrgb = thergb.Copy()