fixing draw order again

This commit is contained in:
nek0 2018-03-07 21:56:15 +01:00
parent 146d65ce3b
commit ad18d241aa

View file

@ -187,8 +187,8 @@ drawTile ai ctx pr pc row col img =
drawImage
drawPlayer
else do
if all (\maxr -> pr <= (fromIntegral (floor pr :: Int)) + maxr) maxrs &&
all (\minc -> pc >= (fromIntegral (floor pc :: Int)) + minc) mincs
if any (\minr -> pr <= (fromIntegral (floor pr :: Int)) + minr) maxrs &&
any (\maxc -> pc >= (fromIntegral (floor pc :: Int)) + maxc) mincs
then do
drawPlayer
drawImage