474 |
474 |
475 GenBlank(EdgeTemplates[SelectTemplate]); |
475 GenBlank(EdgeTemplates[SelectTemplate]); |
476 |
476 |
477 AddProgress; |
477 AddProgress; |
478 with PixelFormat^ do |
478 with PixelFormat^ do |
479 tmpsurf:= SDL_CreateRGBSurface(SDL_HWSURFACE, 2048, 1024, BitsPerPixel, RMask, GMask, BMask, 0); |
479 tmpsurf:= SDL_CreateRGBSurface(SDL_HWSURFACE, 2048, 1024, BitsPerPixel, RMask, GMask, BMask, AMask); |
480 TryDo(tmpsurf <> nil, 'Error creating pre-land surface', true); |
480 TryDo(tmpsurf <> nil, 'Error creating pre-land surface', true); |
481 ColorizeLand(tmpsurf); |
481 ColorizeLand(tmpsurf); |
482 AddProgress; |
482 AddProgress; |
483 AddBorder(tmpsurf); |
483 AddBorder(tmpsurf); |
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, AMask); |
486 TryDo(LandSurface <> nil, 'Error creating land surface', true); |
486 TryDo(LandSurface <> nil, 'Error creating land surface', true); |
487 SDL_FillRect(LandSurface, nil, 0); |
487 SDL_FillRect(LandSurface, nil, 0); |
488 AddProgress; |
488 AddProgress; |
489 |
489 |
490 SDL_SetColorKey(tmpsurf, SDL_SRCCOLORKEY, 0); |
490 SDL_SetColorKey(tmpsurf, SDL_SRCCOLORKEY, 0); |
500 begin |
500 begin |
501 WriteLnToConsole('Generating forts land...'); |
501 WriteLnToConsole('Generating forts land...'); |
502 p:= TeamsList; |
502 p:= TeamsList; |
503 TryDo(p <> nil, 'No teams on map!', true); |
503 TryDo(p <> nil, 'No teams on map!', true); |
504 with PixelFormat^ do |
504 with PixelFormat^ do |
505 LandSurface:= SDL_CreateRGBSurface(SDL_HWSURFACE, 2048, 1024, BitsPerPixel, RMask, GMask, BMask, 0); |
505 LandSurface:= SDL_CreateRGBSurface(SDL_HWSURFACE, 2048, 1024, BitsPerPixel, RMask, GMask, BMask, AMask); |
506 SDL_FillRect(LandSurface, nil, 0); |
506 SDL_FillRect(LandSurface, nil, 0); |
507 tmpsurf:= LoadImage(Pathz[ptForts] + '/' + p.FortName + 'L', false); |
507 tmpsurf:= LoadImage(Pathz[ptForts] + '/' + p.FortName + 'L', false); |
508 BlitImageAndGenerateCollisionInfo(0, 0, tmpsurf, LandSurface); |
508 BlitImageAndGenerateCollisionInfo(0, 0, tmpsurf, LandSurface); |
509 SDL_FreeSurface(tmpsurf); |
509 SDL_FreeSurface(tmpsurf); |
510 p:= p.Next; |
510 p:= p.Next; |