Held item rclick use, tweak reload on lclick

2023-05-28 10:17:32 +01:00
parent ec8317c14e
commit 10c9e2261f
9 changed files with 68 additions and 65 deletions
@@ -1,5 +1,6 @@
 module Dodge.Item.Held.BatteryGuns where

+import Dodge.Base
 import Dodge.Data.Beam
 import Dodge.Default.Item
 import Color
@@ -40,7 +41,7 @@ lasGun =
    defaultAutoBatteryGun
        & itUse . heldConsumption
            .~ ( defaultLoadable
-                    & laSource . _InternalSource . iaMax .~ 200
+                    & laSource . _InternalSource . iaMax .~ 200000
                    & laSource . _InternalSource . iaCycle .~ [loadEject 10, loadInsert 10, loadPrime 60]
               )
        & itParams
@@ -114,6 +115,7 @@ lasWide n =
        & itParams . lasColor .~ yellow
        & itParams . lasDamage .~ 2
        & itUse . heldMods .~ LasWideMod n
+        & itUse . heldAim . aimMuzzles .~ [Muzzle (V2 30 y) 0 0 | y <- spreadFromCenter n 1]

 defaultBatteryGun :: Item
 defaultBatteryGun =