Move towards allowing equipable targeting items

2023-01-06 11:01:32 +00:00
parent bf479ca080
commit 612ee85579
23 changed files with 152 additions and 145 deletions
@@ -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