### Introduction
# Anti Phone Numbers Script
# Inspired from Anti_Phone_Number.tcl by Rana Usman
# SadSalman <-> salman.mehmood@gmail.com


### Features:
# * Sets a 5 Minute Channel ban on user who writes any of the
# defined numbers
# * Doesn't ban users with +o OR +f flags
# * Logs ALL user/op messages containing the defined numbers

### Credits:
# Based on Anti_Phone_Number.tcl by Rana Usman
# ^Rana^Usman @ #VastEYE on Undernet


################################
### tigo de 75? al 77? ###
### entel 710? al 747? ###
### viva del 700? al 709? 794? ###
################################

### aqui coloca tu lista de numeros cel. o telefonos en cual dara kick el bot
set numbers {
"75?*"
"76?*"
"77?*"
"700?*"
"701?*"
"702?*"
"703?*"
"704?*"
"705?*"
"706?*"
"707?*"
"708?*"
"709?*"
"710?*"
"711?*"
"712?*"
"713?*"
"714?*"
"715?*"
"716?*"
"717?*"
"718?*"
"719?*"
"720?*"
"721?*"
"722?*"
"723?*"
"724?*"
"725?*"
"726?*"
"727?*"
"728?*"
"729?*"
"730?*"
"731?*"
"732?*"
"733?*"
"734?*"
"735?*"
"736?*"
"737?*"
"738?*"
"739?*"
"740?*"
"741?*"
"742?*"
"744?*"
"745?*"
"746?*"
"747?*"
"750?*"
"760?*"
"761?*"
"762?*"
"763?*"
"768?*"
"774?*"
"770?*"
"778?*"
"78?*"
"79?*"
"792?*"
"794?*"
"798*"
"798?*"
"*@aol.com"
"*@gmail.com"
"*@hotmail.com*"
"*@hotmail.?*"
"*@msn.com*"
"*@mywebs.biz"
"*@gmail.com*"
"*@gmail.?*"
"*@yahoo.com*"
"*@yahoo.?*"
"*@*.cc*"
"*@googlemail.com*"
"*@bellsouth.com*"
"*@entelnet*"
"*@.com.bo*"
"*@.bo*"
}

### aqui tu mensaje con el cual pateara tu bot
set reason "Señores los numeros telefonicos y los emails no estan permitidos en este canal!!!"

### Begin Script:
## (Don't change anything below here... Unless you know tcl)


## Binding all Public Messages to our Process

bind pubm - * fone

set usuarios_protegidos {
"hazrael"
"Cacao7w7"
"MorsBots"
"septimus"
"Izis"
"A-N-I-M-A-L"
"Kantuta"
"Kondor"
"Arnold_X-P"
"boquita_dulce"
"^aDNaRa^"
"Victoria`"
"MonDonGo"
"BOLIVIAN0"
"Giosa"
"CyberLeo"
"JulieTh"
"Ju|issa"
}

# canales donde estara ctiva la tcl ejemplo #micanal1 #micanal2 #micanal3 - si quieres que sea global dejalo asi "*"
set phone_chans "*"

proc fone {nick uhost handle channel args} {
global numbers reason banmask botnick phone_chans usuarios_protegidos
if {![string match *$nick* $usuarios_protegidos]} {
if {(([lsearch -exact [string tolower $phone_chans] [string tolower $channel]] != -1) || ($phone_chans == "*")) && (![matchattr $hand b]) && ($nick != $botnick)} {
set handle [nick2hand $nick]
set banmask "*![lindex [split $uhost @] 0]@[lindex [split $uhost @] 1]"
set duration 5m
for { set number 0 } { $number < [llength $numbers] } { incr number } {
if { [string match *[lindex $numbers $number]* *$args* ] } {
if {[matchattr $handle +f]} {
putlog "-Anti Phone Script- $nick ($handle) with +f flags said $args on $channel"
} elseif {[matchattr $handle +o]} {
putlog "-Anti Phone Script- $nick ($handle) with +o flags said $args on $channel"
} else {
putlog "-Anti Telefonos emails- Patea a \2$nick\2 en \2$channel\2"
putquick "KICK $channel $nick :$reason"
newchanban $channel $banmask $botnick $reason 5m
putserv "PRIVMSG $channel :Señores los numeros telefonicos y los emails no estan permitidos en este canal!!!"
}
}
}
}
}
}

putlog "SadSalman's Anti numeros telefonicos y e-mails