e295603a2f
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2155 8e941d3f-bd1b-0410-a28a-d453659cc2b4
397 lines
11 KiB
ObjectPascal
397 lines
11 KiB
ObjectPascal
unit mod_tappywords;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils,
|
|
//
|
|
FileUtil,
|
|
//
|
|
fpSound,
|
|
// LCL
|
|
ExtCtrls, IntfGraphics, LCLType, Forms, Controls, Graphics, Dialogs, StdCtrls,
|
|
// TappyTux
|
|
tappyconfig, tappydrawer, tappymodules;
|
|
|
|
type
|
|
|
|
{ TTappyWords }
|
|
|
|
TTappyWords = class(TTappyModule)
|
|
private
|
|
gameScore : Integer;
|
|
gameLives : Integer;
|
|
gameLevel : Integer;
|
|
gameSLevel : Integer;
|
|
gameSndFX : Boolean;
|
|
gameMusic : Boolean;
|
|
gameQuestionList : TStringList;
|
|
count : Integer;
|
|
timerWords: TTimer;
|
|
NewQuestionFrequency: Integer;
|
|
procedure HandleOnTimer(Sender: TObject);
|
|
public
|
|
constructor Create; override;
|
|
destructor Destroy; override;
|
|
procedure TranslateTextsToEnglish; override;
|
|
procedure TranslateTextsToPortuguese; override;
|
|
procedure StartNewGame(SndFX: Integer; Music: Integer; Level: Integer; QuestionList: Integer); override;
|
|
procedure createQuestion(); override;
|
|
function GetFallingDurationFromLevel: Integer;
|
|
function GetTextFileFromLanguageId(AID: Integer): string;
|
|
procedure Answered(AText: string); override;
|
|
procedure EndGame(); override;
|
|
procedure GameWon(); override;
|
|
procedure GameLost(); override;
|
|
procedure ProcessFallingTextEnd(); override;
|
|
procedure ProcessSpriteEnd(AUserData: TObject; APosition: TPoint); override;
|
|
end;
|
|
|
|
var
|
|
backgroundMusic: TSoundDocument;
|
|
startupSound: TSoundDocument;
|
|
|
|
implementation
|
|
|
|
{ TTappyWords }
|
|
|
|
procedure TTappyWords.HandleOnTimer(Sender: TObject);
|
|
var
|
|
i: Integer;
|
|
j: Integer;
|
|
snowmanWrong: TFallingText;
|
|
begin
|
|
// Periodically create new questions
|
|
count := count + timerWords.Interval;
|
|
if count >= NewQuestionFrequency then
|
|
begin
|
|
count := 0;
|
|
CreateQuestion();
|
|
end;
|
|
|
|
vTappyTuxDrawer.HandleAnimationOnTimer(timerWords.Interval);
|
|
end;
|
|
|
|
constructor TTappyWords.Create;
|
|
begin
|
|
inherited Create;
|
|
|
|
timerWords := TTimer.Create(nil);
|
|
timerWords.Enabled := False;
|
|
timerWords.Interval := 100;
|
|
timerWords.OnTimer := @HandleOnTimer;
|
|
|
|
NewQuestionFrequency := 5000;
|
|
|
|
ConfigItems :=
|
|
'English' + LineEnding +
|
|
'Portuguese' + LineEnding +
|
|
'French' + LineEnding +
|
|
'German' + LineEnding +
|
|
'Italian' + LineEnding +
|
|
'Afrikaans' + LineEnding;
|
|
end;
|
|
|
|
destructor TTappyWords.Destroy;
|
|
begin
|
|
timerWords.Free;
|
|
|
|
inherited Destroy;
|
|
end;
|
|
|
|
procedure TTappyWords.TranslateTextsToEnglish;
|
|
begin
|
|
ShortDescription := 'TappyWords';
|
|
LongDescription := 'A game to learn typing and ortography.'; // Hint: Try to keep looking at the screen instead of the keyboard!
|
|
ConfigCaption := 'Select a list of words';
|
|
end;
|
|
|
|
procedure TTappyWords.TranslateTextsToPortuguese;
|
|
begin
|
|
ShortDescription := 'TappyWords';
|
|
LongDescription := 'Um jogo para aprender a digitar e ortografia';
|
|
ConfigCaption := 'Selecione uma lista de palavras';
|
|
end;
|
|
|
|
procedure TTappyWords.StartNewGame(SndFX: Integer; Music: Integer; Level: Integer; QuestionList: Integer);
|
|
var
|
|
i: Integer;
|
|
lTuxAnimation: TTappySpriteAnimation;
|
|
begin
|
|
count := 5;
|
|
timerWords.Enabled := True;
|
|
timerWords.Interval := 100;
|
|
gameScore := 0;
|
|
gameLives := 5;
|
|
gameLevel := Level+1;
|
|
if (Level < 0) then gameLevel := 1;
|
|
if (SndFX <= 0) then gameSndFX := true;
|
|
if (SndFX = 1) then gameSndFX := false;
|
|
if (Music <= 0) then gameMusic := true;
|
|
if (Music = 1) then gameMusic := false;
|
|
gameSLevel := gameLevel;
|
|
|
|
// Loads the list of questions
|
|
if QuestionList < 0 then QuestionList := 0;
|
|
gameQuestionList := TStringList.Create;
|
|
gameQuestionList.LoadFromFile(vTappyTuxConfig.GetResourcesDir() +
|
|
'images' + PathDelim + 'modules' + PathDelim + 'tappywords'
|
|
+ PathDelim + GetTextFileFromLanguageId(QuestionList));
|
|
//gameQuestionList.LoadFromFile('C:/'+IntToStr(QuestionList)+'.txt');
|
|
|
|
UpdateLevel(gameLevel);
|
|
UpdateScore(gameScore);
|
|
UpdateLives(gameLives);
|
|
|
|
// Animations Creation
|
|
lTuxAnimation := TTappySpriteAnimation.Create;
|
|
lTuxAnimation.IsInfinite := True;
|
|
lTuxAnimation.StartPoint := Point(250, 328);
|
|
lTuxAnimation.EndPoint := lTuxAnimation.StartPoint;
|
|
SetLength(lTuxAnimation.Images, 6);
|
|
lTuxAnimation.LoadImageFromPng(0, vTappyTuxConfig.GetResourcesDir() + 'images' + PathDelim + 'sprites' + PathDelim + 'tux_1.png');
|
|
lTuxAnimation.LoadImageFromPng(1, vTappyTuxConfig.GetResourcesDir() + 'images' + PathDelim + 'sprites' + PathDelim + 'tux_2.png');
|
|
lTuxAnimation.LoadImageFromPng(2, vTappyTuxConfig.GetResourcesDir() + 'images' + PathDelim + 'sprites' + PathDelim + 'tux_3.png');
|
|
lTuxAnimation.LoadImageFromPng(3, vTappyTuxConfig.GetResourcesDir() + 'images' + PathDelim + 'sprites' + PathDelim + 'tux_4.png');
|
|
lTuxAnimation.LoadImageFromPng(4, vTappyTuxConfig.GetResourcesDir() + 'images' + PathDelim + 'sprites' + PathDelim + 'tux_3.png');
|
|
lTuxAnimation.LoadImageFromPng(5, vTappyTuxConfig.GetResourcesDir() + 'images' + PathDelim + 'sprites' + PathDelim + 'tux_2.png');
|
|
vTappyTuxDrawer.AddAnimation(lTuxAnimation);
|
|
|
|
//Sound Creation
|
|
//backgroundMusic := TSoundDocument.Create;
|
|
//backgroundMusic.LoadFromFile(vTappyTuxConfig.GetResourcesDir() + 'images' + PathDelim + 'music' + PathDelim + 'tux_1.png');
|
|
//startupSound := TSoundDocument.Create;
|
|
//startupSound.LoadFromFile(vTappyTuxConfig.GetResourcesDir() + 'images' + PathDelim + 'sounds' + PathDelim + 'startup.wav');
|
|
|
|
for i:= 1 to 3 do
|
|
begin
|
|
CreateQuestion;
|
|
end;
|
|
|
|
startupSound.Play;
|
|
end;
|
|
|
|
procedure TTappyWords.CreateQuestion();
|
|
var
|
|
i: Integer;
|
|
j: Integer;
|
|
xAux: Integer;
|
|
yAux: Integer;
|
|
heightAux: array [0..4] of integer;
|
|
existenceAux: array [0..4] of boolean;
|
|
snowmanAnimation: TFallingText;
|
|
begin
|
|
for i:= 0 to 4 do
|
|
begin
|
|
existenceAux[i]:= False;
|
|
heightAux[i] := 500;
|
|
end;
|
|
|
|
xAux:=5;
|
|
yAux:=5;
|
|
|
|
snowmanAnimation := TFallingText.Create;
|
|
|
|
|
|
for i:= 0 to vTappyTuxDrawer.GetAnimationCount - 1 do
|
|
begin
|
|
if vTappyTuxDrawer.GetAnimation(i).InheritsFrom(TFallingText) then
|
|
begin
|
|
for j:= 0 to 4 do
|
|
begin
|
|
if vTappyTuxDrawer.GetAnimation(i).StartPoint.X = 5+(103*j) then
|
|
begin
|
|
existenceAux[j] := True;
|
|
if vTappyTuxDrawer.GetAnimation(i).Position.Y < heightAux[j] then heightAux[j] := vTappyTuxDrawer.GetAnimation(i).Position.Y;
|
|
end;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
for i:= 0 to 4 do
|
|
begin
|
|
if heightAux[i] > yAux then
|
|
begin
|
|
yAux := heightAux[i];
|
|
xAux := 5 + i*103;
|
|
end;
|
|
end;
|
|
|
|
|
|
if existenceAux[0] = false then xAux := 5
|
|
else
|
|
begin
|
|
if existenceAux[1] = false then xAux := 108
|
|
else
|
|
begin
|
|
if existenceAux[2] = false then xAux := 211
|
|
else
|
|
begin
|
|
if existenceAux[3] = false then xAux := 314
|
|
else
|
|
begin
|
|
if existenceAux[4] = false then xAux := 417
|
|
end;
|
|
end;
|
|
end;
|
|
end;
|
|
|
|
snowmanAnimation.StartPoint := Point(xAux, -100);
|
|
snowmanAnimation.EndPoint := Point(xAux, 270);
|
|
snowmanAnimation.IsInfinite := false;
|
|
snowmanAnimation.StepCount := GetFallingDurationFromLevel();
|
|
snowmanAnimation.LoadImageFromPng(vTappyTuxConfig.GetResourcesDir() + 'images' + PathDelim + 'sprites' + PathDelim + 'snowman.png');
|
|
snowmanAnimation.caption:= gameQuestionList[random(gameQuestionList.Count - 1)];
|
|
vTappyTuxDrawer.AddAnimation(snowmanAnimation);
|
|
end;
|
|
|
|
function TTappyWords.GetFallingDurationFromLevel: Integer;
|
|
begin
|
|
case gameLevel of
|
|
1: Result := 25000;
|
|
2: Result := 20000;
|
|
3: Result := 15000;
|
|
4: Result := 10000;
|
|
else
|
|
Result := 7000;
|
|
end;
|
|
end;
|
|
|
|
function TTappyWords.GetTextFileFromLanguageId(AID: Integer): string;
|
|
begin
|
|
case AID of
|
|
1: Result := 'wordlist.Portuguese';
|
|
2: Result := 'wordlist.French';
|
|
3: Result := 'wordlist.German';
|
|
4: Result := 'wordlist.Italian';
|
|
5: Result := 'wordlist.Afrikaans';
|
|
else
|
|
Result := 'wordlist.English';
|
|
end;
|
|
end;
|
|
|
|
procedure TTappyWords.Answered(AText: string);
|
|
var
|
|
i: Integer;
|
|
j: Integer;
|
|
lAnimation: TTappyTuxAnimation;
|
|
hammer: TTappySpriteAnimation;
|
|
begin
|
|
i:= 0;
|
|
j:= vTappyTuxDrawer.GetAnimationCount - 1;
|
|
while (i<= j) do
|
|
begin
|
|
lAnimation := vTappyTuxDrawer.GetAnimation(i);
|
|
if lAnimation is TFallingText then
|
|
begin
|
|
if TFallingText(lAnimation).Caption = AText then
|
|
begin
|
|
gameScore := gameScore +1;
|
|
gameLevel := (gameScore div 20) + gameSLevel;
|
|
UpdateScore(gameScore);
|
|
UpdateLevel(gameLevel);
|
|
|
|
lAnimation.Stopped := True;
|
|
|
|
hammer := TTappySpriteAnimation.Create;
|
|
hammer.IsInfinite := False;
|
|
hammer.StartPoint := Point(250, 328);
|
|
hammer.EndPoint := lAnimation.Position;
|
|
hammer.StepCount := 1000;
|
|
hammer.SpriteChangeInterval := 200;
|
|
SetLength(hammer.Images, 4);
|
|
hammer.LoadImageFromPng(0, vTappyTuxConfig.GetResourcesDir() + 'images' + PathDelim + 'sprites' + PathDelim + 'hammer_1.png');
|
|
hammer.LoadImageFromPng(1, vTappyTuxConfig.GetResourcesDir() + 'images' + PathDelim + 'sprites' + PathDelim + 'hammer_2.png');
|
|
hammer.LoadImageFromPng(2, vTappyTuxConfig.GetResourcesDir() + 'images' + PathDelim + 'sprites' + PathDelim + 'hammer_3.png');
|
|
hammer.LoadImageFromPng(3, vTappyTuxConfig.GetResourcesDir() + 'images' + PathDelim + 'sprites' + PathDelim + 'hammer_4.png');
|
|
hammer.UserData := lAnimation;
|
|
hammer.UserPosition := lAnimation.Position;
|
|
vTappyTuxDrawer.AddAnimation(hammer);
|
|
end;
|
|
end;
|
|
i := i + 1;
|
|
j := vTappyTuxDrawer.GetAnimationCount - 1;
|
|
end;
|
|
end;
|
|
|
|
procedure TTappyWords.EndGame;
|
|
var
|
|
i : Integer;
|
|
j : Integer;
|
|
gameOverScreen: TTappySpriteAnimation;
|
|
continueBtn: TButton;
|
|
exitBtn: TButton;
|
|
begin
|
|
timerWords.Enabled := False;
|
|
|
|
// Delete all animations
|
|
i:= 0;
|
|
j:= vTappyTuxDrawer.GetAnimationCount - 1;
|
|
while (i<= j) do
|
|
begin
|
|
vTappyTuxDrawer.RemoveAnimation(i);
|
|
j := vTappyTuxDrawer.GetAnimationCount - 1;
|
|
end;
|
|
|
|
GoToConfigForm();
|
|
end;
|
|
|
|
procedure TTappyWords.GameWon;
|
|
var
|
|
lRes: Integer;
|
|
begin
|
|
timerWords.Enabled := False;
|
|
|
|
// Now check what the user desires to do
|
|
lRes := Application.MessageBox(
|
|
'Congratulations, you have won the game =D Would you like to play again?', '', MB_YESNO);
|
|
if lRes = ID_YES then RestartGame()
|
|
else EndGame();
|
|
end;
|
|
|
|
procedure TTappyWords.GameLost;
|
|
var
|
|
lRes: Integer;
|
|
begin
|
|
timerWords.Enabled := False;
|
|
|
|
// Now check what the user desires to do
|
|
lRes := Application.MessageBox(
|
|
'Unfortunately you have lost =P Would you like to play again?', '', MB_YESNO);
|
|
if lRes = ID_YES then RestartGame()
|
|
else EndGame();
|
|
end;
|
|
|
|
procedure TTappyWords.ProcessFallingTextEnd;
|
|
begin
|
|
gameLives := gameLives - 1;
|
|
UpdateLives(gameLives);
|
|
if gameLives <= 0 then GameLost();
|
|
end;
|
|
|
|
procedure TTappyWords.ProcessSpriteEnd(AUserData: TObject; APosition: TPoint);
|
|
var
|
|
snowmanRight: TFallingText;
|
|
lIndex: Integer;
|
|
begin
|
|
snowmanRight := TFallingText.Create;
|
|
snowmanRight.IsInfinite := False;
|
|
snowmanRight.StartPoint := APosition;
|
|
snowmanRight.EndPoint := APosition;
|
|
snowmanRight.Position := APosition;
|
|
snowmanRight.StepCount := 2000;
|
|
snowmanRight.LoadImageFromPng(vTappyTuxConfig.GetResourcesDir() + 'images' + PathDelim + 'sprites' + PathDelim + 'snowmanright.png');
|
|
snowmanRight.caption:= 'OK!';
|
|
snowmanRight.ProcessOnEnd := False;
|
|
vTappyTuxDrawer.AddAnimation(snowmanRight);
|
|
lIndex := vTappyTuxDrawer.GetAnimationIndex(TTappyTuxAnimation(AUserData));
|
|
if lIndex >= 0 then vTappyTuxDrawer.RemoveAnimation(lIndex);
|
|
end;
|
|
|
|
initialization
|
|
AddModule(TTappyWords.Create);
|
|
end.
|
|
|