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