hedgewars/uRandom.pas
changeset 7575 f415b3e0f3b9
parent 7389 15c3fb4882df
child 7577 bdbb072b38b9
--- a/hedgewars/uRandom.pas	Tue Aug 21 21:46:05 2012 -0400
+++ b/hedgewars/uRandom.pas	Wed Aug 22 11:42:42 2012 -0400
@@ -65,7 +65,7 @@
 procedure SetRandomSeed(Seed: shortstring);
 var i: Longword;
 begin
-n:= 54;
+initModule;
 
 if Length(Seed) > 54 then
     Seed:= copy(Seed, 1, 54); // not 55 to ensure we have odd numbers in cirbuf