что-то у вас не то =/
по такому скрипту, по вашему описанию, вместо действия victory должно выполняться действие сесть:
Код:
procedure Init;
begin
end;
procedure Free;
begin
end;
begin
if FromClient and (ConnectName='nickname') and (pck=HStr('1b 04 00 00 00'))
then
begin
buf:=HStr('45 00 00 00 00 00 00 00 00 00');
SendToServerEx('nickname');
pck:='';
end;
end.
Или я неверно понял принцип работы программы?