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

Помагите пожалуста !!!!
http://forum.yoko.com.ua/viewtopic.php?f=17&t=14525		 Page 1 of 1
Author:  tttt [ 2009-03-11 20:30:02 ]
Post subject:  Помагите пожалуста !!!!
Тут тока пробелам,нужен сильно скрипт на Ламбер[отправли на лесорубку] что бы герой тупо ходил от дерева к дерева рубил логий.Данный скрипт нужен для шарда Дрв !!!Зарание огромное мерси
Author:  Successful [ 2009-03-11 20:39:14 ]
Post subject: 
viewtopic.php?t=2901&highlight=%CB%E0%EC%E1%E5%F0
Author:  tttt [ 2009-03-11 21:25:33 ]
Post subject: 
Я нашел вот такой скрипт,подскжи пожалуста куда его встовлять и как им пользоватся


sub adad()
begin:
gotoxy(1328,938,0)
kopok(3296,1328,936)
kopok(3280,1330,935)
gotoxy(1326,938, 0)
gotoxy(1326,933, 0)
kopok(3280,1324,936)
kopok(3302,1324,933)
kopok(3299,1328,933)
kopok(3293,1324,930)
kopok(3288,1328,930)
gotoxy(1326,931, 0)
gotoxy(1319,931, 0)
gotoxy(1319,930, 0)
kopok(3277,1320,933)
kopok(3296,1316,933)
kopok(3286,1320,927)
gotoxy(1322,931, 0)
gotoxy(1322,921, 0)
kopok(3296,1320,924)
kopok(3280,1320,921)
kopok(3286,1320,918)
kopok(3283,1324,918)
gotoxy(1327,921, 0)
gotoxy(1327,915, 0)
kopok(3286,1324,915)
kopok(3288,1328,918)
kopok(3286,1324,912)
kopok(3283,1328,912)
gotoxy(1327,906, 0)
gotoxy(1326,906, 0)
kopok(3293,1324,909)
kopok(3302,1328,909)
kopok(3280,1328,906)
kopok(3288,1324,906)
kopok(3299,1324,903)
gotoxy(1326,897, 0)
kopok(3299,1328,897)
kopok(3291,1328,900)
kopok(3277,1328,894)
gotoxy(1318,897, 0)
kopok(3291,1320,900)
kopok(3291,1316,900)
kopok(3299,1316,897)
kopok(3302,1316,894)
gotoxy(1318,889, 0)
kopok(3283,1316,891)
kopok(3283,1320,891)
kopok(3299,1320,888)
kopok(3291,1316,888)
gotoxy(1314,889, 0)
gotoxy(1314,900, 0)
kopok(3280,1312,900)
kopok(3291,1312,897)
kopok(3288,1312,903)
gotoxy(1314,944, 0)
gotoxy(1318,944, 0)
gotoxy(1318,949, 0)
UO.useobject("0x401258E1")
gotoxy(1328,949, 0)
goto begin
end sub

sub kopok(t,i,j)
var mx, my, mz, mt, q
mx = UO.GetX("self")
my = UO.GetY("self")
mz = UO.GetZ("self")
UO.DeleteJournal()
mx = i
my = j
mt = t
q = 0
while not UO.InJournal("no logs") and not UO.InJournal("location") and not UO.InJournal("far away") and not UO.InJournal("It appears") and not q==5
UO.Print("Now Mining In: "+str(mx)+" "+str(my))
UO.DeleteJournal()
q=q+1
UO.Waittargettile(str(mt), str(mx), str(my), str(mz))
UO.Usetype("0x0F44") ; type òîïîðà âñòàâèòü íàäî!!!!!!!!!!!!!
while not UO.InJournal("You put") and not UO.InJournal("location") and not UO.InJournal("no logs") and not UO.InJournal("but fail") and not UO.InJournal("far away") and not UO.InJournal("It appears") and not UO.InJournal("OOPS") and not UO.InJournal("attacking you")
wait (300)
wend
if UO.InJournal("You put") then
q=0
end if

wend
UO.DeleteJournal()
wait(200)
end sub


sub gotoxy(x,y,prec)
var ld=0,ldc=0
var dx,dy
var mx,my
var ox,oy,mk,k
#uo.print(">")
#uo.track("1",str(x),str(y))
start:
mx=UO.GetX()
my=UO.GetY()
dx=mx-x
if dx<0 then
dx=0-dx
endif
dy=my-y
if dy<0 then
dy=0-dy
endif
if dy>dx then
dx=dy
end if
if dx<=prec then
return
end if
if not ldc then
uo.print(STR(dx))
end if
if dx<3 then
mk=70
else
mk=15
end if
ox=mx
oy=my
for k=1 to mk
mx=UO.GetX()
my=UO.GetY()
if mx<>ox or my<>oy then
goto sdidapl
end if
wait(10)
next
sdidapl:
mx=UO.GetX()
my=UO.GetY()
dx=mx-x
if dx<0 then
dx=0-dx
endif
dy=my-y
if dy<0 then
dy=0-dy
endif
if dy>dx then
dx=dy
end if
if dx<=prec then
return
end if
if ld==dx then
ldc=ldc+1
if ldc>100 then
uo.print("Can not reach location!")
return
end if
else
ld=dx
end if
if mx==x then
if my==y then
return
endif
if my>y then
#UO.Print("UR")
UO.Press(33)
goto start
endif
#UO.Print("DL")
UO.Press(35)
goto start
end if
if mx<x then
if my>y then
#UO.Print("R")
UO.Press(39)
goto start
endif
if my==y then
#UO.Print("DR")
UO.Press(34)
goto start
endif
#UO.Print("D")
UO.Press(40)
goto start
end if
if my<y then
#UO.Print("L")
UO.Press(37)
goto start
endif
if my==y then
#UO.Print("LU")
UO.Press(36)
goto start
endif
#UO.Print("U")
UO.Press(38)
goto start
end sub
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/