подскажите что в этом скрипте не так, ставлю галочку но он не танцует, и через 2 минуты тоже не танцует:
Код:
var
Timer1 : TTimer;
q : Integer; // счетчик
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
buf:=HStr('2F 0F 01 00 00 00 00 00 00 00'); //attack
SendToServer;
buf:=HStr('2F 13 01 00 00 00 00 00 00 00'); //haste
SendToServer;
buf:=HStr('2F 12 01 00 00 00 00 00 00 00'); //focus
SendToServer;
Inc(q);
if q = 4 then // если выполнилось уже 4 раза, то останавливаем таймер
Timer1.Enabled := False;
end;
begin
begin
Timer1.Enabled := True;
q := 0; //счетчик ставим у 0
end;
end.