Будьте любезны, помогите со скриптом.

[Deffol]

я просто с таймером не разобрался, если вот так сделать, должен же работать?

begin
if FromClient and (pck[1]=#$23) and (ConnectName=name) then
begin
buf:=pck;
Timer01.enabled:=true;
end;
begin
if FromServer and (pck[1]=#$EA) and (ConnectName=name) then
begin
Timer01.enabled:=false;
end;
end;
end.

Добавлено через 12 минут
а в процедуре инита, он должен влючен быть или выключен?

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

//J-Fobos: вот инфа по таймеру, не сдавайся и все получится

Добавлено через 2 часа 50 минут

const
name = 'Destroer';
interval = 100; 
var
Timer01:TTimer;
i:integer;

procedure Init;
begin
Timer01:=TTimer.Create(nil);
Timer01.OnTimer:=@enchant;
Timer01.enabled:=false;
Timer01.interval:=interval;
end;


procedure Free;
begin
Timer01.free;
end;

procedure enchant(Sender: TObject);
begin;
SendToServerEx(name);
end;

begin 
if FromClient and (pck[1]=#$23) and (ConnectName=name) then
begin
buf:=pck;
for i:=1 to 2000 do
SendToServerEx(name);
end;
end.
begin
if FromServer and (pck[1]=#$EA) and (ConnectName=name) then
begin
i:=0;
end;
end;
end.

Этот скрипт у меня получилось включить!!! но выключить не могу при убийстве моба

const
name = 'Destroer'; 
var
Timer01:TTimer;



procedure Init;
begin
Timer01:=TTimer.Create(nil);
Timer01.OnTimer:=@OnTimer01;
Timer01.enabled:=false;
Timer01.interval:=100;
end;


procedure Free;
begin
Timer01.free;
end;

procedure OnTimer01(Sender: TObject);
begin
SendToServerEx(name);
end;

begin
if FromClient and (pck[1]=#$23) and (ConnectName=name) then
begin
Timer01.enabled:=true;
buf:=pck;
end;

begin
if FromServer and (pck[1]=#$EA) and (ConnectName=name) then
begin
Timer01.enabled:=false;
end;
end;
end.

- это я пробовал с таймером, не получается, куда только не вставлял таймер=тру, и баф=пак