hedgewars/uGears.pas
changeset 3384 7eb4707d43f0
parent 3382 633046fa040c
child 3387 733f4001b8b9
--- a/hedgewars/uGears.pas	Fri Apr 30 23:39:32 2010 +0000
+++ b/hedgewars/uGears.pas	Sat May 01 05:15:16 2010 +0000
@@ -186,7 +186,8 @@
             @doStepPortal,
             @doStepPortalGun,
             @doStepPiano,
-            @doStepBomb
+            @doStepBomb,
+            @doStepSineGunShot
             );
 
 procedure InsertGearToList(Gear: PGear);
@@ -482,6 +483,10 @@
        gtPiano: begin
                 gear^.Radius:= 32
                 end;
+ gtSineGunShot: begin
+                gear^.Radius:= 5;
+                gear^.Health:= 6000;
+                end;
      end;
 InsertGearToList(gear);
 AddGear:= gear;
@@ -1280,6 +1285,7 @@
             amRope: DrawRotated(sprHandRope, hx, hy, hwSign(Gear^.dX), aangle);
             amShotgun: DrawRotated(sprHandShotgun, hx, hy, hwSign(Gear^.dX), aangle);
             amDEagle: DrawRotated(sprHandDEagle, hx, hy, hwSign(Gear^.dX), aangle);
+            amSineGun: DrawRotated(sprHandShotgun, hx, hy, hwSign(Gear^.dX), aangle);
             amSniperRifle: DrawRotatedF(sprSniperRifle, hx, hy, 0, hwSign(Gear^.dX), aangle);
             amBlowTorch: DrawRotated(sprHandBlowTorch, hx, hy, hwSign(Gear^.dX), aangle);
             amCake: DrawRotated(sprHandCake, hx, hy, hwSign(Gear^.dX), aangle);