diff options
Diffstat (limited to 'src/game')
| -rw-r--r-- | src/game/adventure.lisp | 92 | ||||
| -rw-r--r-- | src/game/quest.lisp | 7 |
2 files changed, 75 insertions, 24 deletions
diff --git a/src/game/adventure.lisp b/src/game/adventure.lisp index 9c3fafd..e612efc 100644 --- a/src/game/adventure.lisp +++ b/src/game/adventure.lisp @@ -59,20 +59,11 @@ (defmethod unique-name ((adventure adventure)) (title adventure)) -;;; QUERIES - -(defun player-adventures (player) - "Return a list of adventures one of the players' heroes is involved in." - (mapcar #'adventure (player-quests player) )) +(defun has-seer-privs (player adventure) + (or (eq player (creator adventure)) + (member player (seers adventure)))) -(defun adventure-heros (adventure &key (activep t)) - "All the heros actively involved in this ADVENTURE. If ACTIVEP, then -only the active quest(s) are considered, otherwise all quests are considered." - (remove-duplicates - (mapcan #'heroes-on-quest - (if activep - (remove-if-not #'quest-startedp (quests-in-adventure adventure)) - (quests-in-adventure adventure))))) +;;; QUERIES (defun all-adventures () (db:store-objects-with-class 'adventure)) @@ -120,13 +111,10 @@ only the active quest(s) are considered, otherwise all quests are considered." (with-html (:p (subseq reported 0 (min 20 (length reported))) " ..." " -- " (render :inline reporter))))) -(defun rumors-section (page) +(defun adventure-rumors-section (page) (let ((adventure (adventure page))) (with-html (:div - (when (rumors adventure) - (:h3 "Rumors") - (render :list (rumors adventure))) (:h4 "Report a rumor") (:form :method "POST" :action (adventure-rumors-path adventure) (:label :for "REPORTED" "What did ye have to report?") @@ -135,7 +123,7 @@ only the active quest(s) are considered, otherwise all quests are considered." (:br) (:button :type "submit" "Report!")))))) -(defun seers-section (page) +(defun adventure-seers-section (page) (let ((adventure (adventure page))) (with-html (:div @@ -151,6 +139,45 @@ only the active quest(s) are considered, otherwise all quests are considered." (:button :type "submit" "Add Seer"))))))) + +(defun adventure-quests-section (page) + (let* ((adventure + (adventure page)) + (player + (player page)) + (quests + (quests-in-adventure adventure)) + (active-quest + (find-if #'quest-startedp quests)) + (not-started-quests + (remove-if-not (complement #'quest-startedp) quests))) + (with-html + (:div + (when active-quest + (:p (render :inline active-quest) " is active.")) + (when not-started-quests + (:h3 "Planned Quests:") + (render :list not-started-quests)) + (when (and (has-seer-privs player adventure) (rumors adventure)) + (:h3 "Choose rumors to make into quests") + (quest-creation-form adventure)))))) + +(defun quest-creation-form (adventure) + (with-html + (:div + (:form + :method "POST" :action "/conceive-a-quest" + (:input :type "hidden" :value (uid adventure) :name "ADVENTURE") + (:label :for "NAME" "Quest Name") + (:input :type "text" :name "NAME") + (render :checkboxes (rumors adventure) :item-name "RUMOR") + (:button :type "submit" "Create Quest"))))) + +(defrender :checkbox ((rumor rumor) (name "RUMOR")) + (with-html + (:input :type "checkbox" :id (uid rumor) :name name :value (uid rumor)) + (:label :for (uid rumor) (subseq (reported rumor) 0 (min 20 (length (reported rumor))))))) + ;;; PAGES & PAGE CLASSES (defclass adventure-awaits () @@ -179,7 +206,7 @@ only the active quest(s) are considered, otherwise all quests are considered." :for "SEERS" "Who may act as a seer on this adventure?") (:br) - (render :checkboxes (possible-seers page))) + (render :checkboxes (possible-seers page) :item-name "POSSIBLE-SEER")) (:h4 "Describe the adventure you're about to begin:") (:textarea :name "DESCRIPTION" :rows "5" :cols "60") @@ -191,6 +218,7 @@ only the active quest(s) are considered, otherwise all quests are considered." ((adventure player possible-seers))) (defmethod possible-seers ((page adventure-page)) + ;; you can only add seers when you are the creator (when (eq (player page) (creator (adventure page))) (remove (player page) (all-players)))) @@ -200,8 +228,9 @@ only the active quest(s) are considered, otherwise all quests are considered." (:h1 (title adventure)) (:p (description adventure)) (:p "Created by: " (render :link-to (player page))) - (rumors-section page) - (seers-section page)))) + (adventure-seers-section page) + (adventure-quests-section page) + (adventure-rumors-section page)))) (defclass/std tavern-adventures () ((your-adventures))) @@ -218,6 +247,21 @@ only the active quest(s) are considered, otherwise all quests are considered." ;;; ENDPOINT DEFINITIONS +(defendpoint* :post "/conceive-a-quest" () () + (with-session (player) + (with-checked-plist + ((adventure :adventure 'an-adventure-with-id) + (name :name 'a-short-string)) + (lzb:request-body) + (unless (has-seer-privs player adventure) + (lzb:http-err 403)) + (let ((rumors + (get-checkboxes-from-body "RUMOR"))) + ;; make a new quest, and remove the rumors from the adventure + (create-quest-from-rumors adventure name rumors) + ;; redirect to the adventure page: + (redirect-to (urlpath adventure)))))) + (defendpoint* :get "/tavern/adventures" () () (with-session (me) (render (page-render-mode) @@ -231,13 +275,13 @@ only the active quest(s) are considered, otherwise all quests are considered." (make-instance 'adventure-awaits :possible-seers (remove player (all-players)))))) + + (defendpoint* :post "/adventure-awaits" () () (with-session (creator) (with-plist ((title :title) (description :description)) (lzb:request-body) (let ((possible-seers - (loop :for (key val) :on (lzb:request-body) :by #'cddr - :when (string-equal key "POSSIBLE-SEER") - :collect (object-with-uid val)))) + (get-checkboxes-from-body "POSSIBLE-SEER"))) (redirect-to (urlpath (create-adventure creator title diff --git a/src/game/quest.lisp b/src/game/quest.lisp index ab1b9a7..bb0d680 100644 --- a/src/game/quest.lisp +++ b/src/game/quest.lisp @@ -31,6 +31,9 @@ ;;; HELPERS +(defun quest-startedp (quest) + (quest-inception quest)) + ;;; QUERIES (defun player-quests (player) @@ -39,6 +42,10 @@ ;;; TRANSACTIONS +(defun create-quest-from-rumors (adventure name rumors) + ;; TBD + ) + ;;; MODEL VIEWS (defrender :link-to ((quest quest)) |