equal
deleted
inserted
replaced
1129 else |
1129 else |
1130 doStepHedgehogDriven(Gear) |
1130 doStepHedgehogDriven(Gear) |
1131 end; |
1131 end; |
1132 |
1132 |
1133 if ((GameTicks mod 50) = 0) and (Gear^.Message and (gmAllStoppable or gmLJump or gmHJump) = 0) and |
1133 if ((GameTicks mod 50) = 0) and (Gear^.Message and (gmAllStoppable or gmLJump or gmHJump) = 0) and |
1134 (Gear^.State and (gstHHJumping or gstHHHJump) = 0) and |
1134 (Gear^.State and (gstHHJumping or gstHHHJump or gstAttacking) = 0) and |
1135 not Gear^.dY.isNegative and |
1135 not Gear^.dY.isNegative and |
1136 (TestCollisionYwithGear(Gear, 1) and lfIce <> 0) then |
1136 (TestCollisionYwithGear(Gear, 1) and lfIce <> 0) then |
1137 begin |
1137 begin |
1138 slope:= CalcSlopeBelowGear(Gear); |
1138 slope:= CalcSlopeBelowGear(Gear); |
1139 Gear^.dX:=Gear^.dX+cGravity*_128*slope; |
1139 Gear^.dX:=Gear^.dX+cGravity*_128*slope; |