From db4b6a4a34ca225f6ff29335506e5b4e294187f0 Mon Sep 17 00:00:00 2001
From: nek0 <nek0@nek0.eu>
Date: Sat, 16 Feb 2019 08:39:01 +0100
Subject: [PATCH] nope

---
 src/MainGame/WorldMap.hs | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/MainGame/WorldMap.hs b/src/MainGame/WorldMap.hs
index 6a8ecd0..a08cf10 100644
--- a/src/MainGame/WorldMap.hs
+++ b/src/MainGame/WorldMap.hs
@@ -702,11 +702,11 @@ drawTile ud ctx posanims pr pc row col img =
     tileWidth = 64 :: Double
     tileHeight = 32 :: Double
     sorted = sortOn (\(V2 sr sc, _, mbnds) ->
-      let comp srow scol = (floor $ (1 - scol) * 10) + (floor $ srow * 100)
+      let comp srow scol = (floor $ (1 - scol) * 100) + (floor $ srow * 100)
       in
         case mbnds of
           Just (Boundaries (minr, minc) (maxr, maxc)) ->
-            comp maxr minc
+            comp (minr + ((maxr - minr) / 2)) (minc + (maxc - minc) / 2)
           _ ->
             comp
               (sr - (fromIntegral ((floor sr) :: Int)))