stop player from shining through walls

2018-02-27 20:50:58 +01:00 · 2018-02-27 20:50:58 +01:00 · c742827e07
commit c742827e07
parent 701a04060b
1 changed files with 1 additions and 1 deletions
--- a/src/Test.hs
+++ b/src/Test.hs
@ -251,7 +251,7 @@ drawTile row col tile = do
      rect ctx x (y - (74 - realToFrac tileHeight)) 64 74
      fillPaint ctx paint
      fill ctx
-    when (floor pr == row && floor pc == col) $ do
+    when (floor pr == row + 1 && floor pc == col + 1) $ do
      beginPath ctx
      circle ctx 640 360 5
      closePath ctx