Implement basic attention and awareness

2021-05-08 17:34:25 +02:00
parent 1aa59cc205
commit 86faf9fd01
12 changed files with 243 additions and 135 deletions
@@ -0,0 +1,17 @@
+module Dodge.Creature.AlertLevel.Data
+    where
+
+data AwakeLevel
+    = Comatose
+    | Asleep
+    | Lethargic
+    | Vigilant
+    | Overstrung
+
+data AttentionDir
+    = AttentiveTo [Int]
+    | Fixated  Int
+
+data AwarenessLevel
+    = AwarenessInt Int
+    | Cognizant Int