diff --git a/src/Object/Door.hs b/src/Object/Door.hs index a2dd745..f96c558 100644 --- a/src/Object/Door.hs +++ b/src/Object/Door.hs @@ -36,37 +36,6 @@ doorObjectAction dt t@ObjDoor s@"open" ent = do Just ttl -> return (ttl < 0) when (head trans) (setEntity ent =<< doorObjectTransition t s False ent Nothing) --- doorObjectAction allRelEnts dt t@ObjDoor s@"shut" ent = do --- permEnts <- efor (anEnt ent) $ do --- pos' <- query pos --- rot' <- query rot --- clvl <- query clearanceLvl --- let posEnts = filter --- (\(_, b, _, _) -> --- (fmap floor b `elem` deltaCoords || fmap floor b == floorPos) && --- distance b pos' < 0.75) --- allRelEnts --- floorPos = fmap floor pos' --- deltas = case rot' of --- NW -> --- [ V2 (-1) 0 --- , V2 1 0 --- ] --- NE -> --- [ V2 0 (-1) --- , V2 0 1 --- ] --- acceptedRots = case rot' of --- NW -> [NW, SE] --- NE -> [NE, SW] --- deltaCoords = map (floorPos +) deltas --- predicate (_, _, c, d) = c `elem` acceptedRots && d >= clvl --- ret = filter predicate posEnts --- return ret --- mapM_ --- (\(e, _, _, _) -> setEntity ent =<< doorObjectTransition t s False ent (Just e)) --- (head permEnts) - doorObjectAction _ _ _ _ = return () doorObjectTransition t@ObjDoor s _ ent (Just aent) = do