@verb #1011:"big-s*ign bigs*ign" any any any rxdo #7153
@program #1011:"big-s*ign bigs*ign" any any any
"Usage: big-sign <text>"
"       bigs <text>"
"       Holds up a big sign that has <text> written on it. Hacked from Xythian's thin-big, which I believe he stole from someone else. ;)"
this:update_usage(verb)
lines = $su:wrap(argstr, 75 - length(player:title() + " holds up a BIG sign : | " + " )"))
length = 0
for line in (lines)
  length = max(length, length(line))
endfor
space = $string_utils:space(length(player:title()) + 15)
bound = $string_utils:space(length + 1, "_")
player.location:announce_all(space, "        ", bound)
player.location:announce_all(space, "       |", $string_utils:space(length), "  |")
for line in (lines)
  player.location:announce_all(player:title(), " holds up a BIG sign: | ", $string_utils:center(line, length), " |")
endfor
player.location:announce_all(space, "       |", bound, "|")
"Last modified by Absolute (#7153) on Fri Dec  8 16:44:29 2000 MST."
.