hedgewars/uGearsHedgehog.pas
changeset 13329 543ab994c9bc
parent 13219 9c81e34f1933
child 13404 3d6aae2ae698
child 13568 5a1e4796e431
equal deleted inserted replaced
13328:15d804dcd736 13329:543ab994c9bc
  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