Cleanup: broken pathfinding

2021-11-16 18:05:47 +00:00
parent cb8cbe03a4
commit ebe9ad6b90
42 changed files with 491 additions and 301 deletions
@@ -0,0 +1,8 @@
+module Dodge.Placement.Instance.Creature where
+import Dodge.LevelGen.Data
+import Dodge.RandomHelp
+import Dodge.Creature.ArmourChase
+import Dodge.Creature.ChaseCrit
+
+randC1 :: PSType
+randC1 = RandPS $ takeOne $ map PutCrit $ armourChaseCrit : replicate 50 chaseCrit