equal
deleted
inserted
replaced
549 |
549 |
550 procedure MakeFortsMap; |
550 procedure MakeFortsMap; |
551 var tmpsurf: PSDL_Surface; |
551 var tmpsurf: PSDL_Surface; |
552 begin |
552 begin |
553 WriteLnToConsole('Generating forts land...'); |
553 WriteLnToConsole('Generating forts land...'); |
554 TryDo(ClansCount = 2, 'More or less than 2 clans on map in forts mode!', true); |
|
555 |
554 |
556 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); |
557 BlitImageAndGenerateCollisionInfo(0, 0, 1024, tmpsurf); |
556 BlitImageAndGenerateCollisionInfo(0, 0, 1024, tmpsurf); |
558 SDL_FreeSurface(tmpsurf); |
557 SDL_FreeSurface(tmpsurf); |
559 |
558 |