Ну вот чтото получилось только не знаем как его запустить при условии (pck[1]=#$23) и остановить при условии pck[1]=#$xx) (xx-тип пакета на смерть моба)
куда вставлять условие? "if FromClient and (pck[1]=#$23) and (ConnectName='name') then"
const
name = 'IhelpYou';
interval = 100; //в мс
var
TimerEnchant:TTimer;
procedure Init;
begin
TimerEnchant:=TTimer.Create(nil);
TimerEnchant.OnTimer:=@enchant;
TimerEnchant.enabled:=true;
TimerEnchant.interval:=interval;
end;
procedure Free;
begin
TimerEnchant.free;
end;
procedure enchant;
begin
buf:=pck;
SendToServerEx(name);
end;
begin
end.
|