module Dodge.Item.Held.Utility where

import Linear
import Dodge.Default.Item
import Control.Lens
import Dodge.Data.Item
--import Geometry.Data

flatShield :: Item
flatShield =
    defaultHeldItem
        & itEffect . ieInv .~ EffectRootNotroot CreateShieldWall RemoveShieldWall
        & itUse . heldAim . aimWeight .~ 5
        & itUse . heldAim . aimTurnSpeed .~ 0.5
        & itUse . heldAim . aimStance .~ TwoHandFlat
        -- & itUse . heldAim . aimHandlePos .~ 0
        & itType .~ HELD FLATSHIELD

keyCard :: Int -> Item
keyCard n = defaultHeldItem & itType .~ HELD (KEYCARD n)

latchkey :: Int -> Item
latchkey _ = defaultHeldItem 

torch :: Item
torch =
    defaultHeldItem
        & itType .~ HELD TORCH
        & itUse . heldAim . aimMuzzles . ix 0 . mzPos . _x .~ 10
        & itAmmoSlots .~ singleAmmo ElectricalAmmo

{- |
Sends out pulses that display walls.
-}
clickDetector :: Detector -> Item
clickDetector dt =
    defaultHeldItem
        & itUse . heldDelay . rateMax .~ 20
        & itUse . heldAim . aimRange .~ 1
        & itUse . heldAim . aimZoom .~ defaultItZoom{_izFac = 1}
        & itAmmoSlots .~ singleAmmo ElectricalAmmo
        & itUse . heldParams .~ DefaultHeldParams
        & itType .~ HELD (DETECTOR dt)
        & itUse . heldAim . aimMuzzles . ix 0 . mzEffect .~ MuzzleDetector
        & itUse . heldAim . aimMuzzles . ix 0 . mzAmmoPerShot .~ UseExactly 100