5379901827
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1961 8e941d3f-bd1b-0410-a28a-d453659cc2b4
57 lines
877 B
ObjectPascal
57 lines
877 B
ObjectPascal
unit mod_tappymath;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils,
|
|
tappymodules;
|
|
|
|
type
|
|
|
|
{ TTappyMath }
|
|
|
|
TTappyMath = class(TTappyModule)
|
|
public
|
|
constructor Create; override;
|
|
procedure TranslateTextsToEnglish; override;
|
|
procedure TranslateTextsToPortuguese; override;
|
|
procedure StartNewGame(); override;
|
|
procedure EndGame(); override;
|
|
end;
|
|
|
|
implementation
|
|
|
|
{ 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;
|
|
begin
|
|
|
|
end;
|
|
|
|
procedure TTappyMath.EndGame;
|
|
begin
|
|
|
|
end;
|
|
|
|
initialization
|
|
AddModule(TTappyMath.Create);
|
|
end.
|
|
|