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

Add slime crit, start work on slink crit

Browse Source
This commit is contained in:
justin
2026-04-11 19:09:49 +01:00
parent 95a6c90d01
commit 5052ee7a9e
21 changed files with 699 additions and 537 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/TestString.hs
+4 -3
View File
@@ -41,9 +41,10 @@ tocrs :: (IM.IntMap Creature
tocrs = uvWorld . cWorld . lWorld . creatures
testStringInit :: Universe -> [String]
testStringInit u = u ^.. tocrs . ix 3 . crPos . _xy . to show
<> u ^.. tocrs . ix 3 . crType . lFootPos . to show
<> u ^.. tocrs . ix 3 . crType . rFootPos . to show
testStringInit u = u ^.. tocrs . ix 1 . crPos . _xy . to show
<> u ^.. tocrs . ix 1 . crType . slimeCompression . to show
<> u ^.. tocrs . ix 1 . crType . slimeIsCompressing . to show
<> u ^.. tocrs . ix 1 . crDir . to show
-- where
-- tocr = uvWorld . cWorld . lWorld . creatures . ix 0
-- f = fromMaybe 0