Remove _itInvColor

This commit is contained in:
2023-09-25 10:51:24 +01:00
parent 9ee925f13a
commit f9c6769262
10 changed files with 23 additions and 69 deletions
+1 -4
View File
@@ -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