Mercurial Mercurial > hedgewars / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
This is a desyncing change. But... We might need a new release anyway. ☹
authornemo
Wed, 29 Nov 2017 20:35:56 -0500
changeset 12847 1aba77b2e4ac
parent 12846 e5c461729fe3
child 12848 076d00110223
This is a desyncing change. But... We might need a new release anyway. ☹
hedgewars/uCommandHandlers.pas file | annotate | diff | comparison | revisions
hedgewars/uScript.pas file | annotate | diff | comparison | revisions 
--- 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
hedgewars