hedgewars/uGears.pas
changeset 1909 30fa1608b54f
parent 1906 644f93d8f148
child 1913 73d2da2df3c2
--- a/hedgewars/uGears.pas	Sun Mar 22 17:39:12 2009 +0000
+++ b/hedgewars/uGears.pas	Sun Mar 22 17:41:07 2009 +0000
@@ -715,7 +715,6 @@
 						DrawRotated(sprShotgun, hx, hy, hwSign(Gear^.dX), aangle)
 					else
 						DrawRotated(sprHandShotgun, hx, hy, hwSign(Gear^.dX), aangle);
-					HatVisible:= true
 				end;
 			gtDEagleShot: DrawRotated(sprDEagle, hx, hy, hwSign(Gear^.dX), aangle);
 			gtBallgun: DrawRotated(sprHandBallgun, hx, hy, hwSign(Gear^.dX), aangle);
@@ -881,6 +880,7 @@
 				DrawRotated(sprHandPlane, hx, hy, hwSign(Gear^.dX), 0);
 				defaultPos:= false
 				end;
+			amGirder: DrawSprite(sprGirder, sx-256, sy-256, 0);
 		end;
 
 		case amt of
@@ -1254,6 +1254,7 @@
                          posCaseUtility: begin
                                         i:= (GameTicks shr 6) mod 70;
                                         if i > 23 then i:= 0;
+                                        i:= i mod 12;
                                         DrawSprite(sprUtility, hwRound(Gear^.X) - 24 + WorldDx, hwRound(Gear^.Y) - 24 + WorldDy, i);
                                         end;
                          end;