remove old commented out code

This commit is contained in:
nek0 2019-03-31 05:29:41 +02:00
parent 97cdf46170
commit 3cb28f396b

View file

@ -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