Refactor creature ai

2021-05-20 21:25:42 +02:00
parent 4463dc7716
commit 114335fdbe
32 changed files with 449 additions and 270 deletions
@@ -218,7 +218,7 @@ moveFlamelet w pt
    damifclose cr 
        | isClose cr = cr & crState . crDamage %~ ( Flaming 3 sp ep ep : )
        | otherwise  = cr
-
+-- | At writing the radius is half the size of the effect area
 makeGasCloud 
    :: Point2   -- ^ Position
    -> Point2   -- ^ Velocity
@@ -234,7 +234,7 @@ makeGasCloud pos vel w = w
                     , _clVel = vel
                     , _clPict = \_ -> onLayer CrLayer $ color (withAlpha 0.1 col) 
                                                       $ circleSolid 20
-                     , _clRad = 20
+                     , _clRad = 10
                     , _clTimer = 400
                     , _clEffect = cloudPoisonDamage
                     }
@@ -247,7 +247,7 @@ cloudPoisonDamage :: Cloud -> World -> World
 cloudPoisonDamage c w = w & creatures %~ flip (foldr (IM.adjust doDam)) damagedCrs
  where 
    damagedCrs = IM.keys $ IM.filter f $ creaturesNearPoint (_clPos c) w
-    f cr = dist (_crPos cr) (_clPos c) < _crRad cr + _clRad c
+    f cr = dist (_crPos cr) (_clPos c) < _crRad cr + _clRad c + 10
    doDam cr = cr & crState . crDamage %~ (:) (PoisonDam 1)

 {-