equal
deleted
inserted
replaced
1027 if (not isFalling) |
1027 if (not isFalling) |
1028 and (hwAbs(Gear^.dX) + hwAbs(Gear^.dY) < _0_03) then |
1028 and (hwAbs(Gear^.dX) + hwAbs(Gear^.dY) < _0_03) then |
1029 begin |
1029 begin |
1030 Gear^.State:= Gear^.State and (not gstWinner); |
1030 Gear^.State:= Gear^.State and (not gstWinner); |
1031 Gear^.State:= Gear^.State and (not gstMoving); |
1031 Gear^.State:= Gear^.State and (not gstMoving); |
1032 while (TestCollisionYWithGear(Gear,1) = 0) and (not CheckGearDrowning(Gear)) and (Gear <> nil) do |
1032 while (not CheckGearDrowning(Gear)) and (Gear <> nil) and (TestCollisionYWithGear(Gear,1) = 0) do |
1033 Gear^.Y:= Gear^.Y + _1; |
1033 Gear^.Y:= Gear^.Y + _1; |
1034 |
1034 |
1035 // could become nil in CheckGearDrowning if ai's hog fails to respawn in ai survival |
1035 // could become nil in CheckGearDrowning if ai's hog fails to respawn in ai survival |
1036 if Gear = nil then exit; |
1036 if Gear = nil then exit; |
1037 SetLittle(Gear^.dX); |
1037 SetLittle(Gear^.dX); |