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

[DpblH]

Const 
  name2='кто кидает';
  name='каму кидают';


begin
 buf:=hstr('42');
writeS(name);
buf:=buf + hstr('00 00 00 00');
SendToServerEX(name2);
  
  
end.

Таймер со сквозным проходом
Если ставить 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;

прошо помощи и обьяснения. я делпфи нишарю нимогу написать скрипт на отправку пати разным чарам. желательно под фул баф. чтобы лидер кидал пати баферам. скрипт на приём пати AutoBD_SVS by Ad
помогите плиз