equal
deleted
inserted
replaced
725 if FollowGear = Gear then |
725 if FollowGear = Gear then |
726 FollowGear:= nil; |
726 FollowGear:= nil; |
727 if lastGearByUID = Gear then |
727 if lastGearByUID = Gear then |
728 lastGearByUID := nil; |
728 lastGearByUID := nil; |
729 if (Gear^.Hedgehog = nil) or (Gear^.Hedgehog^.GearHidden <> Gear) then // hidden hedgehogs shouldn't be in the list |
729 if (Gear^.Hedgehog = nil) or (Gear^.Hedgehog^.GearHidden <> Gear) then // hidden hedgehogs shouldn't be in the list |
730 RemoveGearFromList(Gear); |
730 RemoveGearFromList(Gear) |
731 if (Gear^.Hedgehog <> nil) and (Gear^.Hedgehog^.GearHidden = Gear) then |
731 else Gear^.Hedgehog^.GearHidden:= nil; |
732 Gear^.Hedgehog^.GearHidden:= nil; |
|
733 |
732 |
734 Dispose(Gear) |
733 Dispose(Gear) |
735 end; |
734 end; |
736 |
735 |
737 end. |
736 end. |