hedgewars/uLandObjects.pas
changeset 1185 a17732fbaf35
parent 1184 852f8872da1a
child 1186 bf5af791d234
equal deleted inserted replaced
1184:852f8872da1a 1185:a17732fbaf35
   181 
   181 
   182 if x1 > 0 then
   182 if x1 > 0 then
   183 	begin
   183 	begin
   184 	Result:= true;
   184 	Result:= true;
   185 	tmpsurf:= LoadImage(Pathz[ptCurrTheme] + '/Girder', false, false, true);
   185 	tmpsurf:= LoadImage(Pathz[ptCurrTheme] + '/Girder', false, false, true);
   186 	if tmpsurf = nil then LoadImage(Pathz[ptGraphics] + '/Girder', false, true, true);
   186 	if tmpsurf = nil then tmpsurf:= LoadImage(Pathz[ptGraphics] + '/Girder', false, true, true);
   187 	
   187 	
   188 	rr.x:= x1;
   188 	rr.x:= x1;
   189 	while rr.x < x2 do
   189 	while rr.x < x2 do
   190 		begin
   190 		begin
   191 		BlitImageAndGenerateCollisionInfo(rr.x, y, min(x2 - rr.x, tmpsurf^.w), tmpsurf);
   191 		BlitImageAndGenerateCollisionInfo(rr.x, y, min(x2 - rr.x, tmpsurf^.w), tmpsurf);