   [contents meta]
   "images/poison/poison_vial.png")
 
-(defn- get-zakano
-  [contents meta]
+(defn- draw-zakano
+  [canvas-element contents meta x y width height]
   (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]
+
+    ;; Always draw the base zakano
+    (draw-image canvas-element
+                (str "images/zakano/zakano_" direction ".png")
+                x
+                y
+                width
+                height)
+
+    ;; See if we need to add any meta to the zakano
+    (doseq [{type :type} meta]
+      
+      (case type
+        :shot
+        (draw-image canvas-element
+                    (str "images/zakano/zakano_" direction "_fire.png")
+                    x
+                    y
+                    width
+                    height)
+        
+        nil))))
+
+(defn- draw-wombat
+  [canvas-element contents meta x y width height]
   (let [{color :color
          orientation :orientation
          hp :hp} contents

                    :n "back"
                    :w "left"
                    :e "right")]
    (str "images/wombats/wombat_" color "_" direction ".png")))

(defn- draw-open
  "Draws whatever belongs on an open cell"

                  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))))

