equal
deleted
inserted
replaced
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; |