Update first aid animation
authorunc0rr
Wed, 18 Jun 2008 18:25:31 +0000
changeset 1009 b1f335aed35a
parent 1008 38bb05efd774
child 1010 583667e81d21
Update first aid animation
hedgewars/uGears.pas
share/hedgewars/Data/Graphics/FirstAid.png
--- a/hedgewars/uGears.pas	Wed Jun 18 18:12:45 2008 +0000
+++ b/hedgewars/uGears.pas	Wed Jun 18 18:25:31 2008 +0000
@@ -872,7 +872,11 @@
                        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);
-                         posCaseHealth: DrawSprite(sprFAid, hwRound(Gear^.X) - 24 + WorldDx, hwRound(Gear^.Y) - 24 + WorldDy, (GameTicks shr 6) mod 13);
+                         posCaseHealth: begin
+                                        i:= (GameTicks shr 6) mod 64;
+                                        if i > 12 then i:= 0;
+                                        DrawSprite(sprFAid, hwRound(Gear^.X) - 24 + WorldDx, hwRound(Gear^.Y) - 24 + WorldDy, i);
+                                        end;
                          end;
         gtDynamite: DrawSprite2(sprDynamite, hwRound(Gear^.X) - 16 + WorldDx, hwRound(Gear^.Y) - 25 + WorldDy, Gear^.Tag and 1, Gear^.Tag shr 1);
      gtClusterBomb: DrawRotated(sprClusterBomb, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, 0, Gear^.DirAngle);
Binary file share/hedgewars/Data/Graphics/FirstAid.png has changed