graphics-poke.h

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>
#include <conio.h>
#include <peekpoke.h>
//#include "c64.h"
//#include "types.h"
//#include "all.h"
//#include "items.h"
//#include "room.h"

/* Graphics */
#define INLIGHTCONE(x,y,px,py) \
    ((x == px + 1 || x == px - 1 || x == px) && \
     (y == py + 1 || y == py - 1 || y == py))

void DrawRoom(Room *DR) {
    int i,j,RoomDoorIX,RoomDoorIY;
    bool isDoor,isOpened,isDoor1,isOpened1;
    unsigned char wallColor = L>0 ? C64_COLOR_GREEN : C64_COLOR_BLUE;
    unsigned char doorColor = L>0 ? C64_COLOR_BROWN : C64_COLOR_BLUE;
    Door RoomDoorsX[6];
    Door RoomDoorsY[6];

    //Find doors for room
    RoomDoorIX=0;
    RoomDoorIY=0;
    for(i=0;i<=DoorI;i++) {
        if((Doors[i].x == DR->x1 || Doors[i].x == DR->x2) && Doors[i].y>=DR->y1 && Doors[i].y<=DR->y2) {
            RoomDoorsX[RoomDoorIX]=Doors[i];
            RoomDoorIX++;
        }
        else if((Doors[i].y == DR->y1 || Doors[i].y == DR->y2) && Doors[i].x>=DR->x1 && Doors[i].x<=DR->x2) {
            RoomDoorsY[RoomDoorIY]=Doors[i];
            RoomDoorIY++;
        }
    }

    if(DR->Discovered==true) {
        for(i=DR->x1; i<=DR->x2; i++) {
            if(RoomDoorIY==0) {
                //No doors draw wall
                POKE_INK(i,DR->y1,wallColor);
                WRITE_CHAR(i,DR->y1,ChHWall);
            } else {
                //Search Y axis doors
                isDoor=false;
                isOpened=false;
                for(j=0; j<=RoomDoorIY; j++) {
                    if(RoomDoorsY[j].x==i && RoomDoorsY[j].y==DR->y1) {
                        isDoor=true;
                        isOpened=RoomDoorsY[j].Opened;
                    }
                }
                if(!isDoor) {
                    //Not a door draw wall
                    POKE_INK(i,DR->y1,wallColor);
                    WRITE_CHAR(i,DR->y1,ChHWall);
                }
                else {
                    if(!isOpened) {
                        //Closed door
                        POKE_INK(i,DR->y1,doorColor);
                        WRITE_CHAR(i,DR->y1,ChDoor);
                    }
                    else {
                        //Open door - if player not in way
                        if(CPlayer.x != i && CPlayer.y != DR->y1) WRITE_CHAR(i,DR->y1,ChSpace);
                    }
                }
            }
        }

        for(i=DR->y1+1; i<=DR->y2; i++) {
            if(RoomDoorIX==0) {
                //No doors draw walls
                POKE_INK(DR->x1,i,wallColor);
                POKE_INK(DR->x2,i,wallColor);
                WRITE_CHAR(DR->x1,i,ChVWall);
                WRITE_CHAR(DR->x2,i,ChVWall);
            } else {
                //Search X axis doors
                isDoor=false;
                isOpened=false;
                isDoor1=false;
                isOpened1=false;
                for(j=0; j<=RoomDoorIX; j++) {
                    if(RoomDoorsX[j].y==i && RoomDoorsX[j].x==DR->x1) {
                        isDoor=true;
                        isOpened=RoomDoorsX[j].Opened;
                    }
                    else if(RoomDoorsX[j].y==i && RoomDoorsX[j].x==DR->x2) {
                        isDoor1=true;
                        isOpened1=RoomDoorsX[j].Opened;
                    }
                }
                if(!isDoor) {
                    //Not a door draw wall at x1
                    POKE_INK(DR->x1,i,wallColor);
                    WRITE_CHAR(DR->x1,i,ChVWall);
                }
                else {
                    if(!isOpened) {
                        //Closed door at x1
                        POKE_INK(DR->x1,i,doorColor);
                        WRITE_CHAR(DR->x1,i,ChDoor);
                    }
                    else {
                        //Open door at x1 if player not there
                        if(CPlayer.x != DR->x1 && CPlayer.y != i) WRITE_CHAR(DR->x1,i,ChSpace);
                    }
                }
                if(!isDoor1) {
                    //Not a door draw wall at x2
                    POKE_INK(DR->x2,i,wallColor);
                    WRITE_CHAR(DR->x2,i,ChVWall);
                }
                else {
                    if(!isOpened1) {
                        //Closed door at x2
                        POKE_INK(DR->x2,i,doorColor);
                        WRITE_CHAR(DR->x2,i,ChDoor);
                    }
                    else {
                        //Open door at x2 if player not in door
                        if(CPlayer.x != DR->x2 && CPlayer.y != i) WRITE_CHAR(DR->x2,i,ChSpace);
                    }
                }
            }
        }

        for(i=DR->x1; i<=DR->x2; i++) {
            if(RoomDoorIY==0) {
                //No doors, draw wall
                POKE_INK(i,DR->y2,wallColor);
                WRITE_CHAR(i,DR->y2,ChHWall);
            } else {
                //Search Y axis doors
                isDoor=false;
                isOpened=false;
                for(j=0; j<=RoomDoorIY; j++) {
                    if(RoomDoorsY[j].x==i && RoomDoorsY[j].y==DR->y2) {
                        isDoor=true;
                        isOpened=RoomDoorsY[j].Opened;
                    }
                }
                if(!isDoor) {
                    //Not a door draw wall
                    POKE_INK(i,DR->y2,wallColor);
                    WRITE_CHAR(i,DR->y2,ChHWall);
                }
                else {
                    if(!isOpened) {
                        //Closed door
                        POKE_INK(i,DR->y2,doorColor);
                        WRITE_CHAR(i,DR->y2,ChDoor);
                    }
                    else {
                        //Open door if player not in door
                        if(CPlayer.x != i && CPlayer.y != DR->y2) WRITE_CHAR(i,DR->y2,ChSpace);
                    }
                }
            }
        }
    }
}

