1 files changed, 51 insertions, 0 deletions
diff --git a/src/game/quest.lisp b/src/game/quest.lisp
new file mode 100644
index 0000000..ed9a5b4
--- /dev/null
+++ b/src/game/quest.lisp
@@ -0,0 +1,51 @@
+(in-package :dnd)
+
+(defclass quest (game-object)
+  ((adventure
+    :reader adventure
+    :initarg :adventure
+    :initform (error "No quest can fall outside the scope of a adventure.")
+    :type adventure
+    :index-type idx:hash-index 
+    :index-reader quests-in-adventure
+    :documentation "The adventure to which this quest belongs")
+   (name
+    :accessor name
+    :initarg :name
+    :type string
+    :initform (format nil "~a" (gensym "QUEST")))
+   (horizon-of-hope
+    :accessor horizon-of-hope
+    :initarg :deadline
+    :type integer
+    :initform nil
+    :documentation "When all hope becomes lost.")
+   (inception
+    :accessor quest-inception
+    :initform nil
+    :type (or nil integer)
+    :documentation "Time at which the quest began."))
+  (:metaclass db:persistent-class)
+  (:documentation "A collection of hazards with a deadline and start date which heroes will attack."))
+
+
+
+(defun player-quests (player)
+  "Return all quests in which one of player's heroes is engaged."
+  (remove nil (mapcar #'quest (player-heroes player))))
+
+(define-id-plucker quest)
+
+
+(defrender :link-to ((quest quest))
+  (with-html
+    (:a :href (urlpath quest)
+        (name quest))))
+
+(defclass quest-page ()
+  ((quest :reader quest :initarg :quest)
+   (player :reader player :initarg :player)))
+
+(defrender t ((page quest))
+  (with-page (:title (unique-name (quest page )))
+    (:h1 (unique-name (quest page)))))