hg.stevelosh.com > caves

src/caves/entities/aspects/digger.clj @ 1a3a4f8d5d85 

Refactor the world code into separate files.

This pulls out the world generation code into its own file.  It was
getting a bit crowded in there.
author Steve Losh <steve@stevelosh.com>
date Wed, 01 Aug 2012 21:13:37 -0400
parents 811f328099c6
children (none) 
(ns caves.entities.aspects.digger
  (:use [caves.entities.core :only [defaspect]]
        [caves.world.core :only [check-tile set-tile-floor]]))


(defaspect Digger
  (dig [this dest world]
    {:pre [(can-dig? this dest world)]}
    (set-tile-floor world dest))
  (can-dig? [this dest world]
    (check-tile world dest #{:wall})))