#--------------------------------------------------------------------------------------------------------------------#
#               ANTI PHONE NUMBER SCRIPT BY RANA USMAN (BUG FIXED UPDATE) WILD CARDS SUPPORTED NOW                   #
#--------------------------------------------------------------------------------------------------------------------#
#Author : Rana Usman
#Email : coolguy_rusman@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].com
#URL : [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] n [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]
#Version : 1.3

#---------------------------------------------#
#---------------PLEASE READ BELOW-------------#
#---------------------------------------------#

#CASE SENSITIVE READ BELOW ON ANY COST#

#CONFIGURATION STARTS FROM HERE#

#STEP 1

#Here are the codes below.Right now the codes are of couriers
#of world are placed but you can easily change them and can 
#Easily write code of your courier in this way  
#EXAMPLE :
#set fones { 
#    "code1" 
#    "code2" 
#    "code3" 
#    "code4" 
#    "code5" 
#    }         :::: REMEMBER :::: all the Codes must be in numbers like 0300 0320 etc etc

set fones { 
"*0541*" 
"*0542*" 
"*0543*" 
"*0536*" 
"*0537*" 
"*0538*" 
"*0535*"
}


#STEP 2

#Set the reason below to give while gzline User

set reason " {Anti Phone Number} Sistem KorumaSi"

#------------------------------------------------------------------------------------------------------------------------#
#------------Configuration Ends Here and TCL Coding starts.Make this Script better with your skills if you can-----------#
#------------------------------------------------------------------------------------------------------------------------#

bind pubm - * fone
proc fone {nick uhost hand channel arg} {
global fones reason banmask
set banmask "*!*@[lindex [split $uhost @] 1]" 
set usman [fone:filter $arg]
set arg [fone:filter $arg]
foreach advword $fones {
  if {[string match -nocase $advword $usman]} {
      putquick "MODE $channel +b $banmask"
    putquick "gzline $channel $nick :$reason"
      putlog "$nick Sunucudan uzaklaştırıldınız $chan Numara paylaşımı yasaklanmıştır"
   }
  }
 }
proc fone:filter {str} {
  regsub -all -- {\003([0-9]{1,2}(,[0-9]{1,2})?)?|\017|\037|\002|\026|\006|\007} $str "" str
  return $str
}

bind pubm - * fone
#------------------------------------------------------------#
putlog "\002*Anti Phone Number* Script Loaded by *Rana Usman*"
#------------------------------------------------------------#


#Ever Seen such simplest script in your life
#Author : Rana Usman