Implement simple swarm mechanics

2021-05-14 20:28:53 +02:00
parent 2b09bf2072
commit c5657fe855
8 changed files with 75 additions and 37 deletions
@@ -8,6 +8,7 @@ import Picture
 import Dodge.Data
 import Dodge.Room
 import Dodge.Creature.State.Data
+import Dodge.Creature.SwarmCrit
 import Dodge.Room.Procedural
 import Dodge.Room.RoadBlock
 import Dodge.Room.Data
@@ -51,7 +52,7 @@ roomTreex = do
            [[StartRoom]
            ,[Corridor]
            ,[SpecificRoom . pure . pure . Right $ roomGlassOctogon 400 
-                & rmPS %~ ([swarmPS 0 (x,y) 0 smallChaseCrit | x <- [-20,-19.5.. 20] , y <- [200,200.5..202] ]++)
+                & rmPS %~ ([swarmPS 0 (x,y) 0 swarmCrit | x <- [-20,-19.5.. 20] , y <- [200,200.5..202] ]++)
             ]
            ,[Corridor]
            ,[Corridor]