--- a/arogue7/state.c	Thu May 28 15:39:28 2015 -0400
+++ b/arogue7/state.c	Fri May 29 17:34:04 2015 -0400
@@ -1383,6 +1383,69 @@
     return(READSTAT);
 }
 
+/* Assigns a number to an alchemy jug associated with a fuse, so it can be 
+ * found and reassociated when restoring.
+ * 1 - 31: slot in pack
+ * 32+   : on floor
+ * Hopefully monsters do not pick them up.
+ */
+int number_alchemy_jug(struct object *obj) {
+    struct object *tobj = NULL;
+    struct linked_list *item;
+    int i = 1;
+    for (item = pack; item != NULL; item = next(item), i++) {
+	tobj = OBJPTR(item);
+	if (tobj	 == obj		&& 
+	    tobj->o_type == MM		&& 
+	    tobj->o_which== MM_JUG)
+		break;
+    }
+    if (item == NULL) {
+	for (item = lvl_obj, i = 32; item != NULL; item = next(item), i++) {
+	    tobj = OBJPTR(item);
+	    if (tobj	     == obj		&& 
+		tobj->o_type == MM		&& 
+		tobj->o_which== MM_JUG)
+		    break;
+	}
+    }
+    if (item == NULL)
+      return 0;
+    return i;
+}
+
+/* Takes an alchemy jug number and tracks down the object. */
+struct object *find_alchemy_jug(int n) {
+    struct object *tobj;
+    struct linked_list *item;
+
+    if (n <= 0) {
+        return NULL;
+    }
+    else if (n < 32) {
+        item = pack;
+        n -= 1;
+    }
+    else if (n < 1024) {
+        item = lvl_obj;
+        n -= 32;
+    }
+    else {
+        /* This is likely a bug, not 1024 actual items on the floor. */
+        return NULL;
+    }
+    while (item != NULL && n > 0) {
+        item = next(item);
+        n--;
+    }
+    if (item == NULL)
+        return NULL;
+    tobj = OBJPTR(item);
+    if (tobj->o_type != MM || tobj->o_which != MM_JUG)
+        return NULL;
+    return tobj;
+}
+
 int
 rs_write_daemons(FILE *savef, struct delayed_action *d_list, int count)
 {
@@ -1471,6 +1534,8 @@
             func = 36;
         else if (d_list[i].d_func == nobolt)
             func = 37;
+        else if (d_list[i].d_func == alchemy)
+            func = 38;
         else if (d_list[i].d_func == NULL)
             func = 0;
         else
@@ -1497,6 +1562,10 @@
             index = find_list_ptr(player.t_pack, d_list[i].d_.varg);
             rs_write_int(savef,index);
         }
+        else if (d_list[i].d_func == alchemy)
+        {
+            rs_write_int(savef, number_alchemy_jug(d_list[i].d_.varg));
+        }
         else
             rs_write_int(savef, d_list[i].d_.arg);
 
@@ -1605,6 +1674,8 @@
                      break;
             case 37: d_list[i].d_func = nobolt;
                      break;
+            case 38: d_list[i].d_func = alchemy;
+                     break;
 	    case  0:
             case -1:
             default: d_list[i].d_func = NULL;
@@ -1635,6 +1706,13 @@
 	    if (d_list[i].d_.varg == NULL)
 		d_list[i].d_type = 0;
         }
+        else if (d_list[i].d_func == alchemy)
+        {
+	    rs_read_int(inf, &dummy);
+            d_list[i].d_.varg = find_alchemy_jug(dummy);
+	    if (d_list[i].d_.varg == NULL)
+		d_list[i].d_type = 0;
+        }
         else
 	    rs_read_int(inf, &d_list[i].d_.arg);