; Set Up The Following Variables: set %maxWeight 250 ; Max svars set %box YUSAKMD ; Kastes ID, kur likt ruudu set %xCoord 1437 ; X koordinaata tieshi pie kastes set %yCoord 1693 ; Y koordinaata tieshi pie kastes set %dropMarganece #true ; #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 #true 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 xxxxxx ; Skill Roba (ID) set %skillCloak xxxxx ; Skill Cloack (ID) set %skillMask xxxxxx ; Skill Mask (ID) set %simpleRobe xxxxx ; Parasta Roba (ID) set %simpleCloak xxxxx ; Parastais cloack (ID) set %simpleMask xxx ; Platemail helms (TYPE/ID) ; End Of Changable Clothes List ; Do Not Set These Numbers If %recall #false set %runebookID EGDDMMD ; Runebooka ID set %runeNumberToHome 1 ; Runas Nr uz maaju set %runeNumberToCave 2 ; Runas Nr uz alu set %amountRecalls 5 HFVTLMD ; 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_RMK 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 40 event macro 8 1 wait 40 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 goto start sub ljing 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 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 gosub runToBox msg Fuh, dobezhal! Korobka - otvoris! $ wait 1s msg BANK BANK BANK $ finditem %box CKF 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 msg Nu vot, vse vilozhil :) $ wait 35 if %repairwep { msg Tak, nado bi pochinitsa, malo li atakujut... $ gosub repairWeapon } 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 40 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 40 } ignoreitem #findid 1 wait 40 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 Plavka repeat { finditem DWJ_TVj_GWJ_EWJ C_ , #backpackid if #findcnt <> 0 { set #lobjectid #findid event macro 17 0 wait 10 } } until #findcnt = 0 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
помогите с этим скриптом чтобы он разгружал в банк и брал кирку , еду и реколы что бы перезарежал рунбук спс