hedgewars/CCHandlers.inc
changeset 2568 e654cbfb23ba
parent 2428 6800f8aa0184
child 2570 7093e3413594
equal deleted inserted replaced
2567:02ff5f9510b5 2568:e654cbfb23ba
   668 end;
   668 end;
   669 
   669 
   670 procedure chRotateMask(var s: shortstring);
   670 procedure chRotateMask(var s: shortstring);
   671 const map: array[0..7] of byte = (7,4,0,1,2,3,0,5);
   671 const map: array[0..7] of byte = (7,4,0,1,2,3,0,5);
   672 begin
   672 begin
   673 cTagsMask:= map[cTagsMask]
   673 inc(cTagsMaskIndex);
       
   674 if cTagsMaskIndex > High(cTagsMasks) then cTagsMaskIndex:= Low(cTagsMasks);
       
   675 
       
   676 // HACK: skip "health only" if all hogs are invulnerable
       
   677 if ((GameFlags and gfInvulnerable) <> 0) and ((cTagsMasks[cTagsMaskIndex] and not htTransparent) = htHealth) then chRotateMask(s);
   674 end;
   678 end;
   675 
   679 
   676 procedure chAddTrigger(var s: shortstring);
   680 procedure chAddTrigger(var s: shortstring);
   677 const MAXPARAMS = 16;
   681 const MAXPARAMS = 16;
   678 var params: array[0..Pred(MAXPARAMS)] of Longword;
   682 var params: array[0..Pred(MAXPARAMS)] of Longword;