src/caves/entities/aspects/attacker.clj @ 180b5b981d92
use the black magic everywhere
| author |
Steve Losh <steve@stevelosh.com> |
| date |
Sat, 14 Jul 2012 14:32:49 -0400 |
| parents |
b894c3ffe436 |
| children |
ef03fb8bb7e4 |
(ns caves.entities.aspects.attacker
(:use [caves.entities.aspects.destructible :only [Destructible take-damage]]
[caves.entities.core :only [defaspect]]))
(defaspect Attacker
(attack [this world target]
{:pre [(satisfies? Destructible target)]}
(let [damage 1]
(take-damage target world damage))))