481 begin |
481 begin |
482 p:= TeamsList; |
482 p:= TeamsList; |
483 TryDo(p <> nil, 'No teams on map!', true); |
483 TryDo(p <> nil, 'No teams on map!', true); |
484 with PixelFormat^ do |
484 with PixelFormat^ do |
485 LandSurface:= SDL_CreateRGBSurface(SDL_HWSURFACE, 2048, 1024, BitsPerPixel, RMask, GMask, BMask, 0); |
485 LandSurface:= SDL_CreateRGBSurface(SDL_HWSURFACE, 2048, 1024, BitsPerPixel, RMask, GMask, BMask, 0); |
486 tmpsurf:= LoadImage(Pathz[ptForts] + p.FortName + 'L.png'); |
486 tmpsurf:= LoadImage(Pathz[ptForts] + p.FortName + 'L.png', false); |
487 BlitImageAndGenerateCollisionInfo(0, 0, tmpsurf, LandSurface); |
487 BlitImageAndGenerateCollisionInfo(0, 0, tmpsurf, LandSurface); |
488 SDL_FreeSurface(tmpsurf); |
488 SDL_FreeSurface(tmpsurf); |
489 LoadFortPoints(p.FortName, false, TeamSize(p)); |
489 LoadFortPoints(p.FortName, false, TeamSize(p)); |
490 p:= p.Next; |
490 p:= p.Next; |
491 TryDo(p <> nil, 'Only one team on map!', true); |
491 TryDo(p <> nil, 'Only one team on map!', true); |
492 tmpsurf:= LoadImage(Pathz[ptForts] + p.FortName + 'R.png'); |
492 tmpsurf:= LoadImage(Pathz[ptForts] + p.FortName + 'R.png', false); |
493 BlitImageAndGenerateCollisionInfo(1024, 0, tmpsurf, LandSurface); |
493 BlitImageAndGenerateCollisionInfo(1024, 0, tmpsurf, LandSurface); |
494 SDL_FreeSurface(tmpsurf); |
494 SDL_FreeSurface(tmpsurf); |
495 LoadFortPoints(p.FortName, true, TeamSize(p)); |
495 LoadFortPoints(p.FortName, true, TeamSize(p)); |
496 p:= p.Next; |
496 p:= p.Next; |
497 TryDo(p = nil, 'More than 2 teams on map in forts mode!', true); |
497 TryDo(p = nil, 'More than 2 teams on map in forts mode!', true); |