Return to project, unsure about changes

2024-05-25 13:10:50 +01:00
parent 08716e8ade
commit c862c862df
63 changed files with 1137641 additions and 52 deletions
@@ -0,0 +1,20 @@
+module Dodge.Item.Scope (
+    zoomScope,
+    targetingScope,
+) where
+
+import Control.Lens
+import Dodge.Data.Item
+import Dodge.Default.Item
+
+zoomScope :: Item
+zoomScope =
+    defaultHeldItem
+        & itType . iyBase .~ ATTACH (SCROLLATTACH ZOOMSCOPE)
+        & itUse .~ AttachUse (ScrollAttachParams (ZoomScrollParams{_opticPos = 0, _opticZoom = 1, _opticDefaultZoom = 0.5}))
+
+targetingScope :: TargetType -> Item
+targetingScope tt =
+    defaultHeldItem
+        & itType . iyBase .~ ATTACH (TARGETATTACH tt)
+        & itUse .~ AttachUse TargetAttachParams