equal
deleted
inserted
replaced
612 begin |
612 begin |
613 s:= s; // avoid compiler hint |
613 s:= s; // avoid compiler hint |
614 if CheckNoTeamOrHH or isPaused then |
614 if CheckNoTeamOrHH or isPaused then |
615 exit; |
615 exit; |
616 |
616 |
617 if FollowGear <> nil then |
617 if autoCameraOn then |
618 begin |
618 begin |
|
619 FollowGear:= nil; |
619 AddCaption('Auto Camera Off', $CCCCCC, capgrpVolume); |
620 AddCaption('Auto Camera Off', $CCCCCC, capgrpVolume); |
620 autoCameraOn:= false |
621 autoCameraOn:= false |
621 end |
622 end |
622 else |
623 else |
623 begin |
624 begin |
624 AddCaption('Auto Camera On', $CCCCCC, capgrpVolume); |
625 AddCaption('Auto Camera On', $CCCCCC, capgrpVolume); |
625 bShowFinger:= true; |
626 bShowFinger:= true; |
626 if not CurrentHedgehog^.Unplaced then |
627 if not CurrentHedgehog^.Unplaced then |
627 FollowGear:= CurrentHedgehog^.Gear; |
628 FollowGear:= CurrentHedgehog^.Gear; |
628 autoCameraOn:= true |
629 autoCameraOn:= true |