hedgewars/uCommandHandlers.pas
changeset 13641 007813b81f1b
parent 13533 0c8001e43fd3
child 13642 3d14950641a4
equal deleted inserted replaced
13640:cb0191394133 13641:007813b81f1b
   608     exit;
   608     exit;
   609 
   609 
   610 if autoCameraOn then
   610 if autoCameraOn then
   611     begin
   611     begin
   612     FollowGear:= nil;
   612     FollowGear:= nil;
   613     AddCaption(trmsg[sidAutoCameraOff], $CCCCCC, capgrpVolume);
   613     AddCaption(trmsg[sidAutoCameraOff], cLightGrayColor, capgrpVolume);
   614     autoCameraOn:= false
   614     autoCameraOn:= false
   615     end
   615     end
   616 else
   616 else
   617     begin
   617     begin
   618     AddCaption(trmsg[sidAutoCameraOn], $CCCCCC, capgrpVolume);
   618     AddCaption(trmsg[sidAutoCameraOn], cLightGrayColor, capgrpVolume);
   619     bShowFinger:= true;
   619     bShowFinger:= true;
   620     if not CurrentHedgehog^.Unplaced then
   620     if not CurrentHedgehog^.Unplaced then
   621         FollowGear:= CurrentHedgehog^.Gear;
   621         FollowGear:= CurrentHedgehog^.Gear;
   622     autoCameraOn:= true
   622     autoCameraOn:= true
   623     end
   623     end