Improve pulse laser/ball hit detection

src/Dodge/Update.hs

@@ -342,6 +342,7 @@ functionalUpdate =
 pushYouOutFromWalls :: World -> World
 pushYouOutFromWalls w = w & cWorld . lWorld . creatures . ix 0 %~ muzzleWallCheck w
 
+-- rotate creature as well? behaviour on ledges?
 muzzleWallCheck :: World -> Creature -> Creature
 muzzleWallCheck w cr = fromMaybe cr $ do
     invid <- cr ^? crManipulation . manObject . imRootSelectedItem . unNInt
@@ -540,7 +541,7 @@ updatePulseBall pb w
     thedam = Lasering 100 ep (pb ^. pzbVel)
     sp = pb ^. pzbPos
     ep = sp + pb ^. pzbVel
-    thit = thingHit sp ep w
+    thit = listToMaybe $ thingsHitZ 20 sp ep w
 
 pbFlicker :: PulseBall -> World -> World
 pbFlicker pt =