Any idea where to look to fix this issue.

BYOND Forums

Announcements · BYOND Help · Bug Reports · Feature Requests · Beta Testers · Beta Bugs · Developer Help · Design Philosophy · Demos & Libraries · Tutorials & Snippets · Art & Sound · Classified Ads · Game Updates · Contests & Events · Linux Talk · On Topic · Off Topic

Page: 1 2

ID:989010

Sep 25 2012, 7:57 am

Snyperwolf

Ok my issue is freezing 30 secs after a player logs into the game. Ok heres what i mean; I host a nd watch the dream deamon clock and its moving fine then when someone connects, they make their character then 3 secs later it starts to freeze then almost comes to a complete stop. When they log out it fixes itself, could the problem be in the save load and creation of the character thats causing maybe a infinite loop or something? I plan on getting a server and im 99% sure its not my pc. So would getting a virtual server solve anything?

Thx in advance

Sep 25 2012, 8:01 am
Zohan98	Does this happen after they click on a SPECIFIC verb, or by the default mob/Login();

Sep 25 2012, 8:31 am
Snyperwolf	As soon as they logged in for more then 30 secs

Sep 25 2012, 8:55 am
Zohan98	Copy and Paste your mob/Login()

Sep 25 2012, 9:18 am
Snyperwolf	In the code it says client/New is that the same thing. Its located in the save mechanics

Sep 25 2012, 9:23 am
Tyrannicide	you might want to add the `dm` tags to that, makes it easier for the rest of us to help you out. You can do this by adding dm inside the <> and to close the tags </>

Sep 25 2012, 9:23 am
Zohan98	Use the DM tags.

Sep 25 2012, 9:32 am
Snyperwolf	Ok im not sure what u mean can u clearify a little more 1st time i posted a code here

Sep 25 2012, 9:35 am
Zohan98	Resulting this: mob/Login();var/bleh = 0

Sep 25 2012, 9:40 am

Snyperwolf

 client/New()
    ..()
    spawn(10)
        while(!rock_faction||!cloud_faction||!leaf_faction || !missing_faction || !mist_faction || !sand_faction) sleep(10)

mob
    proc
        ChooseCharacter()
            if(src.client&&src.client.chars)
                var/list/characters = src.client.chars

                var/list/menu = new()
                menu += characters
                if(length(menu))
                    menu += "Cancel"
                    var/pickd=input2(src,"Load a Character","Load",menu)
                    if(pickd=="Cancel")
                        return
                    src<<"Grabbing Character ([pickd]).."
                    var/list/Char=dd_text2List(SendInterserverMessage("get_save", list("char" = pickd, "key" = ckey)),"$")
                    for(var/i = 1; i <= Char.len; ++i)
                        Char[i] = dd_text2List(Char[i],";")
                    if(Char)src<<"[pickd] Loaded!"
                    if(src.client)src.client.LoadMob(Char)

mob/proc
    Input_or_Fail(list/X,mob/U)
        if(U.client)
            var/res= input2(U.client,"Delete character", "DELETE", X)

            return res
        else
            return 0

mob
    proc
        DeleteCharacter()
            if(src.client)
                alert(src,"WARNING: Your about to select a character to delete.")

                if(src&& src.client && src.client.chars)
                    var/list/characters =src.client.chars

                    var/CancelCharacterDeletion = "Cancel"
                    var/list/menu = new()
                    menu += CancelCharacterDeletion
                    menu += characters

                    var/result
                    result=Input_or_Fail(menu,src)

                    if(result && result != "Cancel")
                        src.client.chars-=result

                        if(src.client)
                            Delete_Save(src.key,result)

Sep 25 2012, 9:42 am
Snyperwolf	I know i may be a headache to assist. Im just the host trying to give a helping hand to my coder while he works on something else.

Sep 25 2012, 9:46 am In response to Snyperwolf
Tyrannicide	Snyperwolf wrote: I know i may be a headache to assist. Im just the host trying to give a helping hand to my coder while he works on something else. You should probably delete your previous post without the tags, its pain to the eyes. Are you getting any runtime errors at all?

Sep 25 2012, 9:49 am
Zohan98	Try a little debug, try removing the while() function, to see if the problem will clarify if not, may i have a glimpse of the loadmob procedure?

Sep 25 2012, 9:50 am
Snyperwolf	Map z5 (7, 8) (/obj/mapinfo): New(DDGrass (116,795,5) (/turf/Terrain/DDGrass)) runtime error: list index out of bounds

Sep 25 2012, 9:54 am

In response to Snyperwolf

Tyrannicide

Snyperwolf wrote:

Map z5 (7, 8) (/obj/mapinfo): New(DDGrass (116,795,5) (/turf/Terrain/DDGrass))
runtime error: list index out of bounds

You tried to access something from a list, but the list index you used doesn't exist. List indexes must be larger than or equal to 1, and less than or equal to the length of the list. This error can also occur if you use the pick() proc on a list that doesn't have anything in it.

Sep 25 2012, 9:55 am
Zohan98	Can you paste the loadmob proc?

Sep 25 2012, 9:56 am
Snyperwolf	I'll send the whole save mechanics maybe that would be better

Sep 25 2012, 9:57 am

Snyperwolf

mob/var
    icon/PREV='icons/underpreview.dmi'

