--- a/hedgewars/uFloat.pas	Sun Jan 20 22:53:46 2008 +0000
+++ b/hedgewars/uFloat.pas	Sun Jan 20 22:57:05 2008 +0000
@@ -294,7 +294,7 @@
    end else
    begin
    l:= $100000000;
-   r:= t.QWordValue
+   r:= t.QWordValue div 2 + $80000000 // r:= t / 2 + 0.5 
    end;
 
 repeat