Research: adding notes to hazards and task categories

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 ())
+
+
+