tell the number of workers

This commit is contained in:
nek0 2018-04-26 15:38:49 +02:00
parent 755350ba9f
commit 6308a110b8

View file

@ -53,6 +53,7 @@ loadMap = do
-- liftIO $ A.logIO A.Debug (show exits) -- liftIO $ A.logIO A.Debug (show exits)
(inter, rps) <- liftIO $ placeInteriorIO mat imgmat exits gr (inter, rps) <- liftIO $ placeInteriorIO mat imgmat exits gr
let nnex = length (Prelude.filter (\p -> pointType p == RoomExit) rps) let nnex = length (Prelude.filter (\p -> pointType p == RoomExit) rps)
liftIO $ A.logIO A.Debug $ "number of placed NPCs: " ++ show nnex
npcposs <- placeNPCs inter mat rps gr nnex npcposs <- placeNPCs inter mat rps gr nnex
(nws, _) <- yieldSystemT (worldState ud) $ do (nws, _) <- yieldSystemT (worldState ud) $ do
void $ newEntity $ defEntity void $ newEntity $ defEntity