world
    name = ("Dragonball Blitz Revamped") //client title appears as Dragonball Blitz Revamped
    view = 6 //player sees 6x6 screen
    hub = "CYN.DragonballBlitzRevamped " //appears under my name when hosted on the hub

client
    script = "<STYLE>BODY {background: black; color: white}</STYLE>" //background color black, text white

world
    mob=/mob/choosing/ChooseCharacter //usr enters world and generates ChooseCharacter

mob/create_character 
    var/mob/character
    Login() //user logs in and is asked for a character name and a race to select
        var/charactername = input("Character Name:","Name",src.key)
        switch(input("What race do you wish to be?","Race?") in list("Saiyan","Human"))
            if ("Saiyan")
                character = new /mob/characters/Saiyan()
            if ("Human")
                character = new /mob/characters/Human()
        character.name = charactername
        src.client.mob = character
        usr.loc=locate(40,40,1)
        del(src)
        ..()

mob/characters/Saiyan
    icon = 'SaiyanBase.dmi'
    icon_state = "Norm"

mob/characters/Human
    icon = 'SaiyanBase.dmi'
    icon_state = "Norm"

mob/Logout()
    del(src)

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()
    if (istype(src.mob, /mob/create_character))
        return ..()

    SaveMob()
    return ..()

mob
    Login()
        ..()
        if (!istype(src, /mob/create_character))
            sample_report()
            world << "<B><font color = yellow>Event:</font><font color = green> [src] has logged in!"
            if(src.PL > src.MaxPL)
                src.PL = src.MaxPL

    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)
    proc
        sample_report()
            src << browse("<font face=Courier><Center><STYLE>BODY {background: black; color: yellow}</STYLE><B>Welcome to Dragonball Blitz Revamped!</b><HR>CYN")

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

mob/proc/ChooseCharacter()
    var/list/characters = src.CharacterList()
    var/newCharacterChoice = "New Character"
    var/DeleteCharacterChoice = "Delete Character"
    var/list/menu = new()
    menu += characters
    menu += newCharacterChoice
    menu += DeleteCharacterChoice
    var/result = input("Character Creation", "Dragonball Blitz Revamped") in menu
    if (result == newCharacterChoice)
        src.CreateNewCharacter()

mob/proc/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