19 lines
389 B
Haskell
19 lines
389 B
Haskell
module Dodge.Item.Held.Cone (
|
|
bangCone,
|
|
blunderbuss,
|
|
grapeCannon,
|
|
) where
|
|
|
|
import Control.Lens
|
|
import Dodge.Data.Item
|
|
import Dodge.Default.Item
|
|
|
|
bangCone :: Item
|
|
bangCone = defaultHeldItem & itType .~ HELD BANGCONE
|
|
|
|
blunderbuss :: Item
|
|
blunderbuss = bangCone & itType .~ HELD BLUNDERBUSS
|
|
|
|
grapeCannon :: Int -> Item
|
|
grapeCannon i = blunderbuss & itType .~ HELD (GRAPECANNON i)
|