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

Скачать бесплатные эротические фильмы
http://forum.yoko.com.ua/viewtopic.php?f=20&t=13589
Page 1 of 1

Author:  sluntai [ 2008-05-13 17:09:53 ]
Post subject:  Скачать бесплатные эротические фильмы

тлдлшюглдюшг

Author:  Scripts Writer [ 2008-05-13 17:50:14 ]
Post subject: 

Отсутствует в файле со скриптом функция GOTOXY

Author:  Purgen [ 2008-05-14 08:54:06 ]
Post subject: 

ходилку надо добавить вобще-то к этому скрипту )

Author:  sluntai [ 2008-05-14 16:16:22 ]
Post subject:  Аудиокниги скачать бесплатно эротические сказки

дтдш.ир

Author:  Purgen [ 2008-05-14 17:29:27 ]
Post subject: 

Code:
sub GotoXY(x,y) 
var myX,myY,lastX=0,lastY=0,i,halt=0,z,r=0
for i=1 to 60
myX=uo.getX();
myY=uo.getY();
if LastX==myX and LastY==myY then
halt=halt+1
else
halt=0
end if
if halt>=10 then
if uo.GetDir()==1 then
for z=0 to 8
uo.Press(40)
next
end if
if uo.GetDir()==3 then
for z=0 to 8
uo.Press(37)
next
end if
if uo.GetDir()==5 then
for z=0 to 8
uo.Press(38)
next
end if
if uo.GetDir()==7 then
for z=0 to 8
uo.Press(39)
next
end if
halt=15
end if
if Numb(x-myX)<=1 and Numb(y-myY)<=2 then
return 1
end if
if x<=myX then
if y<=myY then
for z=0 to 3
uo.Press(38)
next
else
for z=0 to 3
uo.Press(37)
next
end if
else
if y<=myY then
for z=0 to 3
uo.Press(39)
next
else
for z=0 to 3
uo.Press(40)
next
end if
end if
lastX=myX
lastY=myY
wait(200)
next
return 0
end sub

вот из ветерановского скрипта на ламбер.
Сам не проверял, за исправность не отвечаю.

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