Implement targeting launcher shells using separate item

2024-09-29 16:24:26 +01:00
parent 7d72fa3c5d
commit 88c3e02459
36 changed files with 747 additions and 610 deletions
@@ -16,11 +16,11 @@ zoomScope =
 --        & itUse .~ AttachUse (ScrollAttachParams (ZoomScrollParams{_opticPos = 0, _opticZoom = 1, _opticDefaultZoom = 0.5}))
        & itUse .~ ScopeUse OpticScope{_opticPos = 0, _opticZoom = 1, _opticDefaultZoom = 0.5}

-targetingScope :: TargetType -> Item
+targetingScope :: TargetingType -> Item
 targetingScope tt =
    defaultHeldItem
-        & itType . iyBase .~ ATTACH (TARGETATTACH tt)
-        & itUse .~ AttachUse Nothing
+        & itType . iyBase .~ TARGETING tt
+        & itUse .~ TargetingUse Nothing Nothing False

 homingModule :: Item
 homingModule =