--- a/hedgewars/uConsts.pas	Tue Jun 28 17:12:09 2011 +0400
+++ b/hedgewars/uConsts.pas	Tue Jun 28 21:28:13 2011 +0200
@@ -260,7 +260,8 @@
     posCaseHealth  = $00000002;
     posCaseUtility = $00000004;
     posCaseDummy   = $00000008;
-    posCaseTrap    = $00000010;
+    posCaseExplode = $00000010;
+    posCasePoison  = $00000020;
 
     NoPointX = Low(LongInt);
     cTargetPointRef : TPoint = (X: NoPointX; Y: 0);