Fix tile rendering

2021-09-07 10:53:39 +01:00
parent 6ecd739d6f
commit 45bbf9b005
14 changed files with 66 additions and 100 deletions
@@ -292,7 +292,7 @@ data Item
        , _itZoom    :: ItZoom
        , _itAimZoom :: ItZoom
        , _itEquipPict :: Creature -> Int -> Picture
-        , _itScroll :: Float -> Creature -> World -> World
+        , _itScroll :: Float -> Creature -> Item -> Item
        , _itIdentity :: ItemIdentity
        , _itAttachment :: ItAttachment
        , _itID :: Maybe Int
@@ -372,8 +372,9 @@ data Item
        , _itInvColor   :: Color
        , _itEffect     :: ItEffect
        , _itHammer     :: HammerPosition
-        , _itScrollUp   :: Int -> World -> World
-        , _itScrollDown :: Int -> World -> World
+        , _itScroll     :: Float -> Creature -> Item -> Item
+--        , _itScrollUp   :: Int -> World -> World
+--        , _itScrollDown :: Int -> World -> World
        , _itAimStance  :: AimStance
        }
     | NoItem