Reorganise weapons, start work on drones

src/Dodge/WorldEvent/Shockwave.hs

@@ -14,6 +14,7 @@ import Picture
 import qualified Data.IntMap.Strict as IM
 import Control.Lens
 
+-- currently very effective against walls
 makeShockwaveAt 
     :: [Int]    -- ^ IDs of invulnerable creatures.
     -> Point2   -- ^ Center of shockwave.
@@ -63,7 +64,8 @@ mvShockwave is w pt
     t    = _btTimer' pt
     tFraction = fromIntegral t / fromIntegral (_btMaxTime' pt)
     rad = r - (3/4) * r * tFraction
-    doDams = over creatures (IM.map damCr) . flip (IM.foldl' (flip $ damageBlocksBy 1)) hitBlocks
+    doDams = over creatures (IM.map damCr) . flip (IM.foldl' (flip $ damageWall (Explosive 10000 p))) 
+        hitBlocks
     hitBlocks = wallsOnCirc p rad $ wallsNearPoint p w 
     damCr cr 
         | _crID cr `elem` is || dist (_crPos cr) p >= rad + _crRad cr  = cr