X-Git-Url: https://plomlompom.com/repos/?a=blobdiff_plain;f=src%2Fmisc.c;h=8eda126ccdfcf2621ec950c3b99f5a857980ac70;hb=435c55c675cad9355a4e82c4d4379267f0c9a9b0;hp=6832b1aec81bd30e31ca96b66088fd3577a2767b;hpb=8661a8acfacc7cdd2935732fe5ead7d279a200b0;p=plomrogue diff --git a/src/misc.c b/src/misc.c index 6832b1a..8eda126 100644 --- a/src/misc.c +++ b/src/misc.c @@ -1,153 +1,364 @@ +/* misc.c */ + #include "misc.h" -#include -#include -#include "windows.h" -#include "keybindings.h" -#include "readwrite.h" -#include "map_objects.h" -#include "map.h" -#include "main.h" - -extern uint16_t rrand(char use_seed, uint32_t new_seed) { -// Pseudo-random number generator (LGC algorithm). Use instead of rand() to ensure portable predictability. - static uint32_t seed; - if (0 != use_seed) - seed = new_seed; - seed = ((seed * 1103515245) + 12345) % 2147483648; // Values as recommended by POSIX.1-2001 (see rand(3)). - return (seed / 65536); } // Ignore least significant 16 bits (they are less random). - -extern void update_log (struct World * world, char * text) { -// Update log by appending text, or by appending a "." if text is the same as the last one. - static char * last_msg; - if (0 == last_msg) - last_msg = calloc(1, sizeof(char)); - char * new_text; - uint16_t len_old = strlen(world->log); - if (0 == strcmp(last_msg, text)) { - uint16_t len_whole = len_old + 1; - new_text = calloc(len_whole + 1, sizeof(char)); - memcpy(new_text, world->log, len_old); - memcpy(new_text + len_old, ".", 1); } - else { - uint16_t len_new = strlen(text); - uint16_t len_whole = len_old + len_new + 1; - new_text = calloc(len_whole, sizeof(char)); - memcpy(new_text, world->log, len_old); - memcpy(new_text + len_old, text, len_new); - last_msg = calloc(len_new + 1, sizeof(char)); - memcpy(last_msg, text, len_new); } - free(world->log); - world->log = new_text; } - -extern uint16_t center_offset (uint16_t pos, uint16_t mapsize, uint16_t framesize) { -// Return the offset for display of a map inside a frame centered on pos. - uint16_t offset = 0; - if (mapsize > framesize) { - if (pos > framesize / 2) { - if (pos < mapsize - (framesize / 2)) - offset = pos - (framesize / 2); - else - offset = mapsize - framesize; } } - return offset; } - -extern void turn_over (struct World * world, char action) { -// Record action in game record file, increment turn and move enemy. - if (1 == world->interactive) { - FILE * file = fopen("record", "a"); - fputc(action, file); - fclose(file); } - world->turn++; - rrand(1, world->seed * world->turn); - struct Monster * monster; - for (monster = world->monster; monster != 0; monster = monster->cmo.next) - move_monster(world, monster); } - -extern void save_game(struct World * world) { -// Save game data to game file. - FILE * file = fopen("savefile", "w"); - write_uint32_bigendian(world->seed, file); - write_uint32_bigendian(world->turn, file); - write_uint16_bigendian(world->player->pos.y + 1, file); - write_uint16_bigendian(world->player->pos.x + 1, file); - fputc(world->player->hitpoints, file); - write_map_objects (world->monster, file, write_map_objects_monsterdata); - write_map_objects (world->item, file, readwrite_map_objects_dummy); - fclose(file); } - -extern void toggle_window (struct WinMeta * win_meta, struct Win * win) { -// Toggle display of window win. - if (0 != win->frame.curses_win) - suspend_win(win_meta, win); - else - append_win(win_meta, win); } - -extern void scroll_pad (struct WinMeta * win_meta, char dir) { -// Try to scroll pad left or right. - if ('+' == dir) - reset_pad_offset(win_meta, win_meta->pad_offset + 1); - else if ('-' == dir) - reset_pad_offset(win_meta, win_meta->pad_offset - 1); } - -extern void growshrink_active_window (struct WinMeta * win_meta, char change) { -// Grow or shrink active window horizontally or vertically by one cell size. - if (0 != win_meta->active) { - struct yx_uint16 size = win_meta->active->frame.size; - if (change == '-') size.y--; - else if (change == '+') size.y++; - else if (change == '_') size.x--; - else if (change == '*') size.x++; - resize_active_win (win_meta, size); } } - -extern unsigned char meta_keys(int key, struct World * world, struct WinMeta * win_meta, - struct Win * win_keys, struct Win * win_map, struct Win * win_info, - struct Win * win_log) { -// Call some meta program / window management actions dependent on key. Return 1 to signal quitting. - if (key == get_action_key(world->keybindings, "quit")) - return 1; - else if (key == get_action_key(world->keybindings, "scroll pad right")) - scroll_pad (win_meta, '+'); - else if (key == get_action_key(world->keybindings, "scroll pad left")) - scroll_pad (win_meta, '-'); - else if (key == get_action_key(world->keybindings, "toggle keys window")) - toggle_window(win_meta, win_keys); - else if (key == get_action_key(world->keybindings, "toggle map window")) - toggle_window(win_meta, win_map); - else if (key == get_action_key(world->keybindings, "toggle info window")) - toggle_window(win_meta, win_info); - else if (key == get_action_key(world->keybindings, "toggle log window")) - toggle_window(win_meta, win_log); - else if (key == get_action_key(world->keybindings, "cycle forwards")) - cycle_active_win(win_meta, 'n'); - else if (key == get_action_key(world->keybindings, "cycle backwards")) - cycle_active_win(win_meta, 'p'); - else if (key == get_action_key(world->keybindings, "shift forwards")) - shift_active_win(win_meta, 'f'); - else if (key == get_action_key(world->keybindings, "shift backwards")) - shift_active_win(win_meta, 'b'); - else if (key == get_action_key(world->keybindings, "grow horizontally")) - growshrink_active_window(win_meta, '*'); - else if (key == get_action_key(world->keybindings, "shrink horizontally")) - growshrink_active_window(win_meta, '_'); - else if (key == get_action_key(world->keybindings, "grow vertically")) - growshrink_active_window(win_meta, '+'); - else if (key == get_action_key(world->keybindings, "shrink vertically")) - growshrink_active_window(win_meta, '-'); - else if (key == get_action_key(world->keybindings, "save keys")) - save_keybindings(world); - else if (key == get_action_key(world->keybindings, "keys nav up")) - keyswin_move_selection (world, 'u'); - else if (key == get_action_key(world->keybindings, "keys nav down")) - keyswin_move_selection (world, 'd'); - else if (key == get_action_key(world->keybindings, "keys mod")) - keyswin_mod_key (world, win_meta); - else if (key == get_action_key(world->keybindings, "map up")) - map_scroll (world->map, NORTH, win_map->frame.size); - else if (key == get_action_key(world->keybindings, "map down")) - map_scroll (world->map, SOUTH, win_map->frame.size); - else if (key == get_action_key(world->keybindings, "map right")) - map_scroll (world->map, EAST, win_map->frame.size); - else if (key == get_action_key(world->keybindings, "map left")) - map_scroll (world->map, WEST, win_map->frame.size); - else if (key == get_action_key(world->keybindings, "map center player")) - map_center_player (world->map, world->player, win_map->frame.size); - return 0; } +#include /* for rename() */ +#include /* for unlink(), acess() */ +#include /* for calloc(), free() */ +#include /* for strlen(), strcmp(), memcpy() */ +#include /* for uint8_t */ +#include "windows.h" /* for suspend_win(), append_win(), reset_pad_offset(), + * resize_active_win(), cycle_active_win(), + * shift_active_win(), struct Win, struct WinMeta + */ +#include "keybindings.h" /* for get_action_key(), save_keybindings(), + * keyswin_move_selection(), keyswin_mod_key() + */ +#include "readwrite.h" /* for [read/write]_uint[8/16/32][_bigendian]() */ +#include "map_objects.h" /* for struct Monster, write_map_objects(), */ +#include "map_object_actions.h" /* for is_passable(), move_monster() */ +#include "map.h" /* for map_scroll(),map_center_player(), Map struct,dir enum */ +#include "main.h" /* for World struct */ +#include "yx_uint16.h" /* for yx_uint16 */ +#include "rrand.h" /* for rrand(), rrand_seed() */ +#include "rexit.h" /* for exit_err() */ + + +extern void textfile_sizes(FILE * file, uint16_t * linemax_p, + uint16_t * n_lines_p) +{ + uint16_t n_lines = 0; + int c = 0; + uint16_t linemax = 0; + uint16_t c_count = 0; + while (EOF != c) + { + c_count++; + c = getc(file); + if ('\n' == c) + { + if (c_count > linemax) + { + linemax = c_count + 1; + } + c_count = 0; + if (n_lines_p) + { + n_lines++; + } + } + } + fseek(file, 0, SEEK_SET); + * linemax_p = linemax; + if (n_lines_p) + { + * n_lines_p = n_lines; + } +} + + + +extern void update_log(struct World * world, char * text) +{ + static char * last_msg; + if (0 == last_msg) + { + last_msg = calloc(1, sizeof(char)); + } + char * new_text; + uint16_t len_old = strlen(world->log); + if (0 == strcmp(last_msg, text)) + { + uint16_t len_whole = len_old + 1; + new_text = calloc(len_whole + 1, sizeof(char)); + memcpy(new_text, world->log, len_old); + memcpy(new_text + len_old, ".", 1); + } + else + { + uint16_t len_new = strlen(text); + uint16_t len_whole = len_old + len_new + 1; + new_text = calloc(len_whole, sizeof(char)); + memcpy(new_text, world->log, len_old); + memcpy(new_text + len_old, text, len_new); + last_msg = calloc(len_new + 1, sizeof(char)); + memcpy(last_msg, text, len_new); + } + free(world->log); + world->log = new_text; +} + + + +extern uint16_t center_offset(uint16_t pos, uint16_t mapsize, + uint16_t framesize) +{ + uint16_t offset = 0; + if (mapsize > framesize) + { + if (pos > framesize / 2) + { + if (pos < mapsize - (framesize / 2)) + { + offset = pos - (framesize / 2); + } + else + { + offset = mapsize - framesize; + } + } + } + return offset; +} + + + +extern void turn_over(struct World * world, char action) +{ + char * err_open = "Trouble in turn_over() with fopen() " + "opening file 'record_tmp' for appending."; + char * err_write = "Trouble in turn_over() with write_uint8() " + "writing to opened file 'record_tmp'."; + char * err_close = "Trouble in turn_over() with fclose() " + "closing opened file 'record_tmp'."; + char * err_unl = "Trouble in turn_over() with unlink() " + "unlinking old file 'record'."; + char * err_move = "Trouble in turn_over() with rename() " + "renaming file 'record_tmp' to 'record'."; + char * recordfile_tmp = "record_tmp"; + char * recordfile = "record"; + if (1 == world->interactive) + { + FILE * file = fopen(recordfile_tmp, "a"); + exit_err(0 == file, world, err_open); + exit_err(write_uint8(action, file), world, err_write); + exit_err(fclose(file), world, err_close); + exit_err(unlink(recordfile), world, err_unl); + exit_err(rename(recordfile_tmp, recordfile), world, err_move); + } + + world->turn++; + rrand_seed(world->seed * world->turn); + struct Monster * monster; + for (monster = world->monster; + monster != 0; + monster = monster->map_obj.next) + { + move_monster(world, monster); + } +} + + + +extern void save_game(struct World * world) +{ + char * err_open = "Trouble in save_game() with fopen() " + "opening file 'savefile_tmp' for writing."; + char * err_write = "Trouble in save_game() " + "writing to opened file 'savefile_tmp'."; + char * err_close = "Trouble in save_game() with fclose() " + "closing opened file 'savefile_tmp'."; + char * err_unl = "Trouble in save_game() with unlink() " + "unlinking old 'savefile' file."; + char * err_move = "Trouble in save_game() with rename() " + "renaming 'file savefile_tmp' to 'savefile'."; + char * savefile_tmp = "savefile_tmp"; + char * savefile = "savefile"; + FILE * file = fopen(savefile_tmp, "w"); + exit_err(0 == file, world, err_open); + if ( write_uint32_bigendian(world->seed, file) + || write_uint32_bigendian(world->turn, file) + || write_uint16_bigendian(world->score, file) + || write_uint16_bigendian(world->player->pos.y + 1, file) + || write_uint16_bigendian(world->player->pos.x + 1, file) + || write_uint8(world->player->hitpoints, file) + || write_map_objects(world, world->monster, file) + || write_map_objects(world, world->item, file)) + { + exit_err(1, world, err_write); + } + exit_err(fclose(file), world, err_close); + if (!access(savefile, F_OK)) + { + exit_err(unlink(savefile), world, err_unl); + } + exit_err(rename(savefile_tmp, savefile), world, err_move); +} + + + +extern uint8_t toggle_window(struct WinMeta * win_meta, struct Win * win) +{ + if (0 != win->frame.curses_win) + { + return suspend_win(win_meta, win); + } + else + { + return append_win(win_meta, win); + } +} + + + +extern void scroll_pad(struct WinMeta * win_meta, char dir) +{ + if ('+' == dir) + { + reset_pad_offset(win_meta, win_meta->pad_offset + 1); + } + else if ('-' == dir) + { + reset_pad_offset(win_meta, win_meta->pad_offset - 1); + } +} + + + +extern uint8_t growshrink_active_window(struct WinMeta * win_meta, char change) +{ + if (0 != win_meta->active) + { + struct yx_uint16 size = win_meta->active->frame.size; + if (change == '-') + { + size.y--; + } + else if (change == '+') + { + size.y++; + } + else if (change == '_') + { + size.x--; + } + else if (change == '*') + { + size.x++; + } + return resize_active_win (win_meta, size); + } + return 0; +} + + + +extern struct yx_uint16 find_passable_pos(struct Map * map) +{ + struct yx_uint16 pos; + for (pos.y = pos.x = 0; 0 == is_passable(map, pos);) + { + pos.y = rrand() % map->size.y; + pos.x = rrand() % map->size.x; + } + return pos; +} + + + +extern uint8_t meta_keys(int key, struct World * world, + struct WinMeta * win_meta, struct Win * win_keys, + struct Win * win_map, struct Win * win_info, + struct Win * win_log) +{ + char * err_toggle = "Trouble with toggle_window() in meta_keys()."; + char * err_shift = "Trouble with shift_active_win() in meta_keys()."; + char * err_resize = "Trouble with growshrink_active_window() in " + "meta_keys()."; + if (key == get_action_key(world->keybindings, "quit")) + { + return 1; + } + else if (key == get_action_key(world->keybindings, "scroll pad right")) + { + scroll_pad (win_meta, '+'); + } + else if (key == get_action_key(world->keybindings, "scroll pad left")) + { + scroll_pad (win_meta, '-'); + } + else if (key == get_action_key(world->keybindings, "toggle keys window")) + { + exit_err(toggle_window(win_meta, win_keys), world, err_toggle); + } + else if (key == get_action_key(world->keybindings, "toggle map window")) + { + exit_err(toggle_window(win_meta, win_map), world, err_toggle); + } + else if (key == get_action_key(world->keybindings, "toggle info window")) + { + exit_err(toggle_window(win_meta, win_info), world, err_toggle); + } + else if (key == get_action_key(world->keybindings, "toggle log window")) + { + exit_err(toggle_window(win_meta, win_log), world, err_toggle); + } + else if (key == get_action_key(world->keybindings, "cycle forwards")) + { + cycle_active_win(win_meta, 'f'); + } + else if (key == get_action_key(world->keybindings, "cycle backwards")) + { + cycle_active_win(win_meta, 'b'); + } + else if (key == get_action_key(world->keybindings, "shift forwards")) + { + exit_err(shift_active_win(win_meta, 'f'), world, err_shift); + } + else if (key == get_action_key(world->keybindings, "shift backwards")) + { + exit_err(shift_active_win(win_meta, 'b'), world, err_shift); + } + else if (key == get_action_key(world->keybindings, "grow horizontally")) + { + exit_err(growshrink_active_window(win_meta, '*'), world, err_resize); + } + else if (key == get_action_key(world->keybindings, "shrink horizontally")) + { + exit_err(growshrink_active_window(win_meta, '_'), world, err_resize); + } + else if (key == get_action_key(world->keybindings, "grow vertically")) + { + exit_err(growshrink_active_window(win_meta, '+'), world, err_resize); + } + else if (key == get_action_key(world->keybindings, "shrink vertically")) + { + exit_err(growshrink_active_window(win_meta, '-'), world, err_resize); + } + else if (key == get_action_key(world->keybindings, "save keys")) + { + save_keybindings(world); + } + else if (key == get_action_key(world->keybindings, "keys nav up")) + { + keyswin_move_selection (world, 'u'); + } + else if (key == get_action_key(world->keybindings, "keys nav down")) + { + keyswin_move_selection (world, 'd'); + } + else if (key == get_action_key(world->keybindings, "keys mod")) + { + keyswin_mod_key (world, win_meta); + } + else if (key == get_action_key(world->keybindings, "map up")) + { + map_scroll (world->map, NORTH, win_map->frame.size); + } + else if (key == get_action_key(world->keybindings, "map down")) + { + map_scroll (world->map, SOUTH, win_map->frame.size); + } + else if (key == get_action_key(world->keybindings, "map right")) + { + map_scroll (world->map, EAST, win_map->frame.size); + } + else if (key == get_action_key(world->keybindings, "map left")) + { + map_scroll (world->map, WEST, win_map->frame.size); + } + else if (key == get_action_key(world->keybindings, "map center player")) + { + map_center_player (world->map, world->player, win_map->frame.size); + } + return 0; +}