equal
deleted
inserted
replaced
1468 tdX, tdY, slope: hwFloat; |
1468 tdX, tdY, slope: hwFloat; |
1469 land: Word; *) |
1469 land: Word; *) |
1470 var slope: hwFloat; |
1470 var slope: hwFloat; |
1471 begin |
1471 begin |
1472 if (Gear^.Message and (gmAllStoppable or gmLJump or gmHJump) = 0) |
1472 if (Gear^.Message and (gmAllStoppable or gmLJump or gmHJump) = 0) |
1473 and (Gear^.State and (gstHHJumping or gstHHHJump or gstAttacking) = 0) |
1473 and (Gear^.State and (gstHHJumping or gstHHHJump or gstAttacking or gstAnimation) = 0) |
1474 and ((Gear^.Hedgehog = nil) or ((Gear^.Hedgehog^.Effects[heFrozen] = 0) or (Gear^.Hedgehog^.Effects[heFrozen] > 255))) |
1474 and ((Gear^.Hedgehog = nil) or ((Gear^.Hedgehog^.Effects[heFrozen] = 0) or (Gear^.Hedgehog^.Effects[heFrozen] > 255))) |
1475 and (not Gear^.dY.isNegative) and TurnClockActive and (TestCollisionYwithGear(Gear, 1) and lfIce <> 0) then |
1475 and (not Gear^.dY.isNegative) and TurnClockActive and (TestCollisionYwithGear(Gear, 1) and lfIce <> 0) then |
1476 begin |
1476 begin |
1477 slope:= CalcSlopeBelowGear(Gear); |
1477 slope:= CalcSlopeBelowGear(Gear); |
1478 if slope.QWordValue > 730144440 then // ignore mild slopes |
1478 if slope.QWordValue > 730144440 then // ignore mild slopes |