hedgewars/uMisc.pas
changeset 3355 dc9e61e67484
parent 3350 5cd02aafc612
child 3365 37ac593e9027
--- a/hedgewars/uMisc.pas	Sat Apr 17 13:04:36 2010 +0000
+++ b/hedgewars/uMisc.pas	Sat Apr 17 23:03:52 2010 +0000
@@ -672,9 +672,9 @@
 {$IFDEF DEBUGFILE}{$IFNDEF IPHONEOS}var i: LongInt;{$ENDIF}{$ENDIF}
 begin
     cDrownSpeed.QWordValue  := 257698038;       // 0.06
-    cMaxWindSpeed.QWordValue:= 2147484;     // 0.0005
+    cMaxWindSpeed.QWordValue:= 1073742;     // 0.00025
     cWindSpeed.QWordValue   := 429496;      // 0.0001
-    cGravity                := cMaxWindSpeed;
+    cGravity                := cMaxWindSpeed * 2;
     cDamageModifier         := _1;
     TargetPoint             := cTargetPointRef;
     TextureList             := nil;