Code: Select all
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 он рарок накопает кул, если небудет выкидавать там быстро полный бекпек будет... лано идею понели- плз исправте скрипт... Спосибо ! 
