Simplify clouds

src/Dodge/Update.hs

@@ -577,7 +577,7 @@ updateTeslaArc w pt
             , randWallReflect ld' wl
             )
         | ArcStep lp' ld' _ <- last thearc = (lp', rp ld')
-    damthings (ArcStep _ _ crwl) = damageCrWlID (Electrical 50) crwl
+    damthings (ArcStep _ _ crwl) = damageCrWlID [Electrical 50] crwl
 
 randWallReflect :: RandomGen g => Float -> Wall -> State g Float
 randWallReflect a wl = randPeaked a1 outa a2
@@ -766,7 +766,8 @@ clClSpringVel a v b
   where
     pa = _clPos a
     pb = _clPos b
-    radDist = (_clRad a + _clRad b) / 2
+    radDist = 10
+    --radDist = (_clRad a + _clRad b) / 2
 
 simpleCrSprings :: World -> World
 simpleCrSprings w = IM.foldl' (flip crSpring) w $ w ^. cWorld . lWorld . creatures