6502.org

Code: Select all

/* ------------------
   Roguelike for Sym-1
   Patrick Jackson
   ------------------
*/

#include "symRogue.h"

#define ROW_LEN		16
#define	COL_HGHT	10
#define	MAP_SIZE	ROW_LEN * COL_HGHT
#define ROW_MASK    ( ROW_LEN - 1 )
#define MONS_NUM    3

unsigned char map[ MAP_SIZE ];

#if SYM==1
#pragma bss-name (push,"ZEROPAGE")
unsigned char lpos, direction, glyph, pos, hp, m_i;
#pragma bss-name (pop)
#else
unsigned char lpos, direction, glyph;
unsigned char pos;
unsigned char hp;
unsigned char m_i;
#endif

unsigned char mons_xy[MONS_NUM];
unsigned char mons_ch[MONS_NUM];
unsigned char mons_hp[MONS_NUM];

unsigned char key_input = 0x00;

void printMap()
{
    unsigned char i;

    clrscr();

    for ( i = 0; i < MAP_SIZE; ++i )
    {
        putchar( map[ i ] );
        if ( ! ( ( i + 1 ) & ( ROW_MASK ) ) )
        {
            newline();
        }
    }
}

void chkMCmbt()
{
    //
}

void chkPCmbt()
{
    mons_hp[ m_i ] -= (unsigned char)10;
    printf("Monster: %d\tHP: %d\n", m_i, mons_hp[ m_i ]);
}

unsigned char move()
{
    unsigned char _lpos;

    /* Move character around */
    _lpos = lpos;
    map[ _lpos ] = '.';

    switch ( direction )
    {
    case 'w': case 0:
        _lpos -= ROW_LEN;
        break;
    case 'a': case 1:
        _lpos--;
        break;
    case 's': case 2:
        _lpos += ROW_LEN;
        break;
    case 'd': case 3:
        _lpos++;
    default:
        break;
    }

    /* Check for wall, player, or monster collision */
    if (map[_lpos] == '#')
        _lpos = lpos;
    else if ( (glyph == '@') && (map[_lpos] == 'M'))
    {
        chkPCmbt();
        _lpos = lpos;
    }
    else if (map[_lpos] == '@')
    {
        chkMCmbt();
        _lpos = lpos;
    }
    map[_lpos] = glyph;

    return _lpos;
}

int main()
{
    /* Set up player pos */
    pos = 25;

    for ( m_i = 0; m_i < MONS_NUM; ++m_i )
    {
        mons_xy[ m_i ] = 50;
        mons_hp[ m_i ] = 50;
    }


    clrdraw();

    /* --------- Create map ---------
       Fill entire grid with wall tiles '#' */
    memset( map, '#', MAP_SIZE );
    /* Fill interior with floor tiles '.' */

    for ( m_i = ROW_LEN + 1; m_i < MAP_SIZE - ROW_LEN; m_i += ROW_LEN )
        memset( map + m_i, '.', ROW_LEN - 2 );

    /* --------- Main loop ----------- */
    do
    {
        lpos = pos;
        direction = key_input;
        glyph = '@';
        pos = move();
        for ( m_i = 0; m_i < MONS_NUM; ++m_i )
        {
            lpos = mons_xy[ m_i ];
            direction = rand()  & 0x03;
            glyph = 'M';
            mons_xy[ m_i ] = move();
        }
        printMap();
        key_input = input();
    }
    while ( key_input != 'q' );

    return 0;
}

Code: Select all

        lda     M0002
        beq     L001E
        cmp     #$01
        beq     L001F
        cmp     #$02
        beq     L0020
        cmp     #$03
        beq     L0021
        bra     L0008

Code: Select all

        LDA  M0002
        BEQ  L001E
        DEA
        BEQ  L001F
        DEA
        BEQ  L0020
        DEA
        BEQ  L0021
        BRA  L0008