Unit T_F4

Classes

TF4 -

Functions

Register - Registratie

Types

TBlockType
TCpuIntelligence
TForza4Grid
TPlayer
TPlayerKind
TWinGameEvent

Constants

Columns
Rows

Variables


Functions


procedure Register;

Registratie

Types


TBlockType    = (btRound, btSquare, btButton, btBeveled);
Added type
TCpuIntelligence = (ciBaby,ciNormal,ciEinstein);

TForza4Grid   = Array[0..Columns-1,0..Rows-1] of TColor;

TPlayer = record
PCOL : TCOLOR;
KIND : TPlayerKind;
end;

TPlayerKind   = (plHuman, plComputer);

TWinGameEvent = procedure(Sender: TObject; Player: TPlayer) of Object

Constants

Columns = 7

Rows = 6


Variables