hedgewars/uRandom.pas
changeset 155 401f4ea24715
parent 136 89970b70b076
child 183 57c2ef19f719
--- a/hedgewars/uRandom.pas	Wed Sep 20 15:33:47 2006 +0000
+++ b/hedgewars/uRandom.pas	Wed Sep 20 18:24:13 2006 +0000
@@ -57,6 +57,8 @@
 procedure SetRandomSeed(Seed: shortstring);
 var i: Longword;
 begin
+n:= 54;
+
 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