pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

tappytux: A very large rework of the software architecture, removing various hacks and improving the general architecture

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2150 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2011-11-16 21:54:32 +00:00
parent c1bf1dd46a
commit 3bc96963bc
6 changed files with 272 additions and 270 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
applications/tappytux/tappymodules.pas
View File

@@ -22,14 +22,22 @@ type
destructor Destroy; override;
procedure LoadImages; virtual;
function GetBackgroundImage(ALevel: Integer): TJPEGImage;
procedure GoToConfigForm;
procedure RestartGame;
procedure UpdateLevel(ALevel: Integer);
procedure UpdateScore(AScore: Integer);
procedure UpdateLives(ALives: Integer);
procedure TranslateTexts(ALanguage: Integer);
procedure TranslateTextsToEnglish; virtual;
procedure TranslateTextsToPortuguese; virtual;
procedure InitModule(); virtual;
procedure StartNewGame(SndFX: Integer; Music: Integer; Level: Integer; QuestionList: Integer); virtual; abstract;
procedure CreateQuestion(); virtual; abstract;
procedure Answered(); virtual; abstract;
procedure Answered(AText: string); virtual; abstract;
procedure EndGame(); virtual; abstract;
procedure GameWon(); virtual; abstract;
procedure GameLost(); virtual; abstract;
procedure ProcessFallingTextEnd(); virtual; abstract;
end;
procedure AddModule(AModule: TTappyModule);
@@ -40,12 +48,16 @@ procedure SetCurrentModule(AIndex: Integer);
implementation
uses
gameplayform, gameconfigform;
var
gTappyModules: TFPList;
gCurrentTappyModule: Integer = 0; //=-1
procedure AddModule(AModule: TTappyModule);
begin
if gTappyModules = nil then gTappyModules := TFPList.Create;
gTappyModules.Add(Pointer(AModule));
end;
@@ -104,6 +116,35 @@ begin
Result := imgLevel3;
end;
procedure TTappyModule.GoToConfigForm;
begin
formConfig.Show;
formTappyTuxGame.Hide;
end;
procedure TTappyModule.RestartGame;
begin
StartNewGame(formConfig.comboSound.ItemIndex,
formConfig.comboMusic.ItemIndex,
formConfig.comboLevel.ItemIndex,
formConfig.ltbWordlist.ItemIndex);
end;
procedure TTappyModule.UpdateLevel(ALevel: Integer);
begin
formTappyTuxGame.Level.Text := IntToStr(ALevel);
end;
procedure TTappyModule.UpdateScore(AScore: Integer);
begin
formTappyTuxGame.Score.Text := IntToStr(AScore);
end;
procedure TTappyModule.UpdateLives(ALives: Integer);
begin
formTappyTuxGame.Lives.Text := IntToStr(ALives);
end;
procedure TTappyModule.TranslateTexts(ALanguage: Integer);
begin
case ALanguage of
@@ -128,7 +169,8 @@ begin
end;
initialization
gTappyModules := TFPList.Create;
if gTappyModules = nil then
gTappyModules := TFPList.Create;
finalization
gTappyModules.Free;
end.