# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1342137328 14400
# Node ID 716b6b7e09f11068bd325ebe43d05dd532da09ae
# Parent  0e7bdc5771b2255ca5c55871d02831a2ddb11791
Kill things!

diff -r 0e7bdc5771b2 -r 716b6b7e09f1 src/caves/entities/aspects/attacker.clj
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/caves/entities/aspects/attacker.clj	Thu Jul 12 19:55:28 2012 -0400
@@ -0,0 +1,7 @@
+(ns caves.entities.aspects.attacker)
+
+
+(defprotocol Attacker
+  (attack [this world target]
+          "Attack the target."))
+
diff -r 0e7bdc5771b2 -r 716b6b7e09f1 src/caves/entities/aspects/destructible.clj
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/caves/entities/aspects/destructible.clj	Thu Jul 12 19:55:28 2012 -0400
@@ -0,0 +1,6 @@
+(ns caves.entities.aspects.destructible)
+
+
+(defprotocol Destructible
+  (take-damage [this world damage]
+               "Take the given amount of damage and update the world appropriately."))
diff -r 0e7bdc5771b2 -r 716b6b7e09f1 src/caves/entities/lichen.clj
--- a/src/caves/entities/lichen.clj	Thu Jul 12 19:07:08 2012 -0400
+++ b/src/caves/entities/lichen.clj	Thu Jul 12 19:55:28 2012 -0400
@@ -1,12 +1,13 @@
 (ns caves.entities.lichen
   (:use [caves.entities.core :only [Entity get-id]]
+        [caves.entities.aspects.destructible :only [Destructible take-damage]]
         [caves.world :only [find-empty-neighbor]]))
 
 
-(defrecord Lichen [id glyph color location])
+(defrecord Lichen [id glyph color location hp])
 
 (defn make-lichen [location]
-  (->Lichen (get-id) "F" :green location))
+  (->Lichen (get-id) "F" :green location 1))
 
 (defn should-grow []
   (< (rand) 0.01))
@@ -17,11 +18,16 @@
       (assoc-in world [:entities (:id new-lichen)] new-lichen))
     world))
 
+
 (extend-type Lichen Entity
   (tick [this world]
     (if (should-grow)
       (grow this world)
       world)))
 
-
-
+(extend-type Lichen Destructible
+  (take-damage [{:keys [id] :as this} world damage]
+    (let [damaged-this (update-in this [:hp] - damage)]
+      (if-not (pos? (:hp damaged-this))
+        (update-in world [:entities] dissoc id)
+        (update-in world [:entities id] assoc damaged-this)))))
diff -r 0e7bdc5771b2 -r 716b6b7e09f1 src/caves/entities/player.clj
--- a/src/caves/entities/player.clj	Thu Jul 12 19:07:08 2012 -0400
+++ b/src/caves/entities/player.clj	Thu Jul 12 19:55:28 2012 -0400
@@ -2,8 +2,11 @@
   (:use [caves.entities.core :only [Entity]]
         [caves.entities.aspects.mobile :only [Mobile move can-move?]]
         [caves.entities.aspects.digger :only [Digger dig can-dig?]]
+        [caves.entities.aspects.attacker :only [Attacker attack]]
+        [caves.entities.aspects.destructible :only [Destructible take-damage]]
         [caves.coords :only [destination-coords]]
-        [caves.world :only [is-empty? get-tile-kind set-tile-floor]]))
+        [caves.world :only [is-empty? get-tile-kind set-tile-floor
+                            get-entity-at]]))
 
 
 (defrecord Player [id glyph color location])
@@ -32,6 +35,11 @@
   (can-dig? [this world dest]
     (check-tile world dest #{:wall})))
 
+(extend-type Player Attacker
+  (attack [this world target]
+    {:pre [(satisfies? Destructible target)]}
+    (let [damage 1]
+      (take-damage target world damage))))
 
 
 (defn make-player [location]
@@ -39,8 +47,10 @@
 
 (defn move-player [world dir]
   (let [player (get-in world [:entities :player])
-        target (destination-coords (:location player) dir)]
+        target (destination-coords (:location player) dir)
+        entity-at-target (get-entity-at world target)]
     (cond
+      entity-at-target (attack player world entity-at-target)
       (can-move? player world target) (move player world target)
       (can-dig? player world target) (dig player world target)
       :else world)))