pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

tappy tux: File renaming and adds basic code for modules

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1932 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2011-09-10 21:30:22 +00:00
parent e9067503ae
commit f743387f69
7 changed files with 301 additions and 145 deletions
Download Patch File Download Diff File Expand all files Collapse all files

19
applications/tappytux/mod_tappywords.pas Normal file
View File

@@ -0,0 +1,19 @@
unit mod_tappywords;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils,
tappymodules;
type
TTappyWords = class(TTappyModule)
public
end;
implementation
end.

4
applications/tappytux/tappytuxconfig.pas → applications/tappytux/tappyconfig.pas
View File

@@ -1,11 +1,11 @@
unit tappytuxconfig; unit tappyconfig;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
interface interface
uses uses
Classes, SysUtils, Forms; Classes, SysUtils, Forms, Graphics;
type type

53
applications/tappytux/tappytuxdrawer.pas → applications/tappytux/tappydrawer.pas
View File

@@ -1,4 +1,4 @@
unit tappytuxdrawer; unit tappydrawer;
{$mode objfpc}{$H+} {$mode objfpc}{$H+}
@@ -7,7 +7,7 @@ interface
uses uses
Classes, SysUtils, Controls, Graphics, LCLType, IntfGraphics, fpimage, Classes, SysUtils, Controls, Graphics, LCLType, IntfGraphics, fpimage,
Math, Math,
tappytuxgamedata, tappytuxconfig; tappygamedata, tappyconfig, tappymodules;
type type
@@ -41,8 +41,7 @@ type
procedure DrawImageWithTransparentColor( procedure DrawImageWithTransparentColor(
ADest: TLazIntfImage; const ADestX, ADestY: Integer; AColor: TFPColor; ADest: TLazIntfImage; const ADestX, ADestY: Integer; AColor: TFPColor;
AImage: TFPImageBitmap); AImage: TFPImageBitmap);
function GetChessTileImage(ATile: TChessTile): TPortableNetworkGraphic; //function GetImage(ATile: TChessTile): TPortableNetworkGraphic;
procedure LoadImages();
procedure HandleMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); procedure HandleMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure HandleMouseUp(Sender: TObject; Button: TMouseButton; procedure HandleMouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer); Shift: TShiftState; X, Y: Integer);
@@ -65,7 +64,7 @@ var
X, Y, SourceX, SourceY, DestX, DestY: integer; X, Y, SourceX, SourceY, DestX, DestY: integer;
dx, dy: Integer; dx, dy: Integer;
t: Double; t: Double;
lTile: TChessTile; //lTile: TChessTile;
begin begin
{ // Draw the moving tile { // Draw the moving tile
//WriteLn(Format('[TChessMoveAnimation.DrawToIntfImg] Afrom=%d,%d', [AFrom.X, AFrom.Y])); //WriteLn(Format('[TChessMoveAnimation.DrawToIntfImg] Afrom=%d,%d', [AFrom.X, AFrom.Y]));
@@ -86,7 +85,7 @@ end;
procedure TFireAnimation.ExecuteFinal; procedure TFireAnimation.ExecuteFinal;
begin begin
vChessGame.MovePiece(AFrom, ATo); //vChessGame.MovePiece(AFrom, ATo);
end; end;
{ TTappyTuxAnimation } { TTappyTuxAnimation }
@@ -155,16 +154,19 @@ var
col, row: integer; col, row: integer;
lIntfImage: TLazIntfImage; lIntfImage: TLazIntfImage;
lTmpBmp: TBitmap; lTmpBmp: TBitmap;
lTileBmp: TPortableNetworkGraphic;
X, Y: integer; X, Y: integer;
begin begin
lIntfImage := TLazIntfImage.Create(0, 0); lIntfImage := TLazIntfImage.Create(0, 0);
lTmpBmp := TBitmap.Create; lTmpBmp := TBitmap.Create;
try try
// First draw the board // First draw the background
lIntfImage.LoadFromBitmap(imgBoard.Handle, 0{bmpBoard.MaskHandle}); lIntfImage.LoadFromBitmap(GetCurrentModule().imgBackground.Handle, 0{bmpBoard.MaskHandle});
// Now all pieces // Now the module should draw itself
// Draw all animations
{ // Now all pieces
for col := 1 to 8 do for col := 1 to 8 do
for row := 1 to 8 do for row := 1 to 8 do
begin begin
@@ -181,7 +183,7 @@ begin
end; end;
// Now animations // Now animations
if Assigned(FAnimation) then FAnimation.DrawToIntfImg(lIntfImage); if Assigned(FAnimation) then FAnimation.DrawToIntfImg(lIntfImage);}
lTmpBmp.LoadFromIntfImage(lIntfImage); lTmpBmp.LoadFromIntfImage(lIntfImage);
ACanvas.Draw(0, 0, lTmpBmp); ACanvas.Draw(0, 0, lTmpBmp);
@@ -229,9 +231,9 @@ begin
end; end;
end; end;
function TTappyTuxDrawer.GetChessTileImage(ATile: TChessTile): TPortableNetworkGraphic; {function TTappyTuxDrawer.GetChessTileImage(ATile: TChessTile): TPortableNetworkGraphic;
begin begin
{ case ATile of case ATile of
ctWPawn: Result := imgWPawn; ctWPawn: Result := imgWPawn;
ctWKnight: Result := imgWKnight; ctWKnight: Result := imgWKnight;
ctWBishop: Result := imgWBishop; ctWBishop: Result := imgWBishop;
@@ -246,29 +248,8 @@ begin
ctBKing: Result := imgBKing; ctBKing: Result := imgBKing;
else else
Result := nil; Result := nil;
end;
end;} end;}
end;
procedure TTappyTuxDrawer.LoadImages();
var
lDir: string;
begin
lDir := vChessConfig.GetCurrentSkinDir();
{ imgBoard.LoadFromFile(lDir + 'base.png');
imgWPawn.LoadFromFile(lDir + 'wpawn.png');
imgWKnight.LoadFromFile(lDir + 'wknight.png');
imgWBishop.LoadFromFile(lDir + 'wbishop.png');
imgWRook.LoadFromFile(lDir + 'wrook.png');
imgWQueen.LoadFromFile(lDir + 'wqueen.png');
imgWKing.LoadFromFile(lDir + 'wking.png');
imgBPawn.LoadFromFile(lDir + 'bpawn.png');
imgBKnight.LoadFromFile(lDir + 'bknight.png');
imgBBishop.LoadFromFile(lDir + 'bbishop.png');
imgBRook.LoadFromFile(lDir + 'brook.png');
imgBQueen.LoadFromFile(lDir + 'bqueen.png');
imgBKing.LoadFromFile(lDir + 'bking.png');}
end;
procedure TTappyTuxDrawer.HandleMouseMove(Sender: TObject; Shift: TShiftState; X, procedure TTappyTuxDrawer.HandleMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer); Y: Integer);
@@ -307,7 +288,7 @@ begin
end;} end;}
end; end;
procedure TTappyTuxDrawer.AddAnimation(AAnimation: TChessAnimation); procedure TTappyTuxDrawer.AddAnimation(AAnimation: TTappyTuxAnimation);
begin begin
{ FDrawerState := dsRunningAnimation; { FDrawerState := dsRunningAnimation;
FAnimation := AAnimation;} FAnimation := AAnimation;}

