Separate out concrete part of world

2022-07-25 12:10:50 +01:00
parent 3354d108be
commit b2efbd2b3e
134 changed files with 933 additions and 930 deletions
@@ -170,7 +170,7 @@ chooseMovementPistol' cr w = takeOneWeighted [chargeProb,retreatProb,strafeProb,
  where
    g = _randGen w
    cpos = _crPos cr
-    ycr = _creatures w IM.! 0
+    ycr = _creatures (_cWorld w) IM.! 0
    ypos = _crPos ycr
    chargeProb | dist cpos ypos > 300 = 5
               | dist cpos ypos > 150 = 1