Думаю нужно реализовать ето через таймер. В нём выставить время отката. И запускать таймер после того как скилл юзнется.
Добавлено через 17 минут
ну вот как то так
const
d1='сюда скил который юзнули'; //пакет приходящий с серва
d2='пакет посылаемый после отката скила'; //
T1=5000; /// сюда время отката скила в милисекундах 5000 = 5 секундам
name='сюда свой ник';
var
Timer1 : TTimer;
procedure Init;
begin
Timer1 := TTimer.Create(nil);
Timer1.Interval := T1; // задержка таймера 5к мс(5секунд)
Timer1.Enabled := False;
Timer1.OnTimer := @OnTimer;
end;
procedure Free;
begin
Timer1.Free;
end;
procedure OnTimer;
begin
buf:=hstr(d2);
///SendToServerEx(name);/// отправляем на сервер пакет
SendToClientEx(name);/// отправляем на клиент пакет
Timer1.Enabled := False; ///выключаем таймер
end;
begin
if FromServer and (ConnectName=name) and (pck=HStr(d1)) then Timer1.Enabled := True;
end.
Последний раз редактировалось Samor888, 07.12.2011 в 03:47.
Причина: Добавлено сообщение
|