[vex2865]

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

Тогда такой вариант скрипта:

const
name = 'asdasd';
interval = 100; //в мс
var
TimerEnchant:TTimer;



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


procedure Free;
begin
TimerEnchant.free;
end;

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

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

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

J-Fobos помоги плиз. Пытаюсь заюзать этот скрипт, но меня дисконектит сразу же как только запускаю на выполнение следующий скрипт:
Код:

begin
SetName('asdasd')
end.

что может быть не так?