Refactor item drawing

This commit is contained in:
2021-10-01 23:01:36 +01:00
parent 5f17841811
commit 8c1496e140
28 changed files with 248 additions and 185 deletions
+5 -5
View File
@@ -285,7 +285,7 @@ data Item
, _wpSpread :: Float
, _wpRange :: Float
, _itHammer :: HammerPosition
, _itFloorPict :: SPic
, _itFloorPict :: Item -> SPic
, _itMaxStack :: Int
, _itAmount :: Int
, _itAimingSpeed :: Float
@@ -310,7 +310,7 @@ data Item
, _itMaxStack :: Int
, _itAmount :: Int
, _cnEffect :: Int -> World -> Maybe World
, _itFloorPict :: SPic
, _itFloorPict :: Item -> SPic
, _itEquipPict :: Creature -> Int -> SPic
, _itIdentity :: ItemIdentity
, _itID :: Maybe Int
@@ -324,7 +324,7 @@ data Item
{ _itName :: String
, _itMaxStack :: Int
, _itAmount :: Int
, _itFloorPict :: SPic
, _itFloorPict :: Item -> SPic
, _itEquipPict :: Creature -> Int -> SPic
, _itIdentity :: ItemIdentity
, _itID :: Maybe Int
@@ -336,7 +336,7 @@ data Item
{ _itName :: String
, _itMaxStack :: Int
, _itAmount :: Int
, _itFloorPict :: SPic
, _itFloorPict :: Item -> SPic
, _itEquipPict :: Creature -> Int -> SPic
, _itIdentity :: ItemIdentity
, _itEffect :: ItEffect
@@ -354,7 +354,7 @@ data Item
{ _itName :: String
, _itMaxStack :: Int
, _itAmount :: Int
, _itFloorPict :: SPic
, _itFloorPict :: Item -> SPic
, _twMaxRange :: Float
, _twAccuracy :: Float
, _itUse :: Item -> Creature -> World -> World