# This prompts for a quick one letter response for invites to channels.
# Also waits until the input buffer is empty before giving the prompt.

# Source: Written by Wizzu <Mikko.Hanninen@hut.fi>
# Date: 28th Nov 1995
# Modified last: 15th Dec 1995


# Requires event handlers
load events.irc

# Prompt y/n (yes/no) for invites

on ^invite "*" {
  eval ^assign my_event \$assign_event\(invhandler joinchan $1 y)
  ^assign inv.$my_event $1
  if ([$delayiftyping($MY_EVENT)]) {
    echo ### $0 invites you to channel $1 (ctrl-o to join).
  } {
    echo ### $0 invites you to channel $1.
  }
}

alias invhandler {
  echo ??? invhandler
  eval ^assign invchan \$inv.$active_event
  input "Join channel $invchan (y/n)? " joinchan $invchan $$*
  ^assign -invchan
  ^assign -inv.$active_event
  #echo ??? Invhandler done.
}

alias joinchan {
  if ([$1]==[y]) {join $0}
  next_event
}