где ты на лоурейтах кучу хом найдешь? ну ладно хомы еще можно... а вот точки?
точки днем с огнем не найдешь
http://coderx.ru/showthread.php?t=9181 тут про таймер прочитай. подойдет
только надо будет кое что убрать с того примера... примерно так:
PHP код:
var //var это блок, где объявляются переменные и определяется их тип.
Timer01: TTimer; // указываем что Timer01 это таймер (TTimer)
a:integer; // a - это цифровая переменная integer
// на будущее *:string; - текстовая переменная
procedure OnTimer01(Sender: TObject); // наша процедура по таймеру
begin
Timer01.interval := 30000+round(random()*1000); // каждый раз у нас будет рандомный промежуток времени от одной до двух секунд.
// нужно для "очеловечивания" нашего скрипта, чтобы не спалили злые админы :)
// random()*1000 - случайное число от 0 до 1000
// round(random()*1000) - округление того случайного числа до ближайшего целого.
// например рандом выбрал 352,2456575474 - нахрена нам эти знаки после запятой? вот и округляем.
case a of // проверка цифровой переменной a и отфутболивание на нужный пункт
// по сути наша а это метка для управления шагами в таймере.
// то есть через эту переменную а мы можем запросить конкретный шаг таймера, когда он тикнет в следующий раз
1:begin
buf:=''; // пакет бафа
SendtoserverEx(Name); // отправляем на сервер наш buf от конкретного игрока - Name
end;
end;
end;
procedure Init; // при старте скрипта производятся следующие операции
begin
Timer01:=TTimer.Create(nil);
Timer01.OnTimer:=@OnTimer01;
Timer01.enabled:=true; // таймер включен
Timer01.interval:=30000; // начальный таймер у нас составляет 30 секунд
// все эти четыре строчки касаются только таймера
// но помимо таймера здесь могут быть и другие начальные данные, нужные для старта скрипта.
a:=1;
end;
procedure Free; //Вызывается при выключении скрипта
begin
Timer01.enabled:=false; // таймер отключаем
end;
begin
// тут код, который будет выполнятся по приходу каждого пакета
end.
01.06.2012, 20:57
Комбинированный вид
