justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Move UseCondition out of record

Browse Source
This commit is contained in:
justin
2025-06-05 19:41:33 +01:00
parent 16f5c05f19
commit 816ab4222f
15 changed files with 325 additions and 382 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Item/Held/Utility.hs
+3 -20
View File
@@ -33,30 +33,13 @@ torch =
-- | Sends out pulses that display walls.
detector :: Detector -> Item
detector dt =
defaultHeldItem
& itUseCondition .~ UseableAnytime
-- & itUse . heldDelay . rateMax .~ 20
-- & itAmmoSlots .~ singleAmmo ElectricalAmmo
& itType .~ DETECTOR dt
-- & itUse . heldMuzzles . ix 0 . mzEffect .~ MuzzleDetector
-- & itUse . heldMuzzles . ix 0 . mzAmmoPerShot .~ UseExactly 100
detector dt = defaultHeldItem & itType .~ DETECTOR dt
blinker :: Item
blinker =
defaultHeldItem
& itUseCondition .~ UseableAnytime
-- & itUse . heldDelay . rateMax .~ 20
-- & itAmmoSlots .~ singleAmmo ElectricalAmmo
-- & itUse . heldMuzzles . ix 0 . mzEffect .~ MuzzleBlink
-- & itUse . heldMuzzles . ix 0 . mzAmmoPerShot .~ UseExactly 10000000
& itType .~ HELD BLINKER
blinker = defaultHeldItem & itType .~ HELD BLINKER
unsafeBlinker :: Item
unsafeBlinker =
blinker
-- & itUse . heldMuzzles . ix 0 . mzEffect .~ MuzzleUnsafeBlink
& itType .~ HELD BLINKERUNSAFE
unsafeBlinker = blinker & itType .~ HELD BLINKERUNSAFE
rewinder :: Item
rewinder =