Mercurial Mercurial > hedgewars / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
hedgewars/tunsetborder.inc
changeset 101 f568cc72ea8c
parent 53 0e27949850e3
child 184 f97a7a3dc8f6 
--- 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
hedgewars