--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/arogue7/daemon.c	Fri May 08 15:24:40 2015 -0400
@@ -0,0 +1,252 @@
+/*
+ * daemon.c  -  functions for dealing with things that happen in the future.
+ *
+ * Advanced Rogue
+ * Copyright (C) 1984, 1985, 1986 Michael Morgan, Ken Dalka and AT&T
+ * All rights reserved.
+ *
+ * Based on "Rogue: Exploring the Dungeons of Doom"
+ * Copyright (C) 1980, 1981 Michael Toy, Ken Arnold and Glenn Wichman
+ * All rights reserved.
+ *
+ * See the file LICENSE.TXT for full copyright and licensing information.
+ */
+
+/*
+ * Contains functions for dealing with things that happen in the
+ * future.
+ *
+ */
+
+#include "curses.h"
+#include "rogue.h"
+
+#define EMPTY		0
+#define DAEMON		-1
+#define MAXDAEMONS	10
+#define MAXFUSES	20
+
+#define _X_ { EMPTY }
+
+struct delayed_action d_list[MAXDAEMONS] = {
+	_X_, _X_, _X_, _X_, _X_, _X_, _X_, _X_, _X_, _X_
+};
+struct delayed_action f_list[MAXFUSES] = {
+	_X_, _X_, _X_, _X_, _X_, _X_, _X_, _X_, _X_, _X_,
+	_X_, _X_, _X_, _X_, _X_, _X_, _X_, _X_, _X_, _X_
+};
+int demoncnt = 0;	/* number of active daemons */
+int fusecnt = 0;
+
+
+/*
+ * d_slot:
+ *	Find an empty slot in the daemon list
+ */
+struct delayed_action *
+d_slot()
+{
+	reg int i;
+	reg struct delayed_action *dev;
+
+	for (i = 0, dev = d_list; i < MAXDAEMONS; i++, dev++)
+		if (dev->d_type == EMPTY)
+			return dev;
+	return NULL;
+}
+
+/*
+ * f_slot:
+ *	Find an empty slot in the fuses list
+ */
+struct delayed_action *
+f_slot()
+{
+	reg int i;
+	reg struct delayed_action *dev;
+
+	for (i = 0, dev = f_list; i < MAXFUSES; i++, dev++)
+		if (dev->d_type == EMPTY)
+			return dev;
+	return NULL;
+}
+
+
+
+/*
+ * find_slot:
+ *	Find a particular slot in the table
+ */
+struct delayed_action *
+find_slot(func)
+reg int (*func)();
+{
+	reg int i;
+	reg struct delayed_action *dev;
+
+	for (i = 0, dev = f_list; i < MAXFUSES; i++, dev++)
+		if (dev->d_type != EMPTY && func == dev->d_func)
+			return dev;
+	return NULL;
+}
+
+
+/*
+ * daemon:
+ *	Start a daemon, takes a function.
+ */
+daemon(func, arg, type)
+reg int arg, type, (*func)();
+{
+	reg struct delayed_action *dev;
+
+	dev = d_slot();
+	if (dev != NULL) {
+		dev->d_type = type;
+		dev->d_func = func;
+		dev->d_.arg = arg;
+		dev->d_time = DAEMON;
+		demoncnt += 1;			/* update count */
+	}
+}
+
+
+/*
+ * kill_daemon:
+ *	Remove a daemon from the list
+ */
+kill_daemon(func)
+reg int (*func)();
+{
+	reg struct delayed_action *dev;
+	reg int i;
+
+	for (i = 0, dev = d_list; i < MAXDAEMONS; i++, dev++) {
+		if (dev->d_type != EMPTY && func == dev->d_func)
+			break;
+	}
+	if (i >= MAXDAEMONS) return; /* if not found, forget it */
+	/*
+	 * Take it out of the list
+	 */
+	dev->d_type = EMPTY;
+	dev->d_.arg  = 0;
+	dev->d_func = NULL;
+	dev->d_time = 0;
+	demoncnt -= 1;			/* update count */
+}
+
+
+/*
+ * do_daemons:
+ *	Run all the daemons that are active with the current flag,
+ *	passing the argument to the function.
+ */
+do_daemons(flag)
+reg int flag;
+{
+	reg struct delayed_action *dev;
+
+	/*
+	 * Loop through the devil list
+	 */
+	for (dev = d_list; dev <= &d_list[MAXDAEMONS-1]; dev++)
+	/*
+	 * Executing each one, giving it the proper arguments
+	 */
+		if (dev->d_type == flag && dev->d_time == DAEMON)
+			(*dev->d_func)(dev->d_.arg);
+}
+
+
+/*
+ * fuse:
+ *	Start a fuse to go off in a certain number of turns
+ */
+fuse(func, arg, time, type)
+reg int (*func)(), arg, time, type;
+{
+	reg struct delayed_action *wire;
+
+	wire = f_slot();
+	if (wire != NULL) {
+		wire->d_type = type;
+		wire->d_func = func;
+		wire->d_.arg = arg;
+		wire->d_time = time;
+		fusecnt += 1;			/* update count */
+	}
+}
+
+
+/*
+ * lengthen:
+ *	Increase the time until a fuse goes off
+ */
+lengthen(func, xtime)
+reg int (*func)(), xtime;
+{
+	reg struct delayed_action *wire;
+
+	if ((wire = find_slot(func)) == NULL)
+		return;
+	wire->d_time += xtime;
+}
+
+
+/*
+ * extinguish:
+ *	Put out a fuse
+ */
+extinguish(func)
+reg int (*func)();
+{
+	reg struct delayed_action *wire;
+
+	if ((wire = find_slot(func)) == NULL)
+		return;
+	wire->d_type = EMPTY;
+	wire->d_func = NULL;
+	wire->d_.arg = 0;
+	wire->d_time = 0;
+	fusecnt -= 1;
+}
+
+
+/*
+ * do_fuses:
+ *	Decrement counters and start needed fuses
+ */
+do_fuses(flag)
+reg int flag;
+{
+	reg struct delayed_action *wire;
+
+	/*
+	 * Step though the list
+	 */
+	for (wire = f_list; wire <= &f_list[MAXFUSES-1]; wire++) {
+	/*
+	 * Decrementing counters and starting things we want.  We also need
+	 * to remove the fuse from the list once it has gone off.
+	 */
+	    if(flag == wire->d_type && wire->d_time > 0	&&
+	      --wire->d_time == 0) {
+		wire->d_type = EMPTY;
+		if (wire->d_func != NULL)
+		    (*wire->d_func)(wire->d_.arg);
+		fusecnt -= 1;
+	    }
+	}
+}
+
+
+/*
+ * activity:
+ *	Show wizard number of demaons and memory blocks used
+ */
+activity()
+{
+	msg("Daemons = %d : Fuses = %d : Memory Items = %d : Memory Used = %d",
+	    demoncnt,fusecnt,total,md_memused(0));
+}