TAMBIK,
Код:
искал так и не нашел
где то встречал описание функции для вызова
паузы в любом месте скрипта
может кто эту функцию мне опишет и на
примере покажет как действует.
Yegor,
Код:
TAMBIK, паузу делать в теле скрипта нельзя ни в коем случае. Нужно просто сравнивать время и по нему ориентироваться выполнять команду или нет. Посмотри как реализована задержка в старом скрипте на здачу манора.
а вот что я нашел
Код:
Таймер со сквозным проходом
Если ставить sleep() то скрипт останавливается на время, но и пакеты тоже не принимаются и не отправляются, так вот эта функция позваляет избежать этого
Код:
//(c)dmitry501
var
tick: Integer;
procedure Init;
begin
end;
function Pause(Timewait: Integer):Boolean;
// сквозная проверка без остановки скрипта (c)dmitry501
var
t : integer;
begin
result := false;
t := Round(Time*86400);
if t > (tick + Timewait) then
begin
tick := t;
result := true;
end;
end;
пример использования
Код:
if (NoEarned=1) and pause(2) then //+ 2 секунды ожидания
begin
...........
end;