summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--DEV.org9
-rw-r--r--model.lisp27
2 files changed, 30 insertions, 6 deletions
diff --git a/DEV.org b/DEV.org
index 987dcc8..8c6f0d1 100644
--- a/DEV.org
+++ b/DEV.org
@@ -58,8 +58,17 @@ E.g. Goblin wizard = ???
| Feature | Boss (dragon warlock elemental) | e.g dragon |
| Task-SubFeature | orc, goblin, (minions) | orc chieftan |
| Task-StandAlone | not-minions (wolf) | minotaur |
+| | | |
+| | | |
+| | | |
| Bug 1 | (the undead) | |
| Bug 2 | (horrible undead) | |
+| Docs | | |
+| Testing | | |
+| Research | | |
+| Art | | |
+| Devops | | |
+| Dev | | |
| Different Task Categorization |
diff --git a/model.lisp b/model.lisp
index e070f50..9da7929 100644
--- a/model.lisp
+++ b/model.lisp
@@ -8,6 +8,9 @@
(deftype character-class ()
`(member :hero))
+(deftype priority ()
+ `(member :low :medium :high))
+
(defun hero-class (h)
"barGaryan") ; TODO: real implementation
@@ -37,6 +40,7 @@
:documentation "The list of slots available to this entity."))
(:metaclass db:persistent-class))
+
(defclass has-chronicle ()
((chronicle :accessor chronicle :initform nil))
(:metaclass db:persistent-class)
@@ -108,10 +112,9 @@
(rumors
:accessor campaign-rumors
:initarg nil
- :documentation "Beasts and Monsters rumored to be lurking about."))
+ :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 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
@@ -144,14 +147,26 @@ engaged with on a particular schedule, and are run by particular people."))
(defclass hazard (game-object)
((quest
- :accessor quest
+ :accessor quest-of
: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
+ :accessor is-overcome
:initform nil
- :documentation "indicates whether or not this hazard has been overcome."))
+ :documentation "indicates whether or not this hazard has been overcome.")
+ (imminence
+ :accessor imminence-of
+ :type priority
+ :documentation "")
+ (menace ;; difficulty
+ :accessor menace-of
+ :type integer
+ :documentation "How dangerous the hazard is." ))
(: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."))
+(defclass monster ())
+
+
+