cosplay.pas

unit cosplay;

interface
    uses gears,sdlgfx,sdlmenus,colormenu,sdl;

    Procedure DoCosplay();


implementation
    Procedure RedrawOpening;
        { The opening menu redraw procedure. }
    begin
        ClrScreen;
        ClearExtendedBorder( ZONE_Menu.GetRect() );
    end;

    Procedure BrowseByType( FPat: String; width,height,frames,ColorMode: Integer );
        { Browse the images by file pattern and color mode. }
    var
        FileMenu: RPGMenuPtr;
        SpriteName: String;
    begin
        FileMenu := CreateRPGMenu( MenuItem , MenuSelect , ZONE_Menu );
        if FPat = '' then begin
            { We want all the mecha. All of them!!! }
            BuildFileMenu( FileMenu , Graphics_Directory + 'aer_*.png' );
            BuildFileMenu( FileMenu , Graphics_Directory + 'ara_*.png' );
            BuildFileMenu( FileMenu , Graphics_Directory + 'btr_*.png' );
            BuildFileMenu( FileMenu , Graphics_Directory + 'gca_*.png' );
            BuildFileMenu( FileMenu , Graphics_Directory + 'ger_*.png' );
            BuildFileMenu( FileMenu , Graphics_Directory + 'ghu_*.png' );
            BuildFileMenu( FileMenu , Graphics_Directory + 'hov_*.png' );
            BuildFileMenu( FileMenu , Graphics_Directory + 'orn_*.png' );
            BuildFileMenu( FileMenu , Graphics_Directory + 'zoa_*.png' );

        end else BuildFileMenu( FileMenu , Graphics_Directory + FPat );
        RPMSortAlpha( FileMenu );
        AddRPGMenuItem( FileMenu, MsgString( 'EXIT' ), -1 );
        SpriteName := '';

        repeat
            SpriteName := SelectFile( FileMenu , @RedrawOpening );
            if SpriteName <> '' then SelectColorPalette( ColorMode, SpriteName, '200 0 0 200 200 0 0 200 0', width, height, frames, @ClrScreen );
        until SpriteName = '';

        DisposeRPGMenu( FileMenu );
    end;
    
    Procedure DoCosplay();

    var
        FileMenu: RPGMenuPtr;
        N: Integer;
        MySprite: SensibleSpritePtr;

    begin
        FileMenu := CreateRPGMenu( MenuItem , MenuSelect , ZONE_Menu );

        {MySprite := ConfirmSprite( 'Elisha_Demo.png', '80 40 120 255 230 200 166 47 32', 64, 64 );}
        {SDL_SaveBmp( MySprite^.img , 'out.bmp' );}

        AddRPGMenuItem( FileMenu , 'Browse Portraits' , 1 );
        AddRPGMenuItem( FileMenu , 'Browse Mecha' , 2 );
        AddRPGMenuItem( FileMenu , 'Browse Monsters' , 3 );
        AddRPGMenuItem( FileMenu , 'Browse All' , 4 );

        repeat
            N := SelectMenu( FileMenu , @RedrawOpening );
            case N of
                1: BrowseByType( 'por_*.png' , 100, 150, 0, colormenu_mode_character );
                2: BrowseByType( '' , 64, 64, 8, colormenu_mode_mecha );
                3: BrowseByType( 'monster_*.png' , 64, 64, 8, colormenu_mode_allcolors );
                4: BrowseByType( '*.png' , 211, 308, 0, colormenu_mode_allcolors );
            end;

        until N = -1;



        DisposeRPGMenu( FileMenu );
    end;
end.