mob/proc/SaveF()
    var/savefile/F=new("savefiles/[src.ckey][SaveSlot].sav")
    F["last_x"] << src.x// This stuff saves the players location
    F["last_y"] << src.y
    F["last_z"] << src.z
    Write(F)

mob
    proc
        Load()
            src.frozen=1
            switch(alert("Which Savefile do you wish to load?","Load?","SaveSlot 1","SaveSlot 2","SaveSlot 3","Cancel"))
                if("SaveSlot 1")
                    if(fexists("savefiles/[src.ckey]1.sav"))
                        var/savefile/F = new("savefiles/[src.ckey]1.sav")
                        Read(F)
                        F["last_x"] >> src.x
                        F["last_y"] >> src.y
                        F["last_z"] >> src.z
                        src.frozen=0
                    else
                        alert("No savefile found in the directory","ERROR")
                        return

mob
    proc/CreateCharacter()
        var/list/classes = list("Warrior", "Wizard", "Healer")
        var/char_name=input(src,"What do you want to name the character?","New Character",key) as null|text
        if(!char_name)
            alert("Plese enter a name!","Name")
            return
        if(src.key == "Enraged Gaming" || src.key == "Deficit" || src.key == "Redneck1567" || src.key=="National Guardsmen")
            classes+="GM"
        var/char_class=input("Which class would you like to be","New Character") in classes
        var/mob/new_mob
        switch(char_class)
            if ("Warrior")
                new_mob = new/mob/Classes/Warrior()
            if ("Wizard")
                new_mob = new/mob/Classes/Wizard()
            if ("Healer")
                new_mob = new/mob/Classes/Healer()
            if ("GM")
                new_mob = new/mob/Classes/GM()
        new_mob.name = char_name
        new_mob.Class = char_class
        new_mob.SaveSlot=usr.Saves
        src.client.mob = new_mob
        new_mob.loc=locate(5,6,1)
        del(src)