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

Add newtype for item id int

Browse Source
This commit is contained in:
justin
2024-09-28 23:34:32 +01:00
parent 241191ee1b
commit 7d72fa3c5d
14 changed files with 274 additions and 267 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Luse.hs
+3 -3
View File
@@ -25,7 +25,7 @@ useStopWatch :: Item -> Creature -> World -> World
useStopWatch itm _ w = w
& timeFlow .~ PausedTimeFlow
{ _timeFlowCharge = itm ^?! itUse . leftConsumption . wpCharge
, _scrollItemLocation = _itID itm
, _scrollItemID = _itID itm
}
@@ -34,7 +34,7 @@ useTimeScrollGun itm _ w = w & timeFlow .~ ItemScrollTimeFlow
{ _scrollSmoothing = 0
, _reverseAmount = itm ^?! itUse . leftConsumption . wpCharge
, _futureWorlds = []
, _scrollItemLocation = _itID itm
, _scrollItemID = _itID itm
}
@@ -42,7 +42,7 @@ useRewindGun :: Item -> Creature -> World -> World
useRewindGun itm _ w = w
& timeFlow .~ RewindLeftClick
{ _reverseAmount = itm ^?! itUse . leftConsumption . wpCharge
, _scrollItemLocation = _itID itm
, _scrollItemID = _itID itm
}
--useRewindGun _ _ w = case w ^. cwTime . rewindWorlds of