Эхх, ну солько можно ..... ладно, я сегодня добрый =)
Код:
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;