--- a/hedgewars/tunsetborder.inc	Sun Aug 06 20:08:15 2006 +0000
+++ b/hedgewars/tunsetborder.inc	Sun Aug 06 20:58:05 2006 +0000
@@ -4,14 +4,5 @@
         tx:= round(X);
         ty:= round(Y);
         if ((ty and $FFFFFC00) = 0) and ((tx and $FFFFF800) = 0)and (Land[ty, tx] = $FFFFFF) 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
+           SetLandPixel(ty, tx)
 	end;
\ No newline at end of file