diff options
Diffstat (limited to 'src/game/hero.lisp')
| -rw-r--r-- | src/game/hero.lisp | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/src/game/hero.lisp b/src/game/hero.lisp index 68606b2..56c5786 100644 --- a/src/game/hero.lisp +++ b/src/game/hero.lisp @@ -51,6 +51,9 @@ ;;; HELPERS +(defmethod unique-name ((hero hero)) + (name hero)) + ;;; QUERIES (defun all-heroes () (db:store-objects-with-class 'hero)) @@ -71,7 +74,6 @@ (:span "who's quest is to") (:span (render :link-to quest)))))) - (defrender :link-to ((hero hero)) (with-html (:a :href (urlpath hero) @@ -86,7 +88,11 @@ (defrender t ((page hero-page)) (with-page (:title (unique-name (hero page))) (:h1 (unique-name (hero page))) - (:p "uhhh....."))) + (:div + (if (quest (hero page)) + (:p "This hero is questing on " + (render :link-to (quest (hero page)))) + (:p "this hero is free to join a quest"))))) (defrender t ((page (eql :goddess-shrine))) (with-page (:title "A Sacred Shrine") |