diff options
Diffstat (limited to 'model.lisp')
| -rw-r--r-- | model.lisp | 133 |
1 files changed, 95 insertions, 38 deletions
@@ -9,31 +9,51 @@ `(member :hero)) (defun hero-class (h) - "barGaryan") + "barGaryan") ; TODO: real implementation (defun hero-title (h) - "Scouse Chef") + "Scouse Chef") ; TODO: real implementation (defun renown (hero) - (experience hero)) + (experience hero)) ; TODO: real implementaiton +;;; persistent mixins (defclass has-uid () - ((nuid :reader uid :initform (nuid))) + ((nuid :reader uid + :initform (nuid) + :index-type idx:string-unique-index + :index-reader object-with-uid)) (:metaclass db:persistent-class)) (defclass can-equip () ((equipment-table - :initform (make-hash-table)) + :initform nil + :type cons + :documentation "A PLIST mapping 'equipment slots' to instances of LOOT. Equipment slots are things like :head, :torso, :left-ring, etc") (equipment-slot-names - :initform (list :holding) + :initform +standard-humanoid-equipment+ :initarg :slot-names - :type (list keyword))) + :type (list keyword) + :documentation "The list of slots available to this entity.")) (:metaclass db:persistent-class)) -;; TODO: define an equip protocol +(defclass has-chronicle () + ((chronicle :accessor chronicle :initform nil)) + (:metaclass db:persistent-class) + (:documentation "A chronicle is a general purpose log of events. It stores a single slot that")) + +(defparameter +standard-humanoid-equipment+ + '(:head :neck :torso :waist :legs :feet :arms :left-fingers :right-fingers + :left-holding :right-holding :cloak) + "The equipment slots for standard humanoids") + +;; abstract class +(defclass game-object (db:store-object has-uid has-chronicle) + () + (:metaclass db:persistent-class)) ;; a user -(defclass hero (db:store-object can-equip has-uid) +(defclass hero (game-object can-equip) ((name :accessor hero-name :initarg :name @@ -45,9 +65,6 @@ :accessor experience :initform 0 :type integer) - (chronicle - :accessor hero-chronicle - :initform (list)) (pwhash :accessor pwhash :type string @@ -63,35 +80,75 @@ ;; TODO expiration? (defclass session (db:store-object) ((hero :reader session-hero - :initarg :hero) + :initarg :hero) (id :reader session-id :initform (nuid) :index-type idx:string-unique-index :index-reader session-with-id)) (:metaclass db:persistent-class)) -;; aka an issue -;; (defclass monster (can-equip has-uid) -;; ((name) -;; (description) -;; (difficulty) -;; (tags) -;; (status) -;; (priority) -;; ) -;; (:metaclass db:persistent-class)) - -;; (defun experience-value (monster) -;; ;; Int -;; ;; (tag + campaign) - lookup table , priortiy, -;; ) - -;; ;; aka .... uhh.... dumbass github flair -;; (defclass loot (db:store-object) -;; () -;; (:metaclass db:persistent-class)) - -;; ;; aka a project -;; (defclass campagin (db:store-object) -;; () -;; (:metaclass db:persistent-class)) +(defclass campaign (game-object) + ((creator + :reader campaign-creator + :initarg :creator + :initform (error "campaigns must have a creator") + :documentation "The hero instance of the user who made this campaign.") + (seers + :accessor campaign-seers + :initarg :seers + :initform nil + :documentation "Seers are the people who peer out into their instruments of divination that heroes may go on quests.") + (title + :accessor campaign-title + :initarg :title + :initform (error "A campaign needs a title")) + (rumors + :accessor campaign-rumors + :initarg nil + :documentation "Beasts and Monsters 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.")) + +(defclass quest (game-object) + ((campaign + :reader quest-campaign + :initarg :campaign + :initform (error "No quest can fall outside the scope of a campaign.") + :index-type idx:hash-list-index + :index-reader quests-in-campaign + :documentation "The campaign to which this quest belongs") + (name + :accessor quest-name + :initarg :name + :initform (format nil "~a" (gensym "QUEST"))) + (horizon-of-hope + :accessor horizon-of-hope + :initarg :deadline + :initform nil + :documentation "When all hope becomes lost.") + (heroes + :accessor heroes-in-quest + :initarg :heroes + :initform nil + :documentation "A list of heroes in this quest. Join and flight dates are logged in the chronicle.") + (startedp + :accessor quest-startedp + :initform nil + :documentation "Indication of whether the quest is active or not - i.e. whether heroes are on this quest.")) + (:metaclass db:persistent-class) + (:documentation "A collection of hazards")) + +(defclass hazard (game-object) + ((quest + :accessor quest + :index-type idx:hash-list-index + :index-reader hazards-in-quest + :documentation "The quest to which this hazard belongs. Initially it is unbound. It becomes boudn when the hazard is added to a quest.") + (overcomep + :accessor overcomep + :initform nil + :documentation "indicates whether or not this hazard has been overcome.")) + (:metaclass db:persistent-class) + (:documentation "Hazard is a superclass for all hazards encountered in a quest. It's chronicle includes data about which heroes fought and which overcame.")) + |