hedgewars/uCommandHandlers.pas
changeset 12493 c19e5ece5b3f
parent 12221 5b525d041fb4
child 12495 b4eb289b5913
equal deleted inserted replaced
12492:dd9f079b1386 12493:c19e5ece5b3f
   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 // 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
   617 // RotateMask key + Switch + Precise: Toggle entire HUD
   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
   624 else if LocalMessage and gmPrecise = gmPrecise then
   625 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
   625     begin
   633     begin
   626     if ((GameFlags and gfInvulnerable) = 0) then
   634     if ((GameFlags and gfInvulnerable) = 0) then
   627         cTagsMask:= cTagsMasks[cTagsMask]
   635         cTagsMask:= cTagsMasks[cTagsMask]
   628     else
   636     else
   629         cTagsMask:= cTagsMasksNoHealth[cTagsMask]
   637         cTagsMask:= cTagsMasksNoHealth[cTagsMask]
   630     end
       
   631 else
       
   632     begin
       
   633     if UIDisplay <> uiNoTeams then
       
   634          UIDisplay:= uiNoTeams
       
   635     else UIDisplay:= uiAll
       
   636     end
   638     end
   637 end;
   639 end;
   638 
   640 
   639 procedure chSpeedup_p(var s: shortstring);
   641 procedure chSpeedup_p(var s: shortstring);
   640 begin
   642 begin