Ultima Online Antares

sub mineone()
  var x,y,z, n
  VAR LastTimer
  UO.Set('finddistance','2')
  n=0
  z=UO.GetZ("self")
     for x=-2 to 2
        for y=-2 to 2
           UO.Print(str(x)+" "+str(y))
           Repeat
              if UO.InJournal('TORMOZ') then
                pause()
              endif
              UO.DeleteJournal()
              UO.Warmode("0")
              UO.WaitTargetTile("1341",STR(UO.GetX()+x),STR(UO.GetY()+Y),str(z))
              UO.UseType('0x0E86')
              LastTimer=UO.Timer()
              Repeat
                 wait(500)
              Until UO.InJournal("You put") or UO.InJournal("can't see") or UO.InJournal("heavy") or UO.InJournal("location") or UO.InJournal("no ore") or UO.InJournal("but fail") or UO.InJournal("far away") or UO.InJournal("in rock") or UO.InJournal("must wait") or UO.InJournal("nothing") or UO.InJournal("elsewhere") or UO.InJournal("where it") or UO.InJournal("so close") OR UO.Timer()>LastTimer+200
              if UO.InJournal("You put") then
                  n=0
              else
                 n=n+1
              endif
           Until UO.InJournal("nothing") or UO.InJournal("elsewhere") or UO.InJournal("no ore here") or UO.InJournal("location") or UO.InJournal("far away") or UO.InJournal("in rock") or UO.InJournal("where it") or n>=5
        next
     next
end sub

sub AntiMacro()
while not uo.Dead()
   if not uo.LastGump('replyed') then  ; если открылось какое то окно
      if uo.LastGump('text', 0) == 'Привет, добытчик!' then; и слова заголовка
         Gong(3)  
         wait(5000)
      endif
   endif
wend
end sub

sub AntiMacro()
while not uo.Dead()
   if not uo.LastGump('replyed') then; <=== нужно добавить пробел перед точказапятой.
      if uo.LastGump('text', 0) == 'Привет, добытчик!' then; <=== нужно добавить пробел перед точказапятой.
         Gong(3)  
         wait(5000)
      endif
   endif
wend
end sub