--- a/hedgewars/uMisc.pas	Sun Dec 10 21:31:45 2006 +0000
+++ b/hedgewars/uMisc.pas	Thu Dec 14 20:06:46 2006 +0000
@@ -105,6 +105,7 @@
 {$ENDIF}
 procedure SetKB(n: Longword);
 procedure SendKB;
+procedure SetLittle(var r: Double);
 
 var CursorPoint: TPoint;
     TargetPoint: TPoint = (X: NoPointX; Y: 0);
@@ -205,6 +206,11 @@
    end
 end;
 
+procedure SetLittle(var r: Double);
+begin
+if r >= 0 then r:= cLittle else r:= - cLittle 
+end;
+
 {$IFDEF DEBUGFILE}
 procedure AddFileLog(s: shortstring);
 begin