Backed out changeset 5f6208031658 (fixes 652)
authorWuzzy <Wuzzy2@mail.ru>
Thu, 04 Oct 2018 23:29:20 +0200
changeset 13847 35ba3a550cad
parent 13846 b2cc4e4e380c
child 13848 7c333cffd63e
Backed out changeset 5f6208031658 (fixes 652)
hedgewars/uScript.pas
--- 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