; skript maked by inflame , rebuilded to rpg by Igaza ; Set Up The Following Variables: set %maxWeight 300 ; Max ves set %box PPEFKMD ; ID korobki, gde sbrasivatj rudu set %foodCont PPEFKMD ; ID korobki, gde stoit zapasi moloko i bekona set %xCoord 2481 ; X koordinata okolo boxa set %yCoord 75 ; Y koordinata okolo boxa set %dropMarganece #true ; #true - sbrasivajet Marganece rudu , #false - net set %recall #false ; #true - letajet s runebook, #false - begut peshkom ; Do Not Set These Numbers If %recall #false set %runebookID KCEALMD ; ID runebooka set %runeNumberToHome 3 ; Nr runi na dom set %runeNumberToCave 5 ; 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 ; End Of Set Up Part
set %item OVF_EVF_HVF_RVF_FVF_GVF_BVF_VUF_DWJ_TVj_GWJ_EWJ_ZLK_POF_RZF_SJG_CUD_IJG_HSF_RVH_ FZH_UJG_DCI_FWL_NZH set %loot OVF_EVF_HVF_RVF_FVF_GVF_BVF_VUF_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 } gosub gettingStarted gosub initevents set %k 0 set %lastK 0
start: ; KOORDINATI
GOSUB LJING 2473 67 1342 GOSUB LJING 2471 65 1341 GOSUB LJING 2472 65 1339 GOSUB LJING 2473 65 1342 GOSUB LJING 2474 65 1349 GOSUB LJING 2474 64 1350 GOSUB LJING 2472 64 1340 GOSUB LJING 2471 64 1342 GOSUB LJING 2470 64 1340 GOSUB LJING 2470 63 1342 GOSUB LJING 2472 63 1341 GOSUB LJING 2473 63 1343 GOSUB LJING 2474 63 1340 GOSUB LJING 2475 63 1344 GOSUB LJING 2474 62 1339 GOSUB LJING 2473 62 1341 GOSUB LJING 2472 62 1342 GOSUB LJING 2471 62 1340 GOSUB LJING 2470 62 1339 GOSUB LJING 2470 61 1342 GOSUB LJING 2471 62 1340 GOSUB LJING 2472 62 1342 GOSUB LJING 2473 62 1341 GOSUB LJING 2474 62 1339 GOSUB LJING 2475 62 1348 GOSUB LJING 2475 60 1341 GOSUB LJING 2477 61 1346 GOSUB LJING 2478 61 1345 GOSUB LJING 2479 61 1344 GOSUB LJING 2479 60 1340 GOSUB LJING 2480 60 1344 GOSUB LJING 2478 60 1342 GOSUB LJING 2477 60 1339 GOSUB LJING 2476 60 1342 GOSUB LJING 2475 60 1341 GOSUB LJING 2474 60 1340 GOSUB LJING 2473 60 1343 GOSUB LJING 2472 60 1341 GOSUB LJING 2471 60 1340 GOSUB LJING 2470 60 1343 GOSUB LJING 2469 60 1342 GOSUB LJING 2469 59 1340 GOSUB LJING 2469 58 1341 GOSUB LJING 2469 57 1340 GOSUB LJING 2469 56 1343 GOSUB LJING 2469 55 1343 GOSUB LJING 2469 54 1342 GOSUB LJING 2468 54 1342 GOSUB LJING 2468 55 1341 GOSUB LJING 2468 56 1342 GOSUB LJING 2468 57 1339 GOSUB LJING 2468 58 1339 GOSUB LJING 2467 57 1342 GOSUB LJING 2467 56 1340 GOSUB LJING 2467 55 1342 GOSUB LJING 2467 54 1339 GOSUB LJING 2466 54 1342 GOSUB LJING 2466 55 1343 GOSUB LJING 2466 56 1339 GOSUB LJING 2466 57 1340 GOSUB LJING 2465 56 1342 GOSUB LJING 2465 55 1341 GOSUB LJING 2465 54 1340 GOSUB LJING 2465 53 1339 GOSUB LJING 2465 52 1343 GOSUB LJING 2478 55 1348 GOSUB LJING 2477 55 1341 GOSUB LJING 2476 54 1341 GOSUB LJING 2476 53 1339 GOSUB LJING 2475 53 1343 GOSUB LJING 2474 53 1340 GOSUB LJING 2473 52 1341 GOSUB LJING 2474 51 1340 GOSUB LJING 2475 51 1341 GOSUB LJING 2476 50 1342 GOSUB LJING 2476 51 1343 GOSUB LJING 2477 51 1339 GOSUB LJING 2478 51 1342 GOSUB LJING 2479 51 1343 GOSUB LJING 2478 50 1341 GOSUB LJING 2478 49 1340 GOSUB LJING 2476 50 1342 GOSUB LJING 2475 50 1340 GOSUB LJING 2476 50 1342 GOSUB LJING 2475 50 1340 GOSUB LJING 2474 50 1342 GOSUB LJING 2473 50 1341 GOSUB LJING 2473 48 1341 GOSUB LJING 2474 48 1340 GOSUB LJING 2478 48 1341 GOSUB LJING 2479 47 1339 GOSUB LJING 2480 47 1342 GOSUB LJING 2481 47 1341
goto start
sub ljing set %k %k + 1 gosub ghost gosub checkHP gosub element gosub checkWeight gosub kopka
sub kopka 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 30s 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 { if %recall gosub port if ! %recall gosub moveItems } if %dropMarganece { gosub dropMarganece return } } if %afk <> true || %else <> IJG gosub ghost 1 return
sub scan scan: scanjournal gosub checkHP if hungry in #sysmsg { gosub eat return } if ( ( put in #sysmsg ) || ( put in #journal ) || ( You_loosen in #journal ) ) gosub kopka %get fixed if ( ( nothing in #sysMsg ) || ( line in #sysMsg ) || ( decide in #sysMsg ) || ( Try in #sysMsg ) || ( close in #sysMsg ) || ( see in #sysMsg ) || ( line in #sysMsg ) ) return gosub element gosub checkHP if #scnt >= %overtime return goto scan return if #hits < 250 gosub heal return
sub port msg .m_useitem_1$ 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 20 } until #contname <> generic_gump && #contsize <> 577_426 while #charposx = %oldPosX && #charposy = %oldPosY wait 10 gosub moveItems gosub back return
sub moveItems ignoreitem reset 1 move 2469 59 wait 10 move 2472 68 wait 10 gosub runToBox finditem %box G_3 wait 10 if #findcnt = 0 { event Sysmessage Box Not Found! halt } repeat { finditem %item c_ , #backpackid if #findcnt >= 1 { if world_save_has_been in #sysmsg wait 15s exevent Drag #Findid #findstack exevent Dropc %box wait %dropDelay } } until #findcnt = 0 ignoreitem reset 1 if %recall gosub recalls gosub food move 2472 69 wait 10 move 2472 30 return
sub back gosub checkHP set %oldPosX #charposx set %oldPosY #charposy for %i 1 2 { finditem WTL C_ , #backpackid exevent drag #findid 20 exevent dropc %runebookID } gosub openRunebook click %x2 %y2 wait 20 until #contname <> generic_gump && #contsize <> 577_426 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 .m_useitem_1$ set %charX #charposx set %charY #charposy set %charz #charposz repeat { finditem #enemyid NTHN 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 .m_useitem_1$ sound gosub follow&kill } 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 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 84 else set %x . %2 244 if % . %1 = 1 || % . %1 = 9 set %y . %2 117 if % . %1 = 2 || % . %1 = 10 set %y . %2 130 if % . %1 = 3 || % . %1 = 11 set %y . %2 145 if % . %1 = 4 || % . %1 = 12 set %y . %2 158 if % . %1 = 5 || % . %1 = 13 set %y . %2 172 if % . %1 = 6 || % . %1 = 14 set %y . %2 187 if % . %1 = 7 || % . %1 = 15 set %y . %2 199 if % . %1 = 8 || % . %1 = 16 set %y . %2 213 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 = 0 { 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 .m_useitem_1$ set %charX #charposx set %charY #charposy set %charz #charposz sound finditem ED G set %element #findid msg .m_useitem_1$ 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 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 10 finditem WTL C_ , %box exevent drag #findid %amountRecalls exevent dropc #backpackid wait 30 } return
sub food finditem ZBM C_ , #backpackid if #findcnt = 0 { set #lobjectid %foodCont event macro 17 0 while #contid <> %foodCont wait 1 finditem ZBM C_ , %foodCont ; 1 pitcher of milk exevent drag #findid 1 exevent dropc #backpackid wait 30 } finditem GND C_ , #backpackid if #findcnt = 0 { finditem GND C_ , %foodCont exevent drag #findid 4 ; 4 baocn slices exevent dropc #backpackid wait 30 finditem ZBM C_ , %foodCont ; 1 pitcher of milk exevent drag #findid 1 exevent dropc #backpackid wait 30 } return goto targloop set #lobjectid #ltargetid if %ltargetx = #ltargetx && %ltargety = #ltargety { event sysmessage error. try again goto start } return
|