Unify and cleanup radars

2022-05-27 11:35:26 +01:00
parent 3234d6b86d
commit 60fc2d44e8
6 changed files with 88 additions and 78 deletions
@@ -46,7 +46,7 @@ autoEffect eff t sid itm cr w

 {- | Automatically send out radar pulses that detect walls.  -}
 autoRadarEffect :: Item -> Creature -> World -> World
-autoRadarEffect = autoEffect aRadarPulse 100 click1S
+autoRadarEffect = autoEffect aWallPulse 100 click1S
 {- | Automatically send out sonar pulses that detect creatures.  -}
 autoSonarEffect :: Item -> Creature -> World -> World
 autoSonarEffect = autoEffect aSonarPulse 50 click1S