--- 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