Парни(девушки если есть) прошу о помощи.
Все вы я думаю знаете бот-локомотив
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.