@verb #490:"un*derline" any any any rxdo #55
@program #490:"un*derline" any any any
"un <text>"
""
"Works like 'say', but underlines the given text.  Great for emphasising things."
""
"Also works in Editors, or it can be called from a verb to return a string, if a second argument is given:"
"#4909:underline(\"Foo Bar Foo\", 1);  =>  \"Foo_Bar_Foo\""
text = ""
ret = length(args) > 1 && typeof(args[2]) == $INT && args[2]
args = ret ? $string_utils:explode(args[1]) | args
argstr = $string_utils:from_list(args, "_")
return ret ? argstr | player.location:say()
"This verb previously owned by Raptor (#6319), and chowned to $slacker upon dewizarding (Sat Aug 17 14:48:43 2002 MDT)."
"Last modified by Dax (#789) on Tue May  3 13:54:26 2005 MDT."
.