From ba3152525287790e056d5346c9740bd3a67c6a41 Mon Sep 17 00:00:00 2001
From: David O'Toole <dto@gnu.org>
Date: Thu, 17 Dec 2009 08:13:17 -0500
Subject: [PATCH] teleporting lich

---
 forest/enemy.lisp         |  2 +-
 forest/forest.org         | 15 ++++++---------
 forest/forest.org_archive | 17 +++++++++++++++++
 forest/startup.lisp       |  2 +-
 4 files changed, 25 insertions(+), 11 deletions(-)

diff --git a/forest/enemy.lisp b/forest/enemy.lisp
index 62212d8..5efd6b7 100644
--- a/forest/enemy.lisp
+++ b/forest/enemy.lisp
@@ -229,7 +229,7 @@
 	     (dolist (dir (car (one-of '((:north :south :east :west)
 					 (:west :north :east :south)
 					 (:east :north :south :west)
-					 (:soutn :west :north :east)))))
+					 (:south :west :north :east)))))
 	       (multiple-value-bind (r c) (step-in-direction row column dir)
 		 (unless (and [obstacle-at-p *world* r c]
 			      (< [distance-to-player self] 8))
diff --git a/forest/forest.org b/forest/forest.org
index c056123..8c85f9d 100644
--- a/forest/forest.org
+++ b/forest/forest.org
@@ -2,21 +2,18 @@
 ** TODO [#A] FIX numlock being on breaks shift keybinding
 ** TODO [#A] don't spawn player on tree
 ** TODO [#A] fix bubbles to stay onscreen, Lothaine etc
-** TODO [#A] forest exits should be able to be in any column
 ** TODO [#A] lich incantation distance attackk?
 ** TODO [#A] move lich a little more quickly?
 ** TODO [#A] sheet music in-game
 ** TODO [#A] treasure on enemies (gold)
-** TODO [#A] you hear rushing water to the east, fix not being able to find exits.
-** TODO [#B] alpha transparency
-** TODO [#B] don't have enemies attack when you dead
-** TODO [#B] find in-game notes with same color scheme text as scroll
-** TODO [#B] ghouls that pop out of the ground
-** TODO [#B] magic missile (sparkly trails.)
+** TODO [#C] alpha transparency
+** TODO [#C] don't have enemies attack when you dead
+** TODO [#C] find in-game notes with same color scheme text as scroll
+** TODO [#C] ghouls that pop out of the ground
+** TODO [#C] magic missile (sparkly trails.)
 ** TODO [#B] more story stuff
 ** TODO [#B] oil flask bomb
-** TODO [#B] rose found in the forest
-** TODO [#B] wolves are annoying
+** TODO [#C] wolves are annoying. should come from both sides.
 ** TODO [#C] Command-Q should quit on mac ?
 ** TODO [#C] add emote code to XE2 and cells
 ** TODO [#C] cremating the mountain body 
diff --git a/forest/forest.org_archive b/forest/forest.org_archive
index 63b9a94..b61512d 100644
--- a/forest/forest.org_archive
+++ b/forest/forest.org_archive
@@ -68,6 +68,23 @@ CLOSED: [2009-12-17 Thu 07:27]
 :ARCHIVE_CATEGORY: forest
 :ARCHIVE_TODO: TODO
 :END:
+* DONE [#A] , fix not being able to find exits.
+:PROPERTIES:
+:ARCHIVE_TIME: 2009-12-17 Thu 07:51
+:ARCHIVE_FILE: ~/xe2/forest/forest.org
+:ARCHIVE_CATEGORY: forest
+:ARCHIVE_TODO: TODO
+:END:
+* DONE [#B] rose found in the forest
+:PROPERTIES:
+:ARCHIVE_TIME: 2009-12-17 Thu 07:51
+:ARCHIVE_FILE: ~/xe2/forest/forest.org
+:ARCHIVE_CATEGORY: forest
+:ARCHIVE_TODO: TODO
+:END:
+
+
+
 
 
 
diff --git a/forest/startup.lisp b/forest/startup.lisp
index 62a1db9..83014aa 100644
--- a/forest/startup.lisp
+++ b/forest/startup.lisp
@@ -323,7 +323,7 @@
 (defparameter *start-level* 1)
 
 (defun init-forest ()
-  (xe2:message "Initializing Forest...")
+  (xe2:message "Initializing Sanctuary...")
   (clon:initialize)
   (xe2:set-screen-height *room-window-height*)
   (xe2:set-screen-width *room-window-width*)