mob
    proc
        ChooseCharacter()
            var/list/characters = src.CharacterList()

            var/newCharacterChoice = "New Character"
            var/list/menu = new()
            menu += characters
            menu += newCharacterChoice

            var/result = input("Character Creation", "Dark Era") in menu

            if (result == newCharacterChoice)
                src.CreateNewCharacter()

            else
                var/success = src.client.LoadMob(result)

                if (success)
                    del(src)
                else
                    src.ChooseCharacter()

        CharacterList()
            var/firstletter=copytext(src.ckey, 1, 2)
            var/savefile/F = new("players/[firstletter]/[src.ckey].sav")
            F.cd = "/[ckey]"
            var/list/characters = F.dir
            return characters




mob
    Write(savefile/F)
        ..()

        F["last_x"] << x
        F["last_y"] << y
        F["last_z"] << z

    Read(savefile/F)
        ..()

        var/last_x
        var/last_y
        var/last_z
        F["last_x"] >> last_x
        F["last_y"] >> last_y
        F["last_z"] >> last_z
        loc = locate(last_x, last_y, last_z)


client
    verb
        Save()
            set category = "Communication"
            SaveMob()
            usr << "Saving Character..."
            sleep(10)
            usr << "Save Complete"


client/proc/SaveMob()
    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

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

client/Del()
    src.SaveMob()
    return ..()