Untitled

### BINDS ###

bind join -|- "#Flamengo *" join:World

### CONF ###

set badtags {
        "VASCO"
        "FOGO"
        "FLU"
        "SCCP"
        "SPFC"
        "SEP"
}

set bans {
        "masterkill"
        "lavemochaves"
        "top_diegui"
}

set reason "Voce não é bem vindo aqui!"

### PROCS ###

proc join:World {n u h c} {
        global reason bans
        foreach nick $bans {
                if {$nick == $n} {
                        putquick "MODE $c +b *![getchanhost $n $c]"
                        putquick "KICK $c $n :$reason"
                        newchanban $c "*![getchanhost $n $c]" $h "$reason"

                }
        }
        foreach tag $badtags {
                if {[regexp -inline -- {[A-Za-z]+} $nick] == $tag} {
                        putquick "MODE $c +b *![getchanhost $n $c]"
                        putquick "KICK $c $n :$reason"
                        newchanban $c "*![getchanhost $n $c]" $h "$reason"
                }
        }
}