@verb #649:"send_message_to" this none this rxdo #833
@program #649:"send_message_to" this none this
player = this
whither = args[1]
what = args[2]
whence = this.location
if (valid(whence:match(whither)))
  this:say(what)
  if (!this:wait_for_response())
    this:narrate(" gets annoyed.")
  endif
  return
endif
panel = whence:match("a com panel")
if (!valid(panel))
  this:narrate(" looks for a com panel, but can't find one here...")
  return 0
endif
while (valid(panel.talk_to))
  this:narrate(" hits the com panel.")
  panel:kick_reaction()
  suspend(2)
endwhile
panel:touch()
this:say(whence:title(), " to ", whither)
if (!this:wait_for_response())
  this:narrate(" gets annoyed, and kicks the com panel.")
  panel:kick_reaction()
  return 0
endif
this:say(what)
if (!this:wait_for_response())
  this:narrate(" gets annoyed, and kicks the com panel.")
  panel:kick_reaction()
  return 0
endif
return 1
.