 (defn crow-pre
   "If trying to open the back door do it, otherwise default message."
   [gs item]
-  (if (some #{"back door"} (:names item))
-    true
-    "I didn't want to break into that."))
+  (cond
+    (some #{"back door"} (:names item)) true
+    (= (:id item) "bath-window") "There was no need to break the window, just find a way to reach it."
+    (some #{"window"} (:names item)) "I didn't want to draw too much attention."
+    :else "I didn't want to break into that."))
 
 (defn crow-post
   "Open the door and connect the rooms."

                                   :post `crow-post}))

(def screwdriver (item/make "screwdriver" "the dust and the rust were competing to see who'd take over the thing first."
                            :use-with "I didn't see any screws."
                            :take true))

(def hammer (item/make "hammer" "The head was a bit loose but still usable."
                       :take true
                       :use-with "Everything looking like a nail, huh?"))

; FIXME add drawer with screwdriver
; FIXME add table
; TODO custom text when opening the drawer
(def shed (->
            (room/make "Shed"
                       "The shed was barely big enough for me to stand inside. There was a brief work table with a drawer against one of the walls and a tool board against the other. Right by the door was an old lawn mower."

            (room/add-item (item/make ["tool board" "tools" "board" "toolset"]
                                      "Only a mid-size hammer and a crowbar were left of what appeared to have been a big toolset."
                                      :take "Not the entire thing!") "")
            (room/add-item (item/make ["table" "work table"] "Seemed too small to get any real work done. It had one drawer.") "")
            (room/add-item drawer "")
            (room/add-item hammer "")
            (room/add-item crowbar "")
            (room/add-item (item/make ["lawn mower" "mower"]