mob
    proc
        Save(F)
            var/savefile/S = new("[save_path]/[copytext(src.ckey,1,2)]/[src.ckey]")
            S["F"]<<F
            //Write(S)
        Load()
            if(fexists("[save_path]/[copytext(src.ckey,1,2)]/[src.ckey]")) // Looks for written save file and if it exists it allows acces to load
                var/F
                var/savefile/S = new("[save_path]/[copytext(src.ckey,1,2)]/[src.ckey]") //opens the old save file
                S["F"]>>F
                client.LoadMob(F)
                //Read(S) //Reads it
    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
    proc
        SaveMob()
/*          if(usr.clan=="Capacity")
                usr.icon='base_shark.dmi'
            else return*/
            spawn()world.SaveMob(src.mob,src)
            return

mob/verb/ManualSave()
/*  if(usr.clan=="Capacity")
        usr.icon='base_shark.dmi'
    else */
    usr.client.SaveMob()


world
    proc
        SaveMob(mob/x,client/vrc, xkey=x.ckey)
            if(RP)
                return
            if(!x)
                return
            if(!x.initialized)
                return
            if(!istype(x,/mob/human/player))
                return
            var/oldname=x.name
            if(x.realname)
                x.name=x.realname
            var/list/S=new/list()
            var/list/inv=new/list()

            var/list/bar=new/list()
            var/list/strg=new/list()
            var/list/nums=new/list()
            var/list/lst=new/list()

            if(x)
                var/kay=x.ckey
                if(!kay)
                    kay=vrc.ckey
                if(!kay)
                    return

                var/newbounty = round(x.bounty * 0.9)
                var/savex=x.x
                var/savey=x.y

                var/savez=x.z

                if(x.cexam||x.war|| (capture_the_flag && capture_the_flag.GetTeam(x) != "None") )//WAR FTW)//WAR FTW
                    var/obj/Respawn_Pt/Re=null
                    for(var/obj/Respawn_Pt/R in world)
                        if(x.faction.village=="Missing"&&R.ind==0)
                            Re=R
                        if(x.faction.village=="Konoha"&&R.ind==1)
                            Re=R
                        if(x.faction.village=="Suna"&&R.ind==2)
                            Re=R
                        if(x.faction.village=="Kiri"&&R.ind==3)
                            Re=R
                        if(x.faction.village=="Iwa"&&R.ind == 4)
                            Re = R
                        if(x.faction.village=="Kumo"&&R.ind == 5)
                            Re = R
                        if(x.faction.village=="Ame"&&R.ind == 6)
                            Re = R
                        if(x.faction.village=="Akatsuki"&&R.ind == 7)
                            Re = R
                    if(Re)
                        savex = Re.x
                        savey = Re.y
                        savez = Re.z
                    else
                        savex=31
                        savey=74
                        savez=1
                var/skillcounts=0
                for(var/X in x.skills)
                    if(isnum(X))
                        skillcounts+=X

                var/itemlist[]=new

                var/puppetsave1[]=new
                var/puppetsave2[]=new
                var/puppetsave3[]=new

                for(var/obj/items/o in x.contents)

                    if(!istype(o,/obj/items/weapons/melee/sword/Bone_Sword))
                        if(!istype(o,/obj/items/Puppet))
                            if(o.deletable==0)
                                var/id = type2index(o.type)
                                if(id && isnum(id))
                                    itemlist+=id
                                    itemlist+=o.equipped
                        else

                            if(x&&x.Puppets&&x.Puppets.len>=1&&o==x.Puppets[1])

                                puppetsave1+=type2index(o.type)
                                puppetsave2+=o.name
                                puppetsave3+=1
                            else if(x&&x.Puppets&&x.Puppets.len>=2&&o==x.Puppets[2])

                                puppetsave1+=type2index(o.type)
                                puppetsave2+=o.name
                                puppetsave3+=2
                            else
                                puppetsave1+=type2index(o.type)
                                puppetsave2+=o.name
                                puppetsave3+=0

                var
                    skill_info[0]

                for(var/skill/skill in x.skills)
                    skill_info += skill.id
                    skill_info += skill.cooldown
                    skill_info += skill.uses

                nums.len=45
                nums[1]=x.ezing
                nums[2]=x.MissionCool
                nums[3]=0
                nums[4]=x.votecool
                nums[5]=x.votecool2
                nums[6]=x.factionpoints
                nums[7]=x.overband
                nums[8]=x.Rank_D
                nums[9]=x.Rank_C
                nums[10]=x.Rank_B
                nums[11]=x.Rank_A
                nums[12]=x.Rank_S
                nums[13]=newbounty
                nums[14]=x.hair_type
                nums[15]=x.con
                nums[16]=x.str
                nums[17]=x.int
                nums[18]=x.rfx
                nums[19]=x.skillpoints
                nums[20]=x.levelpoints
                nums[21]=x.money
                nums[22]=max(0,x.stamina)
                nums[23]=max(0,x.curstamina)
                nums[24]=max(0,x.chakra)
                nums[25]=max(0,x.curchakra)
                nums[26]=max(0,x.maxwound)
                nums[27]=max(0,x.curwound)
                nums[28]=x.body
                nums[29]=x.blevel
                nums[30]=x.ko
                nums[31]=x.supplies
                nums[32]=savex
                nums[33]=savey
                nums[34]=savez
                nums[38]=x.eye_r
                nums[39]=x.eye_g
                nums[40]=x.eye_b
                nums[41]=x.handle
                nums[42]=x.respec
                nums[43]=x.found_uchiha
                nums[44]=x.hearts
                nums[45]=x.rfx_plus_boost

                //Douta Added
                nums[35]=x.diedd
                nums[36]=x.mangekyouU
                nums[37]=x.has_secret
                //==========
                lst.len=8
                lst[1]=list2params(x.skillspassive)
                lst[2]=list2params(skill_info)
                lst[3]=list2params(puppetsave1)
                lst[4]=list2params(puppetsave2)
                lst[5]=list2params(puppetsave3)
                lst[6]=list2params(x.macro_set)
                lst[7]=list2params(x.elements)

                strg.len=11
                strg[1]=x.Last_Hosted
                strg[2]=x.lasthostile
                strg[3]=x.rank
                strg[4]=x.icon_name
                strg[5]=x.name
                strg[6]=x.faction.name
                if(x.squad)
                    strg[7]=x.squad.name
                else
                    strg[7]=null
                strg[8]=x.hair_color
                strg[9]=x.clan
                strg[10]=md5("[nums[28]]["squad_delete"][nums[15]+nums[16]+nums[17]+nums[18]]["faction_info"][nums[29]]["get_chars"][nums[20]]["check_name"][nums[19]]")
                strg[11]=x.handle
                bar.len=10
                bar[1]=x.macro1?(x.macro1.id):0
                bar[2]=x.macro2?(x.macro2.id):0
                bar[3]=x.macro3?(x.macro3.id):0
                bar[4]=x.macro4?(x.macro4.id):0
                bar[5]=x.macro5?(x.macro5.id):0
                bar[6]=x.macro6?(x.macro6.id):0
                bar[7]=x.macro7?(x.macro7.id):0
                bar[8]=x.macro8?(x.macro8.id):0
                bar[9]=x.macro9?(x.macro9.id):0
                bar[10]=x.macro10?(x.macro10.id):0

                inv=itemlist

                x.name=oldname
                S.len=5
                nums[22]=round(nums[22]*100)/100
                nums[23]=round(nums[23]*100)/100
                nums[24]=round(nums[24]*100)/100
                nums[25]=round(nums[25]*100)/100
                S[1]=inv
                S[2]=bar
                S[3]=strg
                S[4]=nums
                S[5]=lst

                for(var/client/M in SaveListen)
                    M<<"Saved [x.name] ([xkey])"
                x.Save(S)
                //spawn()Update_Save(xkey,S)

