Цитата:
Сообщение от supernewbie
*ля!
buf:=pck; замени на s:=pck; епт
|
сделал всё вроде правильно
Код:
const
name = 'имя чара';
interval = 100; //в мс
var
TimerEnchant:TTimer;
s:string;
procedure Init;
begin
pck:=s;
TimerEnchant:=TTimer.Create(nil);
TimerEnchant.OnTimer:=@enchant;
TimerEnchant.enabled:=false;
TimerEnchant.interval:=interval;
end;
procedure Free;
begin
TimerEnchant.free;
end;
procedure enchant;
begin
s:=buf;
SendToServerEx(name);
end;
begin
if FromClient and (pck[1]=#$23) and (ConnectName=name) then
begin
s:=pck;
TimerEnchant.enabled:=true;
end;
begin
if FromServer and (pck[1]=#$EA) and (ConnectName=name) then
begin
TimerEnchant.enabled:=false;
end;
end;
end.
но дисконект после того как на вкладке "выполнить" (в главном окне, там где список пакетов и оправка пакетов) запускаю на выполнение следующий скрипт и юзаю пакет 23:
begin
SetName('имя чара')
end.
подскажите, что тут не так?