#--------------------------------------------------------------------------------------------------------------------#
# 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
Konu SNOOPY tarafından (08 Haziran 2023 Saat 12:41 ) değiştirilmiştir.
Sebep: Kişinin kendi isteği üzerine