Remove _itInvColor
This commit is contained in:
@@ -10,7 +10,6 @@ module Dodge.Item.Weapon.Utility
|
||||
import Control.Lens
|
||||
import Dodge.Data.Item
|
||||
import Dodge.Default
|
||||
import Picture
|
||||
|
||||
stopWatch :: Item
|
||||
stopWatch =
|
||||
@@ -20,7 +19,6 @@ stopWatch =
|
||||
& leftUse .~ LTimePause
|
||||
& equipEffect . eeSite .~ GoesOnWrist
|
||||
)
|
||||
& itInvColor .~ cyan
|
||||
& itEffect . ieInv .~ ChargeIfEquipped
|
||||
& itEffect . ieOnDrop .~ SetCharge 0
|
||||
& itType . iyBase .~ LEFT STOPWATCH
|
||||
@@ -53,8 +51,7 @@ shrinkGun =
|
||||
blinkGun :: Item
|
||||
blinkGun =
|
||||
defaultLeftItem
|
||||
{ _itInvColor = cyan
|
||||
, _itUse =
|
||||
{ _itUse =
|
||||
defaultLeftUse
|
||||
& leftUse .~ LBlink --hammerCheckL (shootL $ const blinkAction)
|
||||
& equipEffect . eeSite .~ GoesOnWrist
|
||||
|
||||
Reference in New Issue
Block a user