const
Name='MyNick';
var
timer:TTimer;
procedure Init;
begin
timer:=TTimer.Create(nil);
timer.interval:=200;
timer.OnTimer:=@fireTimer;
timer.enabled:=false;
end;
procedure Free;
begin
timer.Free;
end;
procedure fireTimer(Sender: TObject);
begin
buf:=hstr('0C 27 10 07 10 00 00 00 00'); - пакет на выбор самой точки
SendToServer;
buf:=hstr('43 4F 00 6D DC 2E 10'); - пакет, собственно, для самой точки
SendToServer;
end;
begin if pck='' then exit;
if FromClient and (ConnectName=Name) and (pck=HStr('5A 06 00 00 00')) then begin - Социалка "ДА" для начала скрипта.
timer.enabled:=true;
end;
if FromClient and (ConnectName=Name) and (pck=HStr('5A 05 00 00 00')) then begin - Социалка "Нет" для его завершения.
timer.enabled:=false;
end;
if FromClient and (ConnectName=Name) and (pck = HStr('87 07 00 00 00 00 00 00 00 00 00 00 00')) then begin - а ето вот тот пакет, который приходит, когда точится на7, ну так вот он приходит, а скрипт почему то не офф.
timer.enabled:=false;
end;
end.
