smaller things

This commit is contained in:
nek0 2018-07-06 17:18:12 +02:00
parent 19476e3fbb
commit 4913b054d8
3 changed files with 3 additions and 4 deletions

View file

@ -65,7 +65,7 @@ updateMind dt = do
with player
with mmvel
with mmpos
with mmrot
with rot
with anim
pos'@(V2 pr pc) <- query mmpos
vel' <- query vel

View file

@ -95,7 +95,7 @@ loadMapFork ud future progress = do
_ <- liftIO $ swapMVar progress (13 / loadSteps)
logIO A.Debug ("number of reachpoints: " ++ show (length rps))
let nnex = Prelude.filter (\p -> pointType p /= RoomExit) rps
npcposs <- placeNPCs inter mat rps 50 -- (length nnex)
npcposs <- placeNPCs inter mat rps 75 -- (length nnex)
_ <- liftIO $ swapMVar progress (14 / loadSteps)
A.logIO A.Debug $ "number of placed NPCs: " ++ show (length npcposs)
(mmintmat, mmgraph) <- buildFloorMap . springField <$>
@ -123,7 +123,6 @@ loadMapFork ud future progress = do
, mmvel = Just (V2 0 0)
, player = Just ()
, rot = Just SE
, mmrot = Just SE
, anim = Just $ AnimState (AnimId 0 "standing" SE) 0 0
}
void $ liftIO $ swapMVar progress (17 / loadSteps)

View file

@ -56,11 +56,11 @@ data Entity f = Entity
, mmvel :: Component f 'Field (V2 Double)
, velFact :: Component f 'Field Double
, rot :: Component f 'Field Direction
, mmrot :: Component f 'Field Direction
, obstacle :: Component f 'Field (Boundaries Double)
, player :: Component f 'Unique ()
, npcMoveState :: Component f 'Field NPCMoveState
, anim :: Component f 'Field AnimState
, objAccess :: Component f 'Field (V2 Int)
}
deriving (Generic)