         (assoc game ::terrain/terrain-map (-> terrain
                                               (terrain/set-property player-pos ::weapon/weapon weapon)
                                               (terrain/damage target-pos damage))))
-      (update game ::terrain/terrain-map
+      (update game
+              ::terrain/terrain-map
               terrain/update-property
               player-pos
               ::weapon/weapon

  ([game new-pos] (set-player game new-pos :up))
  ([game new-pos direction]
   (-> game
       (update ::terrain/terrain-map terrain/remove-terrain
               (player-position game))
       (update ::terrain/terrain-map terrain/make-terrain
               new-pos
               {::terrain/type      :player
                ::terrain/health    player-default-health



(defn- set-zombie [game position]
  (update game
          ::terrain/terrain-map
          terrain/make-terrain
          position
          {::terrain/type      :zombie
