20 lines
556 B
Plaintext
20 lines
556 B
Plaintext
|
module Shimmy.Creep where
|
||
|
|
||
|
import Prelude
|
||
|
import Screeps.Types
|
||
|
|
||
|
import Data.Maybe (Maybe(..))
|
||
|
import Effect (Effect)
|
||
|
import Foreign.Object as F
|
||
|
import Screeps.Game as Game
|
||
|
import Screeps.Memory as Memory
|
||
|
import Shimmy.Spawning (doSpawnCheck)
|
||
|
|
||
|
manageCreeps :: F.Object Creep -> GameGlobal -> Memory.MemoryGlobal -> Effect Unit
|
||
|
manageCreeps hash game mem = do
|
||
|
let spawns = Game.spawns game
|
||
|
-- TODO: iterate over all spawns?
|
||
|
spawn1 = F.lookup "Spawn1" spawns
|
||
|
case spawn1 of
|
||
|
Nothing -> pure unit
|
||
|
Just s1 -> doSpawnCheck s1 (F.size hash) mem
|