Yoko

Плиз помогите переделать скрипт для мининга...
Мне надо так чтобы как только чар выкопал айрон сразуже переходил к тругому тайлу, но если цвет выкопал то до конца его копал...я играю на шарде The Fantasy(http://www.uo.utech.ru)

Вот сам скрипт...

sub Mining()
var mx, my, mz, i, j, z
for z = 1 to 100 
mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")
UO.DeleteJournal()
hide()
for i = mx-2 to mx+2
   for j = my -2 to my +2
      UO.Print("Now Mining In: "+str(mx-i)+" "+str(my-j))
      while not UO.InJournal("no ore here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("where") and not UO.InJournal("in rock") and not UO.InJournal("iron")
hide()         
UO.DeleteJournal()
         UO.Waittargettile("1341", str(i), str(j), str(mz))
         UO.Usetype("0x0e85")
         while not UO.InJournal("You put") and not UO.InJournal("location") and not UO.InJournal("no ore") and not UO.InJournal("but fail") and not UO.InJournal("where") and not UO.InJournal("no ore here") and not UO.InJournal("far away") and not UO.InJournal("in rock") 
            wait (100)
         wend
      wend
      UO.DeleteJournal()
   next
next
      UO.Press(34)
         wait(100)
      UO.Press(34)
         wait(100)
      UO.Press(34)
         wait(100)
      UO.Press(34)
         wait(100)
next
end sub

sub hide() 
 while not UO.Hidden() 
   uo.WarMode("0") 
   uo.UseSkill("Hiding") 
     wait(1500) 
 wend 
end sub 

Заранее спасибо...

sub Mining()
var mx, my, mz, i, j, z
for z = 1 to 100
mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")
UO.DeleteJournal()
hide()
for i = mx-2 to mx+2
for j = my -2 to my +2
UO.Print("Now Mining In: "+str(mx-i)+" "+str(my-j))
while not UO.InJournal("no ore here") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("where") and not UO.InJournal("in rock") and not UO.InJournal("iron")
hide()
UO.DeleteJournal()
UO.Waittargettile("1341", str(i), str(j), str(mz))
UO.Usetype("0x0e85")
while not UO.InJournal("You put") and not UO.InJournal("location") and not UO.InJournal("no ore") and not UO.InJournal("but fail") and not UO.InJournal("where") and not UO.InJournal("no ore here") and not UO.InJournal("far away") and not UO.InJournal("in rock")
wait (100)
wend
wend
UO.DeleteJournal()
next
next
UO.Press(34)
wait(100)
UO.Press(34)
wait(100)
UO.Press(34)
wait(100)
UO.Press(34)
wait(100)
next
end sub

sub hide()
while not UO.Hidden()
uo.WarMode("0")
uo.UseSkill("Hiding")
wait(1500)
wend
end sub