client
    proc
        LoadMob(list/S)
            if(!S || S.len<5)
                return
            var/list/inv=S[1]
            var/list/bar=S[2]
            var/list/strg=S[3]
            var/list/nums=S[4]
            var/list/lst=S[5]

            /*for(var/i = 1; i <= nums.len; ++i)
                nums[i] = text2num(nums[i])
                if(!nums[i]) nums[i] = 0*/

            var/hash=md5("[nums[28]]["squad_delete"][nums[15]+nums[16]+nums[17]+nums[18]]["faction_info"][nums[29]]["get_chars"][nums[20]]["check_name"][nums[19]]")
            if(strg[10] != hash)
                src << "Character verification failed."
                del(src)

            var/newx
            var/newy
            var/newz

            newx=nums[32]
            newy=nums[33]
            newz=nums[34]
            var/mob/human/player/x=new/mob/human/player(locate(newx,newy,newz))
            if(x && x.loc && x.loc.loc) x.loc.loc.Entered(x)

            x.name=""

            var/list/itemlist
            var/list/puppetsave1
            var/list/puppetsave2
            var/list/puppetsave3

            x.ezing=nums[1]
            x.MissionCool=nums[2]
            //x.survivalistcool=nums[3]
            x.votecool=nums[4]
            x.votecool2=nums[5]
            x.factionpoints=nums[6]
            x.overband=nums[7]
            x.Rank_D=nums[8]
            x.Rank_C=nums[9]
            x.Rank_B=nums[10]
            x.Rank_A=nums[11]
            x.Rank_S=nums[12]
            x.bounty=nums[13]
            x.hair_type=nums[14]
            x.con=nums[15]
            x.str=nums[16]
            x.int=nums[17]
            x.rfx=nums[18]
            x.skillpoints=nums[19]
            x.levelpoints=nums[20]
            x.money=nums[21]
            x.stamina=nums[22]
            x.curstamina=nums[23]
            x.chakra=nums[24]
            x.curchakra=nums[25]
            x.maxwound=nums[26]
            x.curwound=nums[27]
            x.body=nums[28]
            x.blevel=nums[29]
            x.ko=nums[30]
            x.supplies=nums[31]
            x.diedd=nums[35]
            x.mangekyouU=nums[36]
            x.has_secret=nums[37]
            if(nums.len>=38) x.eye_r=nums[38]
            if(nums.len>=39) x.eye_g=nums[39]
            if(nums.len>=40) x.eye_b=nums[40]
            if(nums.len>=42) x.respec=nums[42]
            if(nums.len>=43) x.found_uchiha=nums[43]
            if(nums.len>=44) x.hearts=nums[44]
            x.rfx_plus_boost=nums[45]
            //Douta Added
            //if(nums.len>=35)
            //  x.kills=nums[35]
            //if(nums.len>=36)
            //  x.deaths=nums[36]
            ///////

            x.Last_Hosted=strg[1]
            x.lasthostile=strg[2]
            x.rank=strg[3]
            x.icon_name=strg[4]
            x.name=strg[5]
            x.realname = x.name
            x.hair_color=strg[8]
            x.clan=strg[9]
            if(strg.len >= 11) x.handle = strg[11]
            var/faction_name = strg[6]
            var/faction/faction_ref = load_faction(faction_name)

            while(!faction_ref)
                sleep(10)
                //del(x)
                //src << "Load failed."

            x.faction = faction_ref
            x.mouse_over_pointer = faction_mouse[faction_ref.mouse_icon]
            faction_ref.online_members += x

            x.Refresh_Faction_Verbs()

            if(!x.loc)
                for(var/obj/Respawn_Pt/R in world)
                    if((x.faction.village=="Missing"&&R.ind==0)||(x.faction.village=="Konoha"&&R.ind==1)||(x.faction.village=="Suna"&&R.ind==2)||(x.faction.village=="Kiri"&&R.ind==3)||(x.faction.village=="Iwa"&&R.ind==4)||(x.faction.village=="Kumo"&&R.ind==5)||(x.faction.village=="Ame"&&R.ind==6))
                        x.loc = R.loc
                        break

            var/squad_name = strg[7]
            if(squad_name)
                var/squad/squad_ref = load_squad(squad_name)
                if(!squad_ref)
                    x.squad = null
                else
                    x.squad = squad_ref
                    squad_ref.online_members += x
            else
                x.squad = null

            x.Refresh_Squad_Verbs()

            if(!x.name)
                x.name = "Nameless"
                del(x)
                src << "Load failed."

            x.skillspassive=dd_text2List(lst[1],"&")
            for(var/i = 1; i <= x.skillspassive.len; ++i)
                x.skillspassive[i] = text2num(x.skillspassive[i])
                if(!x.skillspassive[i]) x.skillspassive[i] = 0

            x.skillspassive.len=50

            var
                skill_info[]

            skill_info=dd_text2List(lst[2],"&")

            for(var/i = 0; i <= (skill_info.len-3);)
                var/id = text2num(skill_info[++i])
                var/cooldown = text2num(skill_info[++i])
                var/uses = text2num(skill_info[++i])
                var/skill/skill = x:AddSkill(id)
                skill.cooldown = cooldown
                skill.uses = uses

            if(!x.HasSkill(KAWARIMI))
                x.AddSkill(KAWARIMI)

            if(!x.HasSkill(WINDMILL_SHURIKEN))
                x.AddSkill(WINDMILL_SHURIKEN)

            if(!x.HasSkill(SHUNSHIN))
                x.AddSkill(SHUNSHIN)

            if(!x.HasSkill(BUNSHIN))
                x.AddSkill(BUNSHIN)

            if(!x.HasSkill(HENGE))
                x.AddSkill(HENGE)

            if(!x.HasSkill(EXPLODING_KUNAI))
                x.AddSkill(EXPLODING_KUNAI)

            if(!x.HasSkill(EXPLODING_NOTE))
                x.AddSkill(EXPLODING_NOTE)
            switch(x.clan)
                if("Sand Control")
                    if(!x.HasSkill(SAND_SUMMON))
                        x.AddSkill(SAND_SUMMON)
                    if(!x.HasSkill(SAND_UNSUMMON))
                        x.AddSkill(SAND_UNSUMMON)

