set %Banker WVRCE
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 %Weight 200
set %food GQE_KPE_YWI_MQE_UQE_FWI_ZPE_YSD_TWI_QQD_AXI_UWI
set %CHESTID KFAKCND
set %TotalIron N/A
start:
gosub Weight
 GOSUB MINE 2214 1136 376 222 1
 GOSUB MINE 2214 1137 368 241 2
 GOSUB MINE 2214 1138 372 244 3
 GOSUB MINE 2214 1139 368 242 4
 GOSUB MINE 2214 1142 363 250 5
 GOSUB MINE 2214 1144 374 192 6
 GOSUB MINE 2213 1145 348 210 7
 GOSUB MINE 2212 1147 380 193 8
 GOSUB MINE 2212 1149 357 220 9
 GOSUB MINE 2212 1150 330 237 10
 GOSUB MINE 2212 1150 358 266 11
 GOSUB MINE 2212 1150 342 296 12
 GOSUB MINE 2212 1150 311 269 13
 GOSUB MINE 2211 1154 390 222 14
 GOSUB MINE 2211 1154 375 236 15
 GOSUB MINE 2210 1155 383 223 16
 GOSUB MINE 2209 1156 373 234 17
 GOSUB MINE 2208 1158 392 184 18
 GOSUB MINE 2208 1158 386 230 19
 GOSUB MINE 2208 1160 364 231 20
 GOSUB MINE 2208 1160 356 202 21
 GOSUB MINE 2208 1160 389 185 22
 GOSUB MINE 2215 1132 383 226 24
 GOSUB MINE 2216 1131 380 228 25
 GOSUB MINE 2216 1129 374 236 26
 GOSUB MINE 2217 1127 377 223 27
 GOSUB MINE 2218 1127 420 234 28
 GOSUB MINE 2220 1125 379 241 29
 GOSUB MINE 2220 1123 364 256 30
 GOSUB MINE 2220 1123 380 229 31
 GOSUB MINE 2220 1122 378 244 32
 GOSUB MINE 2220 1121 381 239 33
 GOSUB MINE 2220 1121 384 220 34
 GOSUB MINE 2218 1119 344 289 35
 GOSUB MINE 2218 1119 317 262 36
 GOSUB MINE 2216 1112 427 268 37
 GOSUB MINE 2216 1112 452 291 38
 GOSUB MINE 2216 1112 462 309 39
 GOSUB MINE 2217 1112 423 329 40
 GOSUB MINE 2217 1112 441 309 41
 GOSUB MINE 2219 1114 452 287 42
 GOSUB MINE 2219 1114 471 296 43
 GOSUB MINE 2220 1116 446 271 45
 GOSUB MINE 2220 1116 471 287 46
 GOSUB MINE 2223 1116 433 239 47
 GOSUB MINE 2223 1116 450 282 48
 GOSUB MINE 2223 1116 431 314 49
 GOSUB MINE 2224 1120 444 245 51
 GOSUB MINE 2224 1120 444 245 51
 GOSUB MINE 2227 1122 431 303 52
 GOSUB MINE 2227 1122 411 331 53
 GOSUB MINE 2227 1123 404 310 54
 GOSUB MINE 2227 1123 381 330 55
 GOSUB MINE 2224 1125 419 349 56
 GOSUB MINE 2223 1126 421 330 57
 GOSUB MINE 2223 1128 410 332 58
 GOSUB MINE 2225 1130 449 261 59
 GOSUB MINE 2226 1131 450 259 60
goto start

