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

TTappyModules.Answered() procedure created, allowing game code to be placed in mod_tappywords.pas instead of gameplayform.pas.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2091 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
denniscuflat
2011-10-25 10:21:59 +00:00
parent d7827921fc
commit 48aca8301a
5 changed files with 19 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
applications/tappytux/gameconfigform.pas
View File

@ -86,18 +86,6 @@ end;
procedure TformConfig.comboSoundChange(Sender: TObject);
begin
Case comboSound.itemIndex of
0: begin
//gameData.SndFX := true;
end;
1: begin
//gameData.SndFX := false;
end;
end;
end;
procedure TformConfig.FormClick(Sender: TObject);

14
applications/tappytux/gameplayform.pas
View File

@ -64,15 +64,8 @@ begin
if Key = #13 then
begin
formTappyTuxGame.Test.Lines.Add(Answer.Text);
if (Answer.Text = Question1.Text) then Question1.Top := 50;
if (Answer.Text = Question2.Text) then Question2.Top := 50;
if (Answer.Text = Question3.Text) then Question3.Top := 50;
if (Answer.Text = Question4.Text) then Question4.Top := 50;
if (Answer.Text = Question5.Text) then Question5.Top := 50;
GetCurrentModule().Answered();
formTappyTuxGame.Answer.Clear;
//TappyTuxGame.ThrowHammer();
end;
end;
@ -90,10 +83,5 @@ begin
end;
{procedure TformTappyTuxGame.OnClose;
begin
formConfig
end;}
end.

6
applications/tappytux/mod_tappymath.pas
View File

@ -21,6 +21,7 @@ type
procedure TranslateTextsToEnglish; override;
procedure TranslateTextsToPortuguese; override;
procedure StartNewGame(SndFX: Integer; Music: Integer; Level: Integer); override;
procedure Answered(); override;
procedure EndGame(); override;
end;
@ -50,6 +51,11 @@ begin
end;
procedure TTappyMath.Answered;
begin
end;
procedure TTappyMath.EndGame;
begin

11
applications/tappytux/mod_tappywords.pas
View File

@ -26,6 +26,7 @@ type
procedure TranslateTextsToEnglish; override;
procedure TranslateTextsToPortuguese; override;
procedure StartNewGame(SndFX: Integer; Music: Integer; Level: Integer); override;
procedure Answered(); override;
procedure EndGame(); override;
end;
@ -90,6 +91,16 @@ begin
end;
procedure TTappyWords.Answered;
begin
if (formTappyTuxGame.Answer.Text = formTappyTuxGame.Question1.Text) then formTappyTuxGame.Question1.Top := 50;
if (formTappyTuxGame.Answer.Text = formTappyTuxGame.Question2.Text) then formTappyTuxGame.Question2.Top := 50;
if (formTappyTuxGame.Answer.Text = formTappyTuxGame.Question3.Text) then formTappyTuxGame.Question3.Top := 50;
if (formTappyTuxGame.Answer.Text = formTappyTuxGame.Question4.Text) then formTappyTuxGame.Question4.Top := 50;
if (formTappyTuxGame.Answer.Text = formTappyTuxGame.Question5.Text) then formTappyTuxGame.Question5.Top := 50;
end;
procedure TTappyWords.EndGame;
begin
timerWords.Enabled := False;

1
applications/tappytux/tappymodules.pas
View File

@ -25,6 +25,7 @@ type
procedure TranslateTextsToPortuguese; virtual;
procedure InitModule(); virtual;
procedure StartNewGame(SndFX: Integer; Music: Integer; Level: Integer); virtual; abstract;
procedure Answered(); virtual; abstract;
procedure EndGame(); virtual; abstract;
end;