hedgewars/uCommandHandlers.pas
branchflibqtfrontend
changeset 8208 171da01bd04d
parent 8145 6408c0ba4ba1
child 8330 aaefa587e277
child 8370 0c79946e96f8
--- a/hedgewars/uCommandHandlers.pas	Fri Nov 30 18:19:52 2012 +0400
+++ b/hedgewars/uCommandHandlers.pas	Tue Dec 04 09:15:55 2012 +0400
@@ -30,6 +30,8 @@
      {$IFDEF USE_VIDEO_RECORDING}, uVideoRec {$ENDIF};
 
 var prevGState: TGameState = gsConfirm;
+    cTagsMasks : array[0..15] of byte = (7, 0, 0, 0, 15, 6, 4, 5, 0, 0, 0, 0, 0, 14, 12, 13);
+    cTagsMasksNoHealth: array[0..15] of byte = (3, 2, 11, 1, 0, 0, 0, 0, 0, 10, 0, 9, 0, 0, 0, 0);
 
 procedure chGenCmd(var s: shortstring);
 begin