hedgewars/uLandObjects.pas
changeset 1184 852f8872da1a
parent 1183 540cea859395
child 1185 a17732fbaf35
equal deleted inserted replaced
1183:540cea859395 1184:852f8872da1a
   180 until y > 900;
   180 until y > 900;
   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[ptGraphics] + '/Girder', false, true, true);
   185 	tmpsurf:= LoadImage(Pathz[ptCurrTheme] + '/Girder', false, false, true);
       
   186 	if tmpsurf = nil then LoadImage(Pathz[ptGraphics] + '/Girder', false, true, true);
       
   187 	
   186 	rr.x:= x1;
   188 	rr.x:= x1;
   187 	while rr.x < x2 do
   189 	while rr.x < x2 do
   188 		begin
   190 		begin
   189 		BlitImageAndGenerateCollisionInfo(rr.x, y, min(x2 - rr.x, tmpsurf^.w), tmpsurf);
   191 		BlitImageAndGenerateCollisionInfo(rr.x, y, min(x2 - rr.x, tmpsurf^.w), tmpsurf);
   190 		inc(rr.x, tmpsurf^.w);
   192 		inc(rr.x, tmpsurf^.w);