hedgewars/uCommandHandlers.pas
changeset 12495 b4eb289b5913
parent 12493 c19e5ece5b3f
child 12820 92218a06c9ff
equal deleted inserted replaced
12494:f545ae26262f 12495:b4eb289b5913
   612 end;
   612 end;
   613 
   613 
   614 procedure chRotateMask(var s: shortstring);
   614 procedure chRotateMask(var s: shortstring);
   615 begin
   615 begin
   616 s:= s; // avoid compiler hint
   616 s:= s; // avoid compiler hint
   617 // RotateMask key + Switch + Precise: Toggle entire HUD
   617 // this is just for me, 'cause I thought it'd be fun.  using the old precise + switch to keep it out of people's way
   618 if LocalMessage and (gmPrecise or gmSwitch) = (gmPrecise or gmSwitch) then
   618 if LocalMessage and (gmPrecise or gmSwitch) = (gmPrecise or gmSwitch) then
   619     begin
   619     begin
   620     if UIDisplay <> uiNone then
   620     if UIDisplay <> uiNone then
   621          UIDisplay:= uiNone
   621          UIDisplay:= uiNone
   622     else UIDisplay:= uiAll
   622     else UIDisplay:= uiAll
   623     end
   623     end
   624 // Rotate Mask key + Precise: Toggle team bars
       
   625 else if LocalMessage and gmPrecise = gmPrecise then
   624 else if LocalMessage and gmPrecise = gmPrecise then
   626     begin
       
   627     if UIDisplay <> uiNoTeams then
       
   628          UIDisplay:= uiNoTeams
       
   629     else UIDisplay:= uiAll
       
   630     end
       
   631 // Rotate Mask key only: Change hedgehog tags
       
   632 else
       
   633     begin
   625     begin
   634     if ((GameFlags and gfInvulnerable) = 0) then
   626     if ((GameFlags and gfInvulnerable) = 0) then
   635         cTagsMask:= cTagsMasks[cTagsMask]
   627         cTagsMask:= cTagsMasks[cTagsMask]
   636     else
   628     else
   637         cTagsMask:= cTagsMasksNoHealth[cTagsMask]
   629         cTagsMask:= cTagsMasksNoHealth[cTagsMask]
       
   630     end
       
   631 else
       
   632     begin
       
   633     if UIDisplay <> uiNoTeams then
       
   634          UIDisplay:= uiNoTeams
       
   635     else UIDisplay:= uiAll
   638     end
   636     end
   639 end;
   637 end;
   640 
   638 
   641 procedure chSpeedup_p(var s: shortstring);
   639 procedure chSpeedup_p(var s: shortstring);
   642 begin
   640 begin