Add frame clock

src/Dodge/Default.hs

@@ -54,8 +54,7 @@ defaultCreature = Creature
     , _crMemory     = defaultCreatureMemory
     , _crMeleeCooldown = 0
     , _crFaction = NoFaction
-    , _crTarget  = Nothing
-    , _crMvTarget= Nothing
+    , _crIntention = defaultIntention
     , _crGroup   = LoneWolf
     , _crMvType  = defaultAimMvType
     }
@@ -86,6 +85,12 @@ defaultAudition :: Audition
 defaultAudition = Ears
     { _auDist = \x -> x * x
     }
+defaultIntention :: Intention
+defaultIntention = Intention
+    { _targetCr     = Nothing
+    , _mvToPoint    = Nothing
+    , _viewPoint    = Nothing
+    }
 defaultChaseMvType :: CrMvType
 defaultChaseMvType = ChaseMvType
     { _mvSpeed = 3