# HG changeset patch
# User Wuzzy <Wuzzy2@mail.ru>
# Date 1538688560 -7200
# Node ID 35ba3a550cade0df1456b1fdfb6a18569de7dd89
# Parent  b2cc4e4e380cd58d7aff6b652b014c7d1f582922
Backed out changeset 5f6208031658 (fixes 652)

diff -r b2cc4e4e380c -r 35ba3a550cad 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