PHP код:
const
bufer='';
var
PaketManora: string;
timer1: TTimer;
StartTime: TDateTime;
EndTime: TDateTime;
x:integer;
procedure Init;
begin
timer1:=TTimer.Create(nil);
timer1.OnTimer:=@OnTimer;
timer1.enabled:=false;
timer1.interval:=100;
x:=0;
end;
procedure Free;
begin
timer1.Free;
end;
procedure OnTimer(Sender: TObject);
begin
if (time >= EndTime) and (x<600) then
begin
//пишем сами себе в чат - что "ПОПЫТКА"
buf:=hstr('4A AB F6 A0 48 02 00 00 00 2D 00 3E 00 56 00 4F 00 52 00 4F 00 4E 00 37 00 00 00 3F 04 3E 04 3F 04 4B 04 42 04 3A 04 30 04 20 00 41 04 34 04 30 04 42 04 4C 04 00 00');
SendToClientex(bufer);
buf:=PaketManora;
SendToServerex(bufer);
x:=x+1;
end;
end;
begin
if FromClient and (ConnectName=bufer) and (pck[1]=#$C4) then
begin
PaketManora:=pck;
end;
if FromServer and (ConnectName=bufer) and (pck[1]=#$64) and (pck[2]=#$69) and (pck[3]=#$06) then
begin
StartTime:=time;
EndTime:=StartTime + EncodeTime(0,5,40,0);
timer1.enabled:=true;
buf:=hstr('4A AB F6 A0 48 02 00 00 00 2D 00 3E 00 56 00 4F 00 52 00 4F 00 4E 00 37 00 00 00 32 04 40 04 35 04 3C 04 4F 04 20 00 3F 04 3E 04 48 04 3B 04 3E 04 00 00');
SendToClientex(bufer);
end;
end.
Вот такой у меня работал когда-то, сделанный на базе скрипта от Voron
__________________
На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."
А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
|