@verb #3309:"desc*ription" this none this rxdo #8438
@program #3309:"desc*ription" this none this
"Integrating description"
current = description = {pass(@args), ""}
sitdesc = {}
position = this:seated_where(player)
for x in [1..length(this:seatlist())]
  if (msg = this:seated_description(x, position))
    sitdesc = {@sitdesc, msg}
  endif
endfor
if (typeof(current) == $LIST && length(current) > 1)
  description = {@current[1..length(current) - 1], current[length(current)] + this.look_sep + $string_utils:from_list(sitdesc, this.look_sep)}
else
  description = typeof(current) == $LIST ? {tostr(current[1], this.look_sep, $string_utils:from_list(sitdesc, this.look_sep))} | {tostr(current, this.look_sep, $string_utils:from_list(sitdesc, this.look_sep))}
endif
return typeof(description) == $LIST && length(description) == 1 ? description[1] | $list_utils:flatten(description)
"Last modified by Dax (#789) on Tue May  3 13:55:55 2005 MDT."
.