Work on mapper item, simpler generation of items from console

2025-01-02 11:16:04 +00:00
parent 03b25565f1
commit 725a59b9d0
20 changed files with 439 additions and 379 deletions
@@ -33,6 +33,7 @@ data ComposeLinkType
    | UnderBarrelSlotLink
    | UnderBarrelPlatformLink
    | GrenadeHitEffectLink
+    | SFLink {_sfLink :: ItemStructuralFunction}
    deriving (Eq, Ord, Show, Read)

 data ItemStructuralFunction
@@ -62,6 +63,7 @@ data ItemStructuralFunction
    | ProjectileStabiliserSF
    | GrenadeHitEffectSF
    | ToggleSF
+    | MapperSF
    deriving (Eq, Ord, Show, Read)

 type ComposedItem = (Item, ItemStructuralFunction, LinkTest)
@@ -87,5 +89,6 @@ data LinkUpdate = LUpdate
 makeLenses ''ItemLink
 makeLenses ''LinkTest
 makeLenses ''LinkUpdate
+makeLenses ''ComposeLinkType
 deriveJSON defaultOptions ''ItemStructuralFunction
 deriveJSON defaultOptions ''ComposeLinkType