/*              if("Scavenger")
                    if(!x.HasSkill(HEART_EXTRACTION))
                        x.AddSkill(HEART_EXTRACTION)
                    if(!x.HasSkill(GENERATE_HEART))
                        x.AddSkill(GENERATE_HEART)*/
                if("Deidara")
                    if(!x.HasSkill(CLAY_KAWA))
                        x.AddSkill(CLAY_KAWA)

            if(x.HasSkill(HUMAN_PUPPET))
                if(!x.HasSkill(PUPPET_WEAPON_1))
                    x.AddSkill(PUPPET_WEAPON_1)

                if(!x.HasSkill(PUPPET_WEAPON_2))
                    x.AddSkill(PUPPET_WEAPON_2)

                if(!x.HasSkill(PUPPET_WEAPON_3))
                    x.AddSkill(PUPPET_WEAPON_3)

                if(!x.HasSkill(PUPPET_WEAPON_4))
                    x.AddSkill(PUPPET_WEAPON_4)

                if(!x.HasSkill(PUPPET_WEAPON_5))
                    x.AddSkill(PUPPET_WEAPON_5)

                if(!x.HasSkill(PUPPET_WEAPON_6))
                    x.AddSkill(PUPPET_WEAPON_6)


            puppetsave1=dd_text2List(lst[3],"&")
            for(var/i = 1; i <= puppetsave1.len; ++i)
                puppetsave1[i] = text2num(puppetsave1[i])
                if(!puppetsave1[i]) puppetsave1[i] = 0

            puppetsave2=dd_text2List(lst[4],"&")

            puppetsave3=dd_text2List(lst[5],"&")
            for(var/i = 1; i <= puppetsave3.len; ++i)
                puppetsave3[i] = text2num(puppetsave3[i])
                if(!puppetsave3[i]) puppetsave3[i] = 0

            itemlist=inv
            for(var/i = 1; i <= itemlist.len; ++i)
                itemlist[i] = text2num(itemlist[i])
                if(!itemlist[i]) itemlist[i] = 0

            for(var/i = 1; i <= 10; ++i)
                var/skill_id = text2num(bar[i])
                if(skill_id)
                    for(var/skill/skill in x.skills)
                        if(skill.id == skill_id)
                            x.vars["macro[i]"] = skill
                            var/skillcard/card = new /skillcard(null, skill)
                            card.screen_loc = "[i+1],1"
                            x.player_gui += card
                            screen += card

            x.elements=params2list(lst[7])
            for(var/element in x.elements)
                if(!istext(element) || element == "/list")
                    x.elements -= element

            if(x.maxwound>200)
                x.maxwound=100
            if(x.skillpoints > (x.blevel * (165 + 4.5 * x.int)))
                x.skillpoints = 0

            x.Puppets.len=2

            if(puppetsave1)
                var/i2=length(puppetsave1)
                if(i2>100)
                    i2=100
                while(i2>0)
                    if(!(puppetsave1.len>=i2) ||!(puppetsave2.len>=i2)||!(puppetsave3.len>=i2))
                        break
                    var/otype = index2type(puppetsave1[i2])
                    var/oname = puppetsave2[i2]
                    var/ostatus= puppetsave3[i2]
                    if(otype)
                        var/obj/items/o = new otype(x)
                        o.name=oname
                        if(ostatus==1)
                            x.Puppets[1]=o
                            x.overlays+='icons/Equipped1.dmi'
                        if(ostatus==2)
                            x.Puppets[2]=o
                            x.overlays+='icons/Equipped2.dmi'
                    i2--

        //ets

            var/list/L=list(0,0,0,0,0)
            for(var/i = 0; i <= (itemlist.len-2);)
                var/id = itemlist[++i]
                var/equipped = itemlist[++i]
                var/type = index2type(id)

                if(type==/obj/items/weapons/projectile/Kunai_p)
                    L[1]=1
                if(type==/obj/items/weapons/projectile/Needles_p)
                    L[2]=1
                if(type==/obj/items/weapons/projectile/Shuriken_p)
                    L[3]=1
                if(type==/obj/items/weapons/melee/knife/Kunai_Melee)
                    L[4]=1
                if(type==/obj/items/equipable/Kunai_Holster)
                    L[5]=1
                if(type!=null && ispath(type,/obj/items))
                    var/obj/items/o = new type(x)
                    if(equipped && !istype(o,/obj/items/usable) && !istype(o,/obj/items/Puppet_Stuff))
                        spawn(rand(10,30))o:Use(x)
                    else if(istype(o,/obj/items/usable))
                        o.equipped=equipped
                        spawn(30)if(o) o:Refreshcountdd(src.mob)
                    else if(istype(o,/obj/items/Puppet_Stuff))
                        if(equipped)
                            o.equipped=equipped
                            if(i==1)
                                o.overlays+='icons/Equipped1.dmi'
                            if(i==2)
                                o.overlays+='icons/Equipped2.dmi'
                    else
                        o.equipped=0

            if(!L[1])
                new/obj/items/weapons/projectile/Kunai_p(x)
            if(!L[2])
                new/obj/items/weapons/projectile/Needles_p(x)
            if(!L[3])
                new/obj/items/weapons/projectile/Shuriken_p(x)
            if(!L[4])
                new/obj/items/weapons/melee/knife/Kunai_Melee(x)
            if(!L[5])
                new/obj/items/equipable/Kunai_Holster(x)

            for(var/obj/O in x)
                if(istype(O, /obj/items/equipable/Chuunin_Mist))
                    del O
                if(istype(O, /obj/items/equipable/Chuunin_Leaf))
                    del O
                if(istype(O, /obj/items/equipable/faction_chuunin/Akatsuki_Hat))
                    del O
                if(istype(O, /obj/items/equipable/faction_chuunin/Akatsuki_Suit))
                    del O
                if(istype(O, /obj/items/equipable/faction_chuunin/Mange_Sound))
                    del O
                if(istype(O, /obj/items/equipable/faction_chuunin/Mange_Sound_2))
                    del O
                if(istype(O, /obj/items/equipable/Chuunin_Sand))
                    del O
                if(istype(O, /obj/items/equipable/faction_chuunin/Ourico_Ame))
                    del O

            if(x.rank != "Academy Student" && x.rank != "Genin" && x.faction && x.faction.chuunin_item)
                var/chuunin_type = index2type(x.faction.chuunin_item)
                var/has_chuunin = locate(chuunin_type) in x
                if(!has_chuunin) new chuunin_type(x)

            if(x.rank != "Academy Student" && x.rank != "Genin" && x.faction && x.faction.village=="Oto")
                var/chuunin_type = index2type(10002)
                var/has_chuunin_ = locate(chuunin_type) in x
                if(!has_chuunin_) new chuunin_type(x)

            for(var/skill/skill in x.skills)
                if(skill.cooldown) spawn() skill.DoCooldown(x, 1)

            x.macro_set = params2list(lst[6])
            if(x.macro_set.len)
                winset(src, null, lst[6])
            x.initialized = 1
            src.mob=x
            x.RefreshSkillList()
            if(!Names.Find(x.realname)&&x)
                Names.Add(x.realname)


