hedgewars/uCommandHandlers.pas
changeset 13013 4234a18a082c
parent 13007 8a8aaaf97a95
child 13039 aed4b25ff242
equal deleted inserted replaced
13012:d82fec121f31 13013:4234a18a082c
   647         cTagsMask:= cTagsMasksNoHealth[cTagsMask]
   647         cTagsMask:= cTagsMasksNoHealth[cTagsMask]
   648     end
   648     end
   649 // Rotate Tags key only: Toggle all hog tags on and off
   649 // Rotate Tags key only: Toggle all hog tags on and off
   650 else
   650 else
   651     if ((cTagsMask and (htTeamName or htName or htHealth)) = 0) then
   651     if ((cTagsMask and (htTeamName or htName or htHealth)) = 0) then
   652         cTagsMask:= cPrevTagsMask
   652         begin
       
   653         cTagsMask:= cPrevTagsMask;
       
   654         if ((GameFlags and gfInvulnerable) <> 0) then
       
   655             cTagsMask:= cTagsMask and (not htHealth);
       
   656         end
   653     else
   657     else
   654         begin
   658         begin
   655         cPrevTagsMask:= cTagsMask;
   659         cPrevTagsMask:= cTagsMask;
   656         cTagsMask:= cTagsMask and (not (htTeamName or htName or htHealth))
   660         cTagsMask:= cTagsMask and (not (htTeamName or htName or htHealth))
   657         end;
   661         end;