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

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