hedgewars/uCommandHandlers.pas
changeset 13001 876b1ef83191
parent 13000 c5529aabdda9
child 13007 8a8aaaf97a95
equal deleted inserted replaced
13000:c5529aabdda9 13001:876b1ef83191
   626 begin
   626 begin
   627 s:= s; // avoid compiler hint
   627 s:= s; // avoid compiler hint
   628 // Rotate Tags key + Switch: Toggle translucency only
   628 // Rotate Tags key + Switch: Toggle translucency only
   629 if LocalMessage and gmSwitch = gmSwitch then
   629 if LocalMessage and gmSwitch = gmSwitch then
   630     if ((cTagsMask and htTransparent) = 0) then
   630     if ((cTagsMask and htTransparent) = 0) then
   631         cTagsMask:= cTagsMask or htTransparent
   631         begin
       
   632         cTagsMask:= cTagsMask or htTransparent;
       
   633         cPrevTagsMask:= cPrevTagsMask or htTransparent
       
   634         end
   632     else
   635     else
   633         cTagsMask:= cTagsMask and (not htTransparent)
   636         begin
       
   637         cTagsMask:= cTagsMask and (not htTransparent);
       
   638         cPrevTagsMask:= cPrevTagsMask and (not htTransparent)
       
   639         end
   634 // Rotate Tags key + Precise: Toggle all tags on and off
   640 // Rotate Tags key + Precise: Toggle all tags on and off
   635 else if LocalMessage and gmPrecise = gmPrecise then
   641 else if LocalMessage and gmPrecise = gmPrecise then
   636     if ((cTagsMask and (htTeamName or htName or htHealth)) = 0) then
   642     if ((cTagsMask and (htTeamName or htName or htHealth)) = 0) then
   637         cTagsMask:= cPrevTagsMask
   643         cTagsMask:= cPrevTagsMask
   638     else
   644     else