From 36df81a7e3bb23d4cc347cc335fbd9b949a6af91 Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Mon, 6 Mar 2023 18:33:45 -0800
Subject: Altered: s/campaign/adventure globally

---
 src/model.lisp | 32 ++++++++++++++++----------------
 1 file changed, 16 insertions(+), 16 deletions(-)

(limited to 'src/model.lisp')

diff --git a/src/model.lisp b/src/model.lisp
index 49cd03a..f64e28f 100644
--- a/src/model.lisp
+++ b/src/model.lisp
@@ -122,17 +122,17 @@
   (:metaclass db:persistent-class))
 
 
-(defmethod campaign ((hero hero))
+(defmethod adventure ((hero hero))
   (a:when-let (quest (quest hero))
-    (campaign quest)))
+    (adventure quest)))
 
-(defclass campaign (game-object)
+(defclass adventure (game-object)
   ((creator
     :reader creator
     :initarg :creator
-    :initform (error "campaigns must have a creator")
+    :initform (error "adventures must have a creator")
     :type player
-    :documentation "The player instance of the user who made this campaign.")
+    :documentation "The player instance of the user who made this adventure.")
    (seers
     :accessor seers
     :initarg :seers
@@ -142,7 +142,7 @@
    (title
     :accessor title
     :initarg :title
-    :initform (error "A campaign needs a title")
+    :initform (error "A adventure needs a title")
     :type string)
    (rumors
     :accessor rumors
@@ -150,7 +150,7 @@
     :type (or nil (cons rumor))
     :documentation "Beasts, Monsters, and Hazards rumored to be lurking about."))
   (:metaclass db:persistent-class)
-  (:documentation "A campaign is a container of quests. Campaigns are expected to be engaged with on a particular schedule, and are run by particular people."))
+  (:documentation "A adventure is a container of quests. Adventures are expected to be engaged with on a particular schedule, and are run by particular people."))
 
 (defclass rumor (db:store-object)
   ((reporter
@@ -163,19 +163,19 @@
     :initform (error "A rumor must contain some reported matter")
     :initarg :reported
     :type string
-    :documentation "A description of the supposed peril that awaits heroes in a particular campaign."))
+    :documentation "A description of the supposed peril that awaits heroes in a particular adventure."))
   (:metaclass db:persistent-class)
-  (:documentation "Transcript of a rumor reported by some player related to a Campaign."))
+  (:documentation "Transcript of a rumor reported by some player related to a Adventure."))
 
 (defclass quest (game-object)
-  ((campaign
-    :reader campaign
-    :initarg :campaign
-    :initform (error "No quest can fall outside the scope of a campaign.")
-    :type campaign
+  ((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-campaign
-    :documentation "The campaign to which this quest belongs")
+    :index-reader quests-in-adventure
+    :documentation "The adventure to which this quest belongs")
    (name
     :accessor name
     :initarg :name
-- 
cgit v1.2.3