топорно как-то так вроде бы:
Оффтоп
PHP код:
const name=''; var Cycl:Ttimer; procedure Init; //Вызывается при включении скрипта begin k:=1; Cycl:=TTimer.Create(nil); Cycl.OnTimer:=@NextStep; Cycl.enabled:=false; Cycl.interval:=2000; end;
Procedure NextStep; begin case k of 3:begin Buf:=четотамэтакое3; Sendtoserverex(name); Cycl.enabled:=False; inc(k); end; 2:begin Buf:=четотамэтакое2; Sendtoserverex(name); inc(k); end; 1:begin buf:=четотамэтакое1; Sendtoserverex(name); inc(k); end; end; if (k=4) then k:=1; end;
procedure Free; //Вызывается при выключении скрипта begin Cycl.enabled:=false; Cycl.free end;
begin If FromClient and (connectname=name) and (pck[1]=соц действие) then begin Cycl.enabled:=True; end; end. //листинг - не проверял.
но - если это из той забавной серии откровений типа "я знаю как дюпнуть, надо всего лишь отправлять с точностью до милисекунды..." - то можешь сразу забить.
__________________
На фразы в аську типа "слух карочь 1)как точить 2)как раскачаться за 5 мин" - игнор. ИМХО идиотизм
Дай голодному рыбу - он будет один день сыт. Покажи ему, как удить рыбу - он пошлёт тебя и скажет, что у него есть более интересные занятия, чем забрасывать снасти в воду
David Kastrup @ de.comp.text.tex.
"Приобретенные навыки общения с маленькими детьми - сильно упрощают взаимопонимание на форумах..."
А вы знаете, что для качественной сварки - место шва нужно протереть спиртом?
Последний раз редактировалось Breadfan, 03.12.2014 в 09:21.
|