Маленький скрипт

[Vklu4atel^^]

Здраствуите нужен маленький скрипт имеем пакет на забратие пухи с ВХ 32 01 00 00 00 6B A2 14 10 01 00 00 00 и дествие Unvare 1B 08 00 00 00
можыте ли помоч со скриптом чтоб по нажатию Social Unware я забирал пуху с ВХ ? (очень нада спс):o

[NLObP]

Здраствуите нужен маленький скрипт имеем пакет на забратие пухи с ВХ 32 01 00 00 00 6B A2 14 10 01 00 00 00 и дествие Unvare 1B 08 00 00 00
можыте ли помоч со скриптом чтоб по нажатию Social Unware я забирал пуху с ВХ ? (очень нада спс):o


const
Name='имя чара'; //сюда вписать имя чара для которого запускаем скрипт, с соблюдением регистра букв

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

end;

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

end;

//************************************************** ***
// вызывается при приходе каждого пакета, если скрипт включен
//************************************************** ***
begin
//************************************************** ***
//не обрабатываем пустые пакеты
if pck='' then exit;

//*************************************************
if (ConnectName=Name) and FromClient then begin
case pck[1] of
#$1B: begin
case ReadD(2) of
//социальное действие Unaware
8: begin
buf:=HStr('32 01 00 00 00 6B A2 14 10 01 00 00 00');
SendToClientEx(Name);
//не передаем серверу социальное действие
pck:='';
end;
end;
end;
end; //case
end;
end.

[Vklu4atel^^]

if pck='' сюда деиствие??? if (ConnectName=Name) сюда ник??

[NLObP]

if pck='' сюда деиствие??? if (ConnectName=Name) сюда ник??

Забыл. Перед процедурой INIT надо описание переменных вставить. Больше ничего не надо.
Я свой предыдущий пост поправил.

[Vklu4atel^^]

чтото нереагирует он и я невижу место корое отвечает за деиствие ну соцыал чтоб можно было сменить его?

[NLObP]

чтото нереагирует он и я невижу место корое отвечает за деиствие ну соцыал чтоб можно было сменить его?

Может проблема в том, что требуется ObjectID?
Tип: 0x32 (SendWareHouseWithDrawList)
Pазмер: 13+2

0002 d Count: 1 (0x00000001)
[Начало повторяющегося блока 1/1]
0006 d ObjectID: 269787755
0010 d Count: 1
[Конец повторяющегося блока 1/1]


Социал дествие Unvare 1B 08 00 00 00
//социальное действие Unaware
8: begin

Вместо посылки пакета вставь вывод текстового сообщения и проверь работу скрипта
sendMSG('социальное действие Unaware');