95 	cDrownSpeed,

    95 	cDrownSpeed,

    96 	cMaxWindSpeed,

    96 	cMaxWindSpeed,

    97 	cWindSpeed,

    97 	cWindSpeed,

    98 	cGravity: hwFloat;

    98 	cGravity: hwFloat;

    99 	cDamageModifier: hwFloat;

    99 	cDamageModifier: hwFloat;

   100 

   101 

   101 	flagMakeCapture: boolean = false;

   102 	flagMakeCapture: boolean = false;

   102 

   103 

   103 	InitStepsFlags: Longword = 0;

   104 	InitStepsFlags: Longword = 0;

   104 

   105 

   422 cDrownSpeed.QWordValue:= 257698038;// 0.06

   423 cDrownSpeed.QWordValue:= 257698038;// 0.06

   423 cMaxWindSpeed.QWordValue:= 2147484;// 0.0005

   424 cMaxWindSpeed.QWordValue:= 2147484;// 0.0005

   424 cWindSpeed.QWordValue:=     429496;// 0.0001

   425 cWindSpeed.QWordValue:=     429496;// 0.0001

   425 cGravity:= cMaxWindSpeed;

   426 cGravity:= cMaxWindSpeed;

   426 cDamageModifier:= _1;

   427 cDamageModifier:= _1;

   427 

   429 

   428 {$IFDEF DEBUGFILE}

   430 {$IFDEF DEBUGFILE}

   429 {$I-}

   431 {$I-}

   430 if ParamCount > 0 then

   432 if ParamCount > 0 then

   431   for i:= 0 to 7 do

   433   for i:= 0 to 7 do