Refactor creature ai

src/Dodge/Particle/Bullet/HitEffect.hs

@@ -21,6 +21,7 @@ import Control.Lens
 import Control.Monad.State
 --import Data.Maybe
 --import qualified Data.IntMap.Strict as IM
+--
 -- | Basic bullet hit creature effect.
 bulHitCr :: Particle -> Point2 -> Creature -> World -> World
 bulHitCr bt p cr w 
@@ -39,7 +40,6 @@ bulHitCr bt p cr w
     cid = _crID cr
     (d1,_)  = randomR (-0.7,0.7) $ _randGen w
     colID = _btColor' bt
-    --(colID,_) = randomR (0,11) $ _randGen w
     p1 = p +.+ 2 *.* safeNormalizeV (p -.- _crPos cr)
 {- | Bounce off armoured creatures, otherwise do damage.  -}
 bulBounceArmCr' :: Particle -> Point2 -> Creature -> World -> World