@verb #1314:"intro" this none this rxdo #1314
@program #1314:"intro" this none this
"Returns Eliza's opening statement."
if (player:isa($webber))
  if (player.user == $no_one)
    who = ""
  else
    who = player.user.name
  endif
else
  who = {}
  for x in (this.location.contents)
    if (x:isa($player) && x != this)
      who = {@who, x:isa($guest) ? "guest" | x.name}
    endif
  endfor
  who = $su:english_list(who, "")
endif
if (who)
  return "\"Hello " + who + ".  What's on your mind?"
else
  return "\"Hello.  What's on your mind?"
endif
"Last modified by Dax (#789) on Sat Nov  2 22:56:47 2002 MST."
.