Yoko

Code: Select all

sub kopat()
VAR ms1 = "There is no ore here to mine"
VAR ms2 = "You can't use"
VAR ms3 = "You put the"
VAR ms4 = "You loosen"
VAR ms5 = "You have no"
VAR ms6 = "Ooo ia inoaeinu"
VAR ms7 = "Oi.." 
VAR TileNum = '400' 
VAR Kirka = 0x0f39
var x,y,k,q,xs,ys,zs,xt,yt,coords
UO.DeleteJournal() 
for y=-2 to 2
   for x=-2 to 2
      repeat
      xs = UO.GetX()
      ys = UO.GetY()
      zs = UO.GetZ()
      xt = xs + x
      yt = ys + y
        q=0
        UO.DeleteJournal()
      uo.waittargettile('0',str(xt),str(yt),str(zs))
        UO.UseType( Kirka )   
        repeat      
            q=q+1
            wait(200)
         until UO.InJournal(ms1) OR UO.InJournal(ms2) OR UO.InJournal(ms3) OR UO.InJournal(ms4) OR UO.InJournal(ms5) OR UO.InJournal(ms6) OR UO.InJournal(ms7) OR (q>50)
      until ( UO.InJournal(ms6) AND UO.InJournal(ms7))
   next
next 
end sub

Code: Select all

until ( UO.InJournal(ms6) AND UO.InJournal(ms7))