hedgewars/uCommandHandlers.pas
changeset 10127 7f29a65aa1e4
parent 10108 c68cf030eded
child 10228 947cadb40bc5
equal deleted inserted replaced
10126:2fa3bb7785ee 10127:7f29a65aa1e4
   580     exit;
   580     exit;
   581 
   581 
   582 if autoCameraOn then
   582 if autoCameraOn then
   583     begin
   583     begin
   584     FollowGear:= nil;
   584     FollowGear:= nil;
   585     AddCaption('Auto Camera Off', $CCCCCC, capgrpVolume);
   585     AddCaption(ansistring('Auto Camera Off'), $CCCCCC, capgrpVolume);
   586     autoCameraOn:= false
   586     autoCameraOn:= false
   587     end
   587     end
   588 else
   588 else
   589     begin
   589     begin
   590     AddCaption('Auto Camera On', $CCCCCC, capgrpVolume);
   590     AddCaption(ansistring('Auto Camera On'), $CCCCCC, capgrpVolume);
   591     bShowFinger:= true;
   591     bShowFinger:= true;
   592     if not CurrentHedgehog^.Unplaced then
   592     if not CurrentHedgehog^.Unplaced then
   593         FollowGear:= CurrentHedgehog^.Gear;
   593         FollowGear:= CurrentHedgehog^.Gear;
   594     autoCameraOn:= true
   594     autoCameraOn:= true
   595     end
   595     end