Cleanup

2024-12-19 22:10:18 +00:00
parent 3da9490dd4
commit 2b5a81fd11
5 changed files with 81 additions and 94 deletions
@@ -9,9 +9,6 @@ import Dodge.Euse
 doInvEffect :: ItInvEffect -> Item -> Creature -> World -> World
 doInvEffect iie = case iie of
    NoInvEffect -> const $ const id
-    --    ChargeIfEquipped -> chargeIfEquipped
-    --    ChargeIfInInventory -> chargeIfInInventory
-    --    SetCharge i -> setItemCharge i
    EffectRootNotroot f g -> rootNotrootEff f g
    CreateShieldWall -> createShieldWall
    RemoveShieldWall -> removeShieldWall