hedgewars/uGears.pas
changeset 2457 ecf0c7e7995b
parent 2455 cc54dd148cc2
child 2460 ac0c497fb842
--- a/hedgewars/uGears.pas	Thu Oct 15 17:18:36 2009 +0000
+++ b/hedgewars/uGears.pas	Thu Oct 15 17:42:21 2009 +0000
@@ -167,7 +167,8 @@
 			@doStepBomb,
 			@doStepRCPlane,
 			@doStepSniperRifleShot,
-			@doStepJetpack
+			@doStepJetpack,
+			@doStepMolotov
 			);
 
 procedure InsertGearToList(Gear: PGear);
@@ -258,7 +259,7 @@
                 Result^.Angle:= cMaxAngle div 2;
                 Result^.Z:= cHHZ;
                 end;
-gtAmmo_Grenade: begin // bazooka
+gtAmmo_Grenade, gtMolotov: begin // bazooka
                 Result^.Radius:= 4;
                 end;
    gtHealthTag: begin
@@ -1061,6 +1062,7 @@
 		case amt of
 			amBazooka,
 			amMortar: DrawRotated(sprHandBazooka, hx, hy, hwSign(Gear^.dX), aangle);
+			amMolotov: DrawRotated(sprHandMolotov, hx, hy, hwSign(Gear^.dX), aangle);
 			amBallgun: DrawRotated(sprHandBallgun, hx, hy, hwSign(Gear^.dX), aangle);
 			amDrill: DrawRotated(sprHandDrill, hx, hy, hwSign(Gear^.dX), aangle);
 			amRope: DrawRotated(sprHandRope, hx, hy, hwSign(Gear^.dX), aangle);
@@ -1416,6 +1418,7 @@
 	begin
 	case Gear^.Kind of
        gtAmmo_Bomb: DrawRotated(sprBomb, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, 0, Gear^.DirAngle);
+	gtMolotov: DrawRotated(sprMolotov, hwRound(Gear^.X) + WorldDx, hwRound(Gear^.Y) + WorldDy, 0, Gear^.DirAngle);
 
        gtRCPlane: begin
                   if (Gear^.Tag = -1) then