hedgewars/uCommandHandlers.pas
changeset 6304 3036c242b19d
parent 6254 e90fb60cb46d
child 6313 12567f6f6f02
equal deleted inserted replaced
6303:3edb3c857995 6304:3036c242b19d
   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);