Unify key press and mouse button press timings

Both now use Ints for presses.
Still no release timer for keyboard events.

src/Dodge/Item/Grammar.hs

@@ -36,7 +36,7 @@ tryAttachItems = leftRightCombine leftIsParentCombine rightIsParentCombine
 itemAboveAttachables :: CItem -> [ItemSF]
 itemAboveAttachables (itm,sf) = case (itm ^. itType, sf) of
     (_, HeldPlatformSF) ->
-         [WeaponTargetingSF, WeaponScopeSF]
+         [WeaponTargetingSF, WeaponScopeSF,TorchSF]
             <> getAutoSpringLinks itm
             <> extraWeaponLinks itm
     (DETECTOR {}, _) -> [ARHUDSF,TriggerSF,MapperSF]
@@ -110,6 +110,7 @@ itemToFunction itm = case itm ^. itType of
     ITEMSCAN -> ToggleSF
     INTROSCAN {} -> IntroScanSF
     HELD LASER -> WeaponTargetingSF
+    HELD TORCH -> TorchSF
     HELD{} -> case itUseCondition itm of
         UseableWhenAimed -> HeldPlatformSF
         _ -> GadgetPlatformSF

src/Dodge/Item/InventoryColor.hs

@@ -39,10 +39,11 @@ sfInvColor = \case
     UnderBarrelPlatformSF -> white
     UnderBarrelSlotSF -> white
     LaserWeaponSF -> white
-    PulseLaserSF -> orange
+    PulseLaserSF -> white
     CapacitorSF -> yellow
     PulseBallSF -> white
     TransformerSF -> yellow
+    TorchSF{} -> green
 
 --ammoTypeColor :: AmmoType -> Color
 --ammoTypeColor = \case