equal
deleted
inserted
replaced
1217 land: Word; *) |
1217 land: Word; *) |
1218 var slope: hwFloat; |
1218 var slope: hwFloat; |
1219 begin |
1219 begin |
1220 if (Gear^.Message and (gmAllStoppable or gmLJump or gmHJump) = 0) |
1220 if (Gear^.Message and (gmAllStoppable or gmLJump or gmHJump) = 0) |
1221 and (Gear^.State and (gstHHJumping or gstHHHJump or gstAttacking) = 0) |
1221 and (Gear^.State and (gstHHJumping or gstHHHJump or gstAttacking) = 0) |
1222 and (not Gear^.dY.isNegative) and (TestCollisionYwithGear(Gear, 1) and lfIce <> 0) then |
1222 and (not Gear^.dY.isNegative) and (TurnTimeLeft > 0) and (TestCollisionYwithGear(Gear, 1) and lfIce <> 0) then |
1223 begin |
1223 begin |
1224 slope:= CalcSlopeBelowGear(Gear); |
1224 slope:= CalcSlopeBelowGear(Gear); |
1225 if slope.QWordValue > 730144440 then // ignore mild slopes |
1225 if slope.QWordValue > 730144440 then // ignore mild slopes |
1226 begin |
1226 begin |
1227 Gear^.dX:=Gear^.dX+slope*cGravity*_256; |
1227 Gear^.dX:=Gear^.dX+slope*cGravity*_256; |