Refactor, try to limit dependencies

2022-07-28 00:59:56 +01:00
parent 8aa5c17ab9
commit 160560af5f
418 changed files with 15104 additions and 13342 deletions
@@ -0,0 +1,107 @@
+module Dodge.Item.Held.SprayGuns (
+    poisonSprayer,
+    flameSpitter,
+    blowTorch,
+    flameThrower,
+    flameTorrent,
+    flameWall,
+) where
+
+import Dodge.Data.Item
+import Dodge.Default.Item
+import Dodge.Reloading.Action
+import Geometry
+import LensHelp
+
+poisonSprayer :: Item
+poisonSprayer =
+    flameThrower
+        & itType . iyBase .~ HELD POISONSPRAYER
+        & itUse . heldConsumption . laAmmoType
+            .~ GasAmmo
+                { _amString = "POISONGAS"
+                , _amCreateGas = CreatePoisonGas --aGasCloud
+                }
+        & itUse . heldMods .~ PoisonSprayerMod
+
+flameSpitter :: Item
+flameSpitter =
+    flameThrower
+        & itType . iyBase .~ HELD FLAMESPITTER
+        & itUse . heldConsumption . laMax .~ 10
+        & itUse . heldConsumption . laCycle .~ [loadEject 5, loadInsert 10, loadPrime 20]
+        & itParams . sprayNozzles . ix 0 . nzPressure .~ 4
+        & itUse . heldAim . aimStance .~ OneHand
+        & itUse . heldDelay .~ FixedRate{_rateMax = 12, _rateTime = 0}
+        & itUse . heldMods .~ FlameSpitterMod
+
+flameTorrent :: Item
+flameTorrent =
+    flameThrower
+        & itType . iyBase .~ HELD FLAMETORRENT
+        & itUse . heldAim . aimZoom .~ defaultItZoom
+        & itParams . sprayNozzles . ix 0
+            %~ ( (nzPressure .~ 10)
+                    . (nzMaxWalkAngle .~ 1.5)
+                    . (nzWalkSpeed .~ 0.05)
+               )
+
+blowTorch :: Item
+blowTorch =
+    flameThrower
+        & itType . iyBase .~ HELD BLOWTORCH
+
+flameWall :: Item
+flameWall =
+    flameThrower
+        & itType . iyBase .~ HELD FLAMEWALL
+        & itParams . sprayNozzles .~ zipWith makeNozzle [0, 0.6, -0.6] [2, 2.5, 2.5]
+  where
+    makeNozzle dir pres =
+        Nozzle
+            { _nzPressure = pres
+            , _nzDir = dir
+            , _nzMaxWalkAngle = 0
+            , _nzWalkSpeed = 0
+            , _nzCurrentWalkAngle = 0
+            , _nzLength = 20
+            }
+
+flameThrower :: Item
+flameThrower =
+    defaultHeldItem
+        { _itParams =
+            Sprayer
+                { _sprayNozzles =
+                    [ Nozzle
+                        { _nzPressure = 4
+                        , _nzDir = 0
+                        , _nzMaxWalkAngle = 0.2
+                        , _nzWalkSpeed = 0.01
+                        , _nzCurrentWalkAngle = 0
+                        , _nzLength = 10
+                        }
+                    ]
+                }
+        }
+        & itDimension . dimRad .~ 7
+        & itDimension . dimCenter .~ V3 9 0 0
+        & itUse . heldUse .~ HeldOverNozzlesUseGasParams -- overNozzles useGasParams
+        & itUse . heldDelay .~ NoDelay
+        & itUse . heldMods .~ FlameThrowerMod
+        & itUse . heldAim . aimWeight .~ 5
+        & itUse . heldAim . aimZoom .~ defaultItZoom{_itZoomMax = 5, _itZoomMin = 1.5}
+        & itUse . heldAim . aimStance .~ TwoHandTwist
+        & itUse . heldAim . aimHandlePos .~ 0
+        & itUse . heldAim . aimMuzPos .~ 18
+        & itUse . heldConsumption
+            .~ ( defaultLoadable
+                    & laMax .~ 250
+                    & laAmmoType
+                        .~ GasAmmo
+                            { _amString = "FLAME"
+                            , _amCreateGas = CreateFlame --aFlame
+                            }
+                    & laCycle .~ [loadEject 5, loadInsert 10, loadPrime 20]
+               )
+        & itType . iyBase .~ HELD FLAMETHROWER