move door output to verbose

This commit is contained in:
nek0 2019-03-31 05:28:19 +02:00
parent 6d051f6c5e
commit 97cdf46170

View file

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