[destructor]

var
oID:integer; 


procedure Init; //will be called on script initialization
begin
end;

procedure Free; 
begin
end;

begin
  if fromserver then
    if pck[1] = #$16 then //если выпал дроп.
          begin
                oID:= ReadD(10);
                if oID = 6656 then //серяем дроп с необходимым мне ИД
                        begin
                             WriteC($A5); //собираем пакет "подобрать"
                             WriteD(ReadD(6));
                             WriteD(ReadD(14));
                             WriteD(ReadD(18));
                             WriteD(ReadD(22));
                             WriteC(0);
                             
                             SendToServer; //отправляем
                         end; 
         end;
end.

проверил , вроде все работает

но возможно сервер этот пакет не обработает,
как мне заставить спамить этот пакет постоянно , пока юзер не отключит скрипт?