| Class TScoreBoard (unit Score) |
****** * * Module: Score * Author: Joe Kessler * IntegrationWare - A New Generation of Extraordinary PC Solutions * www.integrationware.com * * Purpose: * * This module implements the TScoreBoard object, which is a special * derivation of a Text object. This class also keeps tracks of a numeric * score, and the number of lives that the player still has remaining. * ******
| Constructors |
constructor Create(lstObjects: TList);| Functions |
destructor Destroy;
function iGetBartCount: Integer;
procedure SetBartCount(iNewCount: Integer);
procedure SetScore(iNewScore: Integer);| Properties |
property iBartCount : Integer
property iCurrentScore : Integer| Events |
| Variables |
m_iCurrentScore : Integer;
m_lstBarts : TList;| Constructors |
constructor Create(lstObjects: TList);Class constructor and destructor.
| Functions |
destructor Destroy;Start with an initial score of zero.
function iGetBartCount: Integer;Move to the next static Bart position.
procedure SetBartCount(iNewCount: Integer);Format a new six-digit score text.
procedure SetScore(iNewScore: Integer);List of fake Bart objects. } { Methods for getting/setting property values.
Perform default cleanup.
| Properties |
property iBartCount : Integer
property iCurrentScore : IntegerExposed properties.
| Events |
| Variables |
m_iCurrentScore : Integer;
m_lstBarts : TList;The player's current score.