Add bullet damages field, move bullet data into own file

src/Dodge/Wall/DamageEffect.hs

@@ -7,11 +7,8 @@ import Dodge.Block
 import Geometry
 import LensHelp
 
-import Control.Monad.State
---import Data.Maybe
-
 defaultWallDamage :: Damage -> Wall -> World -> (World,Int)
-defaultWallDamage dm wl = flip (.) (wallDamageEffect dm wl) $ case _wlMaterial wl of
+defaultWallDamage dm wl = case _wlMaterial wl of
     Stone   -> stoneWallDamage dm wl
     Glass   -> windowWallDamage dm wl
     Dirt    -> dirtWallDamage dm wl
@@ -128,11 +125,3 @@ dirtWallDamage dm wl = case _dmType dm of
     sp = _dmFrom dm
     p = _dmAt dm
     outTo = p +.+ squashNormalizeV (sp -.- p)
-
-wallDamageEffect :: Damage -> Wall -> World -> World
-wallDamageEffect dm wl w = case _dmEffect dm of
-    DamageSpawn f -> w & instantParticles .:~ thepart
-        & randGen .~ g
-      where
-        (thepart,g) = runState (f (Right wl) dm) $ _randGen w
-    _ -> w