equal
deleted
inserted
replaced
1264 var slope: hwFloat; |
1264 var slope: hwFloat; |
1265 begin |
1265 begin |
1266 if (Gear^.Message and (gmAllStoppable or gmLJump or gmHJump) = 0) |
1266 if (Gear^.Message and (gmAllStoppable or gmLJump or gmHJump) = 0) |
1267 and (Gear^.State and (gstHHJumping or gstHHHJump or gstAttacking) = 0) |
1267 and (Gear^.State and (gstHHJumping or gstHHHJump or gstAttacking) = 0) |
1268 and ((Gear^.Hedgehog = nil) or ((Gear^.Hedgehog^.Effects[heFrozen] = 0) or (Gear^.Hedgehog^.Effects[heFrozen] > 255))) |
1268 and ((Gear^.Hedgehog = nil) or ((Gear^.Hedgehog^.Effects[heFrozen] = 0) or (Gear^.Hedgehog^.Effects[heFrozen] > 255))) |
1269 and (not Gear^.dY.isNegative) and (TurnTimeLeft > 0) and (TestCollisionYwithGear(Gear, 1) and lfIce <> 0) then |
1269 and (not Gear^.dY.isNegative) and TurnClockActive and (TestCollisionYwithGear(Gear, 1) and lfIce <> 0) then |
1270 begin |
1270 begin |
1271 slope:= CalcSlopeBelowGear(Gear); |
1271 slope:= CalcSlopeBelowGear(Gear); |
1272 if slope.QWordValue > 730144440 then // ignore mild slopes |
1272 if slope.QWordValue > 730144440 then // ignore mild slopes |
1273 begin |
1273 begin |
1274 Gear^.dX:=Gear^.dX+slope*cGravity*_256; |
1274 Gear^.dX:=Gear^.dX+slope*cGravity*_256; |