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).
+void update_log (struct World * world, char * text) {
+// Update log with new text to be appended.
+ char * new_text;
+ uint16_t len_old = strlen(world->log);
+ 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);
+ free(world->log);
+ world->log = new_text; }
+
struct Map init_map () {
// Initialize map with some experimental start values.
struct Map map;
map.cells[y * map.size.x + x] = '.'; }
return map; }
+void map_scroll (struct Map * map, char dir) {
+// Scroll map into direction dir if possible by changing the offset.
+ if (NORTH == dir && map->offset.y > 0) map->offset.y--;
+ else if (SOUTH == dir) map->offset.y++;
+ else if (WEST == dir && map->offset.x > 0) map->offset.x--;
+ else if (EAST == dir) map->offset.x++; }
+
+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->next)
+ move_monster(world, monster); }
+
void save_game(struct World * world) {
// Save game data to game file.
FILE * file = fopen("savefile", "w");
write_uint16_bigendian(world->monster->next->next->pos.x, file);
fclose(file); }
-void record_action (char action) {
-// Append action to game record file.
- FILE * file = fopen("record", "a");
- fputc(action, file);
- fclose(file); }
+char is_passable (struct Map * map, uint16_t y, uint16_t x) {
+// Check if coordinate on (or beyond) map is accessible to movement.
+ char passable = 0;
+ if (0 <= x && x < map->size.x && 0 <= y && y < map->size.y)
+ if ('.' == map->cells[y * map->size.x + x])
+ passable = 1;
+ return passable; }
struct yx_uint16 mv_yx_in_dir (char d, struct yx_uint16 yx) {
// Return yx coordinates one step to the direction d of yx.
else if (d == WEST) yx.x--;
return yx; }
-void next_turn (struct World * world) {
-// Increment turn and move enemy.
- world->turn++;
- rrand(1, world->seed * world->turn);
- char d;
- struct Monster * monster;
- for (monster = world->monster; monster != 0; monster = monster->next) {
- d = rrand(0, 0) % 5;
- struct yx_uint16 t = mv_yx_in_dir (d, monster->pos);
- if (yx_uint16_cmp(t, world->player->pos))
- update_log(world, "\nThe monster hits you.");
- else if (is_passable(world->map, t.y, t.x))
- monster->pos = t; } }
-
-void update_log (struct World * world, char * text) {
-// Update log with new text to be appended.
- char * new_text;
- uint16_t len_old = strlen(world->log);
- 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);
- free(world->log);
- world->log = new_text; }
+void move_monster (struct World * world, struct Monster * monster) {
+// Move monster in random direction, trigger fighting when hindered by player/monster.
+ char d = rrand(0, 0) % 5;
+ struct yx_uint16 t = mv_yx_in_dir (d, monster->pos);
+ if (yx_uint16_cmp (t, world->player->pos)) {
+ update_log (world, "\nThe monster hits you.");
+ return; }
+ char met_monster = 0;
+ struct Monster * other_monster;
+ for (other_monster = world->monster; other_monster != 0; other_monster = other_monster->next) {
+ if (other_monster == monster)
+ continue;
+ if (yx_uint16_cmp (t, other_monster->pos)) {
+ met_monster = 1;
+ break; } }
+ if (met_monster)
+ update_log (world, "\nMonster hits monster.");
+ else if (is_passable(world->map, t.y, t.x))
+ monster->pos = t; }
void move_player (struct World * world, char d) {
// Move player in direction d, increment turn counter and update log.
update_log (world, msg);
free(msg); } }
prev = success * d;
- if (1 == world->interactive)
- record_action(d);
- next_turn (world); }
-
-char is_passable (struct Map * map, uint16_t y, uint16_t x) {
-// Check if coordinate on (or beyond) map is accessible to movement.
- char passable = 0;
- if (0 <= x && x < map->size.x && 0 <= y && y < map->size.y)
- if ('.' == map->cells[y * map->size.x + x])
- passable = 1;
- return passable; }
+ turn_over (world, d); }
void player_wait (struct World * world) {
// Make player wait one turn.
- if (1 == world->interactive)
- record_action(0);
- next_turn (world);
- update_log (world, "\nYou wait."); }
+ update_log (world, "\nYou wait.");
+ turn_over (world, 0); }
void toggle_window (struct WinMeta * win_meta, struct Win * win) {
// Toggle display of window win.
width++;
resize_active_win (win_meta, height, width); } }
-void map_scroll (struct Map * map, char dir) {
-// Scroll map into direction dir if possible by changing the offset.
- if (NORTH == dir && map->offset.y > 0) map->offset.y--;
- else if (SOUTH == dir) map->offset.y++;
- else if (WEST == dir && map->offset.x > 0) map->offset.x--;
- else if (EAST == dir) map->offset.x++; }
-
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.