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

[NLObP]

Сообщение от Stasrus

хотелось бы получить что то типа такого:

Типа такого уже выкладивали. Примерно так.

const
  b1='11 11 11 '; 
  b2='22 22 22 '; 
  b3='33 33 33 '; 
var
  x: integer;
  PauseTimer: Ttimer;     //таймер паузы

procedure Init; //Вызывается при включении скрипта
begin
  PauseTimer:=TTimer.Create(nil);
  PauseTimer.Enabled:=true;
  PauseTimer.Interval:=1000; //время задержки между посылками пакета
  PauseTimer.OnTimer:=@OnPause;
  x:=1;
end;

procedure Free; //Вызывается при выключении скрипта
begin
  PauseTimer.Enabled:=false;
  PauseTimer.free;
end;

// Парсер/Исполнитель: главный цикл обработки команд Валкера
//******************************************************************************
procedure  OnPause(Sender: TObject);
var
  s, cmd, param : string;
begin
  case x of
    1: begin
      buf:=hstr(b1);
      SendToServer;
      inc(x);
    end;
    2: begin
      buf:=hstr(b2);
      SendToServer;
      inc(x);
    end;
    3: begin
      buf:=hstr(b3);
      SendToServer;
      inc(x);
    end;
    4: begin
      x:=1;
      PauseTimer.Enabled:=false; //отключаем посылку
    end;
  end;
end;

//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin

end.