hedgewars/uCommandHandlers.pas
changeset 13007 8a8aaaf97a95
parent 13001 876b1ef83191
child 13013 4234a18a082c
equal deleted inserted replaced
13006:32682963b7d9 13007:8a8aaaf97a95
   635     else
   635     else
   636         begin
   636         begin
   637         cTagsMask:= cTagsMask and (not htTransparent);
   637         cTagsMask:= cTagsMask and (not htTransparent);
   638         cPrevTagsMask:= cPrevTagsMask and (not htTransparent)
   638         cPrevTagsMask:= cPrevTagsMask and (not htTransparent)
   639         end
   639         end
   640 // Rotate Tags key + Precise: Toggle all tags on and off
   640 // Rotate Tags key + Precise: Cycle through hog tags (keeping translucency)
   641 else if LocalMessage and gmPrecise = gmPrecise then
   641 else if LocalMessage and gmPrecise = gmPrecise then
   642     if ((cTagsMask and (htTeamName or htName or htHealth)) = 0) then
       
   643         cTagsMask:= cPrevTagsMask
       
   644     else
       
   645         begin
       
   646         cPrevTagsMask:= cTagsMask;
       
   647         cTagsMask:= cTagsMask and (not (htTeamName or htName or htHealth))
       
   648         end
       
   649 // Rotate Tags key only: Rotate hog tags
       
   650 else
       
   651     begin
   642     begin
   652     cPrevTagsMask:= cTagsMask;
   643     cPrevTagsMask:= cTagsMask;
   653     if ((GameFlags and gfInvulnerable) = 0) then
   644     if ((GameFlags and gfInvulnerable) = 0) then
   654         cTagsMask:= cTagsMasks[cTagsMask]
   645         cTagsMask:= cTagsMasks[cTagsMask]
   655     else
   646     else
   656         cTagsMask:= cTagsMasksNoHealth[cTagsMask]
   647         cTagsMask:= cTagsMasksNoHealth[cTagsMask]
   657     end;
   648     end
       
   649 // Rotate Tags key only: Toggle all hog tags on and off
       
   650 else
       
   651     if ((cTagsMask and (htTeamName or htName or htHealth)) = 0) then
       
   652         cTagsMask:= cPrevTagsMask
       
   653     else
       
   654         begin
       
   655         cPrevTagsMask:= cTagsMask;
       
   656         cTagsMask:= cTagsMask and (not (htTeamName or htName or htHealth))
       
   657         end;
   658 end;
   658 end;
   659 
   659 
   660 procedure chSpeedup_p(var s: shortstring);
   660 procedure chSpeedup_p(var s: shortstring);
   661 begin
   661 begin
   662 s:= s; // avoid compiler hint
   662 s:= s; // avoid compiler hint