# HG changeset patch
# User nemo
# Date 1505219521 14400
# Node ID 2660611f8b220d9d2c97179c528fd13a9bb221ea
# Parent  a675a94b5cc1e246137d810ba2674ac7f73f55bb
This should be ok right?

diff -r a675a94b5cc1 -r 2660611f8b22 hedgewars/hwengine.pas
--- a/hedgewars/hwengine.pas	Mon Sep 11 14:28:58 2017 -0400
+++ b/hedgewars/hwengine.pas	Tue Sep 12 08:32:01 2017 -0400
@@ -80,6 +80,7 @@
                 AddClouds;
             AddFlakes;
             SetRandomSeed(cSeed, false);
+            AddRandomness(CheckSum);
             StoreLoad(false);
             if not allOK then exit;
             AssignHHCoords;
diff -r a675a94b5cc1 -r 2660611f8b22 hedgewars/uScript.pas
--- a/hedgewars/uScript.pas	Mon Sep 11 14:28:58 2017 -0400
+++ b/hedgewars/uScript.pas	Tue Sep 12 08:32:01 2017 -0400
@@ -3011,9 +3011,9 @@
                         inComment := true
                     // gonna add any non-magic whitespace and skip - just to make comment avoidance easier
                     else if not inComment and (byte(mybuf[i]) > $20) and (byte(mybuf[i]) < $7F) and (mybuf[i]<>'-') then
-                       AddRandomness(byte(mybuf[i]));
+                       CheckSum := CheckSum xor (byte(mybuf[i]) shl (i mod 4));
                     lastChar := mybuf[i];
-                    if inComment and ((byte(mybuf[i]) = $0D) or (byte(mybuf[i]) = $0A)) then
+                    if (byte(mybuf[i]) = $0D) or (byte(mybuf[i]) = $0A) then
                         inComment := false 
                 end;
         end;