18c
@verb #9239:"tell_contents" this none this rxdo #7788
@program #9239:"tell_contents" this none this
if (this.contents)
  thing = this.contents[1]
  name = thing:title()
  if (name[1] in {"a", "e", "i", "o", "u"})
    adj = "an"
  else
    adj = "a"
  endif
  player:sub_tell("%t is carrying %1 %2.", adj, name)
endif
"Last modified by Dax (#789) on Tue Jun  2 17:10:15 1998 EDT."
.

0