diff --git a/src/MainGame/WorldMap.hs b/src/MainGame/WorldMap.hs index 89e44b6..b4cf6d3 100644 --- a/src/MainGame/WorldMap.hs +++ b/src/MainGame/WorldMap.hs @@ -537,7 +537,7 @@ drawTile ud ctx posanims pr pc row col img = ((realToFrac x :: Double) < 1280 && (realToFrac (y - (74 - (realToFrac tileHeight :: CFloat))) :: Double) < 720)) $ do - let (bef, beh) = L.partition delimiter sorted + let (bef, beh) = L.partition delimiter (reverse sorted) save ctx mapM_ drawAnim beh maybe (return ()) (draw ud x (y - 42) 64 74 fact) @@ -560,9 +560,9 @@ drawTile ud ctx posanims pr pc row col img = | nnr > fst (matmax b) || nnc < snd (matmin b) = True | nnr > fst (matmin b) && nnr < fst (matmax b) = - nnc < snd (matmin b) + nnc <= snd (matmin b) | nnc > snd (matmin b) && nnc < snd (matmax b) = - nnr > fst (matmax b) + nnr >= fst (matmax b) | otherwise = False nnr = case mbnds of