вот кое как слепил такой скрипт):
Код:
const //Dance
d1='2F 0F 01 00 00 00 00 00 00 00'; // Dance of Attack
d2='2F 13 01 00 00 00 00 00 00 00'; // Dance of Haste
d3='2F 12 01 00 00 00 00 00 00 00'; // Focus
var
Timer1 : TTimer;
procedure Init;
begin
Timer1 := TTimer.Create(nil);
Timer1.Interval := 120000; // задержка таймера 12к мс
Timer1.Enabled := False;
Timer1.OnTimer := @OnTimer; // имя процедуры, которая будет выполнятся при проходе таймера
end;
procedure Free;
begin
Timer1.Free;
end;
procedure OnTimer;
begin
begin
buf:=hstr(d1); //attack
SendToServer;
end;
begin
buf:=hstr(d2); //haste
SendToServer;
end;
begin
buf:=hstr(d3); //focus
SendToServer;
end;
end;
begin
if FromClient and (pck=HStr('2F 12 01 00 00 00 00 00 00 00')) then
begin
Timer1.Enabled := True;
end;
end.
2 вопроса: 1) танцует когда угодно, но только не через 2 минуты
2) танцует только первый и последний денс. на скорость атаки, который в скрипте между ними почему то пропускает. даже если денсы поменять местами и сделать их штук 6 всегда танцует тока первый и последний.