Unit scrThrow

Description

Screen used for Throwing projectiles

Uses

Overview

Classes, Interfaces, Objects and Records

Name Description
Record TthrowTargets  

Functions and Procedures

function canThrow: boolean;
function validProjectile(selection: char): boolean;
procedure projectileTarget;
procedure cycleTargets(selection: smallint);
procedure target;
procedure chuckProjectile;
procedure removeFromGround;
procedure removeThrownFromInventory;

Constants

maxWeapons = 11;

Variables

NumOfTargets: smallint;
NumOfWeapons: smallint;
selectedProjectile: smallint;
selTarget: smallint;
tgtList: array of TthrowTargets;
throwableWeapons: array[0..maxWeapons] of Equipment;
throwX: smallint;
throwY: smallint;

Description

Functions and Procedures

function canThrow: boolean;

Confirm there are NPC's and projectiles

function validProjectile(selection: char): boolean;

Check if the projectile selection is valid

procedure projectileTarget;

Choose target for projectile

procedure cycleTargets(selection: smallint);

Cycle between the targets

procedure target;

Start the Target / Throw process

procedure chuckProjectile;

Throw projectile at confirmed target

procedure removeFromGround;

Remove a thrown item from the ground

procedure removeThrownFromInventory;

Remove a thrown item from inventory

Constants

maxWeapons = 11;
 

Variables

NumOfTargets: smallint;
 
NumOfWeapons: smallint;
 
selectedProjectile: smallint;
 
selTarget: smallint;
 
tgtList: array of TthrowTargets;

List of projectile targets

throwableWeapons: array[0..maxWeapons] of Equipment;

Throwable items

throwX: smallint;

Target coordinates

throwY: smallint;

Target coordinates


Generated by PasDoc 0.16.0.