changeset 7366 | e5a0856708dc |
parent 7364 | ee87ad50e18d |
child 7389 | 15c3fb4882df |
--- a/hedgewars/uGearsList.pas Sun Jul 08 11:43:22 2012 -0400 +++ b/hedgewars/uGearsList.pas Sun Jul 08 12:00:27 2012 -0400 @@ -40,7 +40,7 @@ begin tmp:= GearsList; ptmp:= GearsList; - while (tmp <> nil) and (tmp^.Z <= Gear^.Z) do + while (tmp <> nil) and (tmp^.Z < Gear^.Z) do begin ptmp:= tmp; tmp:= tmp^.NextGear