17 lines
486 B
Haskell
17 lines
486 B
Haskell
module Dodge.Item.Held.Weapons where
|
|
|
|
import Dodge.Default.Item
|
|
import Dodge.Data.Item
|
|
import Control.Lens
|
|
import Linear.V2
|
|
|
|
shatterGun :: Item
|
|
shatterGun =
|
|
defaultHeldItem
|
|
& itType .~ HELD SHATTERGUN
|
|
& itUse . heldDelay . rateMax .~ 10
|
|
& itAmmoSlots .~ singleAmmo ElectricalAmmo
|
|
& itUse . heldMuzzles . ix 0 . mzPos .~ V2 30 0
|
|
& itUse . heldMuzzles . ix 0 . mzInaccuracy .~ 0
|
|
& itUse . heldMuzzles . ix 0 . mzEffect .~ MuzzleShatter
|