hedgewars/uLand.pas
changeset 1537 d34ef0fb003d
parent 1428 0855275d443f
child 1738 00e8dadce69a
equal deleted inserted replaced
1536:d5ddfd8fa518 1537:d34ef0fb003d
   554 
   554 
   555 tmpsurf:= LoadImage(Pathz[ptForts] + '/' + ClansArray[0]^.Teams[0]^.FortName + 'L', true, true, true);
   555 tmpsurf:= LoadImage(Pathz[ptForts] + '/' + ClansArray[0]^.Teams[0]^.FortName + 'L', true, true, true);
   556 BlitImageAndGenerateCollisionInfo(0, 0, 1024, tmpsurf);
   556 BlitImageAndGenerateCollisionInfo(0, 0, 1024, tmpsurf);
   557 SDL_FreeSurface(tmpsurf);
   557 SDL_FreeSurface(tmpsurf);
   558 
   558 
   559 tmpsurf:= LoadImage(Pathz[ptForts] + '/' + ClansArray[0]^.Teams[0]^.FortName + 'R', true, true, true);
   559 tmpsurf:= LoadImage(Pathz[ptForts] + '/' + ClansArray[1]^.Teams[0]^.FortName + 'R', true, true, true);
   560 BlitImageAndGenerateCollisionInfo(1024, 0, 1024, tmpsurf);
   560 BlitImageAndGenerateCollisionInfo(1024, 0, 1024, tmpsurf);
   561 SDL_FreeSurface(tmpsurf);
   561 SDL_FreeSurface(tmpsurf);
   562 
   562 
   563 UpdateLandTexture(0, 1023)
   563 UpdateLandTexture(0, 1023)
   564 end;
   564 end;