gh/src/ascii_arts_m.pas

unit ascii_arts_m;

interface
const
    HamsterHeight = 5;
    HamsterLifesWidth = 13;
    MaxBannerWidth = 98;
    MaxBannerHeight = 42;
    DigitHeight = 5;
    DigitWidth = 5;
type
    CreatureImage = array[1..HamsterHeight] of string[HamsterLifesWidth];
    BannerImage = array[1..MaxBannerHeight] of string[MaxBannerWidth];
    DigitImage = array[1..DigitHeight] of string[DigitWidth];
const
    DigitsAscii: array[0..9] of DigitImage = (
        (
            '@@@@@',
            '@   @',
            '@   @',
            '@   @',
            '@@@@@'
        ),
        (
            '  @  ',
            ' @@  ',
            '@ @  ',
            '  @  ',
            '@@@@@'
        ),
        (
            '@@@@@',
            '    @',
            '@@@@@',
            '@    ',
            '@@@@@'
        ),
        (
            '@@@@@',
            '    @',
            '@@@@@',
            '    @',
            '@@@@@'
        ),
        (
            '@   @',
            '@   @',
            '@@@@@',
            '    @',
            '    @'
        ),
        (
            '@@@@@',
            '@    ',
            '@@@@@',
            '    @',
            '@@@@@'
        ),
        (
            '@@@@@',
            '@    ',
            '@@@@@',
            '@   @',
            '@@@@@'
        ),
        (
            '@@@@@',
            '    @',
            '    @',
            '    @',
            '    @'
        ),
        (
            '@@@@@',
            '@   @',
            '@@@@@',
            '@   @',
            '@@@@@'
        ),
        (
            '@@@@@',
            '@   @',
            '@@@@@',
            '    @',
            '@@@@@'
        )
    );

const
    YesHeight = 6;
    NoHeight = 4;
    NoWidth = 13; 
    HamsterWidth = 7;

    HamsterStayAscii: CreatureImage = (
        ' (\_/)',
        '( 0_0 )',
        '/-----\',
        ' |___|',
        ' /   \'
    );

    {
    HamsterStayAscii: CreatureImage = (
        ' (\_/)',
        '( 0_0 )',
        '/-----\',
        ' |___|',
        ' /   \'
    );
    }

    HamsterRunNX = 4;
    HamsterRightAscii: array[1..HamsterRunNX] of CreatureImage = (
        (
           '  _/)',
           ' (  0)',
           ' |  \_',
           ' |___|',
           '--   \'
        ),
        (
           '  _/)',
           ' (  0)',
           ' | |_|',
           ' |___|',
           '   |>'
        ),
        (
           '  _/)',
           ' (  0)',
           ' |/_ |-',
           ' |___|',
           '--   \'
        ),
        (
           '  _/) ',
           ' (  0)',
           ' | |_|',
           ' |___|',
           '   >| '
        )
    );

    HamsterLeftAscii: array[1..HamsterRunNX] of CreatureImage = (
        (
           '  (\_ ',
           ' (0  )',
           ' _/  |',
           ' |___|',
           ' /   --'
        ),
        (
           '  (\_ ',
           ' (0  )',
           ' |_| |',
           ' |___|',
           '  <|'
        ),
        (
           '  (\_',
           ' (0  )',
           '-| _\|',
           ' |___|',
           ' /   --' 
        ),
        (
           '  (\_',
           ' (0  )',
           ' |_| |',
           ' |___|',
           '  |<'
        )
    );

    HamsterRunNY = 2;
    HamsterDownAscii: array[1..HamsterRunNY] of CreatureImage = (
        (
           ' (\_/)',
           '( 0_o )',
           '\----- ',
           ' |___|\',
           ' -   |'
        ),
        (
           ' (\_/)',
           '( o_0 )',
           ' -----/',
           '/|___|',
           ' |   -'
        )
    );

    HamsterUpAscii: array[1..HamsterRunNY] of CreatureImage = (
        (
           ' (\_/)',
           '(     )',
           '\----- ',
           ' |_*_|\',
           ' -   |'
        ),
        (
           ' (\_/)',
           '(     )',
           ' -----/',
           '/|_*_|',
           ' |   -'
        )
    );

    HamsterGGAscii: CreatureImage = (
        ' (\_/)',
        '( G_G )',
        '/-----\',
        ' |___|',
        ' /   \'
    );

    HamsterLifesAscii: CreatureImage = (
        ' (\_/)       ',
        '( 0_0 )   \ /',
        '/-----\    X ',
        ' |___|    / \',
        ' /   \       '
    );

    GhostHeight = 3;
    GhostWidth = 7;
    GhostRunN = 2;
    GhostAscii: array[1..GhostRunN] of CreatureImage = (
        (
            '  ___',
            ' /0 0\',
            '\/VvV\/',
            '',
            ''
        ),
        (
            '  ___',
            ' /0 0\',
            '\_____/',
            '',
            ''
        )
    ); 

    SunHeight = 4;
    SunWidth = 7;
    SunRunN = 2;
    SunAscii: array[1..SunRunN] of CreatureImage = (
        (
            '  _A_',
            ' /   \',
            '<|o o|>',
            ' \_^_/',
            ''
        ),
        (
            '  _A_',
            ' /   \',
            '{-o o-}',
            ' \_^_/',
            ''
        )
    );

    GoidaSunHeight = 4;
    GoidaSunAscii: CreatureImage = (
        '  ___',
        ' / Z \',
        '||> <||',
        ' \___/',
        ''
    );

    SnakeHeight = 5;
    SnakeWidth = 7;
    SnakeRunN = 2;
    SnakeAscii: array[1..SnakeRunN] of CreatureImage = (
        (
            '   /v\ ',
            '3 |o  |',
            '\\ \ / ',
            ' \\_\\ ',
            '  \_// '
        ),
        (
            '   /v\ ',
            '   o   ',
            '\\ \ / ',
            '       ',
            '  \_// '
        )
    );

    DropHeight = 5;
    DropWidth = 7;
    DropAscii: CreatureImage = (
        '   _',
        '  / \',
        ' /   \',
        '/ 0_0 \',
        '\_____/'
    );

implementation
end.