Реализация инвентаря.

[apromix]

Для хранения интвентаря лучше использовать TStringList. Хранить строку в виде ID предмета в общем списке предметов игры, количество у игрока.

Оформить в виде класса и добавить методы добавления, удаления предметов в инвентарь, сортировки, а отображать уже нужно в графике

[Lazy_Alex]

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

Ребята каким образом и как делается инвентарь в игре, например как в STALKER, как такой сделать можете привести теорию .

А зацени вот это. Там всё сыро, путанно и непонятно, т.к. писал для себя, но разобраться можно.

Кроме того, могу посоветовать разыскать исходники текстовой игры DeadCold. Там есть что почерпнуть в плане хранения данных инвентаря и их обработки. К сожалению сайт игры на Geosities был ликвидирован.

[VintProg]

Lazy_Alex
А что там делать то смысл?

[Lazy_Alex]

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

Lazy_Alex
А что там делать то смысл?

А пока ничего. Это сырье.

[VintProg]

Lazy_Alex
Но начало не плохое)

[Beermonza]

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

А по подробней?

procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
  // если инвентарь открыт
  If InvShow
      // и мышь в нужном поле
      And (MousePos.X > {граница слева})
      And (MousePos.X < {граница справа})
      And (MousePos.Y > {граница сверху})
      And (MousePos.Y < {граница снизу}) then
    Begin
      // колесо вверх
      If WheelDelta > 0 then
        Begin
          Inc(InvY, {шаг прокрутки});
          ScrollInvent(InvY);      // процедура вывода выборки списка инветнаря
        end;

      // колесо виз
      If WheelDelta < 0 then
        Begin
          Dec(InvY, {шаг прокрутки});
          ScrollInvent(InvY);      // процедура вывода выборки списка инветнаря
        end;
    end;
end;