Что нужно знать для написания скриптов

что-то у вас не то =/
по такому скрипту, по вашему описанию, вместо действия 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.

Или я неверно понял принцип работы программы?