Move function fields outside equipment

2022-07-20 20:40:13 +01:00
parent e9f0130013
commit 845c1f282e
14 changed files with 87 additions and 29 deletions
@@ -0,0 +1,20 @@
+module Dodge.Euse where
+import Dodge.Data
+import Dodge.Item.Weapon.ExtraEffect
+import Dodge.Item.Weapon.Radar
+import Dodge.SoundLogic.ExternallyGeneratedSounds
+import Dodge.Item.Equipment
+import LensHelp
+
+useE :: Euse -> Item -> Creature -> World -> World
+useE eo = case eo of
+    EDoNothing -> const $ const id
+    EDetector dt -> autoEffect (detectorEffect dt) 100 click1S
+    EMagShield -> useMagShield
+    EWristShield -> setWristShieldPos
+    EHeadLamp -> createHeadLamp
+    ECamouflage vis -> overCID (crCamouflage .~ vis)
+
+    EonWristShield -> onEquipWristShield
+
+    EoffWristShield -> onRemoveWristShield