lazarus-ccr/applications/tappytux/mod_tappymath.pas

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); 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);
begin

end;

procedure TTappyMath.Answered;
begin

end;

procedure TTappyMath.EndGame;
begin

end;

initialization
  AddModule(TTappyMath.Create);
end.