hedgewars/uCommandHandlers.pas
changeset 7503 deaeac102355
parent 7442 9bb6abdb5675
parent 7468 1333ca7554dc
child 7628 bc7b1d228a2c
--- a/hedgewars/uCommandHandlers.pas	Thu Jul 26 21:58:25 2012 +0400
+++ b/hedgewars/uCommandHandlers.pas	Mon Aug 06 00:40:26 2012 +0400
@@ -626,13 +626,14 @@
 if CheckNoTeamOrHH or isPaused then
     exit;
 
-if FollowGear <> nil then
+if autoCameraOn then
     begin
+    FollowGear:= nil;
     AddCaption('Auto Camera Off', $CCCCCC, capgrpVolume);
     autoCameraOn:= false
     end
-    else
-        begin
+else
+    begin
     AddCaption('Auto Camera On', $CCCCCC, capgrpVolume);
     bShowFinger:= true;
     if not CurrentHedgehog^.Unplaced then