hedgewars/uRandom.pas
changeset 6580 6155187bf599
parent 5123 b0b57f247e02
child 6700 e04da46ee43c
--- 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;