obj
    cEnter
        Click()
            if(istype(usr,/mob/charactermenu))
                if(!EN[10])
                    return

                if(sname=="Public Server"||!rock_faction||!cloud_faction||!leaf_faction || !missing_faction || !mist_faction || !sand_faction)
                    usr << "The server is still loading, please wait."
                    return 0

                if(Open != 1)
                    usr << "The server is still loading, please wait."
                    return 0

                usr:hasspaced = 1

                usr.loc = locate_tag("maptag_select")
mob
    human
        preview
            var
                addy=0

mob/charactermenu
    var
        hasspaced = 0
    Logout()
        del(src)
    Login()
        tag = ckey
        if(RP)
            for(var/mob/human/player/X in world)
                if(X.client && X.client.address && X.client.address==src.client.address)
                    src<<"You cannot multikey on a RP Server."
                    del(src)
            src<<"Please be advised that this is a Roleplay/Hardcore Server. You cannot train here, your character will NOT SAVE and death is permanent until the server reboots."

        if(!src.client)
            return

        spawn(10) if(src.client) src.client.ClientInitiate()

        name = "[key] (Character Menu)"
        hasspaced = 0
        canmove = 0
        loc = locate_tag("maptag_title")
        ..()

client/var/list/chars

client/New()
    ..()
    spawn(10)
        while(!rock_faction||!cloud_faction||!leaf_faction || !missing_faction || !mist_faction || !sand_faction) sleep(10)

