640 {$ENDIF}

   640 {$ENDIF}

   641 end;

   641 end;

   642 

   642 

   643 

   643 

   644 procedure init_uMisc;

   644 procedure init_uMisc;

   646 begin

   646 begin

   647 	cDrownSpeed.QWordValue	:= 257698038;		// 0.06

   647 	cDrownSpeed.QWordValue	:= 257698038;		// 0.06

   648 	cMaxWindSpeed.QWordValue:= 2147484;		// 0.0005

   648 	cMaxWindSpeed.QWordValue:= 2147484;		// 0.0005

   649 	cWindSpeed.QWordValue	:= 429496;		// 0.0001

   649 	cWindSpeed.QWordValue	:= 429496;		// 0.0001

   650 	cGravity                := cMaxWindSpeed;

   650 	cGravity                := cMaxWindSpeed;