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

Избиение тренировочных кукол :-)
http://forum.yoko.com.ua/viewtopic.php?f=20&t=10223		 Page 1 of 1
Author:  Destruction [ 2006-11-30 05:55:51 ]
Post subject:  Избиение тренировочных кукол :-)
Собственно там где я играю, расставлены куклы в ряд, три штуки.

Можно конечно бить одну куклу - но это малоэффективно (IMHO).

Что делает скрипт? - Скрипт ходит между кукл и бьёт по ним -)

Скрипт писал для себя, так, что не ругайте сильно. Предполагается, что куклы расположены в ряд, двигаться нужно по оси X, между куклами расстояние 1 тайл.

Инструкция: Встаньте возле верхней куклы и врубите скрипт.

Code:
 ; Тренировка на куклах v1.0 (c) Destruction. 
sub DummyKiller()
DIM dummy[3]
dummy[0] = "0x4000F75F" ; ID первой куклы
dummy[1] = "0x4000F728" ; ID второй куклы
dummy[2] = "0x4000FA58" ; ID третьей куклы
var x = uo.getX()
var y = uo.getY()
repeat
   Do.KillDummy( dummy[0] )
   FastWalk(2,0)
   Do.KillDummy( dummy[1] )
   FastWalk(2,0)
   Do.KillDummy( dummy[2] )
   FastWalk(-2,0)
   Do.KillDummy( dummy[1] )
   FastWalk(-2,0)
until false
endsub

Sub FastWalk( x, y )
   var to_x = uo.getX() + x
   var to_y = uo.getY() + y
   var press = 2
   if getWalkDir( x, y, 1 ) <> uo.getDir() then
      press = press + 1
   endif
   uo.press( getWalkDir( x, y, 0 ), press )
   repeat
      wait(50)
   until uo.getX() == to_x && uo.getY() == to_y
endsub

Sub Do.KillDummy( id )
var type = "0x1070" ; тип куклы в обычном состоянии
repeat
   wait(50)
until uo.getGraphic( id ) == type
uo.useobject( id )
while uo.getGraphic( id ) == type
   wait(50)
wend
endsub


Примечание: Функция getWalkDir лежит в соответствующем топике.

PS: Писал специально более-менее понятно, чтобы всегда можно было запросто изменить под своих кукол.
Author:  Nmy [ 2006-11-30 13:53:10 ]
Post subject: 
моё мнение, надо писать search keywords иначе опять ищо 1 скрипт утонит в волнах скриптинга :roll:
Author:  Destruction [ 2006-12-01 02:00:24 ]
Post subject: 
А я даже хз, какие тут могут быть кейворды -)
Author:  slonopotam [ 2006-12-02 11:36:22 ]
Post subject: 
Респект за скрипт. На дрв по 5 кукл, да с новой курсой. Красота... 8)
Page 1 of 1 All times are UTC+02:00
Powered by phpBB® Forum Software © phpBB Limited
https://www.phpbb.com/