mob
    proc
        ChooseCharacter()
            if(src.client&&src.client.chars)
                var/list/characters = src.client.chars

                var/list/menu = new()
                menu += characters
                if(length(menu))
                    menu += "Cancel"
                    var/pickd=input2(src,"Load a Character","Load",menu)
                    if(pickd=="Cancel")
                        return
                    src<<"Grabbing Character ([pickd]).."
                    var/list/Char=dd_text2List(SendInterserverMessage("get_save", list("char" = pickd, "key" = ckey)),"$")
                    for(var/i = 1; i <= Char.len; ++i)
                        Char[i] = dd_text2List(Char[i],";")
                    if(Char)src<<"[pickd] Loaded!"
                    if(src.client)src.client.LoadMob(Char)

mob/proc
    Input_or_Fail(list/X,mob/U)
        if(U.client)
            var/res= input2(U.client,"Delete character", "DELETE", X)

            return res
        else
            return 0

mob
    proc
        DeleteCharacter()
            if(src.client)
                alert(src,"WARNING: Your about to select a character to delete.")

                if(src&& src.client && src.client.chars)
                    var/list/characters =src.client.chars

                    var/CancelCharacterDeletion = "Cancel"
                    var/list/menu = new()
                    menu += CancelCharacterDeletion
                    menu += characters

                    var/result
                    result=Input_or_Fail(menu,src)

                    if(result && result != "Cancel")
                        src.client.chars-=result

                        if(src.client)
                            Delete_Save(src.key,result)

