nice trees

lyrra · Dec 15, 2009 · c0f0e4e · c0f0e4e
1 parent 015c767
commit c0f0e4e
Show file tree

Hide file tree

Showing 3 changed files with 1 addition and 1 deletion.
diff --git a/forest/forest.fasl b/forest/forest.fasl
diff --git a/forest/forest.lisp b/forest/forest.lisp
@@ -94,7 +94,7 @@
 ;;; The tree
 
 (defcell tree 
-  (tile :initform "tree-1")
+  (tile :initform (car (one-of '("tree-2" "tree-2" "tree-2" "tree-3")))) 
   (description :initform "These trees are still green. Perhaps the land is coming back?")
   (categories :initform '(:obstacle :opaque :nosnow :exclusive)))
 

diff --git a/forest/herb.png b/forest/herb.png