/*
 * ban removers, 1993
 * This script requires ircII-EPIC.
 */

alias deban_mode {
        fe ($*) bx by bz {
                @ moder = bz?[-bbb]:by?[-bb]:bx?[-b]:[]
                if (moder) {
                        mode * $moder $bx $by $bz
                }
        }
}
alias deban {
        uniban *
}
alias uniban {
	@ channel = [$1]?[$1]:C
        ^assign -banlist
        ^on ^367 "% % *" { if (comatch($0 $2)) {@ banlist #= [ $2] } }
        ^on ^368 "% *" eval deban_mode $$banlist
        ^mode $channel +b
        wait
	^on 367 -"% % *"
	^on 368 -"% *"
}

alias unban uniban $0!$uh($0)
alias comatch @ function_return = (rmatch($0 $1) || rmatch($1 $0))

alias nban {
	^assign -banlist
        eval ^on ^367 "% *" if \(rmatch\($$2 *$0*\)\) {
				    @ banlist #= [ $$2]
                               }
        ^mode $C +b
        wait
	^on 367 -"% *"
	deban_mode $banlist
}

#hop'93