obj
    hair_creation
        hair1
            Click()
                usr.hair_type=1
                usr.completeLoad_Overlays()
                if(usr) usr.Refresh_example()
        hair2
            Click()
                usr.hair_type=2
                usr.completeLoad_Overlays()
                if(usr) usr.Refresh_example()
        hair3
            Click()
                usr.hair_type=3
                usr.completeLoad_Overlays()
                if(usr) usr.Refresh_example()
        hair4
            Click()
                usr.hair_type=4
                usr.completeLoad_Overlays()
                if(usr) usr.Refresh_example()
        hair5
            Click()
                usr.hair_type=5
                usr.completeLoad_Overlays()
                if(usr) usr.Refresh_example()
        hair6
            Click()
                usr.hair_type=6
                usr.completeLoad_Overlays()
                if(usr) usr.Refresh_example()
        hair7
            Click()
                usr.hair_type=7
                usr.completeLoad_Overlays()
                if(usr) usr.Refresh_example()
        hair8
            Click()
                usr.hair_type=8
                usr.completeLoad_Overlays()
                if(usr) usr.Refresh_example()
        hair9
            Click()
                usr.hair_type=9
                usr.completeLoad_Overlays()
                if(usr) usr.Refresh_example()
        hair10
            Click()
                usr.hair_type=10
                usr.completeLoad_Overlays()
                if(usr) usr.Refresh_example()
        hair11
            Click()
                usr.hair_type=11
                usr.completeLoad_Overlays()
                if(usr) usr.Refresh_example()
        hair12
            Click()
                usr.hair_type=12
                usr.completeLoad_Overlays()
                if(usr) usr.Refresh_example()
        hair13
            Click()
                usr.hair_type=13
                usr.completeLoad_Overlays()
                if(usr) usr.Refresh_example()
        hair14
            Click()
                usr.hair_type=14
                usr.completeLoad_Overlays()
                if(usr) usr.Refresh_example()
        hair15
            Click()
                usr.hair_type=15
                usr.completeLoad_Overlays()
                if(usr) usr.Refresh_example()
        hair16
            Click()
                usr.hair_type=16
                usr.completeLoad_Overlays()
                if(usr) usr.Refresh_example()
        hair17
            Click()
                usr.hair_type=17
                usr.completeLoad_Overlays()
                if(usr) usr.Refresh_example()
        hair18
            Click()
                usr.hair_type=18
                usr.completeLoad_Overlays()
                if(usr) usr.Refresh_example()
        hair19
            Click()
                usr.hair_type=19
                usr.completeLoad_Overlays()
                if(usr) usr.Refresh_example()
        hair0
            Click()
                usr.hair_type=0
                usr.completeLoad_Overlays()
                if(usr) usr.Refresh_example()

    bases
        base5
            Click()
                usr.icon_name="base_african"
                usr.Affirm_Icon()
                if(usr) usr.Refresh_example()

                else
                    usr<<"You can only modify this at initial character creation."
        base6
            Click()
                usr.icon_name="base_mulatto"
                usr.Affirm_Icon()
                if(usr) usr.Refresh_example()

                else
                    usr<<"You can only modify this at initial character creation."
        base4
            Click()
                usr.icon_name="base_m4"
                usr.Affirm_Icon()
                if(usr) usr.Refresh_example()

                else
                    usr<<"You can only modify this at initial character creation."
        base3
            Click()
                usr.icon_name="base_m3"
                usr.Affirm_Icon()
                if(usr) usr.Refresh_example()

                else
                    usr<<"You can only modify this at initial character creation."
        base2
            Click()
                usr.icon_name="base_m2"
                usr.Affirm_Icon()
                if(usr) usr.Refresh_example()
                else
                    usr<<"You can only modify this at initial character creation."
        base1
            Click()
                usr.icon_name="base_m1"
                usr.Affirm_Icon()
                if(usr) usr.Refresh_example()
                else
                    usr<<"You can only modify this at initial character creation."

    haircolor
        var
            r=0
            g=0
            b=0
        haircolor1
            r=0
            g=0
            b=0
        haircolor2
            r=194
            g=194
            b=194
        haircolor3
            r=236
            g=236
            b=236
        haircolor4
            r=61
            g=39
            b=0
        haircolor5
            r=90
            g=57
            b=0
        haircolor6
            r=121
            g=78
            b=3
        haircolor7
            r=171
            g=129
            b=1
        haircolor8
            r=212
            g=161
            b=6
        haircolor9
            r=221
            g=188
            b=8
        haircolor10
            r=239
            g=208
            b=0
        haircolor11
            r=144
            g=71
            b=12
        haircolor12
            r=201
            g=92
            b=4
        haircolor13
            r=201
            g=64
            b=4
        haircolor14
            r=148
            g=49
            b=6
        haircolor15
            r=81
            g=25
            b=1
        haircolor16
            r=248
            g=141
            b=3
        haircolor17
            r=247
            g=228
            b=122
        haircolor18
            r=4
            g=99
            b=153
        haircolor19
            r=180
            g=78
            b=238
        haircolor20
            r=4
            g=204
            b=140
        haircolor21
            r=253
            g=135
            b=179
        Click()
            ..()
            var/mod=0.8
            if(usr.hair_type==3)
                mod=0.5
            if(usr.hair_type==4||usr.hair_type==1||usr.hair_type==5||usr.hair_type==6||usr.hair_type==7||usr.hair_type==8||usr.hair_type==9||usr.hair_type==10)
                mod=0.65

            var
                hair_r=limit(0, round(src.r*mod), 255)
                hair_b=limit(0, round(src.b*mod), 255)
                hair_g=limit(0, round(src.g*mod), 255)
            usr.hair_color = rgb(hair_r, hair_g, hair_b)
            usr.completeLoad_Overlays()
            if(usr) usr.Refresh_example()
        haircolor_rgb
            Click()
                var
                    hair_color = input(usr, "What color do you want your hair to be?") as color
                if(usr)
                    usr.hair_color = hair_color
                    usr.completeLoad_Overlays()
                    if(usr) usr.Refresh_example()

obj
    dirarrows
        right
            Click()
                usr.dir=EAST
                usr.Refresh_example()
        left
            Click()
                usr.dir=WEST
                usr.Refresh_example()
        up
            Click()
                usr.dir=NORTH
                usr.Refresh_example()
        down
            Click()
                usr.dir=SOUTH
                usr.Refresh_example()

