IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

Kod:
#--------------------------------------------------------------------------------------------------------------------#

#               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