Код:
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.
проверил , вроде все работает
но возможно сервер этот пакет не обработает,
как мне заставить спамить этот пакет постоянно , пока юзер не отключит скрипт?