Correctly reduce left click item delay

2022-09-04 10:22:53 +01:00
parent 920bfdbc8e
commit 8c0ad639ad
9 changed files with 30 additions and 56 deletions
@@ -1,7 +1,16 @@
 module Dodge.TestString where

 import Dodge.Data.Universe
+import Control.Lens
+import Data.Maybe

 testStringInit :: Universe -> [String]
-testStringInit _ = []
+testStringInit u = [
+    show $ u ^? uvWorld . hammers . ix DoubleMouseHam
+    , show $ u ^? uvWorld . cWorld . creatures . ix 0 . crLeftInvSel . _Just
+    , fromMaybe "" $ do
+        i <- u ^? uvWorld . cWorld . creatures . ix 0 . crLeftInvSel . _Just
+        h <- u ^? uvWorld . cWorld . creatures . ix 0 . crInv . ix i . itUse . leftHammer
+        return $ show h
+    ]