Make rewind gun mostly work; todo sound, dropping item, perhaps more

This commit is contained in:
2021-11-26 18:56:37 +00:00
parent c1d4f32903
commit f29c200a27
6 changed files with 19 additions and 5 deletions
+1 -1
View File
@@ -18,7 +18,7 @@ updateUsingInput w = if _carteDisplay w
updatePressedButtons :: S.Set MouseButton -> World -> World
updatePressedButtons pkeys w
| lbPressed && rbPressed
| lbPressed && rbPressed
= useItem (_yourID w) w & lClickHammer .~ HammerDown
| lbPressed && canLeftClick = useLeftItem (_yourID w) w
| lbPressed = w