(ns buddho.dhamma.world.block
  (:require [buddho.core.dhamma :as d]
            [buddho.core.meta :as meta]
            [buddho.dhamma.state :as s]))

(meta/register-meta!
 :create-block
 :aspects {[:_construct] [:create-sprite :have-idea]})
(defn create-block!
  [x y sprite-url & asp-props]
  (d/register-dhamma!
   :create-block
   :data {:x x :y y :sprite-url sprite-url
          :n-ideas 1}
   :asp-props (concat [[:_construct :create-block]
                       [:create-block]]
                      asp-props)
   ;; TODO
   :cascade []))
