@verb #833:"msg_carry_plur" this none this rxdo #833
@program #833:"msg_carry_plur" this none this
cols = 3
longear = gear = {}
width = player:linelength()
li_width = length($html_utils:detag(player.output_rendering_object:render("<LI>")))
for thing in (args[1])
  if (length($html_utils:detag(thing)) + 1 + li_width > width / cols)
    longear = {@longear, "<li>" + thing + "</li>"}
  else
    gear = {@gear, "<li>" + thing + "</li>"}
  endif
endfor
lines = {@$string_utils:columnize(gear, cols, width - cols * li_width), @longear}
lines[1] = "<ul>" + lines[1]
lines[$] = lines[$] + "</ul>"
return "%T~S is carrying:<br>" + $string_utils:from_list(lines, "<br>")
.