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 %Lootbag #BACKPACKID
set %Weight #WEIGHT
set %MaxWeight 250
set %MakeIngots #True
set #SYSMSGCOL 1186
;^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%

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

event SysMessage Go to minoc cove, 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

start:
if #WEIGHT > %MaxWeight
{
  gosub MineToForge
  if %MakeIngots = #TRUE
    gosub MakeIngots
  gosub ForgeToBank
  gosub BankIngots
  gosub BankToMine
  set %Weight #WEIGHT
}
gosub MineRandomTile

repeat
  if #CONTNAME = waiting_gump && #CONTSIZE = 203_121
     halt
  if #CONTNAME = waiting_gump && #CONTSIZE = 356_212
     {
     click 400 375
     msg .age$
     }
  for %n 10 1
  {
    scanjournal %n
    if you_thief!! in #JOURNAL
    {
      deletejournal
      msg .guard$
      Event Sysmessage Thief!
    }
    if is_attacking_you!* in #JOURNAL
    {
      deletejournal
      msg .guard$
      Event Sysmessage Guard !
    }
    if ore_in_your_backpack in #JOURNAL
      gosub MoveOreIngots
    if You_create_some_ingots in #JOURNAL
      gosub MoveOreIngots
    finditem IS_HS G_10
    if #FINDKIND <> -1
    {
       if #findRep = 4 || #findRep = 6
       {
       msg .guard$
       Event Sysmessage Guard !
       }
    }
    OnHotKey H ALT
    {
       gosub MineToForge
       if %MakeIngots = #TRUE
          gosub MakeIngots
       gosub ForgeToBank
       gosub BankIngots
       Halt
    }
  }
until you_stop_mining in #sysmsg || you_fail_to_find_any_ore in #sysmsg || that_is_too_far_away in #sysmsg || there_is_no_more in #sysmsg || you_fail_to_find_usable_ore in #sysmsg || can't_get_there in #sysmsg ||
goto start

;^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%
sub MineToForge
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
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 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
for %i 1 2
{
set %steps #random % 4 + 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
;^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%^%
Online

Last edited by You on 16 Nov 2009, 14:46, edited 3 times in total.