equal
deleted
inserted
replaced
278 end; |
278 end; |
279 Gear^.Message:= Gear^.Message and not (gm_LJump or gm_HJump); |
279 Gear^.Message:= Gear^.Message and not (gm_LJump or gm_HJump); |
280 if TestCollisionXwithGear(Gear, hwSign(Gear^.dX)) then SetLittle(Gear^.dX); |
280 if TestCollisionXwithGear(Gear, hwSign(Gear^.dX)) then SetLittle(Gear^.dX); |
281 Gear^.X:= Gear^.X + Gear^.dX; |
281 Gear^.X:= Gear^.X + Gear^.dX; |
282 Gear^.dY:= Gear^.dY + cGravity; |
282 Gear^.dY:= Gear^.dY + cGravity; |
283 if (Gear^.dY < 0)and TestCollisionYwithGear(Gear, -1) then Gear^.dY:= 0; |
283 if (Gear^.dY.isNegative)and TestCollisionYwithGear(Gear, -1) then Gear^.dY:= 0; |
284 Gear^.Y:= Gear^.Y + Gear^.dY; |
284 Gear^.Y:= Gear^.Y + Gear^.dY; |
285 if (not Gear^.dY.isNegative)and TestCollisionYwithGear(Gear, 1) then |
285 if (not Gear^.dY.isNegative)and TestCollisionYwithGear(Gear, 1) then |
286 begin |
286 begin |
287 CheckHHDamage(Gear); |
287 CheckHHDamage(Gear); |
288 if ((hwAbs(Gear^.dX) + hwAbs(Gear^.dY)) < _0_55) |
288 if ((hwAbs(Gear^.dX) + hwAbs(Gear^.dY)) < _0_55) |