equal
deleted
inserted
replaced
624 begin |
624 begin |
625 s:= s; // avoid compiler hint |
625 s:= s; // avoid compiler hint |
626 if CheckNoTeamOrHH or isPaused then |
626 if CheckNoTeamOrHH or isPaused then |
627 exit; |
627 exit; |
628 |
628 |
629 if FollowGear <> nil then |
629 if autoCameraOn then |
630 begin |
630 begin |
|
631 FollowGear:= nil; |
631 AddCaption('Auto Camera Off', $CCCCCC, capgrpVolume); |
632 AddCaption('Auto Camera Off', $CCCCCC, capgrpVolume); |
632 autoCameraOn:= false |
633 autoCameraOn:= false |
633 end |
634 end |
634 else |
635 else |
635 begin |
636 begin |
636 AddCaption('Auto Camera On', $CCCCCC, capgrpVolume); |
637 AddCaption('Auto Camera On', $CCCCCC, capgrpVolume); |
637 bShowFinger:= true; |
638 bShowFinger:= true; |
638 if not CurrentHedgehog^.Unplaced then |
639 if not CurrentHedgehog^.Unplaced then |
639 FollowGear:= CurrentHedgehog^.Gear; |
640 FollowGear:= CurrentHedgehog^.Gear; |
640 autoCameraOn:= true |
641 autoCameraOn:= true |