Remove (by commenting out) module item-type system

2024-09-30 11:42:10 +01:00
parent 4545caa7e6
commit 0701c4043e
37 changed files with 877 additions and 696 deletions
@@ -16,20 +16,26 @@ data ComposeLinkType
    = AmmoInLink Int AmmoType
    | AmmoModLink
    | AmmoTargetingLink
+    | AmmoPayloadLink
+    | AmmoEffectLink
    | WeaponScopeLink 
    | WeaponTargetingLink 
    | RemoteScreenLink
+    | AugmentedHUDLink
    deriving (Eq,Ord,Show,Read)

 data ItemStructuralFunction
    = WeaponPlatformSF
    | WeaponScopeSF
    | WeaponTargetingSF
+    | AugmentedHUDSF
    | AmmoMagSF AmmoType
    | RemoteScreenSF
    | UncomposableIsolateSF
    | AmmoModifierSF AmmoType
    | AmmoTargetingSF AmmoType
+    | AmmoPayloadSF AmmoType
+    | AmmoEffectSF AmmoType
    deriving (Eq,Ord,Show,Read)

 type PartiallyComposedItem = (Item, ItemStructuralFunction, LinkTest)