Unify key press and mouse button press timings

Both now use Ints for presses. Still no release timer for keyboard events.
2025-07-28 23:16:05 +01:00
parent ea35753744
commit 81f88c32e9
15 changed files with 52 additions and 58 deletions
@@ -228,7 +228,7 @@ tryUseParent :: LocationDT OItem -> World -> World
 tryUseParent loc w = fromMaybe w $ do
    t <- locUp' loc
    cr <- w ^? cWorld . lWorld . creatures . ix 0
-    return $ gadgetEffect InitialPress t cr w
+    return $ gadgetEffect 0 t cr w

 tryDrawToCapacitor :: LocationDT OItem -> World -> World
 tryDrawToCapacitor loc w = fromMaybe w $ do