госпади все равно ничего не работает(
не хотел палить скрипт, но ладно, выложу...
Код:
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 PckIn then
begin
buf:=HStr('17 C7 53 35 40 01 00 00 00 7C C9 FE FF 6A 57 02 00 8D F3 FF FF');
SendToServerEx('Jou');
end;
TimerPck.Enabled := False;
PckIn := False;
end;
procedure Free;
begin
TimerPck.Free;
end;
begin
if FromServer and (ConnectName='Karog') then
begin
if (pck='62 1E 00 00 00 01 00 00 00 03 00 00 00 B5 05 00 00') then TimerPck.Enabled := True;
if (pck='62 1E 00 00 00 01 00 00 00 03 00 00 00 53 08 00 00') and (TimerPck.Enabled) then PckIn := True;
end;
end.
Не робит абсолютно(