Кристаллизация

[ogogo]

//----------------------------------------------------------------
const
  ItemID = 9455; // ItemID шмотки
  myname = 'ник;
//----------------------------------------------------------------
var
  ItemBase: array of integer;
  Crystal: boolean;                                             
  //------------------------------------------------------------------
procedure SendMsg2(msg:string);
begin 
  buf:=#$4A;
  WriteD(0);
  WriteD(10);
  WriteS('');
  WriteS(msg);
  SendToClientEx(myname);
end;
//----------------------------------------------------------------
procedure Init; //Вызывается при включении скрипта
begin
  SendMsg2('Начало инициализации скрипта, откройте инвентарь' );
  Crystal:=false;
end;
//-----------------------------------------------------------------
procedure Free; //Вызывается при выключении скрипта
begin

end;

//----------------------------------------------------------------
procedure CreateItemBase; //Создает базу ObjectID и ItemID, опять же не проверяет пакет на правильность для экономия ресурсов
var
  i,j: integer;
begin
  j:=8;
  SetLength(ItemBase,int((length(pck)-5)/14)); //1ый байт - идентификатор пакета, следующие 4 байта хз, далее для каждого итема отводится 28 байт, размер массива должен быть в 2 раза больше, чем итемов.
  for i:=0 to int(Length(ItemBase)/2-1) do begin
    ItemBase[i*2]:=ReadD(j);
    ItemBase[i*2+1]:=ReadD(j);
    j:=j+40;
  end;
end;
//---------------------------------------------------------
procedure UpdateItemBase; //Удаляет без проверки, использовать аккуратно
var
  i: integer;
begin
  for i:=0 to int(Length(ItemBase)/2-1) do
    if (ItemBase[i*2]=ReadD(8)) or (ItemBase[i*2+1]=ReadD(12)) then begin
      ItemBase[i*2]:=0;
      ItemBase[i*2+1]:=0;
      Exit;
    end
end;
//---------------------------------------------------------
function GetObjID(ItemID:integer): integer; //Выдает ObjectID по его ItemID, если ItemID не найден в базе, выдает -1
var
  i: integer;
begin
  for i:=0 to int(Length(ItemBase)/2-1) do
    if (ItemBase[i*2+1]=ItemID) then begin
      Result:=ItemBase[i*2];
      Exit;
    end;
  Result:=-1;
  end;
//-----------------------------------------------------------
procedure Crystallize(ObjectID: integer);
begin
  buf:=#$2F;
  WriteD(ObjectID);
  WriteF(1);
  SendToServer;
end;
//---------------------------------------------------------
//основная часть скрипта
//вызывается при приходе каждого пакета если скрипт включен

begin
  if FromServer and (pck[1]=#$11) then CreateItemBase; //создание базы предметов
  if (length(ItemBase)=0) then exit; // если нет базы итемов, скрипт дальше не пустит
  if FromServer and (pck[1]=#$21) and (pck[4]=#$31) then begin
    UpdateItemBase; //Обновление базы, если принят пакет на удаление предмета
   

 if Crystal and (GetObjID(ItemID)>0) then Crystallize(GetObjID(ItemID))
    else begin
      Crystal:=false;
      SetLength(ItemBase,0);
      SendMsg('Весь шмот кристаллизован');
    end;
  end;
  if FromClient and (pck=HStr('56 0C 00 00 00 00 00 00 00 00 ')) then 
  begin
    SendMsg('Панеслася!!!');
    if (GetObjID(ItemID)>0) then begin
      Crystal:=true;
      Crystallize(GetObjID(ItemID));
    end else SendMsg('Нужная шмотка не найдена');

end;
end.

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

[NLObP]

Можно пакетом

//RequestItemList вызываем инвентарь
  buf:=hstr('14');
  SendToServerEx(Name);