+ return 0;
+}
+
+
+
+static void turn_over()
+{
+ struct Thing * player = get_player();
+ struct Thing * thing = player;
+ uint16_t start_turn = world.turn;
+ int16_t * whitelist = build_whitelist();
+ while ( 0 < player->lifepoints
+ || (0 == player->lifepoints && start_turn == world.turn))
+ { /* TODO: check meaning and refactorability of 2nd condition */
+ if (!thing)
+ {
+ world.turn++;
+ thing = world.things;
+ free(whitelist);
+ whitelist = build_whitelist();/* The whitelist excludes things */
+ } /* that appear only during the turn.*/
+ if (thing_in_whitelist(thing->id, whitelist))
+ {
+ if (0 < thing->lifepoints)
+ {
+ if (0 == thing->command)
+ {
+ if (thing == player)
+ {
+ break;
+ }
+ ai(thing);
+ }
+ thing->progress++;
+ struct ThingAction * ta = get_thing_action(thing->command);
+ if (thing->progress == ta->effort)
+ {
+ ta->func(thing);
+ thing->command = 0;
+ thing->progress = 0;
+ }
+ }
+ try_thing_proliferation(thing);
+ }
+ thing = thing->next;
+ }
+ free(whitelist);
+}
+
+
+
+static void answer_query(char * answer)
+{
+ try_fwrite(answer, strlen(answer), 1, world.file_out, __func__);
+ fflush(world.file_out);
+}
+
+
+
+static uint8_t meta_commands(char * msg)
+{
+ if (!strcmp("QUIT", msg))
+ {
+ free(msg);
+ return 2;
+ }
+ if (!strcmp("PING", msg))
+ {
+ free(msg);
+ answer_query("PONG\n");
+ return 1;
+ }
+ if (!strcmp("STACK", msg))
+ {
+ free(msg);
+ answer_query("THINGS_BELOW_PLAYER START\n");
+ struct Thing * player = get_player();
+ struct Thing * t;
+ for (t = world.things; t; t = t->next)
+ {
+ if ( t->pos.y == player->pos.y && t->pos.x == player->pos.x
+ && t != player)
+ {
+ struct ThingType * tt = get_thing_type(t->type);
+ answer_query(tt->name);
+ answer_query("\n");
+ }
+ }
+ answer_query("THINGS_BELOW_PLAYER END\n");
+ return 1;
+ }
+ return 0;
+}
+
+
+
+extern void record(char * msg, uint8_t force)
+{
+ static FILE * file_tmp = NULL;
+ static time_t save_wait = 0;
+ static char * path_tmp;
+ if (!file_tmp)