Commit before trying to deal with leak in main inventory display
This commit is contained in:
@@ -19,6 +19,9 @@ module Dodge.Item.Scope (
|
||||
mapper,
|
||||
dropper,
|
||||
clicker,
|
||||
copier,
|
||||
bgate,
|
||||
ugate,
|
||||
) where
|
||||
|
||||
import Dodge.Item.Attach
|
||||
@@ -81,6 +84,24 @@ clicker x =
|
||||
& itType .~ CLICKER x
|
||||
& itUse .~ UseInt 0
|
||||
|
||||
copier :: InventoryPathing -> Item
|
||||
copier x =
|
||||
defaultHeldItem
|
||||
& itType .~ COPIER x
|
||||
& itUse .~ UseInt 0
|
||||
|
||||
bgate :: Item
|
||||
bgate =
|
||||
defaultHeldItem
|
||||
& itType .~ BGATE
|
||||
& itUse .~ UseInt 0
|
||||
|
||||
ugate :: Item
|
||||
ugate =
|
||||
defaultHeldItem
|
||||
& itType .~ UGATE
|
||||
& itUse .~ UseInt 0
|
||||
|
||||
bulletModule :: BulletMod -> Item
|
||||
bulletModule bm =
|
||||
defaultHeldItem
|
||||
|
||||
Reference in New Issue
Block a user