hedgewars/uMisc.pas
changeset 1849 2a989e5abda6
parent 1812 3d4692e825e7
child 1854 6e05013899b2
equal deleted inserted replaced
1848:1eb88d41ccc6 1849:2a989e5abda6
    94 	ShowCrosshair  : boolean;
    94 	ShowCrosshair  : boolean;
    95 	cDrownSpeed,
    95 	cDrownSpeed,
    96 	cMaxWindSpeed,
    96 	cMaxWindSpeed,
    97 	cWindSpeed,
    97 	cWindSpeed,
    98 	cGravity: hwFloat;
    98 	cGravity: hwFloat;
       
    99 	cDamageModifier: hwFloat;
    99 
   100 
   100 	flagMakeCapture: boolean = false;
   101 	flagMakeCapture: boolean = false;
   101 
   102 
   102 	InitStepsFlags: Longword = 0;
   103 	InitStepsFlags: Longword = 0;
   103 
   104 
   420 initialization
   421 initialization
   421 cDrownSpeed.QWordValue:= 257698038;// 0.06
   422 cDrownSpeed.QWordValue:= 257698038;// 0.06
   422 cMaxWindSpeed.QWordValue:= 2147484;// 0.0005
   423 cMaxWindSpeed.QWordValue:= 2147484;// 0.0005
   423 cWindSpeed.QWordValue:=     429496;// 0.0001
   424 cWindSpeed.QWordValue:=     429496;// 0.0001
   424 cGravity:= cMaxWindSpeed;
   425 cGravity:= cMaxWindSpeed;
       
   426 cDamageModifier:= _1;
   425 
   427 
   426 {$IFDEF DEBUGFILE}
   428 {$IFDEF DEBUGFILE}
   427 {$I-}
   429 {$I-}
   428 if ParamCount > 0 then
   430 if ParamCount > 0 then
   429   for i:= 0 to 7 do
   431   for i:= 0 to 7 do