diff --git a/src/MainGame/WorldMap.hs b/src/MainGame/WorldMap.hs index ae0b56c..4852072 100644 --- a/src/MainGame/WorldMap.hs +++ b/src/MainGame/WorldMap.hs @@ -265,7 +265,7 @@ playerInteract (MsgMouseButton _ _ SDL.Pressed _ SDL.ButtonRight _ m) = do ent <- queryEnt if (fmap floor ppos == fmap floor pos' || fmap floor ppos == fmap floor pos' + rel) && - fmap floor ppos + fmap floor (V2 dr dc) == fmap floor pos' && + fmap floor (ppos + V2 dr dc) == fmap floor pos' && pdir == dir then return $ Just (otype, ent) else return Nothing