hedgewars/uMisc.pas
changeset 1849 2a989e5abda6
parent 1812 3d4692e825e7
child 1854 6e05013899b2
--- a/hedgewars/uMisc.pas	Fri Feb 27 21:40:13 2009 +0000
+++ b/hedgewars/uMisc.pas	Sun Mar 01 17:24:25 2009 +0000
@@ -96,6 +96,7 @@
 	cMaxWindSpeed,
 	cWindSpeed,
 	cGravity: hwFloat;
+	cDamageModifier: hwFloat;
 
 	flagMakeCapture: boolean = false;
 
@@ -422,6 +423,7 @@
 cMaxWindSpeed.QWordValue:= 2147484;// 0.0005
 cWindSpeed.QWordValue:=     429496;// 0.0001
 cGravity:= cMaxWindSpeed;
+cDamageModifier:= _1;
 
 {$IFDEF DEBUGFILE}
 {$I-}