--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/hedgewars/tunsetborder.inc	Thu Jan 05 22:55:45 2006 +0000
@@ -0,0 +1,17 @@
+        begin
+        X:= X + dX;
+        Y:= Y + dY;
+        tx:= round(X);
+        ty:= round(Y);
+        if ((ty and $FFFFFC00) = 0) and ((tx and $FFFFF800) = 0)and (Land[ty, tx] <> 0) then
+        case LandSurface.format.BytesPerPixel of
+             1: ;
+             2: PWord(p + LandSurface.pitch * ty + tx * 2)^:= cExplosionBorderColor;
+             3: begin
+                PByte(p + LandSurface.pitch * ty + tx * 3 + 0)^:= cExplosionBorderColor and $FF;
+                PByte(p + LandSurface.pitch * ty + tx * 3 + 1)^:= (cExplosionBorderColor shr 8) and $FF;
+                PByte(p + LandSurface.pitch * ty + tx * 3 + 2)^:= (cExplosionBorderColor shr 16);
+                end;
+             4: PLongword(p + LandSurface.pitch * ty + tx * 4)^:= cExplosionBorderColor;
+             end
+	end;
\ No newline at end of file