Make examine inventory controlled by item, perhaps still buggy

src/Dodge/Data/Item/Effect.hs

@@ -1,13 +1,17 @@
-{-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE DeriveAnyClass #-}
+{-# LANGUAGE DeriveGeneric #-}
 {-# LANGUAGE StrictData #-}
 {-# LANGUAGE TemplateHaskell #-}
 
-module Dodge.Data.Item.Effect where
+module Dodge.Data.Item.Effect (
+    module Dodge.Data.Item.Effect,
+    module Dodge.Data.BlBl,
+) where
 
 import Control.Lens
 import Data.Aeson
 import Data.Aeson.TH
+import Dodge.Data.BlBl
 
 data ItEffect = ItEffect
     { _ieInv :: ItInvEffect --Item -> Creature -> World -> World
@@ -23,6 +27,8 @@ data ItInvEffect
     | RemoveShieldWall
     | EffectWhileRoot ItInvEffect
     | EffectWhileAttached ItInvEffect
+    | ItemUseToggle BlBl
+    | ItemCancelExamineInventory
     deriving (Eq, Ord, Show, Read) --Generic, Flat)
 
 data ItDropEffect = NoDropEffect

src/Dodge/Data/Item/Use.hs

@@ -43,6 +43,7 @@ data ItemUse
     | UseNothing
     | UseScope { _uScope :: Scope }
     | UseBulletMod { _ubMod :: BulletMod }
+    | UseToggle {_useToggle :: Bool}
     deriving (Eq, Show, Read)
 
 data HeldUseEffect

src/Dodge/Data/Item/Use/Consumption/Ammo.hs

@@ -19,7 +19,6 @@ data ProjectileUpdate
     = ThrustPU {_pjuStart :: Int, _pjuEnd :: Int}
     | StartSpinPU {_pjuTime :: Int, _pjuCID :: Int, _pjuSpinAmound :: Int}
     | RemoteDirectionPU {_pjuStart :: Int, _pjuEnd :: Int}
---    | ApplyGravityPU
     deriving (Show, Eq, Ord, Read) --Generic, Flat)
 
 data AmmoType