[lSiml]

Парни(девушки если есть) прошу о помощи.
Все вы я думаю знаете бот-локомотив
http://coderx.ru/showthread.php?t=334
на серве работает замечательно.
но есть одно не большое НО.
На серве стоит защита от ботов "каждые 15 минут вылезает окно с вопросом и есле не ответить то кикает с игры"
помогите в скрипте под ил настроить чтобы бот сам делал релог каждые 13-14 минут. Есть второй скрипт на просто релог можете както совместить если получится. точнее это не на релог скрипт а просто посылает автоматом пакеты(но при включеном боте когда делаешь релог скриптом то критует) Нужно чтобы примерно так Включил бота он работает потом ставился на паузу делал релог и выключал паузу. Мне с моими познаниями этого не сделать слишком уж я мало про это всё знаю.
прошу вас не кидать ссылки на темы и кричать что поиск плохо юзаю, просто помогите.

Релог:

var
TimerCycle:integer;
timer:TTimer;

procedure Init;
begin
timer:=TTimer.Create(nil);
timer.interval:=1000;
timer.OnTimer:=@OnTimer;
timer.enabled:=False;
TimerCycle:=1;
end;

procedure OnTimer(Sender: TObject);
begin 
case TimerCycle of
  1:begin   
  buf:=HStr('45 00 00 00 00 00 00 00 00 00');
  sendtoserver;
  Inc(TimerCycle);
  timer.interval:=20000;
  end; 
  2:begin
  buf:=HStr('46');
  sendtoserver;
  Inc(TimerCycle);
  timer.interval:=12000;
  end;
  3:begin
  buf:=HStr('0D 01 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00');  //2 пакет
  sendtoserver;
  TimerCycle:=1;
  timer.interval:=800000;
  end;
end;
end;

procedure Free; 
begin
timer.free;
end;


begin
    if FromClient and (pck=HStr('1B 0B 00 00 00')) then timer.enabled:=true;
    if FromClient and (pck=HStr('1B 02 00 00 00')) then timer.enabled:=false;
end.