Flash refactor

src/Dodge/Item/Weapon.hs

@@ -857,7 +857,7 @@ cloudPoisonDamage c w = w & creatures %~ flip (foldr (IM.adjust doDam)) damagedC
 aFlame :: Float -> Int -> World -> World
 aFlame a cid w
     = shakeCr cid 2
-          $ soundFrom Flame fireSound 2 500 
+--          $ soundFrom Flame fireSound 2 500 
           $ insertFlame $ resetAngle $ set randGen g $
             w
         where 
@@ -867,7 +867,6 @@ aFlame a cid w
             dir = _crDir cr + angle
             pos = _crPos cr +.+ ((_crRad cr + 2.9) *.* unitVectorAtAngle (_crDir cr))
             w1 = set randGen g w
-            i = newProjectileKey w1
             vel = (_crPos cr -.- _crOldPos cr) +.+ 4 *.* unitVectorAtAngle dir
             insertFlame = makeFlame pos vel (Just cid) -- . makeFlame pos2 vel (Just cid)
             resetAngle = set (creatures . ix cid . crInv . ix (_crInvSel cr) . wpFire)