# HG changeset patch
# User unc0rr
# Date 1200091674 0
# Node ID 43f3ef079f53065ac82d97cb1aedfa4d530cd124
# Parent  44f167938201c21de32e156503c7e249bf750ecc
Some debug stuff

diff -r 44f167938201 -r 43f3ef079f53 hedgewars/uGears.pas
--- a/hedgewars/uGears.pas	Fri Jan 11 21:45:24 2008 +0000
+++ b/hedgewars/uGears.pas	Fri Jan 11 22:47:54 2008 +0000
@@ -965,6 +965,7 @@
         repeat
           inc(y, 2);
         until (y > 1023) or (CountNonZeroz(x, y, Gear^.Radius - 1) = 0);
+AddFileLog('x, sy = ' + inttostr(x) + ', ' + inttostr(y));
         sy:= y;
         repeat
           inc(y);
diff -r 44f167938201 -r 43f3ef079f53 hedgewars/uLand.pas
--- a/hedgewars/uLand.pas	Fri Jan 11 21:45:24 2008 +0000
+++ b/hedgewars/uLand.pas	Fri Jan 11 22:47:54 2008 +0000
@@ -29,6 +29,7 @@
 procedure GenMap;
 function GenPreview: TPreview;
 procedure CheckLandDigest(s: shortstring);
+procedure LogLandDigest;
 
 implementation
 uses uConsole, uStore, uMisc, uConsts, uRandom, uTeams, uLandObjects, uSHA, uIO;
@@ -51,7 +52,7 @@
        +inttostr(dig[2])+':'
        +inttostr(dig[3])+':'
        +inttostr(dig[4])+'}';
-CheckLandDigest(s);
+//CheckLandDigest(s);
 SendIPCRaw(@s[0], Length(s) + 1)
 end;
 
diff -r 44f167938201 -r 43f3ef079f53 hedgewars/uLandGraphics.pas
--- a/hedgewars/uLandGraphics.pas	Fri Jan 11 21:45:24 2008 +0000
+++ b/hedgewars/uLandGraphics.pas	Fri Jan 11 22:47:54 2008 +0000
@@ -222,6 +222,8 @@
 
 if SDL_MustLock(LandSurface) then
    SDL_UnlockSurface(LandSurface);
+
+LogLandDigest
 end;
 
 procedure DrawHLinesExplosions(ar: PRangeArray; Radius: LongInt; y, dY: LongInt; Count: Byte);