From a0f198a18db102b3753cfa9d48cd61cc0b166218 Mon Sep 17 00:00:00 2001
From: nek0 <nek0@chelnok.de>
Date: Tue, 7 Aug 2018 14:05:08 +0200
Subject: [PATCH] fixing range limit of interaction

---
 src/MainGame/WorldMap.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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