Cleanup

2022-07-26 11:51:53 +01:00
parent 5c8e786dfa
commit c2707719fb
12 changed files with 740 additions and 718 deletions
@@ -0,0 +1,35 @@
+{-# LANGUAGE TemplateHaskell #-}
+{-# LANGUAGE StrictData #-}
+{-# LANGUAGE DeriveGeneric #-}
+module Dodge.Data.Item.Use.Equipment
+    ( module Dodge.Data.Equipment.Misc
+    , module Dodge.Data.Item.Use.Equipment
+    )
+    where
+import Dodge.Data.Item.HeldUse
+import Dodge.Data.Equipment.Misc
+import GHC.Generics
+import Data.Aeson
+import Control.Lens
+data Equipment = Equipment
+    { _eqUse        :: Euse --Item -> Creature -> World -> World
+    , _eqOnEquip    :: Euse --Item -> Creature -> World -> World
+    , _eqOnRemove   :: Euse --Item -> Creature -> World -> World
+    , _eqSite       :: EquipSite
+    , _eqParams     :: EquipParams
+    , _eqViewDist   :: Maybe Float
+    }
+  deriving (Eq,Ord,Show,Read,Generic)
+instance ToJSON Equipment  where
+    toEncoding = genericToEncoding defaultOptions
+instance FromJSON Equipment 
+data EquipParams
+    = NoEquipParams
+    | EquipID {_eparamID :: Int}
+    | EquipCounter {_eparamInt :: Int}
+  deriving (Eq,Ord,Show,Read,Generic)
+instance ToJSON EquipParams where
+    toEncoding = genericToEncoding defaultOptions
+instance FromJSON EquipParams
+makeLenses ''Equipment
+makeLenses ''EquipParams