fixing range limit of interaction

2018-08-07 14:05:08 +02:00 · 2018-08-07 14:05:08 +02:00 · a0f198a18d
parent 1a058d5c2f
commit a0f198a18d
1 changed files with 1 additions and 1 deletions
--- 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