       (str "No dumpfile for " nick))))
 
 (defn add-scum [player]
+  (.info logger (str "adding scum " player))
   (dosync
    (alter scummers assoc player (+ (System/currentTimeMillis) 30000))))
 
 (defn is-scum [player]
   (dosync 
    (if (contains? @scummers player)
-     (if (> (get @scummers player) (System/currentTimeMillis))
-       (do (alter scummers dissoc player)
-           false)
+     (if (< (get @scummers player) (System/currentTimeMillis))
+       (do
+         (.info logger "removing scum " player)
+         (alter scummers dissoc player)
+         false)
        true))))
 
 (defn online-players-hook [irc object match]

(ns demogorgon.nh
  (:import [java.io File FilenameFilter RandomAccessFile])
  (:require [clj-stacktrace.repl :as stacktrace]
            [tachyon.core :as irc]
            [demogorgon.twitter :as twitter])
  (:use	[clojure.contrib.duck-streams :only (reader)]
        [demogorgon.config]))

(def scummers (ref {}))

(def roles

            (str (:player data) " has declined a wish")
            (str (:player data) " wished for '" (:wish data) "' after " (:turns data) " turns."))
    
    :shout (format "You hear %s distant rumbling%s"
                   (possessive (:player data))
                   (if (= (:shout data) "")
                     "."
