Yoko

if ((charposx = 378) and (charposy = 1428)) or ((charposx = 358) and (charposy = 1443)) or ((charposx = 358) and (charposy = 1452)) or ((charposx = 4038) and (charposy = 455))

var pause
pause = 0

sub Mining()
var coordx, coordy, coordz, tilex, tiley, circle
circle = 0
coordx = uo.getx('self')
coordy = uo.gety('self')
coordz = uo.getz('self')
 for tilex = coordx - 2 to coordx + 2 
    for tiley = coordy - 2 to coordy + 2
mine:
      uo.deletejournal()
      uo.waittargettile('1339', str(tilex), str(tiley), str(coordz))
      uo.usetype(0x0E85, 0x0000)
      wait(500)
      if not uo.LastGump('replyed') then
      if uo.LastGump('text', 0) == 'Antimacros System' then
      while not uo.injournal('success')
         AntiMacros()
         wait(1000)
         wend
      endif
      goto mine
      endif
while not uo.injournal('put'|'fail'|'far away'|'loosen'|'no ore'|'no line'|'try mining')
wait(100)
wend
if uo.injournal(put) and uo.injournal('iron'|'marble') then
circle = circle + 1
else
if uo.injournal('put')then
circle = 2
endif
endif
if not uo.injournal('no ore'|'far away'|'no line'|'try mining') or circle > 1
goto mine
endif
next
next
uo.msg('Закончил!')
end sub

var pause
pause = 0
sub Mining()
  var coordx, coordy, coordz, tilex, tiley, circle
  circle = 0
  coordx = uo.getx('self')
  coordy = uo.gety('self')
  coordz = uo.getz('self')
  for tilex = coordx - 2 to coordx + 2 
    for tiley = coordy - 2 to coordy + 2
      mine:
      uo.deletejournal()
      uo.waittargettile('1339', str(tilex), str(tiley), str(coordz))
      uo.usetype(0x0E85, 0x0000)
      wait(500)
      if not uo.LastGump('replyed') then
        if uo.LastGump('text', 0) == 'Antimacros System' then
          while not uo.injournal('success')
            AntiMacros()
            wait(500)
          wend
        endif
      endif
      while not uo.injournal('put') and not uo.injournal('fail') and not uo.injournal('far away') and not uo.injournal('loosen') and not uo.injournal('no ore') and not uo.injournal('no line') and not uo.injournal('try mining')
        wait(100)
      wend
      if uo.injournal('put') and (uo.injournal('iron') or uo.injournal('marble')) then
        circle = circle + 1
      else
        if uo.injournal('put') then
          circle = 2
        endif
      endif
      if not uo.injournal('far away') and not uo.injournal('loosen') and not uo.injournal('no ore') and not uo.injournal('no line') and not uo.injournal('try mining') and not circle > 1 then
        goto mine
      endif
    next
  next
  uo.msg('Çàêîí÷èë!')
end sub
sub AntiMacros() 
  dim reindex[8] 
  reindex[0] = 11 
  reindex[1] = 12 
  reindex[2] = 13 
  reindex[3] = 10 
  reindex[4] = 16 
  reindex[5] = 14 
  reindex[6] = 17 
  reindex[7] = 15 
  var GumpID = 0 
  var ButtonID = 0 
  var ButtonText 
  var i = 18 
  if uo.LastGump('text', 4) <> "0" then 
    i = 19 
  end if 
  GumpID = val(Mid(uo.LastGump('command', i), 16, 4)) 
  ButtonID = reindex[GumpID-2225] 
  ButtonText = uo.LastGump('command', ButtonID) 
  uo.LClick(Val(Mid(ButtonText, 7, 3)), Val(Mid(ButtonText, 11, 3))) 
  while not uo.LastGump('replyed') 
    wait(100) 
  wend 
end sub

var pause
pause = 0
sub Mining()
  var coordx, coordy, coordz, tilex, tiley, circle
  circle = 0
  coordx = uo.getx('self')
  coordy = uo.gety('self')
  coordz = uo.getz('self')
  for tilex = coordx - 2 to coordx + 2 
    for tiley = coordy - 2 to coordy + 2
      mine:
      uo.deletejournal()
      uo.waittargettile('1339', str(tilex), str(tiley), str(coordz))
      uo.usetype(0x0E85, 0x0000)
      wait(500)
      if not uo.LastGump('replyed') then
        if uo.LastGump('text', 0) == 'Antimacros System' then
          while not uo.injournal('Success')
            AntiMacros()
            wait(500)
          wend
          goto mine
        endif
      endif
      while not uo.injournal('put') and not uo.injournal('fail') and not uo.injournal('far away') and not uo.injournal('loosen') and not uo.injournal('no ore') and not uo.injournal('no line') and not uo.injournal('mining in rock')
        wait(100)
      wend
      if uo.injournal('put') and ((uo.injournal('iron')) or (uo.injournal('Marble'))) then
        circle = circle + 1
      else
        if uo.injournal('put') then
          circle = 2
        endif
      endif
      if not uo.injournal('far away') and not uo.injournal('loosen') and not uo.injournal('no ore') and not uo.injournal('no line') and not uo.injournal('mining in rock') and not circle > 1 then
        goto mine
      endif
    next
  next
end sub

if uo.injournal('put') and ((uo.injournal('iron')) or (uo.injournal('Marble'))) then
        circle = circle + 1
      else
        if uo.injournal('put') then
          circle = 2
        endif
      endif

if uo.injournal('put the iron') or uo.injournal('put the Marble')  then

 while not uo.injournal('put|fail|far away|loosen|no ore|no line|try mining') 

circle = 1

circle += 1

circle = circle + 1

if not uo.injournal('far away|loosen|no ore|no line|try mining') or not circle > 1 then

Sub MiningAround()
    var x, y, more, timer, msg = "in rock|far away|no line|no ore|try mining|put|fail|loosen"
    for x = -2 to 2
        for y = -2 to 2
            repeat
                more = 0
                timer = uo.timer()
                deljournal(msg + "|iron ore|Marble")
                uo.waittargettile(1339, uo.getx() + x, uo.gety + y, uo.getx())
                uo.usetype("0x0E85")
                repeat
                    wait(100)
                    if not uo.lastgump("replyed") and uo.lastgump("text", 0) == "Antimacros System" then
                        antimacros()
                        uo.usetype("0xE85")
                    end if
                until uo.injournal(msg) ot timer + 50 <= uo.timer()
                if uo.injournal("iron ore|Marble|loosen") then
                    more = 1
                end if
            until not more
        next
    next
end sub

Sub deljournal(msg)
    while uo.injournal(msg)
        uo.setjournalline(uo.injournal(msg) - 1, "")
    wend
end sub

set $se You see:
set $st Stalagmites
set $or Ore Guardian
set $sp Spider
set $ha Harpy
set $fl Floor
set $mo Vortex
set $mo2 Frost Dragon

:tracking
while_not $msg <= $se
set $msg lastmsg
end_while
stop_script 2
goto check

:check
if_not ($msg <= $fl) or ($msg <= $or) or ($msg <= $sp) or ($msg <= $ha) or ($msg <= $st) or ($msg <= $mo) or ($msg <= $mo2)
stop_script 0
goto recall
end_if
if $msg <= $or
pause_script 0
goto targetid
else
set $msg 0
goto tracking
end_if