[QaK]

Эхх, ну солько можно ..... ладно, я сегодня добрый =)

const CharName='имячаракоторыйдолженреагироватьнапмикидатьтрейд';
var Name,Text:string;
      i,ObjectID:integer;
begin if FromServer and (ConnectName=CharName) and (pck[1]=#$4A) and (ReadD(6)=2) //если от сервака пришел пакет "кто-то что-то сказал мне в приват"
         then begin //здесь идет анализ имени и\или текста того, кто нам сказал
                          i:=10;
                          ObjecctID:=ReadD(2); //получаем идентификатор =)
                          Name:=ReadS(i);//получаем имя перса
                          Text:=ReadS(i); // получаем текст сообщения
                          //здесь типа анализируем
                          if Name='Scuko' then begin buf:=#$15;
                                                                  WriteD(ObjectID);
                                                                   SendToServerEx(CharName); 
                                                          end; 
                         //предыдущий кусок проверяет, если имя перса, который нам сказал что-то в пм = Scuko 
                         //тогда кидаем ему трейд
                         // можно вместо Name='Scuko' поставить Text='Привет свовач' , тогда будет реагировать 
                         //на тект ссобщения от любого чара
                 end;
end;