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

Move in game key press input reaction to universe update

Browse Source
This commit is contained in:
justin
2022-10-30 10:19:59 +00:00
parent e3155752ba
commit 9779b6fa39
9 changed files with 97 additions and 54 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/TestString.hs
+3 -4
View File
@@ -4,10 +4,9 @@ import Control.Lens
import Dodge.Data.Universe
--import Data.Maybe
import ShortShow
import qualified Data.Map.Strict as M
testStringInit :: Universe -> [String]
testStringInit u =
[ show $ u ^. uvWorld . input . scrollAmount
, show $ u ^. uvWorld . input . previousScrollAmount
, shortShow $ u ^?! uvWorld . cWorld . lWorld . creatures . ix 0 . crPos
]
[ shortShow $ u ^?! uvWorld . cWorld . lWorld . creatures . ix 0 . crPos
] ++ map show (M.toList (u ^. uvWorld . input . pressedKeys))