You've already forked lazarus-ccr
e9b3d86b4a
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2093 8e941d3f-bd1b-0410-a28a-d453659cc2b4
68 lines
1.1 KiB
ObjectPascal
68 lines
1.1 KiB
ObjectPascal
unit mod_tappymath;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils,
|
|
// LCL
|
|
ExtCtrls,
|
|
// TappyTux
|
|
tappymodules;
|
|
|
|
type
|
|
|
|
{ TTappyMath }
|
|
|
|
TTappyMath = class(TTappyModule)
|
|
public
|
|
constructor Create; override;
|
|
procedure TranslateTextsToEnglish; override;
|
|
procedure TranslateTextsToPortuguese; override;
|
|
procedure StartNewGame(SndFX: Integer; Music: Integer; Level: Integer; QuestionList: Integer); override;
|
|
procedure Answered(); override;
|
|
procedure EndGame(); override;
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses tappydrawer {,tappygamedata};
|
|
|
|
{ TTappyWords }
|
|
|
|
constructor TTappyMath.Create;
|
|
begin
|
|
inherited Create;
|
|
end;
|
|
|
|
procedure TTappyMath.TranslateTextsToEnglish;
|
|
begin
|
|
ShortDescription := 'TappyMath - A game to learn arithmetics';
|
|
end;
|
|
|
|
procedure TTappyMath.TranslateTextsToPortuguese;
|
|
begin
|
|
ShortDescription := 'TappyMath - Um jogo para aprender aritmética';
|
|
end;
|
|
|
|
procedure TTappyMath.StartNewGame(SndFX: Integer; Music: Integer; Level: Integer; QuestionList: Integer);
|
|
begin
|
|
|
|
end;
|
|
|
|
procedure TTappyMath.Answered;
|
|
begin
|
|
|
|
end;
|
|
|
|
procedure TTappyMath.EndGame;
|
|
begin
|
|
|
|
end;
|
|
|
|
initialization
|
|
AddModule(TTappyMath.Create);
|
|
end.
|
|
|