sub mine
key ESC
gosub jwscan
gosub Weight
event SysMessage Moving to Spot[ #: %5 X: %1 Y: %2 Z: 0 ] Total Iron: %TotalIron
move %1 %2 0
finditem NPF C_ , #BACKPACKID
set #lobjectid #findid
event macro 17 0
target
click %3 %4 f
wait 3s
gosub scan
gosub Weight
return
sub scan
scan:
gosub jwscan
if ore_to_mine_here in #sysmsg
{
return
}
if ore_here_to_mine in #sysm  sg
{
return
}
if THAT_IS_TOO_FAR_AWAY in #sysmsg
{
return
}
if YOU_FAIL_TO_FIND_ANY_ORE in #sysmsg
{
return
}
if #targcurs = 1
click %3 %4 f
if YOU_STOP_MINING in #sysmsg
{
return
}
if THE_WORLD_IS_SAVING in #sysmsg
{
Save:
if SAVING in #sysmsg || #sysmsg = N/A
goto Save
}
if RESYNCHRONIZING in #sysmsg
{
sync:
if RESYNCHRONIZING in #sysmsg || #sysmsg = N/A
goto sync
}
if THAT_IS_TOO_FAR_AWAY in #sysmsg
return
if #sysmsg = N/A
{
set %time #scnt + 10
L1:
if #sysmsg <> N/A
goto scan
if #scnt < %time
goto L1
return
}
goto scan
return
sub Weight
;gosub hu
if #Weight >= %Weight
{
move 2218 1147 0
wait 5
gosub eat %food
gosub Smelt
gosub bank
gosub gotomine
}
return
;;;;;;;;;;;;;;;;;
sub Smelt
repeat
gosub jwscan
Smelt:
finditem %Ingots C_ , #BACKPACKID
finditem %Ores C_ , #BACKPACKID
if #FINDCOL = 80 || #FINDCOL = 35 || #FINDCOL = 16
{
ignoreitem #FINDID
goto Smelt
}
if #FINDKIND <> -1
{
   set #LOBJECTID #FINDID
   event Macro 17 0
   set #SCNT 0
   repeat
   until You_create in #SYSMSG || You_destroy in #SYSMSG || #SCNT > 10
   wait 20
}
until #FINDKIND = -1
ignoreitem reset
return
;;;;;;;;;;;;;;;;;;;;;;
sub Bank
gosub jwscan
gosub recallrune %houserune
finditem %Ingots C_ , #BACKPACKID
if #FINDKIND <> -1
{
gosub jwscan
color:
gosub jwscan
gosub countiron
finditem %Ingots C_ , #BACKPACKID
if #FINDCOL <> 0 && #FINDKIND <> -1
{
   ;set #LOBJECTID KFAKCND
   ;event macro 17 0
   exevent Drag #FINDID #FINDSTACK
   wait 10
   exevent Dropc QIXDRPD
   ignoreitem #FINDID
   wait 10
   goto color
}
if #FINDCOL = 0 && #FINDKIND <> -1
{
   exevent Drag #FINDID #FINDSTACK
   wait 10
   exevent Dropc %Bankbox
   wait 10
   gosub countiron
   goto color
}
}
ignoreitem reset
return
;;;;;;;;;;;;;;;;;;;
;==========
;EAT SUB
;usage: gosub eat <foodtype>
;==========
sub eat
eatloop:
finditem %1 C
if #findkind = -1
return
msg .hunger$
wait 5
scanjournal
if stop_eating in #journal
return
if three_square_meals in #journal
return
if diet in #journal
gosub usefood %1
if growling in #journal
gosub usefood %1
if Anorexic in #journal
gosub usefood %1
if %nofood
return
goto eatloop
return

sub usefood
finditem %1 C
if #findkind = -1
return
set #lobjectid #findid
event macro 17 0
wait 10
return
;==========
;END EAT SUB
;==========
sub countiron
iron:
FINDITEM %ingots C_ , %BANKBOX
set %TotalIron #FINDSTACK
setUOTitle Total Iron: %TotalIron
return

;move 2222 1128 0
;move 2224 1150 0
;move 2224 1193 0
;move 2253 1223 0

sub jewel
move 2218 1147 0
gosub Findbanker
repeat
set %ss QEQD
finditem HJG_IJG_UJG_LWL C_ , %SS
exevent drag #FINDID
wait 2
exevent dropc %bankbox
wait 10
until #FINDKIND = -1
return
sub jwscan
if #HITS < #MAXHITS || resisting in #SYSMSG
{
gosub jewel
Beep:
sound macro.wav
wait 15
goto beep
}
return