loop/src/Dodge/Data/Item/Combine.hs

{-# LANGUAGE StrictData #-}
{-# LANGUAGE TemplateHaskell #-}

module Dodge.Data.Item.Combine where

import Control.Lens
import TH.Derive
import Data.Store
import Data.Aeson
import Data.Aeson.TH
import qualified Data.Map.Strict as M
import Dodge.Data.Equipment.Misc
import Dodge.Data.Item.Use.Consumption

data ItemType = ItemType
    { _iyBase :: ItemBaseType
    , _iyModules :: M.Map ModuleSlot ItemModuleType
    , _iyStack :: Stack
    }
    deriving (Eq, Ord, Show, Read)

data Stack = NoStack | Stack ItAmount
    deriving (Eq, Ord, Show, Read)

data CraftType
    = PIPE
    | TUBE
    | HARDWARE
    | SPRING
    | DUCTTAPE
    | CAN
    | TIN
    | DRUM
    | PLANK
    | SHARDGLASS
    | PUMP
    | MOTOR
    | TRANSFORMER
    | PRISM
    | THERMOMETER
    | LIGHTER
    | MAGNET
    | ANTIMATTER
    | PLATE
    | TRANSMITTER
    | MICROCHIP
    | AIUNIT
    | CAMERA
    | MINIDISPLAY -- visual display unit
    | LED
    | NAILBOX
    | IRONBAR
    | LIGHTSENSOR
    | SOUNDSENSOR
    | HEATSENSOR
    | CREATURESENSOR
    | WIRE
    | BATTERY
    | FUELCELL
    | PORTABLEFUSION
    | INCENDIARYMODULE
    | STATICMODULE
    | CONCUSSMODULE
    | FRAGMODULE
    | FLASHMODULE
    | BOUNCEMODULE
    | PENMODULE
    | TELEPORTMODULE
    | TIMEMODULE
    | SIZEMODULE
    | GRAVITYMODULE
    deriving (Eq, Ord, Show, Enum, Read)

data ItemBaseType
    = NoItemType
    | HELD {_ibtHeld :: HeldItemType}
    | LEFT {_ibtLeft :: LeftItemType}
    | EQUIP {_ibtEquip :: EquipItemType}
    | Consumable {_ibtConsumable :: ConsumableItemType}
    | CRAFT CraftType
    deriving (Eq, Ord, Show, Read)

data ConsumableItemType
    = MEDKIT Int
    | EXPLOSIVES
    deriving (Eq, Ord, Show, Read)

data EquipItemType
    = MAGSHIELD
    | FLAMESHIELD
    | FRONTARMOUR
    | WRISTARMOUR
    | INVISIBILITYEQUIPMENT EquipSite
    | BRAINHAT
    | HAT
    | HEADLAMP
    | POWERLEGS
    | SPEEDLEGS
    | JUMPLEGS
    | JETPACK
    | AUTODETECTOR Detector
    deriving (Eq, Ord, Show, Read)

data LeftItemType
    = BOOSTER
    | REWINDER
    | BLINKER
    | BLINKERUNSAFE
    | SHRINKER
    | SPAWNER
    deriving (Eq, Ord, Show, Read)

data HeldItemType
    = BANGSTICK {_xNum :: Int}
    | PISTOL
    | REVOLVER
    | REVOLVERX {_xNum :: Int}
    | MACHINEPISTOL
    | AUTOPISTOL
    | SMG
    | BANGCONE
    | BLUNDERBUSS
    | GRAPECANNON {_xNum :: Int}
    | MINIGUNX {_xNum :: Int}
    | VOLLEYGUN {_xNum :: Int}
    | RIFLE
    | REPEATER
    | AUTORIFLE
    | BURSTRIFLE
    | BANGROD
    | ELEPHANTGUN
    | AMR
    | AUTOAMR
    | SNIPERRIFLE
    | MACHINEGUN
    | FLAMESPITTER
    | FLAMETHROWER
    | FLAMETORRENT
    | FLAMEWALL
    | BLOWTORCH
    | SPARKGUN
    | TESLAGUN
    | LASGUN
    | LASCIRCLE
    | DUALBEAM
    | LASWIDE {_xNum :: Int}
    | TRACTORGUN
    | LAUNCHER
    | LAUNCHERX {_xNum :: Int}
    | REMOTELAUNCHER
    | POISONSPRAYER
    | DRONELAUNCHER
    | SHATTERGUN
    | FORCEFIELDGUN
    | HELDDETECTOR Detector
    | TORCH
    | FLATSHIELD
    | KEYCARD Int
    deriving (Eq, Ord, Show, Read)

data ItemModuleType
    = EMPTYMODULE
    | DRUMMAG
    | BELTMAG
    | MAGNETMAG
    | INCENDBUL
    | BOUNCEBUL
    | PENBUL
    | STATICBUL
    | CONCUSBUL
    | TARGCR
    | TARGLAS
    | TARGPOS
    | MAGNETTRAJ
    | FLECHETRAJ
    | BEZIERTRAJ
    | INCENDLAS
    | SPLITLAS
    | STATICLAS
    | WEPTELE
    | LAUNCHHOME
    | EXTRABATTERY
    | ATTACHTORCH
    deriving (Eq, Ord, Show, Read)

data Detector
    = ITEMDETECTOR
    | CREATUREDETECTOR
    | WALLDETECTOR
    deriving (Eq, Ord, Show, Read)

data ModuleSlot
    = ModBullet
    | ModBulletSpawn
    | ModRifleMag
    | ModAutoMag
    | ModTarget
    | ModBulletTrajectory
    | ModLauncherHoming
    | ModBattery
    | ModTeleport
    | ModDualBeam
    | ModHeldAttach
    deriving (Eq, Ord, Show, Read)

instance ToJSONKey ModuleSlot

instance FromJSONKey ModuleSlot

deriveJSON defaultOptions ''ItemType
deriveJSON defaultOptions ''Stack
deriveJSON defaultOptions ''CraftType
deriveJSON defaultOptions ''ItemBaseType
deriveJSON defaultOptions ''ConsumableItemType
deriveJSON defaultOptions ''EquipItemType
deriveJSON defaultOptions ''LeftItemType
deriveJSON defaultOptions ''HeldItemType
deriveJSON defaultOptions ''ItemModuleType
deriveJSON defaultOptions ''Detector
deriveJSON defaultOptions ''ModuleSlot
makeLenses ''ItemType
makeLenses ''ItemBaseType
makeLenses ''HeldItemType
$($(derive [d| instance Deriving (Store ItemType) |]))
$($(derive [d| instance Deriving (Store Stack) |]))
$($(derive [d| instance Deriving (Store CraftType) |]))
$($(derive [d| instance Deriving (Store ItemBaseType) |]))
$($(derive [d| instance Deriving (Store ConsumableItemType) |]))
$($(derive [d| instance Deriving (Store EquipItemType) |]))
$($(derive [d| instance Deriving (Store LeftItemType) |]))
$($(derive [d| instance Deriving (Store HeldItemType) |]))
$($(derive [d| instance Deriving (Store ItemModuleType) |]))
$($(derive [d| instance Deriving (Store Detector) |]))
$($(derive [d| instance Deriving (Store ModuleSlot) |]))