Нужна помощь с скриптом.

[SeregaZ]

у меня вот был где-то скрипт на тему "баф" в пати чате и понивод давал коняшный баф. система аналогичная. сам подправишь под свои хроники.

PHP код:

var
a:integer;

j:integer;
nick:string;
text:string;

procedure Init; //Вызывается при включении скрипта
begin
 useforconnectname := 'PonyVod';
 //useforconnectname := 'SVPONIVOD';
end;

procedure Free; //Вызывается при выключении скрипта
begin

end;

//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin

  if FromServer and (pck[1]=#$4A) and (pck[6]=#$03) and   //пати чат просят баф
  then begin
     j:=10;                 // j - стартовая позиция указателя
     //CharOID:=ReadD(j);   // -- OID перса
     //TextType:=ReadD(j); //-- индекс чата в котором пишется текст
     nick:=ReadS(j);    //-- считывается ник, и, одновременно, указатель байта сдвигается на его длинну, т.е после выполнения команды будет j:=j+(длинна_блока_оканчивающегося "00 00")
     text:=ReadS(j);    //-- считываем текст сообщения
     if (text='баф') or (text='аф') then begin

        // пакет на запуск бафа пони
        buf:=HStr('45 F3 03 00 00 00 00 00 00 00');
        SendToServer;

     end;
  end;  
end.