vtr/vtr.c

665 lines
14 KiB
C

#include <stdio.h>
#include <stdlib.h>
#include <stdbool.h>
#include <string.h>
#include <pthread.h>
#include <termios.h>
#include <unistd.h>
#include <ctype.h>
#include <time.h>
#include <sys/ioctl.h>
#include <unistd.h>
#include <limits.h>
#define MONSTER_COUNT 10
#define GOLD "\U000F124F"
#define BRICK "\U000F1288"
#define DIRT "\U000F1A48"
#define WOOD "\U0000F06C"
#define STONE "\U0000EB48"
#define WATER "\U000F058C"
#define TREE "\U0000E21C"
#define DIAMOND "\U000F01C8"
#define HEART "\U0000F004"
#define RUBY "\U0000E23E"
#define PICKAXE "\U000F08B7"
#define AXE "\U000F08C8"
#define SWORD "\U000F04E5"
#define SHOVEL "\U000F0710"
#define CHESTPLATE "\U0000EB0E"
#define SHOES "\U000F15C7"
#define SKULL "\U000F068C"
#define INVENTORY "\U0000F187"
#define PLAYER "\U0000EA67"
#define MONSTER "\U0000F23C"
#define PATH "\033[34mX\033[0m"
enum keys {
BACKSPACE = 127,
ARROW_LEFT = 1000,
ARROW_RIGHT,
ARROW_UP,
ARROW_DOWN,
DEL_KEY,
HOME_KEY,
END_KEY,
PAGE_UP,
PAGE_DOWN,
LEFT_CLICK,
RIGHT_CLICK,
SCROLL_UP,
SCROLL_DOWN
};
typedef struct {
int y;
int x;
int health;
int attack;
} monster_t;
typedef struct {
char name[256];
char icon[4];
int count;
int attack;
} item_t;
typedef struct {
int max_y;
int max_x;
monster_t monsters[MONSTER_COUNT];
char **grid;
} world_t;
typedef struct {
int y;
int x;
int health;
int kills;
item_t inventory[45];
int slot;
} player_t;
typedef struct {
int x, y;
int dist;
} node_t;
/* Directions for movement (up, down, left, right) */
int directions[4][2] = {{0,1}, {1,0}, {0,-1}, {-1,0}};
world_t world;
player_t player;
char *statusline;
int mouse_row, mouse_col;
pthread_mutex_t world_lock;
void *clear_status_thread(void *arg);
void set_status(char *new_status);
void initialize_world(void)
{
for (int i = 0; i < world.max_y; i++) {
for (int j = 0; j < world.max_x; j++) {
int rand_value = rand() % 100;
if (rand_value < 1) {
/* 1% chance for a tree */
world.grid[i][j] = 'T';
} else if (rand_value < 2) {
/* 1% chance for stone */
world.grid[i][j] = 'S';
} else if (rand_value < 3) {
/* 1% chance for dirt */
world.grid[i][j] = 'D';
} else {
/* Empty space */
world.grid[i][j] = ' ';
}
}
}
player.health = 100;
player.slot = 1;
player.inventory[0] = (item_t) { "Dirt", DIRT, 0, 1 };
player.inventory[1] = (item_t) { "Wood", WOOD, 0, 1 };
player.inventory[2] = (item_t) { "Stone", STONE, 0, 1 };
player.inventory[3] = (item_t) { "Diamond", DIAMOND, 0, 1 };
player.inventory[4] = (item_t) { "Ruby", RUBY, 0, 1 };
player.inventory[5] = (item_t) { "Pickaxe", PICKAXE, 0, 1 };
player.inventory[6] = (item_t) { "Axe", AXE, 0, 5 };
player.inventory[7] = (item_t) { "Sword", SWORD, 0, 5 };
player.inventory[8] = (item_t) { "Shovel", SHOVEL, 0, 0 };
player.y = world.max_y / 2;
player.x = world.max_x / 2;
/* Initialise player position */
world.grid[player.y][player.x] = 'P';
/* Initialize monsters */
for (int i = 0; i < MONSTER_COUNT; i++) {
world.monsters[i].x = rand() % world.max_x;
world.monsters[i].y = rand() % world.max_y;
world.monsters[i].health = 10;
world.monsters[i].attack = 1;
world.grid[world.monsters[i].y][world.monsters[i].x] = 'M';
}
}
void print_icon_boxes(void)
{
const int num_boxes = 9;
printf("\033[2K\033[%dC", world.max_x / 2 - (5 * 9) / 2);
for (int i = 0; i < num_boxes; i++) {
if (i + 1 == player.slot) {
printf("┏━━━┓"); /* Bold for selected box */
} else {
printf("┌───┐");
}
}
printf("\n");
printf("\033[2K\033[%dC", world.max_x / 2 - (5 * 9) / 2);
for (int i = 0; i < num_boxes; i++) {
if (i + 1 == player.slot) {
printf("┃ %s ┃", player.inventory[i].icon); /* Bold for selected box */
} else {
printf("│ %s │", player.inventory[i].icon);
}
}
printf("\n");
printf("\033[2K\033[%dC", world.max_x / 2 - (5 * 9) / 2);
for (int i = 0; i < num_boxes; i++) {
if (i + 1 == player.slot) {
printf("┗━━━┛"); /* Bold for selected box */
} else {
printf("└───┘");
}
}
}
void print_world(void)
{
pthread_mutex_lock(&world_lock);
printf("\033[H");
for (int i = world.max_y - 1; i >= 0; i--) {
for (int j = 0; j < world.max_x; j++) {
switch(world.grid[i][j]) {
case 'P':
printf("%s", PLAYER);
break;
case 'T':
printf("%s", TREE);
break;
case 'S':
printf("%s", STONE);
break;
case 'D':
printf("%s", DIRT);
break;
case 'M':
printf("%s", MONSTER);
break;
case 'X':
printf("%s", PATH);
break;
default:
printf("\033[38;2;0;0;255m=\033[0m");
break;
}
}
printf("\n");
}
/* Center text depending on length */
printf("\033[2K\033[%dC" HEART " : %d " SKULL " : %d " INVENTORY " : %d\n", world.max_x / 2 - 13, player.health, player.kills, player.inventory[player.slot - 1].count);
printf("\033[2K\033[%luC%s\n", world.max_x / 2 - strlen(statusline) / 2, statusline);
print_icon_boxes();
fflush(stdout);
pthread_mutex_unlock(&world_lock);
}
void dijkstra(int start_x, int start_y, int end_x, int end_y)
{
int dist[world.max_y][world.max_x];
bool visited[world.max_y][world.max_x];
/* Initialize distances */
for (int i = 0; i < world.max_y; i++) {
for (int j = 0; j < world.max_x; j++) {
dist[i][j] = INT_MAX;
visited[i][j] = false;
}
}
/* Starting distance is zero */
dist[start_y][start_x] = 0;
/* Priority queue for Dijkstra */
node_t queue[world.max_x * world.max_y];
int front = 0, rear = 0;
queue[rear++] = (node_t){start_x, start_y, 0};
while (front < rear) {
node_t current = queue[front++];
int x = current.x, y = current.y;
if (visited[y][x]) continue;
visited[y][x] = true;
if (x == end_x && y == end_y) break;
/* Explore neighbors */
for (int i = 0; i < 4; i++) {
int nx = x + directions[i][0];
int ny = y + directions[i][1];
if (nx >= 0 && ny >= 0 && nx < world.max_x && ny < world.max_y && world.grid[ny][nx] != 'T' && world.grid[ny][nx] != 'S' && world.grid[ny][nx] != 'D' && world.grid[ny][nx] != 'P' && world.grid[ny][nx] != 'M') {
int alt = dist[y][x] + 1;
if (alt < dist[ny][nx]) {
dist[ny][nx] = alt;
queue[rear++] = (node_t){nx, ny, alt};
}
}
}
}
/* Backtrace from end to start to mark path */
int x = end_x, y = end_y;
while (!(x == start_x && y == start_y)) {
/* Mark path on grid */
world.grid[y][x] = 'X';
int min_dist = dist[y][x];
for (int i = 0; i < 4; i++) {
int nx = x + directions[i][0];
int ny = y + directions[i][1];
if (nx >= 0 && ny >= 0 && nx < world.max_x && ny < world.max_y && dist[ny][nx] < min_dist) {
min_dist = dist[ny][nx];
x = nx;
y = ny;
}
}
}
}
int find_monster(int y)
{
for (int i = 0; i < MONSTER_COUNT; i++) {
if (world.monsters[i].y == y) {
return i;
}
}
return -1;
}
void destroy_block(void)
{
int y = player.y;
int x = player.x;
/* Check surrounding blocks for resources */
for (int dy = -1; dy <= 1; dy++) {
for (int dx = -1; dx <= 1; dx++) {
/* Skip the player's current position */
if (dy == 0 && dx == 0) continue;
int ny = y + dy;
int nx = x + dx;
/* Check bounds */
if (ny >= 0 && ny < world.max_y && nx >= 0 && nx < world.max_x) {
char tile = world.grid[ny][nx];
switch (tile) {
case 'D':
if (strncmp(player.inventory[player.slot - 1].name, "Shovel", 6) != 0) {
set_status("You must use a shovel to mine dirt!");
continue;
} else {
player.inventory[0].count += 1;
}
break;
case 'T':
if (strncmp(player.inventory[player.slot - 1].name, "Axe", 3) != 0) {
set_status("You must use an axe to mine wood!");
continue;
} else {
player.inventory[1].count += 1;
}
player.inventory[1].count += 1;
break;
case 'S':
if (strncmp(player.inventory[player.slot - 1].name, "Pickaxe", 7) != 0) {
set_status("You must use a pickaxe to mine stone!");
continue;
} else {
player.inventory[2].count += 1;
}
break;
case 'M':;
int index = find_monster(ny);
if (index != -1) {
world.monsters[index].health -= player.inventory[player.slot - 1].attack;
if (world.monsters[index].health <= 0) {
break;
}
}
continue;
}
world.grid[ny][nx] = ' ';
}
}
}
}
void *clear_status_thread(void *arg)
{
/* Wait for 2 seconds */
sleep(1);
pthread_mutex_lock(&world_lock);
/* Clear the status line */
strcpy(statusline, "");
pthread_mutex_unlock(&world_lock);
return NULL;
}
void set_status(char *new_status)
{
pthread_mutex_lock(&world_lock);
/* Set the new status */
strcpy(statusline, new_status);
pthread_mutex_unlock(&world_lock);
pthread_t status_thread;
/* Start a thread to clear status asynchronously */
pthread_create(&status_thread, NULL, clear_status_thread, NULL);
/* Detach thread so it cleans up itself after execution */
pthread_detach(status_thread);
}
void move_player(char direction)
{
int new_x = player.x;
int new_y = player.y;
/* Determine the target position based on the direction */
switch (direction) {
case 'w':
new_y = (player.y < world.max_y - 1) ? player.y + 1 : player.y;
break;
case 's':
new_y = (player.y > 0) ? player.y - 1 : player.y;
break;
case 'a':
new_x = (player.x > 0) ? player.x - 1 : player.x;
break;
case 'd':
new_x = (player.x < world.max_x - 1) ? player.x + 1 : player.x;
break;
default:
break;
}
/* If the block is not empty don't overlap it */
if (world.grid[new_y][new_x] != ' ') {
return;
}
/* Clear current player position */
world.grid[player.y][player.x] = ' ';
/* Update player position */
player.x = new_x;
player.y = new_y;
world.grid[player.y][player.x] = 'P';
}
void move_monsters(void)
{
for (int i = 0; i < MONSTER_COUNT; i++) {
if (world.monsters[i].health <= 0) continue;
/* Clear current monster position */
world.grid[world.monsters[i].y][world.monsters[i].x] = ' ';
/* Try a maximum of 4 random movements to avoid collision */
int new_x, new_y, attempts = 0;
do {
/* Random movement for monsters */
new_x = (world.monsters[i].x + (rand() % 3 - 1) + world.max_x) % world.max_x;
new_y = (world.monsters[i].y + (rand() % 3 - 1) + world.max_y) % world.max_y;
attempts++;
} while ((world.grid[new_y][new_x] != ' ') && attempts < 4);
/* Only update if the chosen position is empty */
if (world.grid[new_y][new_x] == ' ') {
world.monsters[i].x = new_x;
world.monsters[i].y = new_y;
}
/* Update monster position */
world.grid[world.monsters[i].y][world.monsters[i].x] = 'M';
}
}
void *monster_movement(void *arg)
{
while (1) {
move_monsters();
print_world();
usleep(500000);
}
return NULL;
}
int read_key(void)
{
int nread;
char c;
while ((nread = read(STDIN_FILENO, &c, 1)) != 1) {
if (nread == -1) {
perror("read");
return -1;
}
}
if (c == '\033') {
char seq[14];
if (read(STDIN_FILENO, &seq[0], 1) != 1) return '\033';
if (seq[0] == '[') {
if (read(STDIN_FILENO, &seq[1], 1) != 1) return '\033';
/* Mouse sequence */
if (seq[1] == '<') {
static int scroll_counter = 0;
int i = 2;
while (i < 14 && read(STDIN_FILENO, &seq[i], 1) == 1) {
if (seq[i] == 'M') {
i++;
break;
} else if (seq[i] == 'm'){
return '\033';
}
i++;
}
seq[i] = '\0'; // Ensure the sequence is null-terminated
int button = -1;
sscanf(seq, "[<%d;%d;%d", &button, &mouse_col, &mouse_row);
switch (button) {
case 64:
scroll_counter++;
if (scroll_counter == 3) {
scroll_counter = 0;
return SCROLL_DOWN;
}
break;
case 65:
scroll_counter++;
if (scroll_counter == 3) {
scroll_counter = 0;
return SCROLL_UP;
}
break;
case 0:
return LEFT_CLICK;
break;
case 2:
return RIGHT_CLICK;
break;
default:
scroll_counter = 0;
break;
}
}
else if (seq[1] >= '0' && seq[1] <= '9') {
if (read(STDIN_FILENO, &seq[2], 1) != 1) return '\033';
if (seq[2] == '~') {
switch (seq[1]) {
case '1': return HOME_KEY;
case '3': return DEL_KEY;
case '4': return END_KEY;
case '5': return PAGE_UP;
case '6': return PAGE_DOWN;
case '7': return HOME_KEY;
case '8': return END_KEY;
}
}
} else {
switch (seq[1]) {
case 'A': return ARROW_UP;
case 'B': return ARROW_DOWN;
case 'C': return ARROW_RIGHT;
case 'D': return ARROW_LEFT;
case 'F': return END_KEY;
case 'H': return HOME_KEY;
}
}
} else if (seq[0] == 'O') {
switch (seq[1]) {
case 'F': return END_KEY;
case 'H': return HOME_KEY;
}
}
return '\033';
} else {
return c;
}
}
void *player_input(void *arg)
{
/* Hide cursor, enable mouse reporting */
printf("\033[?25l\033[?1000;1006h");
struct termios oldt, newt;
tcgetattr(STDIN_FILENO, &oldt);
newt = oldt;
/* Disable canonical mode and echo */
newt.c_lflag &= ~(ICANON | ECHO);
tcsetattr(STDIN_FILENO, TCSANOW, &newt);
int loop = 1;
while (loop) {
int c = read_key();
switch (c) {
case 'q':
loop = 0;
break;
case ' ':
destroy_block();
break;
case '1':
case '2':
case '3':
case '4':
case '5':
case '6':
case '7':
case '8':
case '9':
player.slot = c - '0';
break;
case SCROLL_UP:
player.slot = (player.slot % 9) + 1;
break;
case SCROLL_DOWN:
player.slot = (player.slot - 2 + 9) % 9 + 1;
break;
case LEFT_CLICK:
destroy_block();
break;
case RIGHT_CLICK:
break;
case 'x':
dijkstra(0, 0, 168, 43);
break;
case '\033':
break;
default:
move_player(c);
break;
}
print_world();
}
/* Show cursor and disable mouse reporting */
printf("\n\033[?25h\033[?1000;1006l");
/* Restore old terminal settings */
tcsetattr(STDIN_FILENO, TCSANOW, &oldt);
exit(1);
return NULL;
}
int main(void)
{
srand(time(NULL));
pthread_t monster_thread, input_thread;
struct winsize w;
ioctl(STDOUT_FILENO, TIOCGWINSZ, &w);
int lines = w.ws_row;
int columns = w.ws_col;
world.max_x = columns;
world.max_y = lines - 5;
world.grid = malloc(world.max_y * sizeof(char *));
char status[columns];
memset(status, 0, columns);
statusline = status;
for (int i = 0; i < world.max_y; i++) {
world.grid[i] = malloc(columns);
}
pthread_mutex_init(&world_lock, NULL);
initialize_world();
print_world();
/* Create threads for monster movement and player input */
pthread_create(&monster_thread, NULL, monster_movement, NULL);
pthread_create(&input_thread, NULL, player_input, NULL);
/* Wait for threads to finish */
pthread_join(input_thread, NULL);
pthread_join(monster_thread, NULL);
return 0;
}