+struct Map init_map () {
+// Initialize map with some experimental start values.
+ struct Map map;
+ map.width = 96;
+ map.height = 32;
+ map.offset_x = 0;
+ map.offset_y = 0;
+ map.cells = malloc(map.width * map.height);
+ int x, y, ran;
+ char terrain;
+ for (y = 0; y < map.height; y++)
+ for (x = 0; x < map.width; x++) {
+ terrain = '.';
+ ran = rand();
+ if ( 0 == ran % ((x*x) / 3 + 1)
+ || 0 == ran % ((y*y) / 3 + 1)
+ || 0 == ran % ((map.width - x - 1) * (map.width - x - 1) / 3 + 1)
+ || 0 == ran %((map.height - y - 1) * (map.height - y - 1) / 3 + 1))
+ terrain = ' ';
+ map.cells[(y * map.width) + x] = terrain; }
+ return map; }
+
+void next_turn (struct World * world) {
+// Increment turn and move enemy.
+ world->turn++;
+ char d = rand() % 5;
+ char ty = world->monster->y;
+ char tx = world->monster->x;
+ if (1 == d)
+ ty++;
+ else if (2 == d)
+ ty--;
+ else if (3 == d)
+ tx++;
+ else if (4 == d)
+ tx--;
+ if (tx == world->player->x && ty == world->player->y)
+ update_log(world, "\nThe monster hits you.");
+ else if (is_passable(world, tx, ty)) {
+ world->monster->y = ty;
+ world->monster->x = tx; } }
+
+void update_log (struct World * world, char * text) {
+// Update log with new text to be appended.
+ char * new_text;
+ int len_old = strlen(world->log);
+ int len_new = strlen(text);
+ int 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);
+ free(world->log);
+ world->log = new_text; }
+
+void save_keybindings(struct World * world) {
+// Write keybindings to keybindings file.
+ struct KeysWinData * keyswindata = (struct KeysWinData *) world->keyswindata;
+ struct KeyBinding * keybindings = world->keybindings;
+ FILE * file = fopen("keybindings", "w");
+ int linemax = 0;
+ int i;
+ for (i = 0; i <= keyswindata->max; i++)
+ if (strlen(keybindings[i].name) > linemax)
+ linemax = strlen(keybindings[i].name);
+ linemax = linemax + 6; // + 6 = + 3 digits + whitespace + newline + null byte
+ char * line = malloc(linemax);
+ for (i = 0; i <= keyswindata->max; i++) {
+ snprintf(line, linemax, "%d %s\n", keybindings[i].key, keybindings[i].name);
+ fwrite(line, sizeof(char), strlen(line), file); }
+ free(line);
+ fclose(file); }
+
+int get_action_key (struct KeyBinding * keybindings, char * name) {
+// Return key matching name in keybindings.
+ int i = 0;
+ while (strcmp(keybindings[i].name, name) )
+ i++;
+ return keybindings[i].key; }
+
+char * get_keyname(int keycode) {
+// Translate some keycodes to readable names of max 9 chars.
+ char * keyname;
+ keyname = malloc(15);
+ if (32 < keycode && keycode < 127)
+ sprintf(keyname, "%c", keycode);
+ else if (keycode == 9)
+ sprintf(keyname, "TAB");
+ else if (keycode == 10)
+ sprintf(keyname, "RETURN");
+ else if (keycode == 27)
+ sprintf(keyname, "ESCAPE");
+ else if (keycode == 32)
+ sprintf(keyname, "SPACE");
+ else if (keycode == KEY_UP)
+ sprintf(keyname, "UP");
+ else if (keycode == KEY_DOWN)
+ sprintf(keyname, "DOWN");
+ else if (keycode == KEY_LEFT)
+ sprintf(keyname, "LEFT");
+ else if (keycode == KEY_RIGHT)
+ sprintf(keyname, "RIGHT");
+ else if (keycode == KEY_HOME)
+ sprintf(keyname, "HOME");
+ else if (keycode == KEY_BACKSPACE)
+ sprintf(keyname, "BACKSPACE");
+ else if (keycode >= KEY_F0 && keycode <= KEY_F(63)) {
+ int f = keycode - KEY_F0;
+ sprintf(keyname, "F%d", f); }
+ else if (keycode == KEY_DC)
+ sprintf(keyname, "DELETE");
+ else if (keycode == KEY_IC)
+ sprintf(keyname, "INSERT");
+ else if (keycode == KEY_NPAGE)
+ sprintf(keyname, "NEXT PAGE");
+ else if (keycode == KEY_PPAGE)
+ sprintf(keyname, "PREV PAGE");
+ else if (keycode == KEY_END)
+ sprintf(keyname, "END");
+ else
+ sprintf(keyname, "(unknown)");
+ return keyname; }
+
+void mod_key (struct World * world, struct WinMeta * win_meta) {
+// In keybinding window, mark selection modifiable, modify key. Ensure max of three digits in key code field.
+ world->keyswindata->edit = 1;
+ draw_all_windows (win_meta);
+ int key = getch();
+ if (key < 1000)
+ world->keybindings[world->keyswindata->select].key = key;
+ world->keyswindata->edit = 0; }
+
+void keyswin_move_selection (struct World * world, char dir) {
+// In keybindings window, move selection upwards or downwards (if within limits of list length).
+ if ('u' == dir && world->keyswindata->select > 0)
+ world->keyswindata->select--;
+ else if ('d' == dir && world->keyswindata->select < world->keyswindata->max)
+ world->keyswindata->select++; }
+
+char is_passable (struct World * world, int x, int y) {
+// Check if coordinate on (or beyond) map is accessible to movement.
+ char passable = 0;
+ if (0 <= x && x < world->map->width && 0 <= y && y < world->map->height)
+ if ('.' == world->map->cells[y * world->map->width + x])
+ passable = 1;
+ return passable; }
+
+void move_player (struct World * world, char d) {
+// Move player in direction d, increment turn counter and update log.
+ static char prev = 0;
+ char success = 0;
+ char * dir;
+ char ty = world->player->y;
+ char tx = world->player->x;
+ if ('s' == d) {
+ dir = "south";
+ ty++; }
+ if ('n' == d) {
+ dir = "north";
+ ty--; }
+ if ('w' == d) {
+ dir = "west";
+ tx--; }
+ if ('e' == d) {
+ dir = "east";
+ tx++; }
+ if (ty == world->monster->y && tx == world->monster->x)
+ success = 2;
+ else if (is_passable(world, tx, ty)) {
+ success = 1;
+ world->player->y = ty;
+ world->player->x = tx; }
+ if (success * d == prev)
+ update_log (world, ".");
+ else {
+ if (2 == success)
+ update_log (world, "\nYou hit the monster.");
+ else {
+ char * msg = calloc(25, sizeof(char));
+ char * msg_content = "You fail to move";
+ if (1 == success)
+ msg_content = "You move";
+ sprintf(msg, "\n%s %s.", msg_content, dir);
+ update_log (world, msg);
+ free(msg); } }
+ prev = success * d;
+ next_turn (world); }
+
+void player_wait(struct World * world) {
+// Make player wait one turn.
+ next_turn (world);
+ update_log (world, "\nYou wait."); }
+