diff options
Diffstat (limited to 'src/game/adventure.lisp')
| -rw-r--r-- | src/game/adventure.lisp | 17 |
1 files changed, 10 insertions, 7 deletions
diff --git a/src/game/adventure.lisp b/src/game/adventure.lisp index 801bc5e..6bbd2d3 100644 --- a/src/game/adventure.lisp +++ b/src/game/adventure.lisp @@ -2,7 +2,7 @@ (in-package :dnd) -;;; MODEL CLASSES +;;; MODEL CLASSES (defclass adventure (game-object) ((creator @@ -43,7 +43,7 @@ :type player :documentation "The player who hast reported the vile rumor.") (reported - :accessor reported + :accessor reported :initform (error "A rumor must contain some reported matter") :initarg :reported :type string @@ -110,8 +110,6 @@ only the active quest(s) are considered, otherwise all quests are considered." (render :inline adventure)) - - ;;; PAGES & PAGE CLASSES (defclass adventure-awaits () @@ -189,6 +187,14 @@ only the active quest(s) are considered, otherwise all quests are considered." (:br) (:button :type "submit" "Report!")))) +(defclass/std tavern-adventures () + ((your-adventures))) + +(defrender t ((page tavern-adventures)) + (with-page (:title "Your Adventures") + (:h1 "You are seer on the following adventures") + (render :list (your-adventures page)))) + ;;; ENDPOINT HELPERS (define-id-plucker adventure) @@ -203,9 +209,6 @@ only the active quest(s) are considered, otherwise all quests are considered." :your-adventures (adventures-visible-by me))))) - - - (defendpoint* :get "/adventure-awaits" () () (with-session (player) (render (page-render-mode) |