[Помогите!] Написание скриптов в l2phx

[Yurii77]

помогите разобраться с написанием скриптов
из тех что тут выложено можно сделать аналогии
но не нашел такого чтобы каждые например 5 сек отправлять пакет или пачку пакетов
не откажусь от описания (что куда писать) и примеров
может ктонить гайд для новичков сделает...

[JIEgOKOJI]

Coderx.ru сайт программы , думаю тебе стоит посмотреть там

[megweg]

воть пример простенького скрипта на бафф

Цитата: var T01: TTimer; ck: Boolean; procedure Init; begin T01:=TTimer.Create(nil); T01.OnTimer:=@OnT01; T01.enabled:=false; T01.interval:=15000; T01.enabled:=true; ck:=true; end; procedure OnT01(Sender: TObject); begin ck:=true; end; procedure Free; begin end; begin if (ck=true) then begin buf:=HStr('B4 55 73 61 05 09 00 00 00 00 00 00 00 10 28 00 00'); SendToServer; buf:=HStr('B4 55 73 61 05 09 00 00 00 00 00 00 00 10 28 00 00'); SendToServer; buf:=HStr('...'); SendToServer; T01.enabled:=true; end; ck:=false; end.

[Yurii77]

а можно небольшое построчное описание?

T01:=TTimer.Create(nil);
T01.OnTimer:=@OnT01;
T01.enabled:=false;
T01.interval:=15000; - понял только это 15 мин
T01.enabled:=true;
ck:=true;

и этого если можно...

buf:=HStr('...');
SendToServer;
T01.enabled:=true;

ck:=false;

чтоб понятно было когда сам буду делать...

[megweg]

var \\задал пкременные
T01: TTimer;
ck: Boolean;

procedure Init;
begin
T01:=TTimer.Create(nil); \\создал таймер
T01.OnTimer:=@OnT01; \\Метод который выполнить по истечению
T01.enabled:=false; \\отключил таймер
T01.interval:=15000; \\ установил значение, в мс, те 15000=150сек
T01.enabled:=true; \\ и включил его
ck:=true; \\ну а это флажок и он сразу тру
end;

procedure OnT01(Sender: TObject);
begin
ck:=true; \\флаг устанавливается в тру при звонке таймера
end;

procedure Free;
begin

end;

begin
if (ck=true) then \\если отметка тру
begin
buf:=HStr('...'); \\загрузил пакет в буфер ... - сам пакет баффа
SendToServer; \\отправить всё что в буфере
T01.enabled:=true; \\и завести таймер
end;
ck:=false; \\и при приходящем пакете всегда сбрасую флаг в 0
end.

если правильно всё сделал то при запуске скрипта он скастует бафф