       "obtained the sokoban prize"
       "defeated Medusa"])
 
+(def conducts
+     ["foodless"
+      "vegan"
+      "vegetarian"
+      "atheist"
+      "weaponless"
+      "pacifist"
+      "illiterate"
+      "polyless"
+      "polyselfless"
+      "wishless"
+      "artifact wishless"
+      "genocideless"])
+
 (defn zone [zonenum]
   (let [i (if (isa? (class zonenum) String)
             (Integer/parseInt zonenum)

      [:endtime "TIMESTAMP"]
      [:gender0 "TEXT"]
      [:align0 "TEXT"]
      [:flags "TEXT"])
     (let [lines (read-lines (str (:un-dir config) "xlogfile"))]
       (doseq [line lines]
         (insert-xlogfile-line-db line)))))
  (.info logger "database initialized"))

(defn nh-start [watcher]
  (nh-init-db)
  (.start (:thread @watcher)))

                 (loop [line (read-line-ra ra)]
                   (if line
                     (do 
                       ((:callback file) (:irc @watcher) fn line)
                       (var-set files (assoc (var-get files)
                                        fn
                                        (assoc (get (var-get files) fn) :length (.getFilePointer ra))))
