set %spot2 998 set %bankspotend 1007 set %whatwedrop ENK_TWS_AXS_GXS_VWS_UWS_ZWS_EVF_GVF_HVF_BVF_UVF set %forgeid MYNCKMD set %shovelid WWF_twf_QPF_WMF set %OREid DWJ_EWJ_GWJ set %ingotid ENK set %prospector #true set %smeltspot 0
set %getshovel #false set %back #false
gosub setrail gosub checkingots
event macro 32 if Always_Run_is_now_off. in #sysmsg { event macro 32 }
main: gosub walknextspot gosub dig goto main
sub walknextspot movenext: if %spot = %endspot { set %spot 0 }
if %back = #false { set %spot %spot + 1 }
if %back = #true { repeat { event pathfind %x . %smeltspot %y . %smeltspot %z . %smeltspot wait 1s if #charposx <> %x . %smeltspot || #charposy <> %y . %smeltspot set %next #false else set %next #true } until %next = #true
gosub smelt
set %next #false set %back #false gosub checkingots
if %ingots => 300 || %getshovel = #true { repeat { set %spot2 %spot2 + 1 gotobank: event pathfind %x . %spot2 %y . %spot2 %z . %spot2 wait 1s if #charposx <> %x . %spot2 || #charposy <> %y . %spot2 goto gotobank } until %spot2 = 1007 gosub bankprocedure
repeat { set %spot2 %spot2 - 1 gofrombank: event pathfind %x . %spot2 %y . %spot2 %z . %spot2 wait 1s if #charposx <> %x . %spot2 || #charposy <> %y . %spot2 goto gofrombank } until %spot2 = 998 } }
gotospot: event pathfind %x . %spot %y . %spot %z . %spot
wait 2s
if #WEIGHT > #MAXWEIGHT { repeat { findItem %OREid c_ , #backpackid Exevent Drag #findid 1 Exevent Dropg #charposx #charposy #charposz } until #findKind <> -1 || #WEIGHT > #MAXWEIGHT }
if #charposx <> %x . %spot || #charposy <> %y . %spot { if %spot < 0 set %spot 0 goto gotospot }
return
sub dig set %nightdaybred 0 if %back = #true return
if %event . %spot = #false return
set %digerror 0 predigging: set %jstart #jindex
finditem %shovelid c_ , #backpackid if #findkind = 0 { set #lobjectID #findID } else { set %getshovel #true set %back #true return }
set #LTARGETX #CHARPOSX set #LTARGETY #CHARPOSY set #LTARGETZ #CHARPOSZ set #LTARGETKIND 3 set #LTARGETTILE %digtile . %spot
digging: if %nightdaybred > 30 { return }
set %nightdaybred %nightdaybred + 1 event macro 17 ;last object target 4s event macro 22 ;last target wait 3s scanjournal 1
if #jindex > %jstart { set %jend #jindex for %i %jstart %jend { scanjournal 1
if WORN in #journal { goto predigging } if IS_FULL in #journal { wait 1s set %back %true return }
if YOU_CAN in #journal { if %digerror > 5 { wait 1s return } set %digerror %digerror + 1 goto predigging }
if BE_SEEN in #journal { if %digerror > 5 { wait 1s return } set %digerror %digerror + 1 goto predigging }
if IS_TOO in #journal { if %digerror > 5 { wait 1s return } set %digerror %digerror + 1 goto predigging }
if IS_NO_METAL in #journal { return } } set %jstart #jindex } else { set %jstart #jindex }
if #WEIGHT >= #MAXWEIGHT - 20 { wait 1s deletejournal set %back #true return }
finditem %shovelid c_ , #backpackid if #findkind = 0 { set #lobjectID #findID } else { goto predigging }
deletejournal goto digging
sub smelt findItem %forgeid g if #findid = %forgeid { set #lTargetID #findID set #lTargetKind 1 }
smeltprocedure: findItem %OREid c if #findKind <> -1 { set #lObjectID #findID event Macro 17 0 event Macro 22 0 goto smeltprocedure } return
sub setrail set %endspot 75
set %x0 2572 set %y0 476 set %z0 0
set %x1 2564 set %y1 480 set %z1 0 set %DIGTILE1 1353
set %x2 2565 set %y2 480 set %z2 0 set %DIGTILE2 1339
set %x3 2566 set %y3 480 set %z3 0 set %DIGTILE3 1339
set %x4 2567 set %y4 480 set %z4 0 set %DIGTILE4 1339
set %x5 2568 set %y5 480 set %z5 0 set %DIGTILE5 1339
set %x6 2569 set %y6 480 set %z6 0 set %DIGTILE6 1340
set %x7 2570 set %y7 480 set %z7 0 set %DIGTILE7 1339
set %x8 2571 set %y8 480 set %z8 0 set %DIGTILE8 1339
set %x9 2572 set %y9 480 set %z9 0 set %DIGTILE9 1339
set %x10 2573 set %y10 480 set %z10 0 set %DIGTILE10 1340
set %x11 2574 ;emr set %y11 480 set %z11 0 set %DIGTILE11 1339
set %x12 2575 set %y12 480 set %z12 0 set %DIGTILE12 1339
set %x13 2576 set %y13 480 set %z13 0 set %DIGTILE13 1339
set %x14 2577 set %y14 480 set %z14 0 set %DIGTILE14 1339
set %x15 2578 set %y15 480 set %z15 0 set %DIGTILE15 1342
set %x16 2579 set %y16 480 set %z16 0 set %DIGTILE16 1339
set %x17 2580 set %y17 480 set %z17 0 set %DIGTILE17 1339
set %x18 2581 set %y18 480 set %z18 0 set %DIGTILE18 1352
set %x19 2581 set %y19 481 set %z19 0 set %DIGTILE19 1348
set %x20 2580 set %y20 481 set %z20 0 set %DIGTILE20 1339
set %x21 2579 set %y21 481 set %z21 0 set %DIGTILE21 1339
set %x22 2578 set %y22 481 set %z22 0 set %DIGTILE22 1339
set %x23 2577 set %y23 481 set %z23 0 set %DIGTILE23 1339
set %x24 2576 set %y24 481 set %z24 0 set %DIGTILE24 1342
set %x25 2575 set %y25 481 set %z25 0 set %DIGTILE25 1339
set %x26 2574 set %y26 481 set %z26 0 set %DIGTILE26 1339
set %x27 2573 set %y27 481 set %z27 0 set %DIGTILE27 1339
set %x28 2572 ;amt set %y28 481 set %z28 0 set %DIGTILE28 1339
set %x29 2571 set %y29 481 set %z29 0 set %DIGTILE29 1339
set %x30 2570 set %y30 481 set %z30 0 set %DIGTILE30 1339
set %x31 2569 set %y31 481 set %z31 0 set %DIGTILE31 1339
set %x32 2568 set %y32 481 set %z32 0 set %DIGTILE32 1339
set %x33 2567 set %y33 481 set %z33 0 set %DIGTILE33 1339
set %x34 2566 set %y34 481 set %z34 0 set %DIGTILE34 1342
set %x35 2565 set %y35 481 set %z35 0 set %DIGTILE35 1339
set %x36 2564 set %y36 481 set %z36 0 set %DIGTILE36 1339
set %x37 2563 set %y37 481 set %z37 0 set %DIGTILE37 1353
set %x38 2562 set %y38 482 set %z38 0 set %DIGTILE38 1353
set %x39 2563 set %y39 482 set %z39 0 set %DIGTILE39 1339
set %x40 2564 set %y40 482 set %z40 0 set %DIGTILE40 1339
set %x41 2565 set %y41 482 set %z41 0 set %DIGTILE41 1340
set %x42 2566 set %y42 482 set %z42 0 set %DIGTILE42 1339
set %x43 2567 set %y43 482 set %z43 0 set %DIGTILE43 1339
set %x44 2568 set %y44 482 set %z44 0 set %DIGTILE44 1340
set %x45 2569 set %y45 482 set %z45 0 set %DIGTILE45 1339
set %x46 2570 set %y46 482 set %z46 0 set %DIGTILE46 1342
set %x47 2571 set %y47 482 set %z47 0 set %DIGTILE47 1339
set %x48 2572 set %y48 482 set %z48 0 set %DIGTILE48 1341 ;sha
set %x49 2573 set %y49 482 set %z49 0 set %DIGTILE49 1339
set %x50 2574 set %y50 482 set %z50 0 set %DIGTILE50 1340 ;iron
set %x51 2575 set %y51 482 set %z51 0 set %DIGTILE51 1339 ;iron
set %x52 2576 set %y52 482 set %z52 0 set %DIGTILE52 1339 ;iron
set %x53 2577 set %y53 482 set %z53 0 set %DIGTILE53 1339
set %x54 2578 set %y54 482 set %z54 0 set %DIGTILE54 1339
set %x55 2579 set %y55 482 set %z55 0 set %DIGTILE55 1339
set %x56 2580 set %y56 482 set %z56 0 set %DIGTILE56 1339
set %x57 2581 set %y57 482 set %z57 0 set %DIGTILE57 1344
set %x58 2580 set %y58 483 set %z58 0 set %DIGTILE58 1344
set %x59 2579 set %y59 483 set %z59 0 set %DIGTILE59 1339
set %x60 2578 set %y60 483 set %z60 0 set %DIGTILE60 1342
set %x61 2577 set %y61 483 set %z61 0 set %DIGTILE61 1339
set %x62 2576 set %y62 483 set %z62 0 set %DIGTILE62 1339 ;ruby
set %x63 2575 set %y63 483 set %z63 0 set %DIGTILE63 1339
set %x64 2574 set %y64 483 set %z64 0 set %DIGTILE64 1342
set %x65 2573 set %y65 483 set %z65 0 set %DIGTILE65 1339
set %x66 2572 set %y66 483 set %z66 0 set %DIGTILE66 1342
set %x67 2571 set %y67 483 set %z67 0 set %DIGTILE67 1339
set %x68 2570 set %y68 483 set %z68 0 set %DIGTILE68 1339
set %x69 2568 set %y69 483 set %z69 0 set %DIGTILE69 1339
set %x70 2567 set %y70 483 set %z70 0 set %DIGTILE70 1339
set %x71 2566 set %y71 483 set %z71 0 set %DIGTILE71 1340
set %x72 2565 set %y72 483 set %z72 0 set %DIGTILE72 1340
set %x73 2564 set %y73 483 set %z73 0 set %DIGTILE73 1341
set %x74 2563 set %y74 483 set %z74 0 set %DIGTILE74 1339
set %x75 2562 set %y75 483 set %z75 0 set %DIGTILE75 1354
set %x998 2572 set %y998 476 set %z998 0
set %X999 2563 set %Y999 488 set %Z999 0
set %X1000 2559 set %Y1000 501 set %Z1000 0
set %X1001 2551 set %Y1001 501 set %Z1001 15
set %X1002 2539 set %Y1002 501 set %Z1002 30
set %X1003 2527 set %Y1003 504 set %Z1003 15
set %X1004 2520 set %Y1004 516 set %Z1004 0
set %X1005 2509 set %Y1005 520 set %Z1005 0
set %X1006 2506 set %Y1006 531 set %Z1006 0
set %X1007 2505 set %Y1007 542 set %Z1007 0 return
sub checkingots set %totalingots 0 set %ingots 0 findagain: finditem %ingotid c_, #backpackid if #findkind <> -1 { set %totalingots %totalingots + 1 set %ingotid . %totalingots #findid set %ingotcol . %totalingots #findcol set %ingotstack . %totalingots #findstack ignoreitem #findid ingots set %ingots %ingots + #findstack goto findAgain } ignoreitem reset ingots
chooseSkill Mini set %showIngots %Ingots + %realIngots SetUOTitle Ingots: %showIngots Mining: #skill return
sub bankprocedure set %realIngots %realIngots + %Ingots set %Ingots 0 repeat { msg bank$ wait 2s } until ( #CONTTYPE = HIF && #CONTNAME = container_gump && #CONTSIZE = 180_240 ) set %bankid #CONTID
repeat { finditem %whatwedrop c_ , #backpackid exevent drag #findid #findstack exevent dropc %bankid } until #findkind = -1
if %dragprospector = #true { finditem GBG c_ , %bankid if #findkind = 0 { exevent drag #findid #findstack exevent dropc #backpackid wait 1s } set %dragprospector #false }
if %getshovel = #true { for %qq 1 2 { finditem %shovelid c_ , %bankid if #findkind = 0 { exevent drag #findid #findstack exevent dropc #backpackid wait 1s } } set %getshovel #false } return
sub waitforgump set %waitforgumperror 1
repeat { if %waitforgumperror = 25 { finditem KTL c_ , #backpackid set #LOBJECTID #findid set #ltargetkind 1 event macro 17 0 }
finditem #LOBJECTID c_ , #backpackid if #findkind <> 0 { finditem KTL c_ , #backpackid set #LOBJECTID #findid set #ltargetkind 1 event macro 17 0 } wait 1s set %waitforgumperror %waitforgumperror + 1 } until #contname = generic_gump
if #contposx <> 40 || #contposy <> 40 { contpos 40 40 wait 1s } return
под изю. берет лопаты с банка. 1.встать в шахту минока (должна быть одна лопата в паке) 2.нажать плей и все !
--------------------
Прямые руки- это паталогия!
|