Class TScoremeter (unit Gameform) |
Inherits from
TObject
constructor create(image:TRect; numimages:integer; screenpos:TPoint; digs,sincr:integer);
- ---------------------------------------------------------------------------- } { Score drawing object } { ----------------------------------------------------------------------------
destructor destroy;
procedure display(redo:boolean);
I wanted the score to count in units of xxx even if it goes up by y*xxx
so it only increases the score by one unit each time - bit like a pinball
score - units are ten points in this game.
digits : TMultiple_bitmap;
i_height : integer;
i_width : integer;
lastscore : longint;
numdigs : integer;
score : longint;
screen_pos : TPoint;
slots : array[0..15] of integer;
s_inc : integer;
constructor create(image:TRect; numimages:integer; screenpos:TPoint; digs,sincr:integer);
---------------------------------------------------------------------------- } { Score drawing object } { ----------------------------------------------------------------------------
destructor destroy;
procedure display(redo:boolean);
I wanted the score to count in units of xxx even if it goes up by y*xxx
so it only increases the score by one unit each time - bit like a pinball
score - units are ten points in this game.
{ redo is used when we want to repaint the whole thing, during a wm_paint or similar } { ie override the just display changes feature
digits : TMultiple_bitmap;
i_height : integer;
i_width : integer;
lastscore : longint;
numdigs : integer;
score : longint;
screen_pos : TPoint;
slots : array[0..15] of integer;
s_inc : integer;