Allow for left click to start and pause reloading when aiming

2022-06-22 18:18:25 +01:00
parent 3609bdb4fd
commit 4d1b5d3ca8
6 changed files with 20 additions and 15 deletions
@@ -41,12 +41,5 @@ initialWorld = defaultWorld
    }

 testStringInit :: World -> [String]
-testStringInit = const [] -- map (show . _mcTermMID) . IM.elems . _machines
--testStringInit w = [show $ _cameraZoom w]
--testStringInit = (:[]) . show . _testFloat
--testStringInit = map (concatMap $ \(_,ct,_,_) -> show ct) . invertListInvMult . yourInv
--testStringInit w = fmap (show . _crHammerPosition) . IM.elems $ _creatures w
--    w = [show $ f $ _roomClipping w]
--  where
--    f (x:xs) = any (convexPolysOverlap x) xs || f xs
--    f [] = False
+testStringInit = map show . M.toList . _mouseButtons
+--testStringInit = const []