void DrawItem(int i) {
    unsigned char itemCol = L>0 ? C64_COLOR_YELLOW : C64_COLOR_BLUE;
    if(Items[i].Redraw==true) {
        Items[i].Redraw=false;
        if(Items[i].IType==1) {
            POKE_INK(Items[i].x,Items[i].y,itemCol);
            WRITE_CHAR(Items[i].x,Items[i].y,ChHash);
        } else if(Items[i].IType==2) {
            POKE_INK(Items[i].x,Items[i].y,itemCol);
            WRITE_CHAR(Items[i].x,Items[i].y,ChDollar);
        }
        else {
            gotoxy(Items[i].x,Items[i].y);
            printf("%d",Items[i].IType);
        }
    }
}

void HideItem(int i) {
    if(Items[i].Redraw==true) {
        Items[i].Redraw=false;
        WRITE_CHAR(Items[i].x,Items[i].y,ChSpace);
    }
}

void DrawMonster(int i, char glyph) {
    if(!(Monsters[i].dx==CPlayer.x && Monsters[i].dy==CPlayer.y)) {
        WRITE_CHAR(Monsters[i].dx,Monsters[i].dy,ChSpace);
    }
    POKE_INK(Monsters[i].x,Monsters[i].y,C64_COLOR_WHITE);
    WRITE_CHAR(Monsters[i].x,Monsters[i].y,glyph);
    Monsters[i].dx=Monsters[i].x;
    Monsters[i].dy=Monsters[i].y;
}

void DrawMonsters() {
    char glyph;
    int i;

    for(i=0; i<=MonsterI; i++) {
        glyph=ChSpace;
        if((Rooms[Monsters[i].Room].ShowContents==true) && (L>0 || (Monsters[i].Room==CPlayer.Room && INLIGHTCONE(Monsters[i].x,Monsters[i].y,CPlayer.x,CPlayer.y)))) {
            glyph=ChMonster;
        }
        DrawMonster(i,glyph);
    }
}

void DrawDungeon() {
    int i;
    bool newShowContents;

    for(i=0; i<=RoomI; i++) {
        newShowContents=CanSee(CPlayer.Room,i);
        Rooms[i].Changed=(newShowContents!=Rooms[i].ShowContents);
        Rooms[i].ShowContents=newShowContents;
        DrawRoom(&Rooms[i]);
    }

    Rooms[CPlayer.Room].Changed = true;

    for(i=0; i<=ItemI; i++) {
        Items[i].Redraw = (Items[i].Redraw==true)||(Rooms[Items[i].Room].Changed==true);
        if((Rooms[Items[i].Room].ShowContents==false)||(Items[i].Taken==true)||(L==0 && !INLIGHTCONE(Items[i].x,Items[i].y,CPlayer.x,CPlayer.y))) {
            HideItem(i);
        }
        else {
            DrawItem(i);
        }
    }
}

void DrawPlayer() {
    WRITE_CHAR(CPlayer.dx,CPlayer.dy,ChSpace);
    POKE_INK(CPlayer.x,CPlayer.y,C64_COLOR_WHITE);
    WRITE_CHAR(CPlayer.x,CPlayer.y,ChPlayer);
    CPlayer.dx=CPlayer.x;
    CPlayer.dy=CPlayer.y;
}

void PrintStatus(char *str) {
    printf("%-*s",SWidth-7,str);
}

