justin/loop
1
0
Fork 0
Code Issues Pull Requests 1 Packages Projects Releases Wiki Activity

Add in "linear" lWorld to separate time reversable worlds

Browse Source
This commit is contained in:
justin
2022-10-28 12:24:51 +01:00
parent 5f6bd43599
commit 7e790b7153
130 changed files with 827 additions and 980 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/TestString.hs
+4 -11
View File
@@ -1,20 +1,13 @@
module Dodge.TestString where
import Dodge.Data.Universe
import Control.Lens
import Dodge.Data.Universe
--import Data.Maybe
import ShortShow
testStringInit :: Universe -> [String]
testStringInit u = [show $ u ^. uvWorld . scrollAmount
testStringInit u =
[ show $ u ^. uvWorld . scrollAmount
, show $ u ^. uvWorld . previousScrollAmount
, shortShow $ u ^?! uvWorld . cWorld . creatures . ix 0 . crPos
, shortShow $ u ^?! uvWorld . cWorld . lWorld . creatures . ix 0 . crPos
]
-- [ 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
-- ]