X-Git-Url: https://plomlompom.com/repos/?a=blobdiff_plain;f=src%2Fmisc.c;h=97c9fa69a96d0a2445eb54965c2fa6b5fdab3b47;hb=10680a2398daf76e6a0cd261c2b247e6902f2ad0;hp=a8918a9ccdfdc76a1899226298823b4fbacbfd43;hpb=7b6558a08527dc27995af156e43734be3da950a0;p=plomrogue diff --git a/src/misc.c b/src/misc.c index a8918a9..97c9fa6 100644 --- a/src/misc.c +++ b/src/misc.c @@ -1,120 +1,170 @@ /* misc.c */ #include "misc.h" -#include /* for exit(), EXIT_SUCCESS define, calloc(), free() */ +#include /* for errno */ +#include /* for unlink(), acess() */ +#include /* for size_t, calloc(), free() */ #include /* for strlen(), strcmp(), memcpy() */ -#include /* for endwin() */ -#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 write_uint16_bigendian() */ - /* write_uint32_bigendian() */ -#include "map_objects.h" /* for struct Monster, write_map_objects(), */ - /* write_map_objects_monsterdata() */ -#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 */ - - - -extern void exit_game(struct World * world, struct Map * map) +#include /* for uint8_t, uint16_t */ +#include "readwrite.h" /* for try_fopen(), try_fclose(), textfile_sizes(), + * try_fputc(), try_fgetc() + */ +#include "map_objects.h" /* for struct MapObj, get_player(), read_map_objects(), + * write_map_objects() + */ +#include "map_object_actions.h" /* for struct MapObjAct */ +#include "ai.h" /* for pretty_dumb_ai() */ +#include "map.h" /* for Map struct, is_passable() */ +#include "main.h" /* for world global */ +#include "yx_uint16.h" /* for yx_uint16 struct */ +#include "rexit.h" /* for exit_err(), exit_trouble() */ +#include "wincontrol.h" /* for init_winconfs(), init_wins(), free_winconfs(), + * sorted_wintoggle_and_activate() + */ +#include "windows.h" /* for suspend_win() */ +#include "command_db.h" /* for is_command_id_shortdsc() */ + + + +extern uint16_t rrand() { - endwin(); - free(map->cells); - uint16_t key; - for (key = 0; key <= world->keyswindata->max; key++) - { - free(world->keybindings[key].name); - } - free(world->keybindings); - free(world->keyswindata); - free(world->log); - exit (EXIT_SUCCESS); + /* Constants as recommended by POSIX.1-2001 (see man page rand(3)). */ + world.seed = ((world.seed * 1103515245) + 12345) % 4294967296; + return (world.seed >> 16); /* Ignore less random least significant bits. */ +} + + + +extern void * try_malloc(size_t size, char * f) +{ + void * p = malloc(size); + exit_trouble(NULL == p, f, "malloc()"); + return p; } -extern void textfile_sizes(FILE * file, uint16_t * linemax_p, - uint16_t * n_lines_p) +extern void * try_calloc(size_t size1, size_t size2, char * f) { - uint16_t n_lines = 0; - int c = 0; - uint16_t linemax = 0; - uint16_t c_count = 0; - while (EOF != c) + void * p = calloc(size1, size2); + exit_trouble(NULL == p, f, "calloc()"); + return p; +} + + + +extern void check_files_xor(char * p1, char * p2) +{ + char * msg1 = "A file '"; + char * msg2 = "' exists, but no file '"; + char * msg3 = "'. If everything was in order, both or noe would exist. " + "The game won't start until this is corrected."; + uint16_t size = strlen(msg1) + strlen(p1) + strlen(msg2) + strlen(p2) + + strlen(msg3); + char msg[size]; + if (!access(p1, F_OK) && access(p2, F_OK)) { - 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++; - } - } + sprintf(msg, "%s%s%s%s%s", msg1, p1, msg2, p2, msg3); + errno = 0; + exit_err(1, msg); } - fseek(file, 0, SEEK_SET); - * linemax_p = linemax; - if (n_lines_p) + else if (access(p1, F_OK) && !access(p2, F_OK)) { - * n_lines_p = n_lines; + sprintf(msg, "%s%s%s%s%s", msg1, p2, msg2, p1, msg3); + errno = 0; + exit_err(1, msg); } } -extern uint16_t rrand(char use_seed, uint32_t new_seed) +extern void check_tempfile(char * path) +{ + char * msg1 = "A file '"; + char * msg2 = "' exists, probably from a corrupted previous file saving " + "process. To avoid corruption of game files, the game won't " + "start until it is removed or renamed."; + uint16_t size = strlen(msg1) + strlen(path) + strlen(msg2); + char msg[size]; + sprintf(msg, "%s%s%s", msg1, path, msg2); + exit_err(!access(path, F_OK), msg); +} + + + +extern void save_interface_conf() { - static uint32_t seed; - if (0 != use_seed) + save_keybindings("config/keybindings_global", &world.kb_global); + save_keybindings("config/keybindings_wingeom", &world.kb_wingeom); + save_keybindings("config/keybindings_winkeys", &world.kb_winkeys); + save_win_configs(); +} + + + +extern void load_interface_conf() +{ + init_keybindings("config/keybindings_global", &world.kb_global); + init_keybindings("config/keybindings_wingeom", &world.kb_wingeom); + init_keybindings("config/keybindings_winkeys", &world.kb_winkeys); + init_winconfs(); + init_wins(); + sorted_wintoggle_and_activate(); +} + + + +extern void unload_interface_conf() +{ + free_keybindings(world.kb_global.kbs); + free_keybindings(world.kb_wingeom.kbs); + free_keybindings(world.kb_winkeys.kbs); + while (0 != world.wmeta->active) { - seed = new_seed; + suspend_win(world.wmeta->active); } + free_winconfs(); +} - /* Constants as recommended by POSIX.1-2001 (see man page rand(3)). */ - seed = ((seed * 1103515245) + 12345) % 2147483648; - return (seed / 65536); /* TODO: Use bit-shifting for ignoring the less */ -} /* random least significant 16 bits. */ +extern void reload_interface_conf() +{ + unload_interface_conf(); + load_interface_conf(); +} -extern void update_log(struct World * world, char * text) + +extern void update_log(char * text) { - static char * last_msg; - if (0 == last_msg) - { - last_msg = calloc(1, sizeof(char)); + char * f_name = "update_log()"; + static char * last_msg; /* TODO: valgrind is dissatisfied */ + if (0 == last_msg) /* with this calloc'd pointer not */ + { /* being freed. Rectify this? */ + last_msg = try_calloc(1, sizeof(char), f_name); } char * new_text; - uint16_t len_old = strlen(world->log); + 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); + new_text = try_calloc(len_whole + 1, sizeof(char), f_name); + 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); + new_text = try_calloc(len_whole, sizeof(char), f_name); + memcpy(new_text, world.log, len_old); memcpy(new_text + len_old, text, len_new); - last_msg = calloc(len_new + 1, sizeof(char)); + last_msg = try_calloc(len_new + 1, sizeof(char), f_name); memcpy(last_msg, text, len_new); } - free(world->log); - world->log = new_text; + free(world.log); + world.log = new_text; } @@ -142,93 +192,109 @@ extern uint16_t center_offset(uint16_t pos, uint16_t mapsize, -extern void turn_over(struct World * world, char action) +extern void turn_over(char action) { - 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->map_obj.next) - { - move_monster(world, monster); - } -} - + char * f_name = "turn_over()"; - -extern void save_game(struct World * world) -{ - 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, NULL); - fclose(file); -} - - - -extern void toggle_window(struct WinMeta * win_meta, struct Win * win) -{ - if (0 != win->frame.curses_win) + char * recordfile_tmp = "record_tmp"; + char * recordfile = "record"; + if (1 == world.interactive) { - suspend_win(win_meta, win); + FILE * file_old = try_fopen(recordfile, "r", f_name); + FILE * file_new = try_fopen(recordfile_tmp, "w", f_name); + int c = try_fgetc(file_old, f_name); + while (EOF != c) + { + try_fputc((uint8_t) c, file_new, f_name); + c = try_fgetc(file_old, f_name); + } + try_fclose(file_old, f_name); + try_fputc(action, file_new, f_name); + if ( is_command_id_shortdsc(action, "drop") + || is_command_id_shortdsc(action, "use")) + { + try_fputc(world.inventory_select, file_new, f_name); + } + try_fclose_unlink_rename(file_new, recordfile_tmp, recordfile, f_name); } - else + + struct MapObj * player = get_player(); + struct MapObj * map_object = player; + uint8_t first_round = 1; + while (0 < player->lifepoints) { - append_win(win_meta, win); + if (NULL == map_object) + { + world.turn++; + map_object = world.map_objs; + } + if (0 < map_object->lifepoints) /* map_object is animate. */ + { + if (0 == first_round && 0 == map_object->progress) + { + if (map_object == player) + { + break; + } + pretty_dumb_ai(map_object); + } + first_round = 0; + map_object->progress++; + struct MapObjAct * moa = world.map_obj_acts; + while (moa->id != map_object->command) + { + moa = moa->next; + } + if (map_object->progress == moa->effort) + { + moa->func(map_object); + map_object->progress = 0; + } + } + map_object = map_object->next; } } -extern void scroll_pad(struct WinMeta * win_meta, char dir) +extern void save_game() { - 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); - } + char * f_name = "save_game()"; + char * savefile_tmp = "savefile_tmp"; + char * savefile = "savefile"; + FILE * file = try_fopen(savefile_tmp, "w", f_name); + char line[12]; + sprintf(line, "%u\n", world.mapseed); + try_fwrite(line, strlen(line), 1, file, f_name); + sprintf(line, "%u\n", world.seed); + try_fwrite(line, strlen(line), 1, file, f_name); + sprintf(line, "%u\n", world.turn); + try_fwrite(line, strlen(line), 1, file, f_name); + sprintf(line, "%u\n", world.score); + try_fwrite(line, strlen(line), 1, file, f_name); + write_map_objects(file); + try_fclose_unlink_rename(file, savefile_tmp, savefile, f_name); } -extern void growshrink_active_window(struct WinMeta * win_meta, char change) +extern void load_game() { - 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); - } + char * f_name = "load_game2()"; + char * filename = "savefile"; + FILE * file = try_fopen(filename, "r", f_name); + uint16_t linemax = textfile_sizes(file, NULL); + char line[linemax + 1]; + try_fgets(line, linemax + 1, file, f_name); + world.mapseed = atoi(line); + try_fgets(line, linemax + 1, file, f_name); + world.seed = atoi(line); + try_fgets(line, linemax + 1, file, f_name); + world.turn = atoi(line); + try_fgets(line, linemax + 1, file, f_name); + world.score = atoi(line); + read_map_objects(file, line, linemax); + try_fclose(file, f_name); } @@ -238,116 +304,34 @@ 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(0, 0) % map->size.y; - pos.x = rrand(0, 0) % map->size.x; + pos.y = rrand() % map->size.y; + pos.x = rrand() % map->size.x; } return pos; } -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) +extern void nav_inventory(char dir) { - 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")) + if ('u' == dir) { - 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); + if (world.inventory_select > 0) + { + world.inventory_select--; + } + return; } - else if (key == get_action_key(world->keybindings, "map left")) + struct MapObj * player = get_player(); + struct MapObj * owned = player->owns; + if (NULL == owned) { - map_scroll (world->map, WEST, win_map->frame.size); + return; } - else if (key == get_action_key(world->keybindings, "map center player")) + uint8_t n_owned = 0; + for (; NULL != owned->next; owned = owned->next, n_owned++); + if (world.inventory_select < n_owned) { - map_center_player (world->map, world->player, win_map->frame.size); + world.inventory_select++; } - return 0; }