                     :n "back"
                     :w "left"
                     :e "right")]
-    (str "images/wombats/wombat_" color "_" direction ".png")))
+    
+    ;; Always draw the base wombat
+    (draw-image canvas-element
+                (str "images/wombats/wombat_" color "_" direction ".png")
+                x
+                y
+                width
+                height)
+
+    ;; See if we need to add any meta to the wombat
+    (doseq [{type :type} meta]
+
+      (case type
+        :shot
+        (draw-image canvas-element
+                    (str "images/wombats/wombat_" color "_" direction "_fire.png")
+                    x
+                    y
+                    width
+                    height)
+
+        nil))))
 
 (defn- draw-open
   "Draws whatever belongs on an open cell"

  [contents meta]
  "images/poison/poison_vial.png")

(defn- get-zakano
  [contents meta]
  (let [{orientation :orientation} contents
        direction (case orientation
                    :s "front"
                    :n "back"
                    :w "left"
                    :e "right")]
    (str "images/zakano/zakano_" direction ".png")))

(defn- get-wombat
  [contents meta]
  (let [{color :color
         orientation :orientation
         hp :hp} contents

                  height)

      :zakano
      (draw-zakano canvas-element contents meta x y width height)

      :wombat
      (draw-wombat canvas-element contents meta x y width height)

      :open
      (draw-open canvas-element contents meta x y width height)

      (js/console.log "Unhandled: " cell-type))))

