Yoko
http://forum.yoko.com.ua/

ДАЙТЕ СКРИПТ НА ПЕЩЕРНЫЙ МАЙНИНГ
http://forum.yoko.com.ua/viewtopic.php?f=20&t=2453
Page 1 of 1

Author:  OBERON [ 2005-01-03 08:31:52 ]
Post subject:  ДАЙТЕ СКРИПТ НА ПЕЩЕРНЫЙ МАЙНИНГ

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

Author:  JIupus [ 2005-01-03 09:34:07 ]
Post subject: 

Эх... любите вы халяву, нет бы попользоваться поиском или на крайний случай головой
простенько, но работает. Просто копает и все, нет никаких проверок на пк, на элемов. Скрипт писался наверно год назад, так что просьба не кидать помидорами. Если вышеперечисленное понадобится, то тут уж лучше скрипт ветерана передалать.
Code:
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

Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/