Commit before partial cleanup, continue weapon effect refactor

2024-09-21 16:04:23 +01:00
parent bb18831393
commit 9dff2fcd7a
37 changed files with 817 additions and 856 deletions
@@ -1,6 +1,7 @@
 module Dodge.Item.Scope (
    zoomScope,
    targetingScope,
+    rocketRemoteScreen,
 ) where

 import Control.Lens
@@ -18,3 +19,9 @@ targetingScope tt =
    defaultHeldItem
        & itType . iyBase .~ ATTACH (TARGETATTACH tt)
        & itUse .~ AttachUse TargetAttachParams
+
+rocketRemoteScreen :: Item
+rocketRemoteScreen =
+    defaultHeldItem
+        & itType . iyBase .~ ATTACH ROCKETREMOTESCREEN
+        & itUse .~ AttachUse NoAttachParams