reduce number of npcs

This commit is contained in:
nek0 2018-04-14 19:00:21 +02:00
parent a0e6ab5013
commit a05799cc9f

View file

@ -61,11 +61,11 @@ loadMap = do
, player = Just () , player = Just ()
} }
void $ mapM_ (\(V2 nr nc) -> do void $ mapM_ (\(V2 nr nc) -> do
ttl <- liftIO $ randomRIO (5, 30) -- ttl <- liftIO $ randomRIO (5, 30)
newEntity $ defEntity newEntity $ defEntity
{ pos = Just (V2 (nr + 0.5) (nc + 0.5)) { pos = Just (V2 (nr + 0.5) (nc + 0.5))
, vel = Just (V2 0 0) , vel = Just (V2 0 0)
, npcState = Just (NPCStanding ttl) , npcState = Just (NPCStanding 0)
} }
) npcposs ) npcposs
uu <- partSubscribe m movePlayer uu <- partSubscribe m movePlayer