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
+2 -8
View File
@@ -2,7 +2,6 @@ module Dodge.Item.Held.Utility where
import Linear
import Dodge.Default.Item
import Color
import Control.Lens
import Dodge.Data.Item
--import Geometry.Data
@@ -19,15 +18,10 @@ flatShield =
& itType . iyBase .~ HELD FLATSHIELD
keyCard :: Int -> Item
keyCard n =
defaultHeldItem
& itInvColor .~ aquamarine
& itType . iyBase .~ HELD (KEYCARD n)
keyCard n = defaultHeldItem & itType . iyBase .~ HELD (KEYCARD n)
latchkey :: Int -> Item
latchkey _ =
defaultHeldItem
& itInvColor .~ yellow
latchkey _ = defaultHeldItem
binoculars :: Item
binoculars =