2c1
@verb #4909:"un*derline" any any any rxdo #6319
@program #4909:"un*derline" any any any
$perm_utils:is_called_from(player, "my_huh") || raise(E_PERM)
"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()
"Last modified by Dax (#789) on Tue May  3 13:54:28 2005 MDT."
.

0