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
    ;^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%