hedgewars/uScript.pas
changeset 13863 35ba3a550cad
parent 13857 10a3b80130b5
child 13872 f01798038c2e
--- a/hedgewars/uScript.pas	Thu Oct 04 21:17:21 2018 +0200
+++ b/hedgewars/uScript.pas	Thu Oct 04 23:29:20 2018 +0200
@@ -3565,6 +3565,7 @@
 var mybuf: PChar;
     i: LongInt;
 begin
+    SetRandomSeed(cSeed,true);
     mybuf := physfsReader(L, f, sz);
     if (mybuf <> nil) and ((sz^) > 0) then
         begin