rooms.clj

(ns mire.rooms
  (:use [clojure.contrib str-utils]))

(def rooms
     {:start {:desc "You find yourself in a round room with a pillar in the middle."
              :exits {:north :closet}}
      :closet {:desc "You are in a cramped closet."
                :exits {:south :start}}})

(def *current-room* (rooms :start))

(defn set-current-room [target]
     (def *current-room* target))