@verb #3797:"process_audio_closereq" this none this rxdo #833
@program #3797:"process_audio_closereq" this none this
$perm_utils:can_hack() || raise(E_PERM)
{comm, text, speech, chans} = args
"Check for attempts to disconnect using vocal commands."
if (m = match(speech, "^%(.*[^ ]%) +out[.!]*$"))
  name = $max_utils:matchlist(m)[1]
  if (m = match(name, "^%(.*%) +over +and$"))
    name = $max_utils:matchlist(m)[1]
  endif
  "Check to make sure that player X says 'X out', not 'Y out'!"
  if (comm:who(name) == comm:user())
    "Close connection."
    $list_utils:map_arg(this, "chan_part", chans, comm)
    return 1
  endif
endif
return 0
.