hedgewars/uCommandHandlers.pas
changeset 12999 46ba3285449a
parent 12998 22e032ab1cb7
child 13000 c5529aabdda9
equal deleted inserted replaced
12998:22e032ab1cb7 12999:46ba3285449a
   629 if LocalMessage and gmPrecise = gmPrecise then
   629 if LocalMessage and gmPrecise = gmPrecise then
   630     if ((cTagsMask and htTransparent) = 0) then
   630     if ((cTagsMask and htTransparent) = 0) then
   631         cTagsMask:= cTagsMask or htTransparent
   631         cTagsMask:= cTagsMask or htTransparent
   632     else
   632     else
   633         cTagsMask:= cTagsMask and (not htTransparent)
   633         cTagsMask:= cTagsMask and (not htTransparent)
   634 // Just the rotate tags key: Rotate hog tags
   634 // Rotate Tags key + Switch: Toggle all tags on and off
       
   635 else if LocalMessage and gmSwitch = gmSwitch then
       
   636     if ((cTagsMask and (htTeamName or htName or htHealth)) = 0) then
       
   637         cTagsMask:= cPrevTagsMask
       
   638     else
       
   639         begin
       
   640         cPrevTagsMask:= cTagsMask;
       
   641         cTagsMask:= cTagsMask and (not (htTeamName or htName or htHealth))
       
   642         end
       
   643 // Rotate Tags key only: Rotate hog tags
   635 else
   644 else
       
   645     begin
       
   646     cPrevTagsMask:= cTagsMask;
   636     if ((GameFlags and gfInvulnerable) = 0) then
   647     if ((GameFlags and gfInvulnerable) = 0) then
   637         cTagsMask:= cTagsMasks[cTagsMask]
   648         cTagsMask:= cTagsMasks[cTagsMask]
   638     else
   649     else
   639         cTagsMask:= cTagsMasksNoHealth[cTagsMask]
   650         cTagsMask:= cTagsMasksNoHealth[cTagsMask]
   640     end;
   651     end;
       
   652 end;
   641 
   653 
   642 procedure chSpeedup_p(var s: shortstring);
   654 procedure chSpeedup_p(var s: shortstring);
   643 begin
   655 begin
   644 s:= s; // avoid compiler hint
   656 s:= s; // avoid compiler hint
   645 SpeedStart:= RealTicks;
   657 SpeedStart:= RealTicks;