checksum
authornemo
Mon, 21 May 2012 16:46:24 -0400
changeset 7104 2468316c1d9d
parent 7103 1c1afb5a1565
child 7105 9007531f813f
checksum
hedgewars/uCommandHandlers.pas
--- a/hedgewars/uCommandHandlers.pas	Tue May 22 00:29:32 2012 +0400
+++ b/hedgewars/uCommandHandlers.pas	Mon May 21 16:46:24 2012 -0400
@@ -413,12 +413,19 @@
 
 procedure chNextTurn(var s: shortstring);
 var checksum: Longword;
+    gi: PGear;
 begin
     s:= s; // avoid compiler hint
 
     TryDo(AllInactive, '/nextturn called when not all gears are inactive', true);
 
     checksum:= GameTicks;
+    gi := GearsList;
+    while gi <> nil do
+        begin
+        with gi^ do checksum:= checksum xor X.round xor X.frac xor dX.round xor dX.frac xor Y.round xor Y.frac xor dY.round xor dY.frac;
+        gi := gi^.NextGear
+        end;
 
     if not CurrentTeam^.ExtDriven then
         begin