Мининг Oskomfree
Posted: 2008-04-13 19:23:05
sub main()
var lang = 0 ##### 0 - russian 1 - english
if lang == 0 then
UO.Print ("Ñêðèïò Ìèíèíã 5õ5 çàïóùåí...")
else
UO.Print ("Script Mining 5x5 is Started...")
endif
var i,j
var mx = UO.GetX("self")
var my = UO.GetY("self")
var mz = UO.GetZ("self")
## Íà÷èíàåì êîïàòü
Start Mining
UO.UseType ("0x097B")
for i = mx-2 to mx+2
for j = my -2 to my+2
#####################################
### Ïðÿ÷åìñÿ . Use hiding
while not uo.Hidden('self')
UO.UseSkill('Hiding')
wait (2000)
wend
#####################################
UO.DeleteJournal()
if UO.dead() then
return
endif
if lang == 0 then
UO.Print("Êîïàåì â: "+str(mx-i)+" "+str(my-j))
else
UO.Print("Now Mining In: "+str(mx-i)+" "+str(my-j))
endif
while not UO.InJournal("Try") and not UO.InJournal("location") and not UO.InJournal("Ïîïðîáóéòå") and not UO.InJournal("far away") and not UO.InJournal("nothing") and not UO.InJournal ("Òóò íå îñòàëîñü ðóäû") and not UO.InJournal("äîòÿíóòüñÿ")
UO.DeleteJournal()
UO.Waittargettile("1341", str(i), str(j), str(mz))
UO.Usetype("0x0E85")
if UO.dead() then
return
endif
if UO.Weight>624 then
count()
return
endif
while not UO.InJournal("You put") and not UO.InJournal("location") and not UO.InJournal("Ïîïðîáóéòå") and not UO.InJournal("äîòÿíóòüñÿ") and not UO.InJournal("no ore") and not UO.InJournal ("Òóò íå îñòàëîñü ðóäû") and not UO.InJournal("but fail") and not UO.InJournal("nothing") and not UO.InJournal("Try")
wait (1000)
wend
wend
UO.DeleteJournal()
next
next
if lang == 0 then
UO.Print("Âñ¸ Âûêîïàíî ...")
else
UO.Print("Script Finished ...")
endif
end sub
Увожаемые Скриптеры нельзяли суда добавить Рекол по рунам и выкладку в пек у дома ?
Тоесть рекол выложел улетел обратно копать ?
зарание благодарен
var lang = 0 ##### 0 - russian 1 - english
if lang == 0 then
UO.Print ("Ñêðèïò Ìèíèíã 5õ5 çàïóùåí...")
else
UO.Print ("Script Mining 5x5 is Started...")
endif
var i,j
var mx = UO.GetX("self")
var my = UO.GetY("self")
var mz = UO.GetZ("self")
## Íà÷èíàåì êîïàòü

UO.UseType ("0x097B")
for i = mx-2 to mx+2
for j = my -2 to my+2
#####################################
### Ïðÿ÷åìñÿ . Use hiding
while not uo.Hidden('self')
UO.UseSkill('Hiding')
wait (2000)
wend
#####################################
UO.DeleteJournal()
if UO.dead() then
return
endif
if lang == 0 then
UO.Print("Êîïàåì â: "+str(mx-i)+" "+str(my-j))
else
UO.Print("Now Mining In: "+str(mx-i)+" "+str(my-j))
endif
while not UO.InJournal("Try") and not UO.InJournal("location") and not UO.InJournal("Ïîïðîáóéòå") and not UO.InJournal("far away") and not UO.InJournal("nothing") and not UO.InJournal ("Òóò íå îñòàëîñü ðóäû") and not UO.InJournal("äîòÿíóòüñÿ")
UO.DeleteJournal()
UO.Waittargettile("1341", str(i), str(j), str(mz))
UO.Usetype("0x0E85")
if UO.dead() then
return
endif
if UO.Weight>624 then
count()
return
endif
while not UO.InJournal("You put") and not UO.InJournal("location") and not UO.InJournal("Ïîïðîáóéòå") and not UO.InJournal("äîòÿíóòüñÿ") and not UO.InJournal("no ore") and not UO.InJournal ("Òóò íå îñòàëîñü ðóäû") and not UO.InJournal("but fail") and not UO.InJournal("nothing") and not UO.InJournal("Try")
wait (1000)
wend
wend
UO.DeleteJournal()
next
next
if lang == 0 then
UO.Print("Âñ¸ Âûêîïàíî ...")
else
UO.Print("Script Finished ...")
endif
end sub
Увожаемые Скриптеры нельзяли суда добавить Рекол по рунам и выкладку в пек у дома ?
Тоесть рекол выложел улетел обратно копать ?
зарание благодарен