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

Allow slimes to recombine

Browse Source
This commit is contained in:
justin
2026-04-12 13:44:05 +01:00
parent d075880248
commit f0da9b5f8c
5 changed files with 46 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/Dodge/TestString.hs
+3
View File
@@ -2,6 +2,7 @@
module Dodge.TestString where
import Dodge.Creature.Radius
import AesonHelp
import qualified Control.Foldl as L
import Control.Lens
@@ -43,6 +44,8 @@ tocrs = uvWorld . cWorld . lWorld . creatures
testStringInit :: Universe -> [String]
testStringInit u = u ^.. tocrs . ix 1 . crPos . _xy . to show
<> u ^.. tocrs . ix 1 . crType . slimeCompression . to show
<> u ^.. tocrs . ix 1 . crType . slimeCompression . to norm . to show
<> u ^.. tocrs . ix 1 . crType . to crRad . to show
<> u ^.. tocrs . ix 1 . crType . slimeIsCompressing . to show
<> u ^.. tocrs . ix 1 . crDir . to show
<> u ^.. tocrs . ix 1 . crDamage . to show