void DrawStatus() {
    char StatusBuffer[40];

    gotoxy(0,SHeight-1);

    if(MDist==0) {
        if(L==0) {
            PrintStatus("in the dark, grue eats you");
        }
        else {
            PrintStatus("bump into a grue, and are eaten");
        }
    }
    else if(MDist!=-1 && MDist<2 && L==0) {
        PrintStatus("grue breathing down your neck");
    }
    else if(MDist!=-1 && MDist<4 && L==0) {
        PrintStatus("grue talons tapping the tiles");
    }
    else if(CT>0) {
        strcpy(StatusBuffer,"found ");
        strcat(StatusBuffer,Noun[Items[CTreasure].D1]);
        PrintStatus(StatusBuffer);
        CT--;
    }
    else {
        if(L==0) {
            PrintStatus("dark, grue coming for you");
        }
        else if(L<5) {
            strcpy(StatusBuffer,Noun[Items[CLight].D1]);
            strcat(StatusBuffer," grows dim - dark soon");
            PrintStatus(StatusBuffer);
        }
        else {
            strcpy(StatusBuffer,Noun[Items[CLight].D1]);
            strcat(StatusBuffer," lights your way");
            PrintStatus(StatusBuffer);
        }
    }
}

void DrawDebug() {
    gotoxy(0,SHeight-1);
    printf("room %d: %d,%d,%d,%d",CPlayer.Room,Rooms[CPlayer.Room].x1,Rooms[CPlayer.Room].y1,Rooms[CPlayer.Room].x2,Rooms[CPlayer.Room].y2);
}

void DrawDebugRooms() {
    int i=0;
    CLRSCR;

    for(i=0; i<=RoomI; i++) {
        printf("Room %d - %d,%d %d,%d Show %d Disc %d\n",i,Rooms[i].x1,Rooms[i].y1,Rooms[i].x2,Rooms[i].y2,Rooms[i].ShowContents,Rooms[i].Discovered);
    }
}

void DrawDebugItems() {
    int i=0;
    CLRSCR;

    for(i=0; i<=ItemI; i++) {
        printf("Item %d - Room %d %d,%d Type %d Taken %d\n",i,Items[i].Room,Items[i].x,Items[i].y,Items[i].IType,Items[i].Taken);
    }
}

void DrawScore() {
    gotoxy(SWidth-6, SHeight-1);
    printf("%02d/%02d",T,DT);

    gotoxy(SWidth-12,0);
    printf("dungeon: %d",DC+1);
}

void DrawPrintTen() {
    int line,col,droll;
    unsigned char CHBan;
    for(line=0; line<5; line++) {
                for(col=0; col<SWidth; col++) {
                    droll = rand() % 10;
                    CHBan = droll<=5 ? 95 : 105;
                    WRITE_CHAR(col,line,CHBan);
                }
            }
}

void DrawIntro() {
    DrawPrintTen();
    SET_INK(C64_COLOR_WHITE);
    gotoxy(12,2);
    printf("-* IN THE DARK *-");
    SET_INK(C64_COLOR_GREEN);
    gotoxy(0,6);
}

void DrawEnd() {
    int l=0;
    DrawPrintTen();
    SET_INK(C64_COLOR_WHITE);
    gotoxy(9,2);
    printf("-* EATEN BY A GRUE *-");
    SET_INK(C64_COLOR_GREEN);
    for(l=0; l<800; l++) {
        POKE_INK(l,5,endColor[l]);
        WRITE_CHAR(l,5,endScreen[l]);
    }
}

void SetCustomChars() {
    VIC_INT_OFF;
    EA_DEACTIVATE;
    //Copy charset to ram
    memcpy((void *)BASE_CHAR_ADDRESS,(void *)0xD000,2048);
    EA_ACTIVATE;
    VIC_INT_ON;
    SET_CHARRAM;

    //Wall
    memcpy((void *)(BASE_CHAR_ADDRESS+(ChHWall*8)),&UDGWall[0],8);
    memcpy((void *)(BASE_CHAR_ADDRESS+(ChVWall*8)),&UDGWall[0],8);
    //Player
    memcpy((void *)(BASE_CHAR_ADDRESS+(ChPlayer*8)),&UDGPlayer[0],8);
    //Monster
    memcpy((void *)(BASE_CHAR_ADDRESS+(ChMonster*8)),&UDGGrue[0],8);
    //Treasure
    memcpy((void *)(BASE_CHAR_ADDRESS+(ChDollar*8)),&UDGTreasure[0],8);
    //Light
    memcpy((void *)(BASE_CHAR_ADDRESS+(ChHash*8)),&UDGLight[0],8);
    //Door
    memcpy((void *)(BASE_CHAR_ADDRESS+(ChDoor*8)),&UDGDoor[0],8);
}