Тема: Draconic.ru l2phx
Показать сообщение отдельно
Старый 01.06.2012, 20:57   #12
Местный
 
Аватар для SeregaZ
 
Регистрация: 16.08.2009
Сообщений: 1,224
Сказал Спасибо: 4
Имеет 229 спасибок в 182 сообщенях
SeregaZ пока неопределено
По умолчанию

где ты на лоурейтах кучу хом найдешь? ну ладно хомы еще можно... а вот точки? точки днем с огнем не найдешь

http://coderx.ru/showthread.php?t=9181 тут про таймер прочитай. подойдет только надо будет кое что убрать с того примера... примерно так:
PHP код:
var //var это блок, где объявляются переменные и определяется их тип.
Timer01TTimer// указываем что Timer01 это таймер (TTimer)
a:integer// a - это цифровая переменная integer
// на будущее *:string; - текстовая переменная

procedure OnTimer01(SenderTObject); // наша процедура по таймеру
 
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
__________________
хочу картинку в подпись!
SeregaZ вне форума   Ответить с цитированием