Скрипт предназначен для Aion начал писать и сразу столкнулся с проблемой что таймер почему-то не срабатывает
Вот пример по идее при нажатии на определенную эмоцию он должен запускать таймер а тот в свою очередт отсылать раз 1 секунду сообщение в чат, но такое не происходит, если просто без таймера то все работает: нажимаешь кнопу отсылается сообщение
Помогите разобраться плиз
Код:
var timer: TTimer;
procedure Init; //Вызывается при включении скрипта
begin
timer:=TTimer.Create(nil);
timer.OnTimer:=@OnTimer;
timer.enabled:=false;
timer.interval:=1000;
end;
procedure Free; //Вызывается при выключении скрипта
begin
timer.enabled:=false;
timer.free;
end;
procedure OnTimer(Sender:TObject);
begin
buf:= HStr('B9 57 76 00 31 00 32 00 33 00 00 00');
SendToServer();
end;
//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
if pck = '' then exit;
if FromClient and (pck = Hstr('C9 57 66 15 05 00 00 00 00 00')) then
begin
timer.enabled:=true;
end;
end.