Axes, Armour & Ale

Unit player_inventory

Description
Uses
Classes, Interfaces, Objects and Records
Functions and Procedures
Types
Constants
Variables

Description

Handles player inventory and associated functions

Uses

Overview

Classes, Interfaces, Objects and Records

Name Description
Record Equipment  

Functions and Procedures

procedure initialiseInventory;
procedure loadEquippedItems;
procedure startingInventory;
function addToInventory(itemNumber: smallint): boolean;
function addToInventory_emptySlot(itemNumber: smallint; skip: boolean): boolean;
function removeFromInventory(itemNumber: smallint): boolean;
procedure sortInventory(iLo, iHi: integer);
procedure showInventory;
procedure examineInventory(selection: smallint);
procedure drop;
procedure dropSelection(selection: smallint);
procedure quaff;
procedure quaffSelection(selection: smallint);
procedure wield(message: char);
procedure wearWieldSelection(selection: smallint);
procedure Zzap(item: smallint);
function carryingArrows: boolean;
procedure removeArrow;
procedure destroyWeapon;
function emptySlotAvailable:boolean;

Variables

inventory: array[0..9] of Equipment;

Description

Functions and Procedures

procedure initialiseInventory;

Initialise empty player inventory

procedure loadEquippedItems;

Setup equipped items when loading a saved game

procedure startingInventory;

Add items to an inventory when new game starts

function addToInventory(itemNumber: smallint): boolean;

Add to inventory

function addToInventory_emptySlot(itemNumber: smallint; skip: boolean): boolean;

Add to an empty slot in inventory

function removeFromInventory(itemNumber: smallint): boolean;

Remove from inventory

procedure sortInventory(iLo, iHi: integer);

Sort inventory

procedure showInventory;

Display the inventory screen

procedure examineInventory(selection: smallint);

Display more information about an item

procedure drop;

Drop menu

procedure dropSelection(selection: smallint);

Drop selected item

procedure quaff;

Quaff menu

procedure quaffSelection(selection: smallint);

Quaff selected item

procedure wield(message: char);

Wear / Wield menu

procedure wearWieldSelection(selection: smallint);

Wear / Wield selected item

procedure Zzap(item: smallint);

Zap equipped item

function carryingArrows: boolean;

Check if arrows are in inventory

procedure removeArrow;

Remove an arrow from inventory

procedure destroyWeapon;

Equipped weapon is destroyed

function emptySlotAvailable:boolean;

Check for an empty inventory slot

Variables

inventory: array[0..9] of Equipment;
 
Generated by PasDoc 0.16.0.