716 end;

   716 end;

   717 

   717 

   718 procedure chRotateMask(var s: shortstring);

   718 procedure chRotateMask(var s: shortstring);

   719 begin

   719 begin

   720 if ((GameFlags and gfInvulnerable) = 0) then cTagsMask:= cTagsMasks[cTagsMask] else cTagsMask:= cTagsMasksNoHealth[cTagsMask];

   720 if ((GameFlags and gfInvulnerable) = 0) then cTagsMask:= cTagsMasks[cTagsMask] else cTagsMask:= cTagsMasksNoHealth[cTagsMask];

   722 end;

   721 end;

   723 

   722 

   724 procedure chAddTrigger(var s: shortstring);

   723 procedure chAddTrigger(var s: shortstring);

   725 const MAXPARAMS = 16;

   724 const MAXPARAMS = 16;

   726 var params: array[0..Pred(MAXPARAMS)] of Longword;

   725 var params: array[0..Pred(MAXPARAMS)] of Longword;