--- a/hedgewars/uMisc.pas	Tue Jul 03 20:11:48 2007 +0000
+++ b/hedgewars/uMisc.pas	Sun Jul 08 17:16:46 2007 +0000
@@ -61,7 +61,7 @@
     cExplosionBorderColor : LongWord = $808080;
 
     cShowFPS      : boolean = true;
-    cCaseFactor   : Longword = 3;  {1..10}
+    cCaseFactor   : Longword = 7;  {1..10}
     cFullScreen   : boolean = true;
     cLocaleFName  : shortstring = 'en.txt';
     cSeed         : shortstring = '';
@@ -211,7 +211,7 @@
 
 procedure SetLittle(var r: hwFloat);
 begin
-if not r.isNegative then r:= cLittle else r:= - cLittle
+r:= SignAs(cLittle, r)
 end;
 
 procedure SendStat(sit: TStatInfoType; s: shortstring);