--- 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);
--- 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;
--- 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);