diff options
Diffstat (limited to 'src/model.lisp')
| -rw-r--r-- | src/model.lisp | 32 |
1 files changed, 16 insertions, 16 deletions
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 |