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

Work on crab feet

Browse Source
This commit is contained in:
justin
2026-04-09 10:01:11 +01:00
parent 52d389f342
commit 0a8a2210c0
7 changed files with 42 additions and 21 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/TestString.hs
+3 -2
View File
@@ -41,8 +41,9 @@ tocrs :: (IM.IntMap Creature
tocrs = uvWorld . cWorld . lWorld . creatures
testStringInit :: Universe -> [String]
testStringInit u = u ^.. tocrs . ix 1 . crActionPlan . apStrategy . to show
<> u ^.. tocrs . ix 1 . crActionPlan . apAction . to show
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
-- where
-- tocr = uvWorld . cWorld . lWorld . creatures . ix 0
-- f = fromMaybe 0