Yoko

Posted: **2005-01-03 08:31:52**

ДАЙТЕ СКРИПТ НА ПЕЩЕРНЫЙ МАЙНИНГ ЧТОБЫ ЧАР ПРОСТО СТОЯЛ И КАПАЛ ПО РАДИУСУ И НИКУДА НЕ ТЕЛЕПОРТИРВАЛСЯ ПЛИЗ

Posted: **2005-01-03 09:34:07**

Эх... любите вы халяву, нет бы попользоваться поиском или на крайний случай головой
простенько, но работает. Просто копает и все, нет никаких проверок на пк, на элемов. Скрипт писался наверно год назад, так что просьба не кидать помидорами. Если вышеперечисленное понадобится, то тут уж лучше скрипт ветерана передалать.

Code: Select all

var x,y,i,j,k,l,mx,my
sub main()
x=val(uo.GetX())
y=val(uo.GetY())
for i=-4 to 4
for j=-4 to 4
mining(x,y,i,j)
next
next
end sub

sub mining(x,y,k,l)
var t=0
mx=x+k
my=y+l
uo.deletejournal()
uo.waittargettile(-1,str(mx),str(my),-1)
uo.exec("usetype 0x0e85")
t=uo.timer()
repeat
wait(500)
until (t+100<uo.timer()) or uo.injournal("You put") or uo.injournal("You loosen") or uo.injournal("There is") or uo.injournal("too far") or uo.injournal("no line of")
if uo.injournal("There is") or uo.injournal("too far") or uo.injournal("Copper") or uo.injournal("Tin") or uo.injournal("no line of") then
return 0
else
mining(x,y,k,l)
endif
end sub