--- a/hedgewars/uRandom.pas	Sun Feb 11 00:18:16 2007 +0000
+++ b/hedgewars/uRandom.pas	Sun Feb 11 11:55:38 2007 +0000
@@ -48,7 +48,7 @@
 if Length(Seed) > 54 then Seed:= copy(Seed, 1, 54); // not 55 to ensure we have odd numbers in cirbuf
 
 for i:= 1 to Length(Seed) do
-    cirbuf[i - 1]:= byte(Seed[i]) * i;
+    cirbuf[i - 1]:= byte(Seed[i]) * (i * 2 + 7);
 
 for i:= Length(Seed) to 54 do
     cirbuf[i]:= i * 7 + 1;