mob/var/lastx
mob/var/lasty
mob/var/lastz
var/players=new/list()

client/proc/SaveMob()
    usr.lastx=usr.x
    usr.lasty=usr.y
    usr.lastz=usr.z
    var/firstletter=copytext(src.ckey, 1, 2)
    var/savefile/F = new("Players/[firstletter]/[src.ckey].sav")
    var/char_ckey = cKey(src.mob.name)
    F["/[ckey]/[char_ckey]"]<<src.mob
    src<<"Save Complete!"
    sleep(1)

client/proc/LoadMob(char_ckey)
    var/firstletter=copytext(src.ckey, 1, 2)
    var/savefile/F = new("Players/[firstletter]/[src.ckey].sav")
    F["/[ckey]/[char_ckey]"]>>src.mob

    src<<"Load Successful"

mob/proc
    Savee()
        var/savefile/F = new("Save/[src.ckey]")
        F["x"] << src.x
        F["y"] << src.y
        F["z"] << src.z
        F["src"] << src
        Write(F)
        src << "<center>SAVED"
    Loadd()
        var/savefile/F = new("Save/[src.ckey]")
        if(fexists(F))
            Read(F)
            F["x"] >> src.x
            F["y"] >> src.y
            F["z"] >> src.z
            F["src"] >> src
            src.loc = locate(x,y,z)
                //src << sound('Main.mid',1)

mob/var/list/CV
var/tmp/host=null
mob/verb
    Save()
        usr.SavePlayer()
mob/proc
    SavePlayer(){src.CV=src.verbs;
        var/savefile/F=new("players/[src.ckey]/mobs.sav");
        var/char_ckey=cKey(src.name);F["/[ckey]/[char_ckey]"]<<src}
    LoadPlayer(char_ckey){
        var/mob/n;var/savefile/F=new("players/[src.ckey]/mobs.sav");
        F["/[ckey]/[char_ckey]"]>>n;for(var/item in n.CV)n.verbs+=item}
    PlayerList(){
        var/savefile/F=new("players/[src.ckey]/mobs.sav");
        F.cd="/[ckey]";var/list/players=F.dir;return players}
    CC()
        switch(input("What would you like to do today?","[world.name]")in list("Create Character","Load Character","Delete Character","Quit"))
            if("Load Character"){
                var/list{players=src.PlayerList();listing=new()};
                listing+=players;
                var/selection=input("Which character do you wish to load?", "Load Character") as null|anything in listing;
                src.LoadPlayer(selection)}
            if("Create Character"){usr.CreateCharacter()}
            if("Delete Character"){there;
                var/savefile/F=new("players/[src.ckey]/mobs.sav");
                F.cd="/[ckey]";var/list{Players=F.dir;listing=new()};
                var/Cancel="Cancel";listing+=Players;listing+=Cancel;
                var/selection=input("Which character do you wish to delete?","Deleteing Character") in listing;
                if(selection){F.cd="/[ckey]";F.dir.Remove(selection)};if(selection==Cancel){usr<<"Alright.";usr.CC()};
                else goto there}
mob
    ppp/Choosin
        Login(){KillVerbs();spawn(){usr.CC();KillVerbs()}}
        Logout(){return}
        proc/KillVerbs()for(var/verbe in verbs)verbs-=verbe
    Login()
        ..()
    Write(savefile/F){..();F["S_x"]<<x;F["S_y"]<<y;F["S_z"]<<z}
    Read(savefile/F){;..();var{S_x;S_y;S_z};F["S_x"]>>S_x;F["S_y"]>>S_y;F["S_z"]>>S_z;loc=locate(S_x,S_y,S_z)}
client
    Del(){..();usr.SavePlayer()}
mob/proc/CreateCharacter()//The proc, always keep the proc mob/proc/CreateCharacter  Till your a better coder (or if you are look in RaeKwon Saving.dm and change the proc when you find it)
    start
    var/charactername = input("What is your name?","Name","Kasouke-Ichago") as text|null//Picking your name
    if(length(charactername) >= 20)//Limits the name to 20 letters includeing spaces long.
        alert("Name Too Big")
        goto start://If there name is over 20 letters.. Byebye!
    if(!charactername)
        goto start:
    var/prompt_title="New Character"//The title (for the top of the window
    var/list/races=list("Warrior")//The races you will have a choice of, simply edit to your standards
    var/char_race=input(src,prompt_title) as null|anything in races//Makes the window
    var/mob/new_mob//Defines new_mob car
    switch(char_race)//switches char_race, for which class you picked.
        if("Warrior")new_mob=new/mob/players/Cloud()//Makes them a warrior!
    new_mob.name="[html_encode(charactername)]"//Makes the player's name, also removes any HTML they include in there name
    src.client.mob=new_mob//Makes there default mob the mob you selected in Creating your character
    del src//Deletes the person, then calls Login (Magically!)