obj
    eyecolor
        var
            rx=0
            grx=0
            bx=0
        icon='icons/eye colors.dmi'
        eyecolor1//blue
            Click()
                if(usr.eyes)
                    usr << "You've already chosen your eye color."
                    return
                usr<<"You only get to choose your eye color once. Do you want this color?"
                var/I = input(usr, "Yes or no?") in list ("Yes", "No")
                if(usr && I == "Yes")
                    usr.overlays += image(/obj/special/eyes_blue)
                    usr.eyes = 1
                    usr.eblue = 1
        eyecolor2//yellow
            Click()
                if(usr.eyes)
                    usr << "You've already chosen your eye color."
                    return
                usr<<"You only get to choose your eye color once. Do you want this color?"
                var/I = input(usr, "Yes or no?") in list ("Yes", "No")
                if(usr && I == "Yes")
                    usr.overlays += image(/obj/special/eyes_yellow)
                    usr.eyes = 1
                    usr.eyellow = 1
        eyecolor3//green
            Click()
                if(usr.eyes)
                    usr << "You've already chosen your eye color."
                    return
                usr<<"You only get to choose your eye color once. Do you want this color?"
                var/I = input(usr, "Yes or no?") in list ("Yes", "No")
                if(usr && I == "Yes")
                    usr.overlays += image(/obj/special/eyes_green)
                    usr.eyes = 1
                    usr.egreen = 1
        eyecolor4//light blue
            Click()
                if(usr.eyes)
                    usr << "You've already chosen your eye color."
                    return
                usr<<"You only get to choose your eye color once. Do you want this color?"
                var/I = input(usr, "Yes or no?") in list ("Yes", "No")
                if(usr && I == "Yes")
                    usr.overlays += image(/obj/special/eyes_light_blue)
                    usr.eyes = 1
                    usr.elblue = 1
        eyecolor5//brown
            Click()
                if(usr.eyes)
                    usr << "You've already chosen your eye color."
                    return
                usr<<"You only get to choose your eye color once. Do you want this color?"
                var/I = input(usr, "Yes or no?") in list ("Yes", "No")
                if(usr && I == "Yes")
                    usr.overlays += image(/obj/special/eyes_brown)
                    usr.eyes = 1
                    usr.ebrown = 1
        eyecolor6//purple
            Click()
                if(usr.eyes)
                    usr << "You've already chosen your eye color."
                    return
                usr<<"You only get to choose your eye color once. Do you want this color?"
                var/I = input(usr, "Yes or no?") in list ("Yes", "No")
                if(usr && I == "Yes")
                    usr.overlays += image(/obj/special/eyes_purple)
                    usr.eyes = 1
                    usr.epurple = 1
        eyecolor7//light green
            Click()
                if(usr.eyes)
                    usr << "You've already chosen your eye color."
                    return
                usr<<"You only get to choose your eye color once. Do you want this color?"
                var/I = input(usr, "Yes or no?") in list ("Yes", "No")
                if(usr && I == "Yes")
                    usr.overlays += image(/obj/special/eyes_light_green)
                    usr.eyes = 1
                    usr.elgreen = 1
        eyecolor_rgb
        Click()
            //usr << "Eye coloring has been disabled."
            if(usr && usr.client)
                var/R = input(usr, "How much red do you want in your eyes?") as num
                var/G = input(usr, "How much green do you want in your eyes?") as num
                var/B = input(usr, "How much blue do you want in your eyes?") as num
                //var/C = rgb(R, G, B)
                usr.eye_r = R
                usr.eye_g = G
                usr.eye_b = B
                sleep(2)
                var/icon/I = new(icon)

                var
                    ex = usr.eye_r
                    ec = usr.eye_g
                    ev = usr.eye_b

                I.SwapColor(rgb(007,007,007), rgb(ex, ec, ev))
                I.SwapColor(rgb(93,95,93),rgb(ex, ec, ev))
                icon = I

                src.icon = icon

                usr.eyes = 1
                usr.Affirm_Icon()
                usr.Refresh_example()

mob
    proc
        GoCust()
            src.client.eye=locate(25,57,2)
            src.Refresh_example()

world/proc
    Name_No_Good(xname)
        var/list/upper=list("A","B","C","D","E","F","G","H","I","J","K","L","M","N","O", "P","Q","R","S","T","U","V","W","X","Y","Z")

        if(upper.Find("[copytext("[xname]",1,2)]") && length(xname)<=20 && length(xname)>=1)
            return 0
        else
            return 1

    Name_Correct(xname)
        if(xname)
            var/vname
            vname="[html_encode(xname)]"
            var/replacer="_"
            var/i=findtext(vname," ")
            while(i)
                xname=copytext(xname,1,i)+replacer+copytext(xname,i+length(" "))
                i=findtext(xname," ",i+length(replacer))
            vname=ckeyEx(vname)
            replacer=" "
            i=findtext(vname,"_")
            while(i)
                xname=copytext(xname,1,i)+replacer+copytext(xname,i+length("_"))
                i=findtext(xname,"_",i+length(replacer))
            return vname
        else
            return 0

mob
    proc
        NewCharacter()
            if(!src.client)return
            if((src.client.chars &&src.client.chars.len>3))
                alert(src,"You have more than 3 characters, please delete one before creating a new character.")
                return

            var/mob/newmob = new/mob/human/player(locate_tag("maptag_creation_appearance"))
            newmob.invisibility=100
            newmob.initialized=0


            if(src.client)

                src.client.mob=newmob
                sleep(10)
                newmob.Refresh_example()

    proc
        Refresh_example()
            for(var/image/o in src.screener)
                del(o)

            usr.screener+=image(usr.icon,icon_state="",loc=locate_tag("maptag_creation_preview"),layer=MOB_LAYER,dir=usr.dir)
            for(var/o in src.overlays)
                usr.screener+=image(o,loc=locate_tag("maptag_creation_preview"),layer=MOB_LAYER+1,dir=usr.dir)
            for(var/image/p in src.screener)
                usr<<p
                usr.Imgs+=p

obj
    Done
        Click()
            if(!usr.initialized)
                usr.loc=locate_tag("maptag_creation_clan")
            usr.client.eye=usr.client.mob
            usr.hidestat=0
            usr:Refresh_Stat_Screen()

obj/items/Map
    icon='icons/gui2.dmi'
    icon_state="map"
    Click()
        usr.Look_Map()

obj/items/Guide

Sep 25 2012, 10:48 am
Snyperwolf	I was watching the task manager and dorment just hosting it stays at 50k memory but as soon as someone logs in it jumps by 10k a sec even tho the dream daemon is frozen

Sep 25 2012, 12:39 pm (Edited by moderator on Sep 26 2012, 1:26 am)
DvK87	Hmm, the problem is probably that you are using a ripped source and you have no idea how your game works and no idea where to start debugging the damn thing.

Page: 1 2