--- 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