hedgewars/HHHandlers.inc
changeset 2024 2985f3bd18b7
parent 2023 41d3afaa20c7
child 2040 7c366fc3c099
--- a/hedgewars/HHHandlers.inc	Sun May 03 17:35:10 2009 +0000
+++ b/hedgewars/HHHandlers.inc	Sun May 03 21:12:34 2009 +0000
@@ -348,7 +348,7 @@
          or   TestCollisionYwithGear(Gear, -1)) then
          begin
          Gear^.dY:= -_0_15;
-         Gear^.dX:= SignAs(_0_15, Gear^.dX);
+         if not cArtillery then Gear^.dX:= SignAs(_0_15, Gear^.dX);
          Gear^.State:= Gear^.State or gstMoving or gstHHJumping;
          PlaySound(sndJump1, false, PHedgehog(Gear^.Hedgehog)^.Team^.voicepack);
          exit
@@ -632,7 +632,7 @@
 	
 	Gear^.Message:= Gear^.Message and not (gm_LJump or gm_HJump);
 
-	if wasJumping and
+	if (not cArtillery) and wasJumping and
 		TestCollisionXwithGear(Gear, hwSign(Gear^.dX)) then SetLittle(Gear^.dX);
 
 	doStepHedgehogMoving(Gear);