Fix bug in item item location

2024-09-24 22:29:25 +01:00
parent df80e87427
commit f765b02f2c
6 changed files with 130 additions and 188 deletions
@@ -14,18 +14,9 @@ import Control.Lens

 data Huse
    = HeldDoNothing
--    | HeldUseAmmoParams
--    | HeldOverNozzlesUseGasParams
--    | HeldPJCreation
--    | HeldPJCreationX Int
    | HeldFireRemoteShell
    | HeldExplodeRemoteShell Int Int
    | HeldDetectorEffect Detector
--    | HeldTeslaArc
--    | HeldLaser
--    | HeldCircleLaser
--    | HeldDualLaser
--    | HeldTractor
    | HeldForceField
    | HeldShatter
    deriving (Eq, Ord, Show, Read) --Generic, Flat)
@@ -67,44 +58,9 @@ data Luse

 data HeldMod
    = PistolMod
--    | PoisonSprayerMod
--    | FlameSpitterMod
--    | FlameSpitterRepeatMod
--    | FlameThrowerMod
--    | LauncherMod
--    | TeslaMod
--    | CircleLaserMod
--    | LasWideMod Int
--    | DualBeamMod
--    | LasMod
--    | LauncherXMod Int
--    | ShatterMod
--    | AmmoCheckMod
--    | AmmoUseCheckMod
--    | AmmoHammerTimeUseOneMod
--    | BangCaneMod
--    | VolleyGunMod
--    | MultiGunMod
--    | AutoRifleMod
--    | BangRodMod
--    | ElephantGunMod
--    | AutoAmrMod
--    | MachineGunMod
--    | ModWithDirectedTeleport HeldMod
--    | BangStickMod
--    | AutoPistolMod
--    | MachinePistolMod
--    | BurstRifleMod
--    | BurstRifleRepeatMod
--    | MiniGunMod Int
--    | SmgMod
--    | BangConeMod
--    | TractorMod --apply with AmmoCheckMod
    | FireRemoteShellMod
    | ExplodeRemoteShellMod
    | DoNothingMod
--    | ForceFieldMod
--    | DetectorMod Detector
    deriving (Eq, Ord, Show, Read) --Generic, Flat)

 makeLenses ''Euse