; Set Up The Following Variables: set %maxWeight 800 ; Max svars set %box IXOUJMD ; id korobki set %foodCont IXOUJMD ; kur staav rezerves piens un bekons set %xCoord ; X koordinaata rjadom boxa set %yCoord ; Y koordinaata rjadom boxa set %dropMarganece #true ; #true - sbrasiveat Marganece ruudu , #false - ne sbrasiveat set %skillItemChange #false ; #true - menjajet skill itemi, #false - net set %tracking #false ; #true - izpolzujet tracking, #false - net set %runebookID RSWHKMD ; Runebook ID set %runeNumberToGZ 7 ; NR runi na GZ set %runeNumberToCave 8 ; Nr runi na mesto kapalki set %trackingWait 200s ; skoka zhdatj gz, kogda uvidit playera ; Do Not Set These Items If %skillItemChange #false set %skillRobe PBJKKMD ; Skill Roba (ID) set %skillCloak HQIKKMD ; Skill Cloack (ID) set %skillMask EYIKKMD ; Skill Mask (ID) set %simpleRobe JVBQLMD ; Parasta Roba (ID) set %simpleCloak HMMWJMD ; Parastais cloack (ID) set %simpleMask OSH ; Platemail helms (ID) ; End Of Changable Clothes List ; Do Not Set These Numbers If %recall #false set %runeNumberToHome 6 ; Runas Nr uz maaju set %recall #false ; #true - lidos ar runebook, #false - skries taapat set %amountRecalls 10 ; skoljko vzjat recall esli ih net set %password ; password set %item DWJ_TVj_GWJ_EWJ_ZLK_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG_RMK set %loot DCI_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG gosub Instalyze runeNumberToHome 1 gosub Instalyze runeNumberToCave 2 gosub Instalyze runeNumberToGZ 3 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 } start: GOSUB MINING 2558 495 1340 GOSUB MINING 2558 498 1339 GOSUB MINING 2559 498 1339 GOSUB MINING 2559 496 1340 GOSUB MINING 2558 496 1339 GOSUB MINING 2557 496 1339 GOSUB MINING 2556 496 1340 GOSUB MINING 2557 495 1339 GOSUB MINING 2558 494 1339 GOSUB MINING 2559 494 1342 GOSUB MINING 2560 495 1340 GOSUB MINING 2562 494 1339 GOSUB MINING 2561 493 1339 GOSUB MINING 2560 492 1342 GOSUB MINING 2559 491 1340 GOSUB MINING 2559 490 1342 GOSUB MINING 2559 489 1340 GOSUB MINING 2560 489 1339 GOSUB MINING 2561 489 1339 GOSUB MINING 2562 490 1342 GOSUB MINING 2564 491 1339 GOSUB MINING 2565 491 1350 GOSUB MINING 2565 489 1342 GOSUB MINING 2564 488 1339 GOSUB MINING 2562 488 1342 GOSUB MINING 2561 488 1339 GOSUB MINING 2560 489 1339 GOSUB MINING 2559 490 1342 GOSUB MINING 2559 489 1340 GOSUB MINING 2560 487 1339 GOSUB MINING 2560 486 1353 GOSUB MINING 2562 486 1339 GOSUB MINING 2563 484 1339 GOSUB MINING 2563 483 1339 GOSUB MINING 2563 482 1339 GOSUB MINING 2565 482 1340 GOSUB MINING 2564 483 1341 GOSUB MINING 2564 484 1339 GOSUB MINING 2565 485 1340 GOSUB MINING 2566 485 1339 GOSUB MINING 2567 486 1339 GOSUB MINING 2569 487 1339 GOSUB MINING 2570 488 1339 GOSUB MINING 2571 487 1339 GOSUB MINING 2569 486 1342 GOSUB MINING 2571 484 1340 GOSUB MINING 2571 482 1339 GOSUB MINING 2569 480 1340 GOSUB MINING 2568 481 1339 GOSUB MINING 2567 483 1339 GOSUB MINING 2571 480 1339 GOSUB MINING 2569 479 1339 GOSUB MINING 2569 477 1339 GOSUB MINING 2568 476 1339 GOSUB MINING 2569 476 1341 GOSUB MINING 2571 476 1339 GOSUB MINING 2571 477 1339 GOSUB MINING 2572 478 1342 GOSUB MINING 2574 479 1339 GOSUB MINING 2575 480 1339 GOSUB MINING 2576 481 1342 GOSUB MINING 2573 484 1339 GOSUB MINING 2572 486 1339 GOSUB MINING 2575 485 1342 GOSUB MINING 2576 485 1339 GOSUB MINING 2577 484 1339 GOSUB MINING 2578 483 1342 GOSUB MINING 2579 482 1339 GOSUB MINING 2580 481 1339 GOSUB MINING 2579 479 1339 goto start sub MINING gosub ghost gosub checkHP gosub element gosub checkWeight if %tracking gosub tracking 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 2s set #ltargetx %1 set #ltargety %2 set #ltargetkind 3 set #ltargettile %3 event macro 22 0 wait 15 set %overtime #scnt + 8 gosub scan return sub checkWeight if #weight > %maxWeight { if ! %dropMarganece { if %recall gosub port if ! %recall gosub moveItems } if %dropMarganece { gosub dropMarganece return } } return sub scan scan: gosub element scanjournal gosub checkdisconnect gosub checkHP if hungry in #sysmsg { gosub eat return } if ( ( THERE_IS_NOTHING_HERE_TO_MINE in #sysmsg ) || ( You_stop_Mining in #journal ) + || ( YOU_CAN'T_REACH_THIS in #sysmsg ) || ( You_fail_to_do_that in #sysmsg ) + || ( 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 #sysmsg ) ) return gosub checkHP if #scnt >= %overtime return goto scan return sub port msg .arm$ gosub checkHP gosub element if G in #charstatus event macro 6 0 event macro 6 0 set %oldPosX #charposx set %oldPosY #charposy gosub openRunebook if %trackingAlarm click %x3 %y3 else click %x1 %y1 event macro 13 21 wait 5s while #charposx = %oldPosX && #charposy = %oldPosY wait 10s if %trackingAlarm { str ins #time : 3 str ins #strres : 6 set %Time #strres str ins #date #dot 3 str ins #strres #dot 6 execute cmd.exe /c echo >>TRACK.txt #charname saw someone #strres @ %Time wait %trackingWait click 170 67 r wait 10 gosub back gosub tracking return } gosub moveItems gosub back return sub moveItems ignoreitem reset 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 15 } } until #findcnt = 0 ignoreitem reset 1 if %recall gosub recalls gosub food return 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 back set %trackingAlarm #false gosub checkHP set %oldPosX #charposx set %oldPosY #charposy for %i 1 2 { gosub openRunebook click 261 215 ; Recharge runebook 2x wait 20 } gosub openRunebook click %x2 %y2 event macro 13 21 wait 5s while #charposx = %oldPosX && #charposy = %oldPosY wait 5s return sub runToBox repeat { move %xCoord %yCoord 0 3s wait 5s } 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 { 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 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 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 10 if #weight >= %maxweight { if %recall gosub port if ! %recall gosub moveItems return } if #weight < %maxweight return } if #findcol = 1750 || #findcol = 1218 || #findcol = 1325 || #findcol = 1095 || #findcol = 21 || #findcol = 553 || #findcol = 0 || #findcol = 1936 || #findcol = 1537 || #findcol = 1089 || #findcol = 1950 || #findcol = 144 || #findcol = 2313 || #findcol = 151 || #findcol = 1156 || #findcol = 306 || #findcol = 2197 || { exevent drag #findid #findstack exevent dropg #charposx #charposy #charposz wait 40 } ignoreitem #findid 1 goto dropLoop return sub loot finditem YFM G_4 if #findcnt > 0 { set #lobjectid #findid event macro 17 0 while #contkind <> ASEB && #contsize <> 144_212 wait 1 wait 20 if #conttype = YFM set %corpse #contid set %lootOverTime #scnt + 30 repeat { finditem %loot C_ , %corpse if #findcnt = 0 || #scnt > %lootOverTime { ignoreitem %corpse 2 return } exevent drag #findid #findstack exevent dropc #backpackid wait 45 } until #false } return sub element 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 gosub place gosub checkpvp } 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 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 sub tracking if #charstatus = G event macro 6 0 event macro 6 0 msg ,exec tracking$ wait 10 set %lagg #scnt + 20 repeat { if #contname = objpicker_gump { set %trackingAlarm #true gosub port return } if You_see_no_signs_of_players_to_track in #sysmsg return } until #scnt > %lagg return Sub CheckPvP scanjournal 1 If You_cannot_do_this_now in #journal : notin #journal { ignoreitem #findid 1 } return sub recalls finditem WTL C_ , #backpackid if #findstack <= 6 || #findcnt = 0 { set #lobjectid %box event macro 17 0 while #contid <> %box wait 1 wait 10 finditem WTL C_ , %box exevent drag #findid %amountRecalls 6 exevent dropc #backpackid wait 30 } return sub checkdisconnect if #contname = waiting_gump { click 402 336 wait 120s click 370 400 wait 25 msg %password msg $ gosub waitforgump CONTNAME MainMenu_gump click 617 456 gosub waitforgump CONTNAME normal_gump click 617 456 gosub waitforgump CONTNAME Login_gump click 617 456 } return sub WaitForGump set %gumptimeout #scnt _WaitForGump: if # . %1 <> %2 { wait 1 if %gumptimeout + 5 < #scnt return #false goto _WaitForGump } return #true sub place ;if #charposx > 1920 ;ignoreitem #findid 1 ;return Sub CheckPvP scanjournal 1 If You_cannot_do_this_now in #journal : notin #journal { ignoreitem #findid 1 } return