Кружок нубов(Вопрос-Ответ)

[TAMBIK]

искал так и не нашел
где то встречал описание функции для вызова
паузы в любом месте скрипта
может кто эту функцию мне опишет и на
примере покажет как действует.

[Yegor]

TAMBIK, паузу делать в теле скрипта нельзя ни в коем случае. Нужно просто сравнивать время и по нему ориентироваться выполнять команду или нет. Посмотри как реализована задержка в старом скрипте на здачу манора.

[TAMBIK]

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;