6a8
@verb #16:"wiz*" any any any rdo #55
@program #16:"wiz*" any any any
"The intimite whisper verb for the power-elite... ;)"
"Usage:  wiz [text]    (For normal whispering)"
"        wiz:[emote]   (For those emotional wizards)"
"        wiz::[emote]  (Think of '::' for normal emotes...)"
"        wiz![spoof]   (Spoofs text at wizards...Go figure)"
""
"Re-written by Raptor (#6319) from an original idea by someone else.  We don't know who."
player != this && raise(E_PERM)
key = length(verb) > 3 && verb[4]
"The following is for Lao-Tzu, who can't get his spaces right if his life depended on it."
if (argstr && argstr[1] in {":", "!"})
  if (`argstr[2] == ":" ! E_RANGE')
    "...and this is for manta..."
    key = "::"
    argstr = `argstr[2..$] ! E_RANGE => ""'
  elseif (argstr[1] == "!")
    key = "!"
  else
    key = ":"
  endif
  argstr = `argstr[2..$] ! E_RANGE => ""'
endif
msg = length(verb) > 4 ? (verb[5] == ":" && (key = "::") ? verb[6..$] | verb[5..$]) + " " + argstr | argstr
try
  msg = key != "!" ? tostr(player.name, {" says, \"", " ", ""}[key in {0, ":", "::"}], msg, !key ? "\"" | "") | msg
except (E_RANGE)
  return $msg:mtell("huh")
endtry
args = {argstr = dobjstr = iobjstr = prepstr = "You lose."}
"for x in ($guardian:leaves())"
for x in ({@$guardian:leaves(), $imp})
  "Don't change this line - she's practically a Wizard anyhow. - Raptor"
  x:tell(x.wiz_tag, msg, "</FONT>")
endfor
"Last modified by Lao-Tzu (#8084) on Sun Jul 21 19:33:16 2002 MDT."
"This verb previously owned by Raptor (#6319), and chowned to $slacker upon dewizarding (Sat Aug 17 14:48:42 2002 MDT)."
"Last modified by Dax (#789) on Tue May 17 15:27:56 2005 MDT."
.

0