Move creature speed parameters into explicit data

2021-09-05 11:24:15 +01:00
parent 215a3dda36
commit c16c09a9ce
6 changed files with 45 additions and 19 deletions
@@ -220,7 +220,15 @@ data Creature = Creature
    , _crFaction        :: Faction
    , _crGroup          :: CrGroup
    , _crTarget         :: Maybe Creature
+    , _crMvType         :: CrMvType
    }
+data CrMvType 
+    = DefCrMvType
+    | ChaseMvType
+        { _chaseSpeed   :: Float
+        , _chaseTurnRad :: Float -> Float
+        , _chaseTurnJit :: Float
+        }
 data WorldState 
    = DoorNumOpen Int 
    | CrNumAlive Int