labyrinth.c

#include "labyrinth.h"

int main(void) {

    // Recommended by man page
    setlocale(LC_ALL, "");

    //printf("Which level would you like to start from? (0-1)");
    //scanf("%d", currentlvl);

    initscr();

    // Needs testing. Is it necessary to check for this?
    if (!has_colors()) {
        endwin();
        printf("Your terminal does not support color.\n");
        return 1;
    }

    // These dimensions are somewhat arbitrary, but they have to be bigger than the map we use
    win = newwin(36, 72, 0, 0);

    // Read a character at a time without waiting for newline or carriage return
    cbreak();

    // Don't print keypresses
    noecho();

    // Don't translate return key into newline
    nonl();

    // Don't flush tty driver queue contents if an interrupt key is pressed, as it messes up the screen contents
    intrflush(win, FALSE);

    // Enable use of the keypad
    keypad(win, TRUE);

    // Enable scrolling if moving past the terminal edge.
    //idlok(win, TRUE);
    //scrollok(win, TRUE);

    startgame();

    // Must be called before exiting so our terminal doesn't behave weirdly
    endwin();
    return 0;
}

int startgame() {
    confcolors();
    drawmap(levels[currentlvl]);
    inputloop();
    return 0;
}

int confcolors() {
    start_color();

    // In case we wanted to color our cursor, but let's leave this disabled for now
    //printf("\e]12;%s\a", "green");
    //fflush(stdout);

    // Color used for one-directional blocks like <, >, v and ^
    init_pair(1, COLOR_YELLOW, COLOR_BLACK);

    // Color used for the goal block, *
    init_pair(2, COLOR_BLACK, COLOR_GREEN);

    // Color used by the wall block, 'o'
    init_pair(3, COLOR_RED, COLOR_RED);
    return 0;
}

int drawmap(filename) char* filename; {
    wmove(win, 0, 0);
    FILE *fp;
    int c;
    fp = fopen(filename, "r");
    while (1) {
        c = fgetc(fp);
        if (feof(fp)) {
            break;
        }
        switch (c) {
            case '<':
            case '>':
            case '^':
            case 'v':
                wattron(win, COLOR_PAIR(1));
                wprintw(win, "%c", c);
                wattroff(win, COLOR_PAIR(1));
                break;
            case '*':
                wattron(win, COLOR_PAIR(2));
                wprintw(win, "%c", c);
                wattroff(win, COLOR_PAIR(2));
                break;
            case 'o':
                wattron(win, COLOR_PAIR(3));
                wprintw(win, "%c", c);
                wattroff(win, COLOR_PAIR(3));
                break;
            default:
                 wprintw(win, "%c", c);
                 break;
        }
    }
    fclose(fp);
    wmove(win, y, x);
    return 0;
}

int inputloop() {
    for (;;) {
        int next_y = y;
        int next_x = x;
        int keypress = wgetch(win);
        switch (keypress) {
            case 'q':
                return 0;
            case 'h':
            case 'a':
            case KEY_LEFT:
                next_x--;
                break;
            case 'j':
            case 's':
            case KEY_DOWN:
                next_y++;
                break;
            case 'k':
            case 'w':
            case KEY_UP:
                next_y--;
                break;
            case 'd':
            case 'l':
            case KEY_RIGHT:
                next_x++;
                break;
        }
        if (handlemovement(next_y, next_x)) {
            break;
        }
        wrefresh(win);
    }

    return 0;
}

int handlemovement (int next_y, int next_x) {
    chtype nextchar = mvwinch(win, next_y, next_x);
    // We can't compare nextchar to '>' because '>' is colored. Using ints is a workaround.
    switch (nextchar) {
        // >
        case 318:
            if (next_x > x)  {
                x = next_x;
            }
            break;
        // <
        case 316:
            if (next_x < x) {
                x = next_x;
            }
            break;
        // v
        case 374:
            if (next_y > y) {
                y = next_y;
            }
            break;
        // ^
        case 350:
            if (next_y < y) {
                y = next_y;
            }
            break;
        // *
        case 554:
            winlvl();
            return 1;
            break;
        case ' ':
            x = next_x;
            y = next_y;
            break;
        default:
            // Debug function for getting the code of the char we run into
            //wprintw(win, "%d", nextchar);
            break;
    }
    wmove(win, y, x);
    return 0;
}

int winlvl() {
    WINDOW* victorywin = newwin(3, 19, 1, 1);
    wmove(victorywin, 1, 1);
    box(victorywin, '|', '-');
    wprintw(victorywin, "Level %d complete!", currentlvl);
    wrefresh(victorywin);
    wgetch(victorywin);
    delwin(victorywin);
    return 0;
}