@verb #8045:"notify" this none this rdo #8045
@program #8045:"notify" this none this
"Copied from MattC (#9466):notify May 25 00:02:18 1998"
"Copied from JS (#7214):notify May 22 19:31:04 1998"
"A less-laggy :notify() verb, bypassing Mr. Output."
"Written by MattC, Oblivion, Catspaw, and JS."
if (caller != this && !caller_perms():controls(this))
  raise(E_PERM)
endif
linelength = this.output_linelength
if (this.output_wrap)
  args[1] = $string_utils:wrap(args[1], linelength)
endif
$code_utils:semaphore_enter("notify")
for line in ({@args[1]})
  line = encode_binary(line)
  line = $msg:process_notify(line, this.output_accent_mode)
  set_connection_option(this, "binary", 1)
  notify(this, tostr(line, "~0D~0A"))
  set_connection_option(this, "binary", 0)
  $cmd_utils:suspend_if_needed()
endfor
$code_utils:semaphore_exit("notify")
"Last modified by Dax (#789) on Sun Aug 16 18:09:20 1998 EDT."
.