hedgewars/uCommandHandlers.pas
changeset 13012 8a8aaaf97a95
parent 13006 876b1ef83191
child 13018 4234a18a082c
--- a/hedgewars/uCommandHandlers.pas	Thu Feb 15 13:34:17 2018 +0100
+++ b/hedgewars/uCommandHandlers.pas	Thu Feb 15 13:49:14 2018 +0100
@@ -637,24 +637,24 @@
         cTagsMask:= cTagsMask and (not htTransparent);
         cPrevTagsMask:= cPrevTagsMask and (not htTransparent)
         end
-// Rotate Tags key + Precise: Toggle all tags on and off
+// Rotate Tags key + Precise: Cycle through hog tags (keeping translucency)
 else if LocalMessage and gmPrecise = gmPrecise then
+    begin
+    cPrevTagsMask:= cTagsMask;
+    if ((GameFlags and gfInvulnerable) = 0) then
+        cTagsMask:= cTagsMasks[cTagsMask]
+    else
+        cTagsMask:= cTagsMasksNoHealth[cTagsMask]
+    end
+// Rotate Tags key only: Toggle all hog tags on and off
+else
     if ((cTagsMask and (htTeamName or htName or htHealth)) = 0) then
         cTagsMask:= cPrevTagsMask
     else
         begin
         cPrevTagsMask:= cTagsMask;
         cTagsMask:= cTagsMask and (not (htTeamName or htName or htHealth))
-        end
-// Rotate Tags key only: Rotate hog tags
-else
-    begin
-    cPrevTagsMask:= cTagsMask;
-    if ((GameFlags and gfInvulnerable) = 0) then
-        cTagsMask:= cTagsMasks[cTagsMask]
-    else
-        cTagsMask:= cTagsMasksNoHealth[cTagsMask]
-    end;
+        end;
 end;
 
 procedure chSpeedup_p(var s: shortstring);