Показать сообщение отдельно
Старый 07.12.2011, 03:47   #2
Новичок
 
Регистрация: 12.10.2011
Сообщений: 10
Сказал Спасибо: 4
Имеет 1 спасибку в 1 сообщении
Samor888 пока неопределено
По умолчанию

Думаю нужно реализовать ето через таймер. В нём выставить время отката. И запускать таймер после того как скилл юзнется.

Добавлено через 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. Причина: Добавлено сообщение
Samor888 вне форума   Ответить с цитированием
За это сообщение Samor888 нажился спасибкой от: