Code:

set %Banker HZF
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 #WEIGHT
set %MaxWeight 350
set %MakeIngots #TRUE

linespercycle 50
set #SYSMSGCOL 1186

finditem NPF C
if #FINDKIND = -1
{
  event SysMessage You need a hatchet first.
  halt
}
set %Pickaxe #FINDID

event SysMessage Choose a lootbag and press SPACE.

waitkey:
onhotkey SPACE
  goto setbag
goto waitkey

setbag:
if #CONTNAME <> container_gump || #CONTID = #BACKPACKID
  goto waitkey
set %Lootbag #CONTID

event SysMessage Lootbag set, time to start mining.
key BACK
key BACK
key BACK
msg $

start:
if #WEIGHT > %MaxWeight
{
  gosub MineToForge
  if %MakeIngots = #TRUE
  {
    gosub MakeIngots
  }
  gosub ForgeToBank
  gosub BankIngots
  gosub BankToMine
  set %Areas _
  set %Weight #WEIGHT
}
gosub MineRandomTile
repeat
  if #CONTNAME = waiting_gump && #CONTSIZE = 203_121
  {
    halt
  }
  for %n 5 1
  {
    scanjournal %n
    if you_thief!! in #JOURNAL
    {
      sound hahaha.wav
      deletejournal
      msg .thief$
      wait 5
      msg .guard$
    }
    if is_attacking_you!* in #JOURNAL
    {
      sound hahaha.wav
      deletejournal
      msg .guard$
    }
    if you_see: in #JOURNAL && #JCOLOR = 905
    {
      sound hahaha.wav
      deletejournal
      ;msg .guard$
    }
    if the_Guard in #JOURNAL
      gosub FindCorpe
    if ore_in_your_backpack in #JOURNAL
      gosub MoveOreIngots
    if You_create_some_ingots in #JOURNAL
      gosub MoveOreIngots
    if Seer_ in #JOURNAL || Counselor_ in #JOURNAL
    {
      for %n 1 3
      {
        sound macro2.wav
        wait 4s
      }
      halt
    }
  }
  if #WEIGHT < %Weight
  {
    SET %Weight #WEIGHT - %Weight
    set #SYSMSGCOL 1955
    event SysMessage ***** LOST %Weight WEIGHT! *****
    set %Weight #WEIGHT
    ignoreitem #CHARID
    finditem IS_HS G_3
    if #FINDKIND <> -1
    {
      set #LTARGETID #FINDID
      set #LTARGETKIND 1
      event SysMessage ***** Locked on Target! *****
      set %locktarget #FINDID
      msg .thief$
      wait 10
      msg .guard$
      wait 10
    }
  }
until ore_to_mine_here in #JOURNAL || ore_here_to_mine in #JOURNAL || that_is_too_far_away in #JOURNAL
goto start


sub FindCorpse
finditem YFM
if #FINDKIND <> -1
{
  ignoreitem #FINDID
  set #LOBJECTID #FINDID
  move #FINDX #FINDY 2
  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
  set #LTARGETKIND 2
  set #LTARGETX #CHARPOSX
  set #LTARGETY #CHARPOSY
  event Macro 22 0
  set #LTARGETID %locktarget
  set #LTARGETKIND 1
}
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

sub BankToMine
move 2567 524 0
move 2572 522 0
move 2570 519 0
move 2557 500 0
move 2564 486 0
return

sub BankIngots
ignoreitem reset
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
  }
}
finditem %Ingots C_ , %Lootbag
if #FINDKIND <> -1
{
  for %n 1 #FINDCNT
  {
    set #FINDINDEX %n
    exevent Drag #FINDID #FINDSTACK
    wait 10
    exevent Dropc %Bankbox
    wait 10
  }
}
finditem %Ores C_ , %Lootbag
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 ForgeToBank
move 2567 524 0
finditem %Banker G_8
if #FINDID <> -1
{
  move #FINDX #FINDY 2
  wait 20
  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 MakeIngots
Smelt:
finditem %Ingots C_ , #BACKPACKID
finditem %Ores C_ , %Lootbag
if #FINDCOL = 80 || #FINDCOL = 35 || #FINDCOL = 16 || #FINDCOL = 0
{
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
set %Weight #WEIGHT
return

sub MineToForge
move 2565 487 0
move 2558 498 0
move 2572 522 0

return


sub MineRandomTile
namespace push
namespace local MoveTile
gosub MoveRandomCave
set #LOBJECTID %Pickaxe
repeat
  event Macro 17 0
  target 10s
until #TARGCURS = 1
set #LTARGETKIND 2
set #LTARGETX #CHARPOSX
set #LTARGETY #CHARPOSY
event Macro 22 0
set #LTARGETID %locktarget
set #LTARGETKIND 1
namespace pop
return

sub MoveRandomCave
namespace push
namespace local MoveRandom
set #SCNT 0
tile Init
repeat
  repeat
    set !DX #RANDOM % 100
    ;if !DX < 75
    ;  set !DX ( #CHARDIR + #RANDOM % 3 + 7 ) % 8 * 2 + 1
    ;else
    ;  set !DX ( #CHARDIR + #RANDOM % 5 + 2 ) % 8 * 2 + 1
    set !DX #RANDOM % 8 * 2 + 1
    set !DY !DX + 1
    str Mid 1020212212020100 !DX 1
    set !DX #STRRES - 1
    str Mid 1020212212020100 !DY 1
    set !DY #STRRES - 1
    set !C 0
    repeat
      set !C !C + 1
      set #LTARGETX #CHARPOSX + !DX * !C
      set #LTARGETY #CHARPOSY + !DY * !C
      tile Cnt #LTARGETX #LTARGETY 1
      tile Get #LTARGETX #LTARGETY #TILECNT 1
    until #TILENAME notin cave_floor || #RANDOM > 700
  until !C > 2 || #SCNT > 10
  move #LTARGETX #LTARGETY 1 4s
  finditem IS_HS G_2
until #FINDCNT = 1 || #RANDOM < 200
namespace pop
return