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

tappytux: Implements the hammer throwing

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2155 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2011-11-17 14:28:03 +00:00
parent d5be64af68
commit e295603a2f
6 changed files with 107 additions and 40 deletions
Download Patch File Download Diff File Expand all files Collapse all files

51
applications/tappytux/mod_tappymath.pas
View File

@@ -42,6 +42,7 @@ type
procedure GameWon(); override;
procedure GameLost(); override;
procedure ProcessFallingTextEnd(); override;
procedure ProcessSpriteEnd(AUserData: TObject; APosition: TPoint); override;
end;
implementation
@@ -260,8 +261,8 @@ procedure TTappyMath.Answered(AText: string);
var
i: Integer;
j: Integer;
snowmanRight: TFallingText;
lAnimation: TTappyTuxAnimation;
hammer: TTappySpriteAnimation;
begin
i:= 0;
j:= vTappyTuxDrawer.GetAnimationCount - 1;
@@ -276,18 +277,23 @@ begin
gameLevel := (gameScore div 20) + gameSLevel;
UpdateScore(gameScore);
UpdateLevel(gameLevel);
snowmanRight := TFallingText.Create;
snowmanRight.IsInfinite := False;
snowmanRight.StartPoint := vTappyTuxDrawer.GetAnimation(i).Position;
snowmanRight.EndPoint := vTappyTuxDrawer.GetAnimation(i).Position;
snowmanRight.Position := vTappyTuxDrawer.GetAnimation(i).Position;
snowmanRight.StepCount := 2000;
snowmanRight.LoadImageFromPng(vTappyTuxConfig.GetResourcesDir() + 'images' + PathDelim + 'sprites' + PathDelim + 'snowmanright.png');
snowmanRight.caption:= 'OK!';
snowmanRight.ProcessOnEnd := False;
vTappyTuxDrawer.AddAnimation(snowmanRight);
vTappyTuxDrawer.RemoveAnimation(i);
i := i - 1;
lAnimation.Stopped := True;
hammer := TTappySpriteAnimation.Create;
hammer.IsInfinite := False;
hammer.StartPoint := Point(250, 328);
hammer.EndPoint := lAnimation.Position;
hammer.StepCount := 1000;
hammer.SpriteChangeInterval := 200;
SetLength(hammer.Images, 4);
hammer.LoadImageFromPng(0, vTappyTuxConfig.GetResourcesDir() + 'images' + PathDelim + 'sprites' + PathDelim + 'hammer_1.png');
hammer.LoadImageFromPng(1, vTappyTuxConfig.GetResourcesDir() + 'images' + PathDelim + 'sprites' + PathDelim + 'hammer_2.png');
hammer.LoadImageFromPng(2, vTappyTuxConfig.GetResourcesDir() + 'images' + PathDelim + 'sprites' + PathDelim + 'hammer_3.png');
hammer.LoadImageFromPng(3, vTappyTuxConfig.GetResourcesDir() + 'images' + PathDelim + 'sprites' + PathDelim + 'hammer_4.png');
hammer.UserData := lAnimation;
hammer.UserPosition := lAnimation.Position;
vTappyTuxDrawer.AddAnimation(hammer);
end;
end;
i := i + 1;
@@ -349,6 +355,25 @@ begin
if gameLives <= 0 then GameLost();
end;
procedure TTappyMath.ProcessSpriteEnd(AUserData: TObject; APosition: TPoint);
var
snowmanRight: TFallingText;
lIndex: Integer;
begin
snowmanRight := TFallingText.Create;
snowmanRight.IsInfinite := False;
snowmanRight.StartPoint := APosition;
snowmanRight.EndPoint := APosition;
snowmanRight.Position := APosition;
snowmanRight.StepCount := 2000;
snowmanRight.LoadImageFromPng(vTappyTuxConfig.GetResourcesDir() + 'images' + PathDelim + 'sprites' + PathDelim + 'snowmanright.png');
snowmanRight.caption:= 'OK!';
snowmanRight.ProcessOnEnd := False;
vTappyTuxDrawer.AddAnimation(snowmanRight);
lIndex := vTappyTuxDrawer.GetAnimationIndex(TTappyTuxAnimation(AUserData));
if lIndex >= 0 then vTappyTuxDrawer.RemoveAnimation(lIndex);
end;
initialization
AddModule(TTappyMath.Create);
end.