Move towards allowing equipable targeting items
This commit is contained in:
@@ -7,7 +7,6 @@ module Dodge.Item.Held.Rod (
|
||||
machineGun,
|
||||
) where
|
||||
|
||||
import Dodge.Item.Targeting
|
||||
import Dodge.Data.Item
|
||||
import Dodge.Default
|
||||
import Dodge.Item.Weapon.Bullet
|
||||
@@ -73,7 +72,7 @@ sniperRifle =
|
||||
& itUse . heldAim . aimZoom .~ defaultItZoom{_izMax = 0.5, _izMin = 0.5}
|
||||
& itUse . heldScroll .~ HeldScrollZoom -- zoomLongGun
|
||||
& itScope .~ ZoomScope (V2 0 0) 0 1 0.5 False
|
||||
& itUse . heldTargeting .~ (defaultTargeting & tgType .~ TargetLaser)
|
||||
& itUse . useTargeting .~ (Just TargetLaser)
|
||||
& itUse . heldAim . aimZoom .~ defaultItZoom{_izFac = 1}
|
||||
|
||||
machineGun :: Item
|
||||
|
||||
@@ -1,6 +1,5 @@
|
||||
module Dodge.Item.Held.Utility where
|
||||
|
||||
import Dodge.Item.Targeting
|
||||
import Dodge.Default.Item
|
||||
import Color
|
||||
import Control.Lens
|
||||
@@ -44,7 +43,7 @@ torch =
|
||||
forceFieldGun :: Item
|
||||
forceFieldGun =
|
||||
defaultWeapon
|
||||
& itUse . heldTargeting .~ (defaultTargeting & tgType .~ TargetRBLine)
|
||||
& itUse . useTargeting .~ Just TargetRBLine
|
||||
& itParams .~ ParamMID Nothing
|
||||
& itUse . heldUse .~ HeldForceField --useForceFieldGun
|
||||
& itUse . heldDelay .~ NoDelay
|
||||
|
||||
Reference in New Issue
Block a user