39
applications/tappytux/tappytuxgamedata.pas → applications/tappytux/tappygamedata.pas
View File

@@ -1,12 +1,16 @@
unit GameData; unit tappygamedata;
{$mode objfpc}{$H} {$mode objfpc}{$H}
interface interface
uses uses
Classes, Forms, SysUtils, process, SynRegExpr, Classes, Forms, SysUtils, process;
LCLPRoc, tappywords, util, tappytuxconfig; // SynRegExpr,
// LCLProc,
// tappywords,
// util,
// tappyconfig;
Type Type
TTappyGameData = object TTappyGameData = object
@@ -22,19 +26,19 @@ Type
Lives : Integer; Lives : Integer;
SongList : TStringList; SongList : TStringList;
QuestionList :TStringList; QuestionList :TStringList;
Procedure Create; BGS : TStringList;
BG : Integer;
(* Procedure Create;
Function GetQuestion:String; Function GetQuestion:String;
Function CheckAnswer(Question,Answer:String):Integer; Function CheckAnswer(Question,Answer:String):Integer;
Procedure ScoreUp(ScorInc:Integer); Procedure ScoreUp(ScorInc:Integer);
Procedure LevelUp; Procedure LevelUp;
Procedure LoseLife; Procedure LoseLife;
Function NextSong: String; Function NextSong: String;
BGS : TStringList; Function NextBG:String;*)
BG : Integer;
Function NextBG:String;
end; end;
Type HammerQue = Object (* HammerQue = Object
Target : Array [1..10] of Integer; Target : Array [1..10] of Integer;
Function addTarget(newTarget : Integer):Boolean; Function addTarget(newTarget : Integer):Boolean;
Procedure delTarget; Procedure delTarget;
@@ -58,18 +62,17 @@ Type HammerQue = Object
Constructor Create(isSuspended : boolean); Constructor Create(isSuspended : boolean);
published published
property terminated; property terminated;
end; end;*)
Var var
ThisGame: TTappyGameData; gGameData: TTappyGameData;
//Question : TQuestion;
Question : TQuestion; //Scale : Integer;
Scale : Integer; //TPTDIR: string;
TPTDIR: string;
implementation implementation
constructor TQuestion.Create(isSuspended : boolean); (*constructor TQuestion.Create(isSuspended : boolean);
begin begin
S := TSTringlist.Create; S := TSTringlist.Create;
FreeOnTerminate := True; FreeOnTerminate := True;
@@ -241,8 +244,6 @@ Begin
end; end;
Function HammerQue.addTarget(newTarget : Integer):Boolean; Function HammerQue.addTarget(newTarget : Integer):Boolean;
Var I : Integer; Var I : Integer;
New : Boolean; New : Boolean;
@@ -270,6 +271,6 @@ Begin
Target[X] := Target[X 1]; Target[X] := Target[X 1];
Dec(Count); Dec(Count);
end; end;*)
end. end.

