--- a/hedgewars/uRandom.pas	Wed Nov 09 18:31:11 2005 +0000
+++ b/hedgewars/uRandom.pas	Sun Nov 13 22:13:58 2005 +0000
@@ -55,11 +55,10 @@
 begin
 SHA1Update(sc1, @Fill[1], Length(Fill));
 sc2:= sc1;
-dig:= SHA1Final(sc1);
+dig:= SHA1Final(sc2);
 Result:= frac( dig.LongWords[0]*0.0000731563977
                + pi * dig.Words[6]
-               + 0.0109070019*dig.Words[9]);
-sc1:= sc2
+               + 0.0109070019*dig.Words[9])
 end;
 
 function  GetRandom(m: LongWord): LongWord;