--- a/hedgewars/uMisc.pas	Fri Nov 05 21:59:02 2010 -0400
+++ b/hedgewars/uMisc.pas	Fri Nov 05 22:32:00 2010 -0400
@@ -74,6 +74,9 @@
     cMinesTime       : LongInt;
     cMaxAIThinkTime  : Longword;
 
+    cHealthCaseProb  : LongInt;
+    cHealthCaseAmount: LongInt;
+
     cCloudsNumber    : LongInt;
 
     cTagsMask        : byte;
@@ -758,6 +761,8 @@
     cMinesTime          := 3000;
     cMaxAIThinkTime     := 9000;
     cCloudsNumber       := 9;
+    cHealthCaseProb     := 35;
+    cHealthCaseAmount   := 25;
 
     cTagsMask       := 0;
     KBnum           := 0;