hg.stevelosh.com > caves

src/caves/entities/aspects/destructible.clj @ 6e92c8d8ddac entry-06 

Add death messages.
author Steve Losh <steve@stevelosh.com>
date Wed, 18 Jul 2012 23:15:50 -0400
parents 811f328099c6
children (none) 
(ns caves.entities.aspects.destructible
  (:use [caves.entities.core :only [defaspect]]
        [caves.entities.aspects.receiver :only [send-message-nearby]]))


(defaspect Destructible
  (take-damage [{:keys [id] :as this} damage world]
    (let [damaged-this (update-in this [:hp] - damage)]
      (if-not (pos? (:hp damaged-this))
        (let [world (update-in world [:entities] dissoc id)
              world (send-message-nearby (:location this)
                                         (format "The %s dies." (:name this))
                                         world)]
          world)
        (assoc-in world [:entities id] damaged-this))))
  (defense-value [this world]
    (get this :defense 0)))