Код:
Var
PckIn: Boolean = False;
TimerPck: TTimer;
procedure Init;
begin
TimerPck:=TTimer.Create(nil);
TimerPck.OnTimer:=@OnTimerPck;
TimerPck.Enabled:=False;
TimerPck.interval:=5000;
end;
procedure OnTimerPck(Sender: TObject);
begin
if not PckIn then
begin
buf:=HStr('19 62 26 2B 40 00 00 00 00');
SendToServerEx('02');
end;
TimerPck.Enabled := False;
PckIn := False;
end;
procedure Free;
begin
TimerPck.Free;
end;
begin
if FromServer and (ConnectName='01') then
case pck of
'29 1C 58 90 49 00 00 00 00 4D BF FE FF 08 57 02 00 A0 F3 FF FF': TimerPck.Enabled := True;
'29 1C 58 90 49 01 00 00 00 4D BF FE FF 08 57 02 00 A0 F3 FF FF': if TimerPck.Enabled then PckIn := True;
end;
end.
Вот как скрипт я делаю. Даже когда он там встает или садится, ничего абсолютно!