Move towards allowing equipable targeting items

This commit is contained in:
2023-01-06 11:01:32 +00:00
parent bf479ca080
commit 612ee85579
23 changed files with 152 additions and 145 deletions
+2 -3
View File
@@ -1,7 +1,6 @@
module Dodge.Combine.Module where
import Data.Foldable
import Dodge.Item.Targeting
import Dodge.Data.Beam
import Dodge.Data.Item
import Dodge.Tesla
@@ -19,7 +18,7 @@ moduleModification imt = case imt of
PENBUL -> itUse . heldConsumption . laAmmoType . amBullet . buEffect .~ PenetrateBullet
STATICBUL -> itUse . heldConsumption . laAmmoType . amBullet . buSpawn .~ BulBall TeslaBall
CONCUSBUL -> itUse . heldConsumption . laAmmoType . amBullet . buSpawn .~ BulBall ConcBall
TARGET t -> itUse . heldTargeting .~ (defaultTargeting & tgType .~ t)
TARGET t -> itUse . useTargeting .~ (Just t)
MAGNETTRAJ ->
(itUse . heldConsumption . laAmmoType . amBullet . buTrajectory .~ MagnetTrajectory 0)
. (itUse . heldConsumption . laAmmoType . amBullet . buVel .~ V2 10 0)
@@ -37,7 +36,7 @@ moduleModification imt = case imt of
where
makeDirectedTele it =
it
& itUse . heldTargeting .~ (defaultTargeting & tgType .~ TargetRBPress)
& itUse . useTargeting .~ (Just TargetRBPress)
& itUse . heldMods %~ ModWithDirectedTeleport -- .:~ withPosDirWallCheck directedTelPos
-- for the camera: the simplest option is to remove all zoom/offset
& itUse . heldAim . aimZoom . izFac .~ 1