Unit APCommon

Classes

Functions

RunSystemWave - ******************************* * Play error wave asynchronly *

Types

TBitmapIndex
TColorIndex
TLineIndex
TPassword
TPlayerIndex
TScore
TUserName

Constants

AddKey
Anonymous
BACKSLASH
BASEKEY
BmpMaxNr
ColorMaxNr
EmptyId
InfoGapLg
InfoLg
LinesMaxNr
MultKey
NameLg
PasswordLg
Players
President
Pretendent
ScoreLg
StartKey
wnREMOVE
wnSYSTEM
wnTICK

Variables

BadMoveSnd
Games
JumpSnd
RemoveBallSnd
Removed
SysSnd


Functions


procedure RunSystemWave;

******************************* * Play error wave asynchronly *

Types


TBitmapIndex	=	0..BmpMaxNr

TColorIndex		=	0..ColorMaxNr

TLineIndex	 	=	0..LinesMaxNr

TPassword			= string[PasswordLg]

TPlayerIndex 	=	0..Players

TScore				=	string[ScoreLg]

TUserName			= string[NameLg]

Constants

AddKey = 62759879

Anonymous = 'Anonymous'

BACKSLASH = '\'

* Renamed from Common.pas 6/14/1998 Paul Rice to avoid conflicts with others' work.

BASEKEY = '\Software\NPS\Lines95'

BmpMaxNr = 3

ColorMaxNr = 8

EmptyId = 0

InfoGapLg = 2

InfoLg = NameLg + InfoGapLg + ScoreLg

LinesMaxNr = 8

MultKey = 1722096934

NameLg = 15

PasswordLg = 12

Players = 10

President = 0

Pretendent = Players

ScoreLg = 5

StartKey = 405161930

wnREMOVE = 'SOUND2'

wnSYSTEM = 'SOUND3'

wnTICK = 'SOUND1'


Variables

BadMoveSnd : Boolean

Games : Integer

/////////////////////// / Other globals /// ///////////////////////

JumpSnd : Boolean

///////////////////// / Sound flags /// /////////////////////

RemoveBallSnd : Boolean

Removed : Longint

SysSnd : Boolean