equal
deleted
inserted
replaced
525 autoCameraOn:= false |
525 autoCameraOn:= false |
526 end |
526 end |
527 else begin |
527 else begin |
528 AddCaption('Auto Camera On', $CCCCCC, capgrpVolume); |
528 AddCaption('Auto Camera On', $CCCCCC, capgrpVolume); |
529 bShowFinger:= true; |
529 bShowFinger:= true; |
530 FollowGear:= CurrentHedgehog^.Gear; |
530 if not CurrentHedgehog^.Unplaced then FollowGear:= CurrentHedgehog^.Gear; |
531 autoCameraOn:= true |
531 autoCameraOn:= true |
532 end |
532 end |
533 end; |
533 end; |
534 |
534 |
535 procedure chPause(var s: shortstring); |
535 procedure chPause(var s: shortstring); |