99
applications/tappytux/tappymodules.pas Normal file
View File

@@ -0,0 +1,99 @@
unit tappymodules;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, Graphics;
type
{ TTappyModule }
TTappyModule = class
public
imgBackground: TPortableNetworkGraphic;
constructor Create; virtual;
destructor Destroy; override;
procedure LoadImages; virtual;
end;
procedure AddModule(AModule: TTappyModule);
function GetCurrentModule: TTappyModule;
function GetModule(AIndex: Integer): TTappyModule;
function GetModuleCount: Integer;
procedure SetCurrentModule(AIndex: Integer);
implementation
var
gTappyModules: TFPList;
gCurrentTappyModule: Integer = -1;
procedure AddModule(AModule: TTappyModule);
begin
gTappyModules.Add(Pointer(AModule));
end;
function GetCurrentModule: TTappyModule;
begin
Result := GetModule(gCurrentTappyModule);
end;
function GetModule(AIndex: Integer): TTappyModule;
begin
Result := TTappyModule(gTappyModules.Items[AIndex]);
end;
function GetModuleCount: Integer;
begin
Result := gTappyModules.Count;
end;
procedure SetCurrentModule(AIndex: Integer);
begin
gCurrentTappyModule := AIndex;
end;
{ TTappyModule }
constructor TTappyModule.Create;
begin
inherited Create;
end;
destructor TTappyModule.Destroy;
begin
inherited Destroy;
end;
procedure TTappyModule.LoadImages;
begin
{ var
lDir: string;
begin
lDir := vChessConfig.GetCurrentSkinDir();}
{ imgBoard.LoadFromFile(lDir + 'base.png');
imgWPawn.LoadFromFile(lDir + 'wpawn.png');
imgWKnight.LoadFromFile(lDir + 'wknight.png');
imgWBishop.LoadFromFile(lDir + 'wbishop.png');
imgWRook.LoadFromFile(lDir + 'wrook.png');
imgWQueen.LoadFromFile(lDir + 'wqueen.png');
imgWKing.LoadFromFile(lDir + 'wking.png');
imgBPawn.LoadFromFile(lDir + 'bpawn.png');
imgBKnight.LoadFromFile(lDir + 'bknight.png');
imgBBishop.LoadFromFile(lDir + 'bbishop.png');
imgBRook.LoadFromFile(lDir + 'brook.png');
imgBQueen.LoadFromFile(lDir + 'bqueen.png');
imgBKing.LoadFromFile(lDir + 'bking.png');}
end;
initialization
gTappyModules := TFPList.Create;
finalization
gTappyModules.Free;
end.

