Mercurial Mercurial > hedgewars / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
New bonus box sprite
authorunc0rr
Sat, 14 Feb 2009 16:51:10 +0000
changeset 1794 8ae48e3b02d9
parent 1793 3e8caf5fee58
child 1795 2457fcc0dcd9
New bonus box sprite
hedgewars/uConsts.pas file | annotate | diff | comparison | revisions
hedgewars/uGears.pas file | annotate | diff | comparison | revisions
share/hedgewars/Data/Graphics/Case.png file | annotate | diff | comparison | revisions 
--- a/hedgewars/uConsts.pas	Sat Feb 14 16:44:50 2009 +0000
+++ b/hedgewars/uConsts.pas	Sat Feb 14 16:51:10 2009 +0000
@@ -329,7 +329,7 @@
 			(FileName:     'MineOn'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
 			Width:   8; Height:  8; saveSurf: false),// sprMineOn
 			(FileName:       'Case'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
-			Width:  32; Height: 32; saveSurf: false),// sprCase
+			Width:  48; Height: 48; saveSurf: false),// sprCase
 			(FileName:   'FirstAid'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
 			Width:  48; Height: 48; saveSurf: false),// sprFAid
 			(FileName:   'dynamite'; Path: ptGraphics; AltPath: ptNone; Texture: nil; Surface: nil;
--- a/hedgewars/uGears.pas	Sat Feb 14 16:44:50 2009 +0000
+++ b/hedgewars/uGears.pas	Sat Feb 14 16:51:10 2009 +0000
@@ -1126,7 +1126,11 @@
                        then DrawRotated(sprMineOff, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, 0, Gear^.DirAngle)
                        else DrawRotated(sprMineOn, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, 0, Gear^.DirAngle);
             gtCase: case Gear^.Pos of
-                         posCaseAmmo  : DrawSprite(sprCase, hwRound(Gear^.X) - 16 + WorldDx, hwRound(Gear^.Y) - 16 + WorldDy, 0);
+                         posCaseAmmo  : begin
+                                        i:= (GameTicks shr 6) mod 64;
+                                        if i > 18 then i:= 0;
+                                        DrawSprite(sprCase, hwRound(Gear^.X) - 24 + WorldDx, hwRound(Gear^.Y) - 24 + WorldDy, i);
+                                        end;
                          posCaseHealth: begin
                                         i:= (GameTicks shr 6) mod 64;
                                         if i > 12 then i:= 0;
Binary file share/hedgewars/Data/Graphics/Case.png has changed
hedgewars