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.