Stagger gear animations
authornemo
Sat, 06 Mar 2010 01:26:12 +0000
changeset 2946 1d9e0a541c62
parent 2945 b30e6350a221
child 2947 803b277e4894
Stagger gear animations
hedgewars/uGears.pas
--- a/hedgewars/uGears.pas	Sat Mar 06 01:21:44 2010 +0000
+++ b/hedgewars/uGears.pas	Sat Mar 06 01:26:12 2010 +0000
@@ -1590,7 +1590,7 @@
                                         end;
                          end;
       gtExplosives: begin
-                    i:= (GameTicks shr 6) mod 64;
+                    i:= (GameTicks shr 6 + Gear^.uid) mod 64;
                     if i > 18 then i:= 0;
                     if Gear^.State and gstAnimation = 0 then
                         DrawSprite(sprExplosives, hwRound(Gear^.X) - 24 + WorldDx, hwRound(Gear^.Y) - 24 + WorldDy, i)