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

[Vklu4atel^^]

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

[NLObP]

Сообщение от Vklu4atel^^

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

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]

Сообщение от Vklu4atel^^

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

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

[Vklu4atel^^]

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

[NLObP]

Сообщение от Vklu4atel^^

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

Может проблема в том, что требуется 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');