This is a desyncing change. But... We might need a new release anyway. ☹
authornemo
Wed, 29 Nov 2017 20:35:56 -0500
changeset 12852 1aba77b2e4ac
parent 12851 e5c461729fe3
child 12853 076d00110223
This is a desyncing change. But... We might need a new release anyway. ☹
hedgewars/uCommandHandlers.pas
hedgewars/uScript.pas
--- a/hedgewars/uCommandHandlers.pas	Wed Nov 29 13:54:39 2017 +0100
+++ b/hedgewars/uCommandHandlers.pas	Wed Nov 29 20:35:56 2017 -0500
@@ -533,7 +533,7 @@
     cSeed:= s;
     InitStepsFlags:= InitStepsFlags or cifRandomize
     end
-    end;
+end;
 
 procedure chAmmoMenu(var s: shortstring);
 begin
--- 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