Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- set %Banker MDD
- set %Forges AUJ_AVJ_BUJ_BVJ_CUJ_CVJ_DUJ_DVJ_EUJ_EVJ_FUJ_GUJ_HVJ_IVJ_JBG_JUJ_KUJ_NUJ_NVJ_OUJ_OVJ_PUJ_QUJ_ROJ_SOJ_TUJ_UUJ_VTJ_WTJ_XUJ_YUJ_ZTJ_ZUJ
- set %Ores DWJ
- set %Ingots ENK_DWJ
- set %Lootbag #BACKPACKID
- set %Weight #WEIGHT
- set %MaxWeight 310
- set %MakeIngots #True
- set #SYSMSGCOL 1186
- ;^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%
- finditem NPF C
- if #FINDKIND = -1
- {
- event SysMessage You need a Pickaxe first.
- halt
- }
- set %Pickaxe #FINDID
- start:
- if #WEIGHT > %MaxWeight
- {
- gosub MineToForge
- if %MakeIngots = #TRUE
- gosub MakeIngots
- gosub ForgeToBank
- gosub BankIngots
- gosub BankToMine
- set %Weight #WEIGHT
- }
- gosub MineRandomTile
- repeat
- OnHotKey H ALT
- {
- gosub MineToForge
- if %MakeIngots = #TRUE
- gosub MakeIngots
- gosub ForgeToBank
- gosub BankIngots
- Halt
- }
- until you_stop_mining in #sysmsg || #sysmsg || that_is_too_far_away in #sysmsg || there_is_no_ore in #sysmsg || there_is_no_more in #sysmsg || can't_get_there in #sysmsg || you_fail_to_find_any_ore. in #sysmsg || you_fail_to_find_usable_ore in #sysmsg
- goto start
- ;^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%
- sub MineToForge
- gosub pathFind 2564 484 0
- gosub pathFind 2572 479 0
- return
- ;^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%
- sub MakeIngots
- repeat
- finditem %Ores C
- if #FINDKIND <> -1
- {
- set #LOBJECTID #FINDID
- event Macro 17 0
- wait 20
- }
- until #FINDKIND = -1
- set %Weight #WEIGHT
- return
- ;^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%
- sub ForgeToBank
- gosub pathFind 2564 484 0
- gosub pathFind 2559 493 0
- gosub pathFind 2558 502 0
- gosub pathFind 2563 509 5
- gosub pathFind 2567 516 15
- gosub pathFind 2572 522 15
- gosub pathFind 2567 524 15
- finditem %Banker G_8
- if #FINDID <> -1
- {
- gosub pathFind #findx #findy #FINDZ
- set #LOBJECTID %Banker
- event Macro 17 0
- repeat
- until #CONTNAME = generic_gump && #CONTSIZE = 230_298
- set %Cont #CONTID
- click 100 135
- repeat
- until #CONTSIZE = 180_240
- set %Bankbox #CONTID
- }
- return
- ;^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%
- sub BankIngots
- finditem %Ingots C_ , #BACKPACKID
- if #FINDKIND <> -1
- {
- for %n 1 #FINDCNT
- {
- set #FINDINDEX %n
- exevent Drag #FINDID #FINDSTACK
- wait 10
- exevent Dropc %Bankbox
- wait 10
- }
- }
- set %Weight #WEIGHT
- return
- ;^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%
- sub BankToMine
- gosub pathFind 2567 524 15
- gosub pathFind 2572 522 15
- gosub pathFind 2567 516 15
- gosub pathFind 2563 509 5
- gosub pathFind 2558 502 0
- gosub pathFind 2558 502 0
- gosub pathFind 2559 493 0
- gosub pathFind 2564 484 0
- return
- halt
- ;^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%
- sub pathFind
- Event pathFind %1 %2 %3
- repeat
- until #CHARPOSX = %1 && #CHARPOSY = %2
- return
- ;^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%
- sub MineRandomTile
- gosub MoveRandomCave
- set #LOBJECTID %Pickaxe
- repeat
- event Macro 17 0
- target 10s
- until #TARGCURS = 1
- event Macro 23
- return
- ;^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%
- sub MoveRandomCave
- event macro 26 0
- finditem %targetID
- event macro 13 1
- target
- event macro 22 0
- for %i 1 2
- {
- set %steps #random % 2 + 1
- set %direction #random % 2
- if %direction = 0
- set %direction -
- if %direction = 1
- set %direction +
- if %i = 1
- set %move . %i #CHARPOSX %direction %steps
- if %i = 2
- set %move . %i #CHARPOSY %direction %steps
- }
- Event pathFind %Move1 %Move2 #CHARPOSZ
- for %i 5 1
- {
- scanjournal %i
- if Can't_get_there in #JOURNAL
- {
- deletejournal %i
- gosub MoveRandomCave
- }
- }
- set #scnt 0
- repeat
- until #CHARPOSX = %Move1 && #CHARPOSY = %Move2 || #scnt > 5
- return
- ;^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%
- {
- ignoreitem #FINDID
- set #LOBJECTID #FINDID
- Event pathFind #FINDX #FINDY #FINDZ
- repeat
- until #CHARPOSX = #FINDX && #CHARPOSY = #FINDY
- event Macro 17 0
- repeat
- until #CONTTYPE = YFM
- finditem * C_ , #CONTID
- if #FINDKIND <> -1
- {
- for %n 1 #FINDCNT
- {
- set #FINDINDEX %n
- exevent Drag #FINDID #FINDSTACK
- wait 10
- exevent Dropc %Lootbag
- wait 10
- }
- }
- set #LOBJECTID %Pickaxe
- repeat
- event Macro 17 0
- target 10s
- until #TARGCURS = 1
- event Macro 23
- }
- return
- ;^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%
- sub MoveOreIngots
- finditem %Ingots , _ , %Ores C_ , #BACKPACKID
- if #FINDKIND <> -1
- {
- for %n 1 #FINDCNT
- {
- set #FINDINDEX %n
- if #LLIFTEDKIND = 0
- {
- exevent Drag #FINDID #FINDSTACK
- wait 5
- exevent Dropc %Lootbag
- wait 5
- }
- }
- }
- set %Weight #WEIGHT
- return
- ;^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%
Add Comment
Please, Sign In to add comment