ДА БУДЕТ БOT!

[xeno]

помогите пожалуста реализовать скрипт который будет блочить пакет от сервера спаунитем и дропитем адены/костей/стрел и тд.
нужно для того чтобы не лагал клиент, когда кто-то спамит этими итемами.
в скриптинге не силен написал пока для адены вот такой скрипт, но мне кажется он не очень правильный, и хотя работает, но очень криво

begin
if fromserver and (pck[1]=#$16) then
begin if fromserver and (pck[10]=#$39) then
begin
SendToClient;
pck:='';
end;
end;
if fromserver and (pck[1]=#$05) then
begin if fromserver and (pck[6]=#$39) then
begin
SendToClient;
pck:='';
end;
end;
end.

через пару минут работы скрипта, пакетхак выдает list index of bounds.

[NLObP]

xeno, попробуй вот так

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.