diff -r 08f1fe6f21f8 -r ab0340f580c2 hedgewars/uLandGraphics.pas
--- a/hedgewars/uLandGraphics.pas	Fri Aug 11 20:00:29 2006 +0000
+++ b/hedgewars/uLandGraphics.pas	Sat Aug 12 17:41:02 2006 +0000
@@ -154,7 +154,7 @@
 end;
 
 procedure DrawHLinesExplosions(ar: PRangeArray; Radius: integer; y, dY: integer; Count: Byte);
-var tx, ty, i: integer;
+var tx, ty, i: LongInt;
 begin
 if SDL_MustLock(LandSurface) then
    SDL_LockSurface(LandSurface);
@@ -188,8 +188,8 @@
 //
 procedure DrawTunnel(X, Y, dX, dY: Double; ticks, HalfWidth: integer);
 var nx, ny: Double;
-    i, t, tx, ty: integer;
-begin  // (-dY, dX) is (dX, dY) turned by PI/2
+    i, t, tx, ty: Longint;
+begin  // (-dY, dX) is (dX, dY) rotated by PI/2
 if SDL_MustLock(LandSurface) then
    SDL_LockSurface(LandSurface);