; Set Up The Following Variables:set %maxWeight 800 ; Max svarsset %box IXOUJMD ; id korobkiset %foodCont IXOUJMD ; kur staav rezerves piens un bekonsset %xCoord 1923 ; X koordinaata rjadom boxaset %yCoord 376 ; Y koordinaata rjadom boxaset %dropMarganece #true ; #true - sbrasiveat Marganece ruudu , #false - ne sbrasiveatset %skillItemChange #false ; #true - menjajet skill itemi, #false - netset %tracking #false ; #true - izpolzujet tracking, #false - netset %runebookID RSWHKMD ; Runebook IDset %runeNumberToGZ 7 ; NR runi na GZset %runeNumberToCave 8 ; Nr runi na mesto kapalkiset %trackingWait 200s ; skoka zhdatj gz, kogda uvidit playera; Do Not Set These Items If %skillItemChange #falseset %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 #falseset %runeNumberToHome 6 ; Runas Nr uz maajuset %recall #false ; #true - lidos ar runebook, #false - skries taapatset %amountRecalls 10 ; skoljko vzjat recall esli ih netset %password ; passwordset %item DWJ_TVj_GWJ_EWJ_ZLK_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJG_RMKset %loot DCI_POF_RZF_SJG_CUD_IJG_HSF_RVH_FZH_NZH_UJGgosub Instalyze runeNumberToHome 1gosub Instalyze runeNumberToCave 2gosub Instalyze runeNumberToGZ 3event sysmessage Setting Paperdoll in right position..event macro 8 1wait 30event macro 8 1wait 30contpos 780 -26finditem QRM_FJM_GKM C_ , #backpackidif #findcnt <> 0{set #lobjectid #findidevent macro 17 0wait 30}start:GOSUB MINING 0 0 0 ;koordinati sudaGOSUB MINING 0 0 0 ;koordinati sudagoto startsub MININGgosub ghostgosub checkHPgosub elementgosub checkWeightif %trackinggosub trackingmove %1 %2 1finditem NPF_QPF Cif #findcnt = 0{display ok Pickaxe wasn't found!pause}set #lobjectid #findidevent macro 17 0target 2sset #ltargetx %1set #ltargety %2set #ltargetkind 3set #ltargettile %3event macro 22 0wait 15set %overtime #scnt + 8gosub scanreturnsub checkWeightif #weight > %maxWeight{if ! %dropMarganece{if %recallgosub portif ! %recallgosub moveItems}if %dropMarganece{gosub dropMarganecereturn}}returnsub scanscan:gosub elementscanjournalgosub checkdisconnectgosub checkHPif hungry in #sysmsg{gosub eatreturn}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 ) )returngosub checkHPif #scnt >= %overtimereturngoto scanreturnsub portmsg .arm$gosub checkHPgosub elementif G in #charstatusevent macro 6 0event macro 6 0set %oldPosX #charposxset %oldPosY #charposygosub openRunebookif %trackingAlarmclick %x3 %y3elseclick %x1 %y1event macro 13 21wait 5swhile #charposx = %oldPosX && #charposy = %oldPosYwait 10sif %trackingAlarm{str ins #time : 3str ins #strres : 6set %Time #strresstr ins #date #dot 3str ins #strres #dot 6execute cmd.exe /c echo >>TRACK.txt #charname saw someone #strres @ %Timewait %trackingWaitclick 170 67 rwait 10gosub backgosub trackingreturn}gosub moveItemsgosub backreturnsub moveItemsignoreitem reset 1gosub runToBoxevent macro 13 21gosub smeltfinditem %box G_3wait 10if #findcnt = 0{event Sysmessage Box Not Found!halt}repeat{finditem %item c_ , #backpackidif #findcnt <> 0{exevent Drag #Findid #findstackexevent Dropc %boxwait 15}}until #findcnt = 0ignoreitem reset 1if %recallgosub recallsgosub foodreturnrepeat{finditem DWJ_TVj_GWJ_EWJ C_ , #backpackidif #findcnt <> 0{set #lobjectid #findidevent macro 17 0wait 10}}until #findcnt = 0returnsub smeltrepeat{finditem DWJ_TVj_GWJ_EWJ C_ , #backpackidif #findcnt <> 0{set #lobjectid #findidevent macro 17 0wait 10}}until #findcnt = 0returnrepeat{finditem DWJ_TVj_GWJ_EWJ C_ , #backpackidif #findcnt <> 0{set #lobjectid #findidevent macro 17 0wait 10}}until #findcnt = 0returnsub backset %trackingAlarm #falsegosub checkHPset %oldPosX #charposxset %oldPosY #charposyfor %i 1 2{gosub openRunebookclick 261 215 ; Recharge runebook 2xwait 20}gosub openRunebookclick %x2 %y2event macro 13 21wait 5swhile #charposx = %oldPosX && #charposy = %oldPosYwait 5sreturnsub runToBoxrepeat{move %xCoord %yCoord 0 3swait 5s}until #charposx = %xCoord && #charposy = %yCoordreturnsub follow&killmsg .arm$set %charX #charposxset %charY #charposyset %charz #charposzrepeat{finditem #enemyidevent pathfind #FINDX #FINDY #FINDZ 1 3swait 1sgosub ghost}until #findcnt = 0wait 20gosub lootset %time #scnt + 20repeat{event pathfind %charX %charY %charz 1 3swait 1sgosub ghostif #scnt > %timereturn}until #charposx = %charX && #charposy = %charYreturnsub checkHPif #hits < #maxhits{msg .arm$soundif %skillItemChangegosub changeClothesTo %simpleMask %simpleRobe %simpleCloakgosub follow&killif %skillItemChangegosub changeClothesTo %skillMask %skillRobe %skillCloak}returnsub openRunebookfinditem %runebookID C_ , #backpackidif #findcnt = 0{event sysmessage Runebook not found!halt}set #lobjectid #findidevent macro 17 0while #contname <> generic_gump && #contsize <> 577_426wait 1returnsub ghostif #charghost = YES{terminate uohalt}returnsub changeClothesTorepeat{finditem %1 C_ , #backpackidset #lobjectID #findidevent macro 17 0finditem %1 C_ , #backpackid}until #findcnt = 0repeat{finditem %2 C_ , #backpackidset #lobjectID #findidevent macro 17 0finditem %2 C_ , #backpackid}until #findcnt = 0repeat{Finditem %3 C_ , #backpackidset #lobjectID #findidevent macro 17 0finditem %3 C_ , #backpackid}until #findcnt = 0returnsub eatfinditem ZBM Cset #lobjectid #findidevent macro 17 0wait 10finditem GND Cset #lobjectid #findidevent macro 17 0wait 10event macro 17 0wait 2sreturnsub Instalyzeif % . %1 <= 8set %x . %2 260elseset %x . %2 420if % . %1 = 1 || % . %1 = 9set %y . %2 260if % . %1 = 2 || % . %1 = 10set %y . %2 275if % . %1 = 3 || % . %1 = 11set %y . %2 290if % . %1 = 4 || % . %1 = 12set %y . %2 305if % . %1 = 5 || % . %1 = 13set %y . %2 320if % . %1 = 6 || % . %1 = 14set %y . %2 335if % . %1 = 7 || % . %1 = 15set %y . %2 350if % . %1 = 8 || % . %1 = 16set %y . %2 365returnsub dropMarganecedropLoop:finditem DWJ C_ , #backpackidif #findcnt = 0{wait 10if #weight >= %maxweight{if %recallgosub portif ! %recallgosub moveItemsreturn}if #weight < %maxweightreturn}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 #findstackexevent dropg #charposx #charposy #charposzwait 40}ignoreitem #findid 1goto dropLoopreturnsub lootfinditem YFM G_4if #findcnt > 0{set #lobjectid #findidevent macro 17 0while #contkind <> ASEB && #contsize <> 144_212wait 1wait 20if #conttype = YFMset %corpse #contidset %lootOverTime #scnt + 30repeat{finditem %loot C_ , %corpseif #findcnt = 0 || #scnt > %lootOverTime{ignoreitem %corpse 2return}exevent drag #findid #findstackexevent dropc #backpackidwait 45}until #false}returnsub elementfinditem ED Gif #findcnt <> 0{msg .arm$set %charX #charposxset %charY #charposyset %charz #charposzsoundif %skillItemChangegosub changeClothesTo %simpleMask %simpleRobe %simpleCloakfinditem ED Gset %element #findidmsg .arm$set #ltargetid %elementevent macro 27 0repeat{finditem %elementevent pathfind #FINDX #FINDY #FINDZ 1 3swait 1sgosub ghostgosub placegosub checkpvp}until #findcnt = 0wait 20gosub lootif %skillItemChangegosub changeClothesTo %skillMask %skillRobe %skillCloakset %time #scnt + 20repeat{event pathfind %charX %charY %charz 1 3swait 1sgosub ghostif #scnt > %timereturn}until #charposx = %charX && #charposy = %charY}returnsub foodfinditem ZBM C_ , #backpackidif #findcnt = 0{set #lobjectid %foodContevent macro 17 0while #contid <> %foodContwait 1finditem ZBM C_ , %foodCont; 1 pitcher of milkexevent drag #findid 1exevent dropc #backpackidwait 30}finditem GND C_ , #backpackidif #findcnt = 0{finditem GND C_ , %foodContexevent drag #findid 4; 4 baocn slicesexevent dropc #backpackidwait 30finditem ZBM C_ , %foodCont; 1 pitcher of milkexevent drag #findid 1exevent dropc #backpackidwait 30}returnsub trackingif #charstatus = Gevent macro 6 0event macro 6 0msg ,exec tracking$wait 10set %lagg #scnt + 20repeat{if #contname = objpicker_gump{set %trackingAlarm #truegosub portreturn}if You_see_no_signs_of_players_to_track in #sysmsgreturn}until #scnt > %laggreturnSub CheckPvPscanjournal 1If You_cannot_do_this_now in #journal : notin #journal{ignoreitem #findid 1}returnsub recallsfinditem WTL C_ , #backpackidif #findstack <= 6 || #findcnt = 0{set #lobjectid %boxevent macro 17 0while #contid <> %boxwait 1wait 10finditem WTL C_ , %boxexevent drag #findid %amountRecalls 6exevent dropc #backpackidwait 30}returnsub checkdisconnectif #contname = waiting_gump{click 402 336wait 120sclick 370 400wait 25msg %passwordmsg $gosub waitforgump CONTNAME MainMenu_gumpclick 617 456gosub waitforgump CONTNAME normal_gumpclick 617 456gosub waitforgump CONTNAME Login_gumpclick 617 456}returnsub WaitForGumpset %gumptimeout #scnt_WaitForGump:if # . %1 <> %2{wait 1if %gumptimeout + 5 < #scntreturn #falsegoto _WaitForGump}return #truesub place;if #charposx > 1920;ignoreitem #findid 1;returnSub CheckPvPscanjournal 1If You_cannot_do_this_now in #journal : notin #journal{ignoreitem #findid 1}return
Все работает прекрасно, спасибо