hedgewars/HHHandlers.inc
changeset 6331 27b82275dc34
parent 6304 3036c242b19d
child 6333 350490edcd11
equal deleted inserted replaced
6329:9eb6c4a8d633 6331:27b82275dc34
  1129             doStepHedgehogDriven(Gear)
  1129             doStepHedgehogDriven(Gear)
  1130     end;
  1130     end;
  1131 if (Gear^.Message and (gmAllStoppable or gmLJump or gmHJump) = 0) and
  1131 if (Gear^.Message and (gmAllStoppable or gmLJump or gmHJump) = 0) and
  1132    (Gear^.State and (gstHHJumping or gstHHHJump or gstAttacking) = 0) and
  1132    (Gear^.State and (gstHHJumping or gstHHHJump or gstAttacking) = 0) and
  1133    not Gear^.dY.isNegative and
  1133    not Gear^.dY.isNegative and
  1134    (GameTicks mod (100*hwRound(cMaxWindSpeed/(cGravity/2))) = 0) and 
  1134    (GameTicks mod (100*hwRound(cMaxWindSpeed*2/cGravity)) = 0) and 
  1135    (TestCollisionYwithGear(Gear, 1) and lfIce <> 0) then
  1135    (TestCollisionYwithGear(Gear, 1) and lfIce <> 0) then
  1136     begin
  1136     begin
  1137     slope:= CalcSlopeBelowGear(Gear);
  1137     slope:= CalcSlopeBelowGear(Gear);
  1138     Gear^.dX:=Gear^.dX+slope*_0_07;
  1138     Gear^.dX:=Gear^.dX+slope*_0_07;
  1139     if slope.QWordValue <> 0 then Gear^.State:= Gear^.State or gstMoving;
  1139     if slope.QWordValue <> 0 then Gear^.State:= Gear^.State or gstMoving;