hedgewars/tunsetborder.inc
author unc0rr
Sat, 07 Jan 2006 15:21:44 +0000
changeset 39 b78e7185ed13
parent 38 c1ec4b15d70e
child 53 0e27949850e3
permissions -rw-r--r--
- Increased FPS - Dynamite, not full implemetation - Bots can use Desert Eagle - Various fixes for collisions with hhs and ammo - Simplified mine code

        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;