             [clojure.core.match :refer [match]]
                )
   (:gen-class))
-; [clojure.core.match :refer [match]]
-; [clojure.string :as str]
+
 (def the-map
   {
    :bedroom {:desc "There is a bed, and a warm warm warm blanket that is pretty effective in putting you to sleep"

        (update-in adv [:inventory] #(conj % dest)))
     (do (println "There is no such item. ")
        adv) )))
(defn dropItem [obj adv]
    (if-let [dest (get-in adv [:inventory obj])]
      (update-in adv [:inventory] #(dissoc % dest))
      (do (println "You don't have such item")
       adv)))
(defn print_inventory [adv]
    (do (println (seq (adv :inventory)))
      adv))
(defn print_content [adv]
    (let [location (adv :location)]
    (do (print (str (-> the-map location :content)))adv)))

(defn tp [location adv]
    )

(defn respond [inst adv]
  (if (contains? inst 1)

          [:pick] (pick (inst 1) adv)
          [:dropItem] (dropItem (inst 1) adv)
          [_](do
              (println (str "I'm sorry "(-> adv :name)". I cannot allow you to do that."))
              adv)
          )
  (match inst
