L2.exe, все if ... then .... лучше переделать в case ... of, по типу такого:
delphi Код:
//********************************************************
// вызывается при приходе каждого пакета, если скрипт включен
//********************************************************
begin
if pck='' then exit; //не обрабатываем пустые пакеты
if FromServer then
case pck[1] of //ID пакета
#$11: begin
//debugmsg('S>C Пакет ItemListPacket #$11');
ItemList;
end;
#$21: begin
//debugmsg('S>C Пакет InventoryUpdate #$21');
InventoryUpdate;
end;
end
else
case pck[1] of //ID пакета
#$XX: begin
...
end;
#$XX: begin
...
end;
end;
end.
И ещё, не понятно зачем полностью пакет сверять, можно один два характерных байта.