Move creature speed parameters into explicit data

This commit is contained in:
2021-09-05 11:24:15 +01:00
parent 215a3dda36
commit c16c09a9ce
6 changed files with 45 additions and 19 deletions
+9 -1
View File
@@ -42,7 +42,15 @@ armourChaseCrit = defaultCreature
]
, _crMeleeCooldown = 0
, _crGroup = ShieldGroup
}
, _crMvType = ChaseMvType
{ _chaseSpeed = 2.5
, _chaseTurnRad = f
, _chaseTurnJit = 0.2
}
}
where
f x | x > pi / 4 = 0.2
| otherwise = 0.05
flockACCR :: Creature -> Reader World Creature
flockACCR = reader . flockACC