AI refactor

2021-05-07 16:50:59 +02:00
parent 436043b169
commit 1aa59cc205
16 changed files with 295 additions and 340 deletions
@@ -36,6 +36,9 @@ import Control.Concurrent
  
 type CRUpdate = World -> (World -> World,StdGen) -> Creature -> ((World -> World,StdGen), Maybe Creature)

+meleeCooldown :: CRUpdate -> CRUpdate
+meleeCooldown u w (f,g) cr = u w (f,g) $ cr & crMeleeCooldown . _Just %~ (max 0 . (\x -> x - 1))
+
 -- | The movement is updated before the ai in order to correctly set the oldpos.
 -- the whole of this update cycle could do with a rethink, it is becoming
 -- convoluted