187
applications/tappytux/tappytux.lpi
View File

@@ -34,12 +34,12 @@
<PackageName Value="LCL"/> <PackageName Value="LCL"/>
</Item1> </Item1>
</RequiredPackages> </RequiredPackages>
<Units Count="3"> <Units Count="8">
<Unit0> <Unit0>
<Filename Value="tappytux.lpr"/> <Filename Value="tappytux.lpr"/>
<IsPartOfProject Value="True"/> <IsPartOfProject Value="True"/>
<UnitName Value="tappytux"/> <UnitName Value="tappytux"/>
<UsageCount Value="26"/> <UsageCount Value="27"/>
</Unit0> </Unit0>
<Unit1> <Unit1>
<Filename Value="gameconfigform.pas"/> <Filename Value="gameconfigform.pas"/>
@@ -47,13 +47,12 @@
<ComponentName Value="Form1"/> <ComponentName Value="Form1"/>
<ResourceBaseClass Value="Form"/> <ResourceBaseClass Value="Form"/>
<UnitName Value="gameconfigform"/> <UnitName Value="gameconfigform"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="0"/> <EditorIndex Value="0"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="44"/> <TopLine Value="1"/>
<CursorPos X="62" Y="64"/> <CursorPos X="1" Y="1"/>
<FoldState Value=" T7EBM T8W211X"/> <FoldState Value=" T8W211?"/>
<UsageCount Value="26"/> <UsageCount Value="27"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
</Unit1> </Unit1>
@@ -65,133 +64,189 @@
<UnitName Value="gameplayform"/> <UnitName Value="gameplayform"/>
<EditorIndex Value="1"/> <EditorIndex Value="1"/>
<WindowIndex Value="0"/> <WindowIndex Value="0"/>
<TopLine Value="3"/> <TopLine Value="1"/>
<CursorPos X="26" Y="26"/> <CursorPos X="1" Y="19"/>
<UsageCount Value="26"/> <UsageCount Value="27"/>
<Loaded Value="True"/> <Loaded Value="True"/>
<LoadedDesigner Value="True"/> <LoadedDesigner Value="True"/>
</Unit2> </Unit2>
<Unit3>
<Filename Value="tappyconfig.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="tappyconfig"/>
<EditorIndex Value="3"/>
<WindowIndex Value="0"/>
<TopLine Value="3"/>
<CursorPos X="1" Y="16"/>
<UsageCount Value="21"/>
<Loaded Value="True"/>
</Unit3>
<Unit4>
<Filename Value="tappydrawer.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="tappydrawer"/>
<IsVisibleTab Value="True"/>
<EditorIndex Value="4"/>
<WindowIndex Value="0"/>
<TopLine Value="272"/>
<CursorPos X="70" Y="291"/>
<UsageCount Value="21"/>
<Loaded Value="True"/>
</Unit4>
<Unit5>
<Filename Value="tappygamedata.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="tappygamedata"/>
<EditorIndex Value="2"/>
<WindowIndex Value="0"/>
<TopLine Value="14"/>
<CursorPos X="5" Y="21"/>
<UsageCount Value="21"/>
<Loaded Value="True"/>
</Unit5>
<Unit6>
<Filename Value="mod_tappywords.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="mod_tappywords"/>
<EditorIndex Value="5"/>
<WindowIndex Value="0"/>
<TopLine Value="1"/>
<CursorPos X="15" Y="9"/>
<UsageCount Value="21"/>
<Loaded Value="True"/>
</Unit6>
<Unit7>
<Filename Value="tappymodules.pas"/>
<IsPartOfProject Value="True"/>
<UnitName Value="tappymodules"/>
<EditorIndex Value="6"/>
<WindowIndex Value="0"/>
<TopLine Value="68"/>
<CursorPos X="47" Y="76"/>
<UsageCount Value="21"/>
<Loaded Value="True"/>
</Unit7>
</Units> </Units>
<JumpHistory Count="30" HistoryIndex="29"> <JumpHistory Count="30" HistoryIndex="29">
<Position1> <Position1>
<Filename Value="gameconfigform.pas"/> <Filename Value="gameconfigform.pas"/>
<Caret Line="45" Column="36" TopLine="31"/> <Caret Line="12" Column="40" TopLine="2"/>
</Position1> </Position1>
<Position2> <Position2>
<Filename Value="gameconfigform.pas"/> <Filename Value="gameconfigform.pas"/>
<Caret Line="51" Column="55" TopLine="35"/> <Caret Line="63" Column="62" TopLine="43"/>
</Position2> </Position2>
<Position3> <Position3>
<Filename Value="gameconfigform.pas"/> <Filename Value="gameconfigform.pas"/>
<Caret Line="49" Column="56" TopLine="35"/> <Caret Line="65" Column="62" TopLine="45"/>
</Position3> </Position3>
<Position4> <Position4>
<Filename Value="gameconfigform.pas"/> <Filename Value="gameconfigform.pas"/>
<Caret Line="57" Column="1" TopLine="35"/> <Caret Line="64" Column="62" TopLine="44"/>
</Position4> </Position4>
<Position5> <Position5>
<Filename Value="gameconfigform.pas"/> <Filename Value="tappygamedata.pas"/>
<Caret Line="49" Column="56" TopLine="35"/> <Caret Line="11" Column="1" TopLine="1"/>
</Position5> </Position5>
<Position6> <Position6>
<Filename Value="gameconfigform.pas"/> <Filename Value="tappygamedata.pas"/>
<Caret Line="47" Column="19" TopLine="35"/> <Caret Line="276" Column="1" TopLine="251"/>
</Position6> </Position6>
<Position7> <Position7>
<Filename Value="gameconfigform.pas"/> <Filename Value="tappydrawer.pas"/>
<Caret Line="51" Column="55" TopLine="35"/> <Caret Line="1" Column="1" TopLine="1"/>
</Position7> </Position7>
<Position8> <Position8>
<Filename Value="gameconfigform.pas"/> <Filename Value="tappydrawer.pas"/>
<Caret Line="53" Column="55" TopLine="37"/> <Caret Line="44" Column="7" TopLine="32"/>
</Position8> </Position8>
<Position9> <Position9>
<Filename Value="gameconfigform.pas"/> <Filename Value="tappydrawer.pas"/>
<Caret Line="50" Column="59" TopLine="37"/> <Caret Line="68" Column="5" TopLine="55"/>
</Position9> </Position9>
<Position10> <Position10>
<Filename Value="gameconfigform.pas"/> <Filename Value="tappydrawer.pas"/>
<Caret Line="55" Column="1" TopLine="37"/> <Caret Line="89" Column="5" TopLine="76"/>
</Position10> </Position10>
<Position11> <Position11>
<Filename Value="gameconfigform.pas"/> <Filename Value="tappydrawer.pas"/>
<Caret Line="54" Column="92" TopLine="37"/> <Caret Line="54" Column="15" TopLine="40"/>
</Position11> </Position11>
<Position12> <Position12>
<Filename Value="gameconfigform.pas"/> <Filename Value="tappydrawer.pas"/>
<Caret Line="50" Column="59" TopLine="37"/> <Caret Line="40" Column="15" TopLine="27"/>
</Position12> </Position12>
<Position13> <Position13>
<Filename Value="gameconfigform.pas"/> <Filename Value="tappymodules.pas"/>
<Caret Line="53" Column="21" TopLine="37"/> <Caret Line="15" Column="45" TopLine="1"/>
</Position13> </Position13>
<Position14> <Position14>
<Filename Value="gameconfigform.pas"/> <Filename Value="tappyconfig.pas"/>
<Caret Line="50" Column="29" TopLine="37"/> <Caret Line="8" Column="37" TopLine="1"/>
</Position14> </Position14>
<Position15> <Position15>
<Filename Value="gameconfigform.pas"/> <Filename Value="tappydrawer.pas"/>
<Caret Line="56" Column="92" TopLine="37"/> <Caret Line="33" Column="3" TopLine="27"/>
</Position15> </Position15>
<Position16> <Position16>
<Filename Value="gameconfigform.pas"/> <Filename Value="tappymodules.pas"/>
<Caret Line="50" Column="29" TopLine="37"/> <Caret Line="17" Column="11" TopLine="5"/>
</Position16> </Position16>
<Position17> <Position17>
<Filename Value="gameconfigform.pas"/> <Filename Value="tappymodules.pas"/>
<Caret Line="55" Column="55" TopLine="37"/> <Caret Line="18" Column="36" TopLine="14"/>
</Position17> </Position17>
<Position18> <Position18>
<Filename Value="gameconfigform.pas"/> <Filename Value="tappymodules.pas"/>
<Caret Line="50" Column="31" TopLine="37"/> <Caret Line="19" Column="34" TopLine="5"/>
</Position18> </Position18>
<Position19> <Position19>
<Filename Value="gameconfigform.pas"/> <Filename Value="tappymodules.pas"/>
<Caret Line="53" Column="33" TopLine="37"/> <Caret Line="20" Column="41" TopLine="6"/>
</Position19> </Position19>
<Position20> <Position20>
<Filename Value="gameconfigform.pas"/> <Filename Value="tappydrawer.pas"/>
<Caret Line="55" Column="41" TopLine="37"/> <Caret Line="165" Column="46" TopLine="152"/>
</Position20> </Position20>
<Position21> <Position21>
<Filename Value="gameconfigform.pas"/> <Filename Value="tappymodules.pas"/>
<Caret Line="56" Column="6" TopLine="38"/> <Caret Line="50" Column="33" TopLine="33"/>
</Position21> </Position21>
<Position22> <Position22>
<Filename Value="gameconfigform.pas"/> <Filename Value="tappymodules.pas"/>
<Caret Line="40" Column="41" TopLine="37"/> <Caret Line="8" Column="30" TopLine="1"/>
</Position22> </Position22>
<Position23> <Position23>
<Filename Value="gameconfigform.pas"/> <Filename Value="tappymodules.pas"/>
<Caret Line="23" Column="15" TopLine="1"/> <Caret Line="38" Column="50" TopLine="16"/>
</Position23> </Position23>
<Position24> <Position24>
<Filename Value="gameconfigform.pas"/> <Filename Value="tappydrawer.pas"/>
<Caret Line="17" Column="19" TopLine="12"/> <Caret Line="10" Column="43" TopLine="1"/>
</Position24> </Position24>
<Position25> <Position25>
<Filename Value="gameconfigform.pas"/> <Filename Value="tappydrawer.pas"/>
<Caret Line="33" Column="24" TopLine="24"/> <Caret Line="187" Column="5" TopLine="172"/>
</Position25> </Position25>
<Position26> <Position26>
<Filename Value="gameconfigform.pas"/> <Filename Value="tappymodules.pas"/>
<Caret Line="5" Column="32" TopLine="2"/> <Caret Line="17" Column="31" TopLine="1"/>
</Position26> </Position26>
<Position27> <Position27>
<Filename Value="gameconfigform.pas"/> <Filename Value="tappymodules.pas"/>
<Caret Line="12" Column="40" TopLine="2"/> <Caret Line="19" Column="35" TopLine="4"/>
</Position27> </Position27>
<Position28> <Position28>
<Filename Value="gameconfigform.pas"/> <Filename Value="tappydrawer.pas"/>
<Caret Line="63" Column="62" TopLine="43"/> <Caret Line="45" Column="1" TopLine="34"/>
</Position28> </Position28>
<Position29> <Position29>
<Filename Value="gameconfigform.pas"/> <Filename Value="tappydrawer.pas"/>
<Caret Line="65" Column="62" TopLine="45"/> <Caret Line="291" Column="1" TopLine="272"/>
</Position29> </Position29>
<Position30> <Position30>
<Filename Value="gameconfigform.pas"/> <Filename Value="tappydrawer.pas"/>
<Caret Line="64" Column="62" TopLine="44"/> <Caret Line="51" Column="57" TopLine="51"/>
</Position30> </Position30>
</JumpHistory> </JumpHistory>
</ProjectOptions> </ProjectOptions>

3
applications/tappytux/tappytux.lpr
View File

@@ -7,7 +7,8 @@ uses
cthreads, cthreads,
{$ENDIF}{$ENDIF} {$ENDIF}{$ENDIF}
Interfaces, // this includes the LCL widgetset Interfaces, // this includes the LCL widgetset
Forms, gameconfigform, gameplayform Forms, gameconfigform, gameplayform, tappyconfig, tappydrawer,
tappygamedata, mod_tappywords, tappymodules
{ you can add units after this }; { you can add units after this };
{$R *.res} {$R *.res}