mob/Login()
   if(!loc)
      loc = locate("start")

mob/Login()
   if(!loc)
      loc = locate("start")

mob
  Login()
    ..()
    loc = locate(10,10,2)

world
    mob = /mob/Choosechar

client
    proc
        Load_Char()
            var/savefile/S = new ("Player/[src.mob.ckey]")
            S["mob"] >> src.mob
            S["x"] >> src.mob.x
            S["y"] >> src.mob.y
            S["z"] >> src.mob.z
        Save_Char()
            var/savefile/S = new ("Player/[src.mob.ckey]")
            S["mob"] << src.mob
            S["x"] << src.mob.x
            S["y"] << src.mob.y
            S["z"] << src.mob.z

client
    New()
        ..()
        world << "<font color=white>[src.mob] Has Entered The Game."
    Del()
        world << "<font color=white>[src.mob]<font color=white> Has Left The Game."
        src.mob.client.Save_Char()
        del(src.mob)

mob/Choosechar
    Login()
        spawn()
            src.Choose_Char()
    proc//we start with the procs
        Choose_Char()
            var/list/char_menu = newlist()
            var/Create = "Create New Character"
            var/Load = "Load Character"
            var/Quit = "Exit"
            if(fexists("Player/[src.client.ckey]"))
                char_menu.Add(Create,Load,Quit)
                var/choice = input("What do you want to do?","Kingdom Hearts: The Door of Darkness.") in char_menu

                if(choice == Create)
                    switch(alert("Creating a New Character will delete your existing character. Continue?","Warning","Yes","No"))
                        if("Yes")
                            Create_Char()
                        if("No")
                            Choose_Char()
                            return
                if(choice == Load)
                    src.client.Load_Char()
                if(choice == Quit)
                    del(src)
            else
                char_menu.Add(Create,Quit)
                var/choice = input("What do you want to do?","Welcome to [world.name]!") in char_menu

                if(choice == Create)
                    Create_Char()
                if(choice == Load)
                    del(src)

            ..()

        Create_Char()
            var/mob/mob_created
            var/world_name = "[world.name]"
            var/value = key
            var/text = "What would you like your name to be?"
            var/name = input(src, text, world_name, value)as text
            if(!name)
                src.Create_Char()
                return

            var/choose_char = input("What would you like to be?")in list("Sora")
            switch(choose_char)
                if("Sora")
                    mob_created = new/mob/Sora()
                    mob_created <<"You are Sora."

            mob_created.loc = locate(10,10,2)
            mob_created.name = name
            src.client.mob = mob_created

mob
    Sora
        icon = 'sora2.dmi'