Скрипт на трэйд. Нужна Ваша помощь.

[Lilboter]

Привет всем, прошу сильно не пинать за глупые вопросы.
Очень нужен скрипт который будет перехватывать пм от определенного чара (клиент -валкер) и кидать ему трэйд.
P.S: этот скриптик будет использоваться как добавка к волкеровскому скрипту, который сделать это не может, а функция автотрэйда в нем меня не вполне устраивает.

[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;

[Lilboter]

lQaKl спасибо :Bravo: , буду разбираться :)