Fix blinking bug, shrinker and shield broken

2021-11-28 00:34:16 +00:00
parent fe02739621
commit 3e64e33232
10 changed files with 36 additions and 42 deletions
@@ -108,7 +108,7 @@ renderItemMapAt :: Float -> Float -> World -> IM.IntMap Item -> Picture
 renderItemMapAt tx ty w = concatMapPic (uncurry $ listItemAt tx ty w) . IM.toList

 displayInv :: Int -> World -> Picture
-displayInv n w = (renderItemMapAt 0 0 w $ _crInv cr)
+displayInv n w = renderItemMapAt 0 0 w (_crInv cr)
    <> equipcursor
  where
    equipcursor = case _crLeftInvSel cr of