Refactor

src/Dodge/CreatureState.hs

@@ -106,7 +106,6 @@ movementSideEff cr w
                                 66
                                 Nothing
                                 1
---                    $ smokeGen v
                     $ set randGen g
                         w
             _   -> w
@@ -124,10 +123,6 @@ movementSideEff cr w
 
               (v1:v2:v3:_) = fst $ runState ((sequence . repeat . randInCirc) 0.1) $ _randGen w
               (r1:r2:r3:_) = map ((*.*) 100) (v2:v3:v1:[])
-              (t1:t2:t3:_) = randomRs ( 15,20) $ _randGen w
-              (s1:s2:s3:_) = map (\s -> fromIntegral s * 0.1 - 1) (t3:t2:t1:[])
-              smokeGen v =  makeSmokeAt'' v1 s1 t1 
-                                (r1 +.+ oldPos +.+ ((_crRad cr + 3) *.* vInverse (unitVectorAtAngle $ _crDir cr)))
 
               crHasMoved = dist (_crPos cr) (_crOldPos cr) > 0.5
               takeStep x y | crHasMoved && x < 20 && x + y >= 20 = soundMultiFrom footor 22 3 0