diff --git a/src/Object/Door.hs b/src/Object/Door.hs index 8669627..a2dd745 100644 --- a/src/Object/Door.hs +++ b/src/Object/Door.hs @@ -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