                             :open true
                             :enter :back-hall3)
         new-map (room/connect (:room-map gs) :house-back :south :back-hall3)]
-    (utils/say "Easy job for the crowbar. The door was now open.")
     (-> gs
       (assoc :room-map new-map)
       (utils/replace-item door new-door))))
 
+; FIXME need to cover case use with screw and use with hammer, screwdriver
+; FIXME unlock with crowbar is sort of funny, but open with isn't, it should work! --> probably best to separate verbs
+(def back-door (item/make ["door" "back door"]
+                          "It didn't look particularly tough."
+                          :break "Perhaps with the proper tooling."
+                          :enter "It was locked."
+                          :unlock {:say "Sure. I unlocked the hell out of it. The door was now open."
+                                   :post `crow-post} ; FIXME so far not working
+                          :locked true))
+
 (def crowbar (item/make "crowbar" "satisfy all your breaking-into-places needs."
                         :take true
-                        :unlock "Unlock with a crowbar? That's one way to put it, I guess." ; FIXME this is working backwards
-                        :use-with {:pre `crow-pre :post `crow-post}))
+                        :unlocks back-door
+                        :use-with {:pre `crow-pre
+                                   :say "Easy job for the crowbar. The door was now open."
+                                   :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."

                  (room/add-item (item/make "house" "It looked even bigger from this side."
                                                    :enter `can-enter
                                                    :break "Perhaps with the proper tooling."))))

(def west-passage (room/make "West passage"
                             " "))

(def east-passage (room/make "East passage"
                             " "))

              (room/add-item (item/make ["creeping fig" "fig"] "It was a bit more under control than on the other side." :climb-up "The fig wasn't strong enough to climb up on this side of the wall.") "")
              (room/add-item (item/make ["path" "stone path"] "It led back to the house.") "A stone path led south to the back entrance of the house.")
              (room/add-item (item/make ["shed" "wooden shed"] "It looked a bit neglected." :enter :shed) "There was an old wooden shed on the east corner.")))


(defn crow-pre
  "If trying to open the back door do it, otherwise default message."
