Код:
const
name = 'IhelpYou';
interval = 100; //в мс
var
TimerEnchant:TTimer;
a:integer;
procedure Init;
begin
TimerEnchant:=TTimer.Create(nil);
TimerEnchant.OnTimer:=@enchant;
TimerEnchant.enabled:=false;
TimerEnchant.interval:=interval;
end;
procedure Free;
begin
TimerEnchant.free;
end;
procedure enchant(Sender: TObject);
begin
buf:=HStr('23 66 F5 36 89 07 00 75 45 01');
WriteD(a);
buf:=buf+Hstr('9A 99 99 3F');
SendToServerEx(name);
end;
begin
if FromClient and (pck[1]=#$B5) and (ConnectName=name) then
begin
a:=ReadD(11);
TimerEnchant.enabled:=true;
end;
begin
if FromServer and (pck[1]=#$EA) and (ConnectName=name) then
begin
TimerEnchant.enabled:=false;
end;
end;
end.