xeno, попробуй вот так
delphi Код:
procedure Init; //Вызывается при включении скрипта
begin
end;
procedure Free; //Вызывается при выключении скрипта
begin
end;
//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен
begin
if FromServer then
begin
case pck[1] of
#$05: //пакет 05=SpawnItem
begin
case pck[10] of //по смещению 10 находится ItemID
17, 57, 1341..1345: pck:=''; //дропаем стрелы, адену, деревянные и т.д. стрелы
end;
end;
#$16: //пакет 16=DropItem
begin
case pck[6] of //по смещению 06 находится ItemID
17, 57, 1341..1345: pck:=''; //дропаем стрелы, адену, деревянные и т.д. стрелы
end;
end;
end;
end;
end.