[Руководство] Делаем задержку между пакетами

[Levapishe]

var
TargetID:integer;
StartSkill:word;

procedure DoTheSkill(SkillID:word; Level:byte);
begin
buf := HStr('D0 00 57 6F FF CC CC DD 00 60 CA 00 00 00 00 79 8D 00 00');
WriteH(SkillID, 6);
WriteC(Level, 8);
WriteD(TargetID, 10);
SendToServer;
end;

begin
StartSkill := 1987;
if (FromClient) and (ReadC(1) = $D0) and (ReadH(6) = StartSkill) then
begin
TargetID := ReadD(10);

DoTheSkill(1988, 1);
DoTheSkill(850, 1);
DoTheSkill(839, 1);
DoTheSkill(577, 1);
DoTheSkill(913, 1);
DoTheSkill(1987, 1);
DoTheSkill(1990, 1);
DoTheSkill(2125, 3);
end;
end.

[Djoser]

Как воткнуть таймер в этот скрипт? Помогите плизз

PHP код:

var

     NPC_ID:integer;
     sNPC_ID:string;

procedure Init; //Вызывается при включении скрипта
begin
NPC_ID:=$E000
end;

procedure Free; //Вызывается при выключении скрипта
begin

end;

var i:integer;
//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
//if FromServer   then

if FromClient and (ReadC(1)=$CE) then NPC_ID:=ReadD(6);

 if FromClient and (ReadC(1)=$C2) and (ReadH(6)=$0B15)// 
 then
begin
   pck:='';
   writeD(NPC_ID);
   sNPC_ID:=StrToHex(buf);
for i:=1 to 10 do
begin
buf:=Hstr('32 01 57 F1 FE'+sNPC_ID+' ');
writeC(i);
SendToServer;
end;

end;
end. 


[neitro]

Доброго времени суток!
Не могу разобраться как скрипт адаптировать под лука, проблема в том, что если я меняю стартовый пакет ка кой ни будь пакет от скилла лука скрипт тупо не работает.
Как сделать чтобы скрипт заработал если стартовый скилл вот этот [Ссылки могут видеть только зарегистрированные пользователи. ] ?

[happytorn]

Цитата: Сообщение от neitro Доброго времени суток! Не могу разобраться как скрипт адаптировать под лука, проблема в том, что если я меняю стартовый пакет ка кой ни будь пакет от скилла лука скрипт тупо не работает. Как сделать чтобы скрипт заработал если стартовый скилл вот этот [Ссылки могут видеть только зарегистрированные пользователи. ] ?

Вопрос не очень понятен.Лучше скинь то что у тебя получилось сюда.

[neitro]

const
name = 'имя'; //имя соединения
var
Timer:TTimer;
TimerStep:integer;
TargetID:integer;
StartSkill:word;

procedure DoTheSkill(SkillID:word; Level:byte); //Формируем пакет нового скила
begin
buf := HStr('D0 00 57 6F FF D1 02 09 00 29 03 00 00 A3 04 05 75 00 00'); //Начальный пакет на скил
WriteH(SkillID, 6); //Вставляем в начальный пакет ID скила
WriteC(Level, 8); //Всталяем в начальный пакет уровень скила
WriteD(TargetID, 10); //Вставляем в начальный пакет ID таргета
SendToServerEx(name);
end;

procedure Init;
begin
TimerStep:=1; //Шаг
Timer:=TTimer.Create(nil); //выделяем память
Timer.OnTimer:=@OnTimer; //привязываем процедуру к событию
Timer.enabled:=false; //начальное положение выключен(false)
Timer.interval:=800; //интервал(в миллисекундах) как часто таймер срабатывает
end;


procedure Free;
begin
Timer.free;
end;

procedure OnTimer(Sender: TObject);
begin
case TimerStep of
1:
begin
DoTheSkill(737, 5); //Град стрел IV
Inc(TimerStep);
end;

2:
begin
DoTheSkill(2074, 5); //Спиральный выстрел III
Inc(TimerStep);
end;

3:
begin
DoTheSkill(2276, 8); // Прицельный выстрел IV
Inc(TimerStep);
end;

4:
begin
DoTheSkill(2122, 1); //Стремительный рассекающий удар IV
Inc(TimerStep);
end;

5:
begin
DoTheSkill(2091, 1); //Стрела ветра IV
Inc(TimerStep);
end;

6:
begin
DoTheSkill(721, 9); //Выстрел IV
Inc(TimerStep);
end;

7:
begin
DoTheSkill(730, 7); //Жалящая стрела II
Inc(TimerStep);
end;

8:
begin
DoTheSkill(2276, 8); // Прицельный выстрел IV
Inc(TimerStep);
end;

9:
begin
DoTheSkill(736, 3); // Внезапный выстрел IV
Inc(TimerStep);
end;

10:
begin
DoTheSkill(719, 8); // Взрывной выстрел III
Inc(TimerStep);
end;

11:
begin
DoTheSkill(2085, 1); // Стрела яростного ветра II
Inc(TimerStep);
end;

12:
begin
DoTheSkill(2276, 8); // Прицельный выстрел IV
Inc(TimerStep);
end;

13:
begin
DoTheSkill(722, 9); //Аркан IV
Timer.enabled:=false; //выключаем таймер
Inc(TimerStep);
TimerStep:=1; //Переходим на первый шаг
end;
end;
end;

begin

StartSkill := 721; //Выстрел IV
if (FromClient) and (ReadC(1) = $D0) and (ReadH(6) = StartSkill) then
begin
TargetID := ReadD(10);
Timer.enabled:=true; //включаем таймер
end;
end.

Вот сделал фармо-скриптик но блин что то где не так сделал - не работает. Помогите пожалуйста.

[AngelofDead666]

СПС оч полезное руководство сильно помогло!

[СССМЕРТЬЬЬ]

happytorn, помогите плиз чё делать у меня закрывается л2пх когда включаю игру что нужно ещё скачать и от куды

[c-lavr]

Цитата: Сообщение от СССМЕРТЬЬЬ happytorn, помогите плиз чё делать у меня закрывается л2пх когда включаю игру что нужно ещё скачать и от куды

http://zhyk.ru/forum/showthread.php?t=128206
тут твой ответ