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 |