Определение ObjectID

[ERASE]

Если есть у кого кусок кода, прошу скинуть... Желательно, если он будет простенький и небольшой, т.к. пытался разобраться в куске кода из скрипта на заточку - не особо получилось... (Ну, хотя, было 4 часа ночи где-то... ).

Суть вопроса: в инвентаре есть вещь, например, адена, OID которой нужно определить при включении скрипта, допустим. ID адены известен.

За кусочек кода буду благодарен.

[QaK]

//Считываем параметры одной вещи
procedure SetItem(var PckPos:integer;ItemIndex:byte);
begin Inventory[ItemIndex].ItemType1:=ps.ReadHEx(ppck^,PckPos);    //1
      inc(PckPos,2);
      Inventory[ItemIndex].ObjectID:=ps.ReadDEx(ppck^,PckPos);     //2
      inc(PckPos,4);
      Inventory[ItemIndex].ItemID:=ps.ReadDEx(ppck^,PckPos);       //3
      inc(PckPos,8);
      Inventory[ItemIndex].ItemCount:=ps.ReadDEx(ppck^,PckPos);    //4
      inc(PckPos,4);
      Inventory[ItemIndex].ItemType2:=ps.ReadHEx(ppck^,PckPos);    //5
      inc(PckPos,2);
      Inventory[ItemIndex].CustType1:=ps.ReadHEx(ppck^,PckPos);    //6
      inc(PckPos,2);
      Inventory[ItemIndex].IsEquipped:=ps.ReadHEx(ppck^,PckPos);   //7
      inc(PckPos,2);
      Inventory[ItemIndex].BodyPart:=ps.ReadDEx(ppck^,PckPos);     //8
      inc(PckPos,4);
      Inventory[ItemIndex].EnchantLevel:=ps.ReadHEx(ppck^,PckPos); //9
      inc(PckPos,2);
      Inventory[ItemIndex].CustType2:=ps.ReadHEx(ppck^,PckPos);    //10
      inc(PckPos,2);
      Inventory[ItemIndex].AugID:=ps.ReadDEx(ppck^,PckPos);        //11
      inc(PckPos,4);
      Inventory[ItemIndex].ShadowTime:=ps.ReadDEx(ppck^,PckPos);   //12
      inc(PckPos,40);
end;

//Для пакета Inventory Init
procedure ExtractInvInfo;
var c1,c2:integer;
begin SetLength(Inventory,ps.ReadHEx(ppck^,5)); //количество вещей в инвентаре
      if Length(Inventory)<>0 then
      c2:=7;
      for c1:=0 to Length(Inventory)-1 do //пробегаем по всем предметам
        begin SetItem(c2,c1);   //считываем параметры одного предмета
        end;

end;

это для пакета InventoryInit.

[ERASE]

Ёпть... А можно, пожалуйста, комментов побольше?

[Grinch]

хех шутку оценил для грации ) из длл на делфе

[ERASE]

Нужный мне кусок с ОИД:

procedure SetItem(var PckPos:integer;ItemIndex:byte);
begin 
      Inventory[ItemIndex].ObjectID:=ps.ReadDEx(ppck^,PckPos);     //OID
      inc(PckPos,4);
end;

Или писать полностью всю процедуру?

Эту процедуру запускаем при получении пакета InventoryInit, правильно?:

procedure ExtractInvInfo;
var c1,c2:integer;
begin SetLength(Inventory,ps.ReadHEx(ppck^,5)); //Определяем кол-во вещей?
      if Length(Inventory)<>0 then
      c2:=7;
      for c1:=0 to Length(Inventory)-1 do //пробегаем по всем предметам
        begin SetItem(c2,c1);   //считываем параметры одного предмета
        end;
end;

В итоге, он ОИД пишет в Inventory[номер айтима].ObjectID ?

[Grinch]

ERASE, ты определись сначала ты скрипт пишешь или длл? сразу объясняю в чем разница в скриптах пакет хак передает строки байт а в длл массивы т.е. в скрипте 1-й байт типа пакета, а в длл 2-й байт тип пакета и 2 байта перед ним размер этого пакета так что procedure ExtractInvInfo; надо перешать смещение, и в скрипте масив объявить да и в длл не забудь. и определись с хрониками это кусочег особенно procedure SetItem(var PckPos:integer;ItemIndex:byte); для ОФФ сервера Грации пат1.

[ERASE]

Я пишу скрипт и просил для скрипта До дллок мне далеко
Интерлюд у меня...

[QaK]

Грих, выдери кусок из того скрипта, а то я его опять похерил.

[Grinch]

Ген

Сообщение от QaK

того скрипта

это что ? я его кажись то ж похерил точней пропал в неизвестном направление скриптик.

[ERASE]

Че за скрипт? И можно ли все-таки для меня его как-то выдрать?))