diff -r fc52f7c22c9b -r 6155187bf599 hedgewars/uRandom.pas --- a/hedgewars/uRandom.pas Mon Jan 16 10:22:21 2012 +0100 +++ b/hedgewars/uRandom.pas Tue Jan 17 09:01:31 2012 -0500 @@ -60,7 +60,8 @@ begin n:= 54; -if Length(Seed) > 54 then Seed:= copy(Seed, 1, 54); // not 55 to ensure we have odd numbers in cirbuf +if Length(Seed) > 54 then + Seed:= copy(Seed, 1, 54); // not 55 to ensure we have odd numbers in cirbuf for i:= 0 to Pred(Length(Seed)) do cirbuf[i]:= byte(Seed[i + 1]); @@ -68,7 +69,8 @@ for i:= Length(Seed) to 54 do cirbuf[i]:= $A98765 + 68; // odd number -for i:= 0 to 1023 do GetNext +for i:= 0 to 1023 do + GetNext end; function GetRandom: hwFloat;