Add new targeting datatypes

2022-02-22 11:07:19 +00:00
parent 69490bb984
commit 055fcf4cce
4 changed files with 16 additions and 4 deletions
@@ -370,6 +370,7 @@ data Item = Item
    , _itInvDisplay :: Item -> [String]
    , _itInvColor   :: Color
    , _itTargeting :: Maybe (World -> Maybe Point2, Int -> Item -> Creature -> World -> Picture)
+    , _itTargeting' :: Targeting
    , _itDimension  :: ItemDimension
    , _itCurseStatus :: CurseStatus
    , _itParams     :: ItemParams
@@ -379,10 +380,10 @@ data Item = Item
    }
 data Targeting
    = NoTargeting
-    | Targeting
-        { _tgPos    :: Maybe Point2
-        , _tgUpdate :: Item -> Creature -> World -> Maybe Point2
-        , _tgDraw   :: Item -> Creature -> World -> Picture
+    | TargetingOnHeld
+        { _tgPos        :: Maybe Point2
+        , _tgHeldUpdate :: Item -> Creature -> World -> Targeting -> Targeting
+        , _tgDraw       :: Item -> Creature -> World -> Picture
        }
 data ModuleSlot
    = ModBullet