--- 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);