nek0/tracer
1
0
Fork 0
Code Issues Pull requests Releases Wiki Activity

move door output to verbose

Browse source
This commit is contained in:
nek0 2019-03-31 05:28:19 +02:00
parent 6d051f6c5e
commit 97cdf46170
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
src/Object/Door.hs
View file

@ -75,11 +75,11 @@ doorObjectTransition t@ObjDoor s _ ent (Just aent) = do
dir <- query rot dir <- query rot
oclear <- query clearanceLvl oclear <- query clearanceLvl
mttl <- queryMaybe objStateTime mttl <- queryMaybe objStateTime
liftIO $ A.logIO A.Debug (show aent ++ " is attempting to open door " ++ show ent) liftIO $ A.logIO A.Verbose (show aent ++ " is attempting to open door " ++ show ent)
liftIO $ A.logIO A.Debug ("door clearance: " ++ show oclear ++ ", entity clearance: " ++ show clearance) -- liftIO $ A.logIO A.Debug ("door clearance: " ++ show oclear ++ ", entity clearance: " ++ show clearance)
if clearance >= oclear if clearance >= oclear
then do then do
liftIO $ A.logIO A.Debug ("door " ++ show oclear ++ " opens") liftIO $ A.logIO A.Verbose ("door " ++ show ent ++ " opens")
let nstat = AnimState let nstat = AnimState
(AnimId AnimDoor0 "open" dir) (AnimId AnimDoor0 "open" dir)
0 0