equal
deleted
inserted
replaced
1222 land: Word; *) |
1222 land: Word; *) |
1223 var slope: hwFloat; |
1223 var slope: hwFloat; |
1224 begin |
1224 begin |
1225 if (Gear^.Message and (gmAllStoppable or gmLJump or gmHJump) = 0) |
1225 if (Gear^.Message and (gmAllStoppable or gmLJump or gmHJump) = 0) |
1226 and (Gear^.State and (gstHHJumping or gstHHHJump or gstAttacking) = 0) |
1226 and (Gear^.State and (gstHHJumping or gstHHHJump or gstAttacking) = 0) |
|
1227 and ((Gear^.Hedgehog = nil) or ((Gear^.Hedgehog^.Effects[heFrozen] = 0) or (Gear^.Hedgehog^.Effects[heFrozen] > 255))) |
1227 and (not Gear^.dY.isNegative) and (TurnTimeLeft > 0) and (TestCollisionYwithGear(Gear, 1) and lfIce <> 0) then |
1228 and (not Gear^.dY.isNegative) and (TurnTimeLeft > 0) and (TestCollisionYwithGear(Gear, 1) and lfIce <> 0) then |
1228 begin |
1229 begin |
1229 slope:= CalcSlopeBelowGear(Gear); |
1230 slope:= CalcSlopeBelowGear(Gear); |
1230 if slope.QWordValue > 730144440 then // ignore mild slopes |
1231 if slope.QWordValue > 730144440 then // ignore mild slopes |
1231 begin |
1232 begin |