# HG changeset patch
# User nemo
# Date 1337633184 14400
# Node ID 2468316c1d9dc56eacee9ab4efd8cca6bd96d2d3
# Parent  1c1afb5a15652d4890c6e6bf9a4de6d0842c6123
checksum

diff -r 1c1afb5a1565 -r 2468316c1d9d 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