Move towards allowing equipable targeting items
This commit is contained in:
@@ -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
|
||||
|
||||
Reference in New Issue
Block a user