Start ai cleanup

2021-09-05 22:27:31 +01:00
parent 68ba11aa91
commit e366698064
19 changed files with 352 additions and 489 deletions
@@ -55,9 +55,32 @@ defaultCreature = Creature
    , _crAwarenessLevel = IM.empty
    , _crFaction = NoFaction
    , _crTarget  = Nothing
+    , _crMvTarget= Nothing
    , _crGroup   = LoneWolf
-    , _crMvType  = DefCrMvType
+    , _crMvType  = NoMvType
    }
+defaultChaseMvType :: CrMvType
+defaultChaseMvType = ChaseMvType
+    { _mvSpeed = 3
+    , _mvTurnRad = f
+    , _mvTurnJit = 0.2
+    }
+  where
+    f x | x > pi / 4 = 0.2
+        | otherwise  = 0.05
+defaultAimMvType :: CrMvType
+defaultAimMvType = AimMvType
+    { _mvSpeed      = 3
+    , _mvTurnRad    = const 0.2
+    , _mvTurnJit    = 0.05
+    , _mvAimSpeed   = f
+    }
+  where
+    f x | x > pi/8  = 0.2
+        | otherwise = 0.01
+defaultAimingCrit :: Creature
+defaultAimingCrit = defaultCreature { _crMvType = defaultAimMvType }
+
 defaultState :: CreatureState
 defaultState = CrSt 
    { _crDamage = []