hedgewars/uLandObjects.pas
changeset 2602 3deb9ff104da
parent 2599 c7153d2348f3
child 2603 abed6070a669
equal deleted inserted replaced
2601:21ed7cec1fa2 2602:3deb9ff104da
    88 	begin
    88 	begin
    89 	for x:= 0 to Pred(Width) do
    89 	for x:= 0 to Pred(Width) do
    90 		if LandPixels[cpY + y, cpX + x] = 0 then
    90 		if LandPixels[cpY + y, cpX + x] = 0 then
    91 			begin
    91 			begin
    92 			LandPixels[cpY + y, cpX + x]:= p^[x];
    92 			LandPixels[cpY + y, cpX + x]:= p^[x];
    93 			if (p^[x] and AMask) <> 0 then Land[cpY + y, cpX + x]:= COLOR_LAND;
    93 			if (p^[x] and AMask) <> 0 then Land[cpY + y, cpX + x]:= COLOR_OBJECT;
    94 			end;
    94 			end;
    95 	p:= @(p^[Image^.pitch shr 2]);
    95 	p:= @(p^[Image^.pitch shr 2]);
    96 	end;
    96 	end;
    97 
    97 
    98 if SDL_MustLock(Image) then
    98 if SDL_MustLock(Image) then