bumping into walls searches surroundings; close #32

src/Actions.hs

@@ -533,6 +533,9 @@ moveOrAttack allowAttacks autoOpen actor dir
             when (actor == pl) $
               messageAdd $ lookAt False True state lmap tloc ""
             advanceTime actor
+          else if actor == pl && not (openable 1 lmap tloc) then do
+            messageAdd "You search your surroundings."  -- TODO: proper msg
+            search
           else if autoOpen then
             -- try to open a door
             actorOpenClose actor False True dir

src/EffectAction.hs

@@ -134,6 +134,8 @@ itemEffectAction source target item = do
   -- The message describes the target part of the action.
   (b, msg) <- effectToAction effect source target (ipower item)
   -- Determine how the player perceives the event.
+  -- TODO: factor it out as a function messageActor
+  -- and messageActorVerb (incorporating subjectActorVerb).
   if mloc tm `S.member` ptvisible per
      then messageAdd msg
      else if not b