hedgewars/uScript.pas
changeset 12848 076d00110223
parent 12847 1aba77b2e4ac
child 12910 383445810e42
--- a/hedgewars/uScript.pas	Wed Nov 29 20:35:56 2017 -0500
+++ b/hedgewars/uScript.pas	Wed Nov 29 20:38:26 2017 -0500
@@ -3059,7 +3059,7 @@
 var mybuf: PChar;
     i: LongInt;
 begin
-    SetRandomSeed(cSeed,false);
+    SetRandomSeed(cSeed,true);
     mybuf := physfsReader(L, f, sz);
     if (mybuf <> nil) and ((sz^) > 0) then
         begin