hedgewars/uScript.pas
changeset 12460 2660611f8b22
parent 12459 a675a94b5cc1
child 12462 19e7838bedad
--- 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;