:
: ban removers (C) 1993
: Written by Jeremy Nelson (jnelson@iastate.edu)
: This script requires ircII2.3.16+9 or better
:
alias deban_mode {
        fe ($*) bx by bz {
                @ moder = bz?[-bbb]:by?[-bb]:bx?[-b]:[]
                if (moder) {
                        mode * $moder $bx $by $bz
                }
        }
        ^on 367 -"% *"
        ^on 368 -"% *"
}
alias deban {
        uniban *
}
alias uniban {
        ^assign tounban $0
         @ channel = [$1]
         if (channel == []) {@ channel = [$C]}
        ^assign -banlist
        ^on ^367 "% *" {
                if ( (match($tounban $2)) || (rmatch($tounban $2)) || \
                        (match($2 $tounban)) || (rmatch($2 $tounban)) )
                           {push banlist $2}
        }
        ^on ^368 "% *" eval deban_mode $$banlist
        ^mode $channel +b
         wait
}
alias unban uniban $0!$uh($0)

