Page 1 of 1

Мининг Oskomfree

Posted: 2008-04-13 19:23:05
by Chiter
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


Увожаемые Скриптеры нельзяли суда добавить Рекол по рунам и выкладку в пек у дома ?
Тоесть рекол выложел улетел обратно копать ?
зарание благодарен

Posted: 2008-04-13 20:05:51
by GambiT
ой... это не мой скрипт ли ?

Posted: 2008-04-14 03:02:46
by Chiter
Ои незнаю ) но улутшеть его не мешает

Posted: 2008-04-14 09:30:26
by GambiT
надо улучшать не спорю ;) просто сессия на носу я как то от уо отошел пока ;)

Posted: 2008-04-14 10:06:22
by Chiter
Понятно .. но ведь кроме тебя тут скриптером много моет кто поможет . А то я в етом совсем Дуб-Дубом 8)

Posted: 2008-04-14 19:33:13
by Chiter
Может я скрипт криво скопировал иле ломает чтото написать ?

Posted: 2008-04-15 21:07:46
by GambiT
нее... если это мой скрипт то там не было рекола подавно ;) я своии 5к откопал за то что не смотрел в экран ;)