Refactor weapon usages

2021-08-27 16:31:43 +01:00
parent cb8613036f
commit dd44a93476
11 changed files with 308 additions and 60 deletions
@@ -247,6 +247,7 @@ data Item
        , _itTargeting :: Maybe (World -> Maybe Point2, Int -> Item -> Creature -> World -> Picture)
        , _itWorldTrigger :: Maybe (Int -> World -> Bool)
        , _itAimStance :: AimStance
+        , _wpNumBarrels :: Int
        }
    | Consumable
        { _itName :: String
@@ -302,6 +303,7 @@ data Item
        , _itUse :: Item -> Creature -> World -> World
        , _itUseRate :: Int
        , _itUseTime :: Int
+        , _itUseModifiers :: [(Item -> Creature -> World -> World) -> Item -> Creature -> World -> World]
        , _itAimingSpeed :: Float
        , _itAimingRange :: Float
        , _itZoom :: ItZoom