Yoko

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") 
drop()
UO.DeleteJournal() 
hide() 
for i = mx-4 to mx+4 
   for j = my -4 to my +4 
      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("in rock") and not UO.InJournal("Iron Ore") and not UO.InJournal("Magma Ore") and not UO.InJournal("Mystic Ore") and not UO.InJournal("Sandrock Ore") and not UO.InJournal("Ancient Ore") 
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 drop()
   var Iron='0x19B9'
   var i
   for i = 0 to 50
  UO.FindType(0x19B9,0x0000,'backpack') 
  UO.Drop(1, STR(UO.GetX('self')), STR(UO.GetY('self')), STR(UO.GetZ('self')-3), "finditem") 
      UO.DeleteJournal() 
    Next 
    UO.Print("Done.") 
end sub 

я немного переделал скрипт - заставил минера выкидавать ирон... НО скрипт кривой какоито я не скриптер... желателно штоб он выкидавал ирон перед нажатием UO.Press(34) пусть он викинет и потом шагает, скрипт придумал на Алфе- там ирона много, а так оставил иго на мин 20-30 он рарок накопает кул, если небудет выкидавать там быстро полный бекпек будет... лано идею понели- плз исправте скрипт... Спосибо !

anyone ???