Задержка между отправкой

[KPOT^^]

Здрасти всем. У меня такая проблема: на сервере где я играю стоит защита от флуда пакетами. При отправки нескольких пакетов из раздела "Посылка" отправляется только первый пакет. Таким образом в моем случае невозможно нормально сдать манор, приходиться забивать несколько пакетов на отправку ставить "автоматическое отправление по таймеру" и быстро удалять один за другим пакеты когда началась сдача манора. Всвязи с этим очень хотелось бы получить помошь в написании скрипта на отправку пакетов с задержкой.
Так как я к сожалению не знаю язык написания скриптов то могу только предположить как будет выглядить скрипт.

начало

отправка пакета
задержка

отправка пакета 1
задержка

.....
....

в начало.

Хотелось бы что бы скрипт отправлял пакеты с задержкой и при окончание начинал все заного.

Очень разчитываю на вашу помощь.

[J-Fobos]

Используйте таймер
http://coderx.ru/showpost.php?p=30293&postcount=404

[Vilson]

Правильную ссылку уже дали, от себя немного дополню:

procedure onTimerItemSelect(Sender: TObject);
begin 
case TimerCycle of
1:begin   
    отправка пакета 1;
    Inc(TimerCycle);
    Exit;   
  end;
2:begin  
    отправка пакета 2;
    Inc(TimerCycle);
    Exit;    
  end;
3:begin
    отправка пакета 3;
    Inc(TimerCycle);
    Exit;          
   end;  
end;
end;

Это если интервал между пактами нужен одинаковый и пакетов несколько и разных.

[KPOT^^]

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

Это если интервал между пактами нужен одинаковый и пакетов несколько и разных.

Абсолютно верно.

procedure Init;
begin
   Timer01:=TTimer.Create(nil); //выделяем памать и т.п.
   Timer01.OnTimer:=@OnTimer01; //привязываем процедуру к событию
   Timer01.enabled:=true; //начальное положение включен(true)/выключен(false)
   Timer01.interval:=500; //интервал(в милисекундах) как часто таймер срабатывает
end;
procedure onTimerItemSelect(Sender: TObject);
begin 
case TimerCycle of
1:begin   
  buf:=hstr('1');
  SendToServer;
    Inc(TimerCycle);
    Exit;   
  end;
2:begin  
  buf:=hstr('2');
  SendToServer;
    Inc(TimerCycle);
    Exit;    
  end;
3:begin
  buf:=hstr('3');
  SendToServer;
    Inc(TimerCycle);
    Exit;          
   end;  
end;
end;

Ругается на конец скрипта, пишет "Ошибка 'BEGIN' expected"

[J-Fobos]

Ошибки:
1) Не объявлена переменная TimerCycle
2) Не задано начальное значение переменной TimerCycle
3) Отсутствует главный блок begin end
4) После последнего end нету точки
5) Процедура onTimerItemSelect не привязана к таймеру
6) Нету процедуры Timer01.Free; при выключении скрипта (не знаю обязательная ли она, надо уточнить у алекстим)

PS: пока писал где ошиблись вы уже отредактировали свой пост

[KPOT^^]

Сообщение от J-Fobos

Ошибки:
1) Не объявлена переменная TimerCycle
2) Не задано начальное значение переменной TimerCycle
3) Отсутствует главный блок begin end
4) После последнего end нету точки
5) Процедура onTimerItemSelect не привязана к таймеру
6) Нету процедуры Timer01.Free; при выключении скрипта (не знаю обязательная ли она, надо уточнить у алекстим)

PS: пока писал где ошиблись вы уже отредактировали свой пост

Извините конечно но я ничего не понял Я в этом полный новичек и пока носом не ткнеш не пойму...

[J-Fobos]

Разве что ткнуть носом в учебник
http://coderx.ru/showpost.php?p=46&postcount=1

[KPOT^^]

Это нужно тогда во всем с нуля разбиратся а это времени не 10 минут нужно, а я только попросил написать скрипт умеющих это делать людей мне кажется он не должен много времени у них занять

[J-Fobos]

На форуме запрещено просить готовые скрипты, а в первом посте вы просили только помощи. Скрипт что вам нужен можно за 3 минуты написать, но я такая сволочь что не дам готового скрипта

[KPOT^^]

Начало уже положено, еше несколько подсказок и может сам допетрю как и чего (хотя сомневаюсь)