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

Push item use delay inside datatype, currently broken

Browse Source
This commit is contained in:
justin
2021-11-27 16:37:30 +00:00
parent 224db733f6
commit 8639b2d428
21 changed files with 162 additions and 177 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/Item/Weapon/Radar.hs
+2 -10
View File
@@ -25,15 +25,11 @@ radar = defaultGun
, _wpLoadedAmmo = 100
, _wpReloadTime = 200
}
, _itUseRate = 120
, _itUseTime = 0
, _itUse = RightUse $ const aRadarPulse
, _itUseModifiers =
, _itUse = ruseRate 120 (const aRadarPulse) upHammer
[ ammoUseCheckI
]
, _wpSpread = autogunSpread
, _wpRange = 20
, _itHammer = HammerUp
, _itFloorPict = \_ -> (,) emptySH $ onLayer FlItLayer $ color blue $ polygon $ rectNESW 5 5 (-5) (-5)
, _itAimingRange = 1
, _itZoom = defaultItZoom { _itZoomMax = 1}
@@ -51,14 +47,10 @@ sonar = defaultGun
, _wpLoadedAmmo = 100
, _wpReloadTime = 200
}
, _itUseRate = 120
, _itUseTime = 0
, _itUse = RightUse $ const aSonarPulse
, _itUseModifiers =
, _itUse = ruseRate 120 (const aSonarPulse) upHammer
[ ammoUseCheckI
]
, _wpRange = 20
, _itHammer = HammerUp
, _itFloorPict = \_ -> (,) emptySH $ onLayer FlItLayer $ color blue $ polygon $ rectNESW 5 5 (-5) (-5)
, _itAimingRange = 1
, _itZoom = defaultItZoom {_itZoomMax = 1}