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)))