procedure Init; //Вызывается при включении скрипта
begin
t1:=0;
end;
function Wait(var tick:integer; Timewait: Integer): Boolean;
// сквозная проверка без остановки скрипта (c)dmitry501
// modifed by Sh00rGo
var
t: integer;
begin
result:=false;
t:=Round(Time*86400);
if t>(tick+Timewait/1000) then begin
if tick>0 then result:=true;
tick:=t;
end;
end;
begin
if FromClient and (pck[1]=#$38) and (pck[2]=#$2D) then
begin
sCom:=ReadS(4);
Com:=copy(sCom,1,8);
if Com='clossell' then begin
buf:=HStr('73');
SendToServer;
if wait(t1,2000) then begin
buf:=HStr('76');
SendToServer;
end;
pck:=nil;
end;
end;
end.
Пакет 76 вобще не отправляется. Пробовал уже в различных вариациях. Та же фигня.
|