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

tamamdır buldum yanki saolasın
Kod:
#--------------------------------------------------------------------------------------------------------------------#

#                                               BAD NICK SCRIPT BY RANA USMAN                                        #

#--------------------------------------------------------------------------------------------------------------------#
 

#Author : RANA USMAN

#Email : 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.


#URL : 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
1.2

#Catch me on UNDERNET @ #VASTEYE my nick is ^Rana^Usman

###################

# Version History #

###################

#The version before was not supporting Wildcards like ** ?? etc etc

#So now in this version you can use wild cards too
 

###########################

#- CONFIGURATION SECTION -#

###########################
 

########################################################################################

#- Enter the Bad nicks Below on which you want your bot to BAN  (Wild Cards Supported)-#

########################################################################################

set bnick {

  "*****" 

  "gay" 

  "lez_*" 

  "*s2ci*" 

  "aq" 

  "*sikici*" 

  "*sokucu*"

  "*yatak*"

  "*cm"

  "*msn*"

  "********"

  "*orosp*"

  "*vurucu*"   

  "sert*"  

  "*porn*" 

  "*
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
SET The channel on which you want this script to work                                ##

## Channels Separted by space...and if you want this script to work on all channels leave it as ""     ##

#########################################################################################################
 

set bchan ""
 

################

#- Set Reason -#

################
 

set kickreason "Bu Tur Nickler ile Global Kanallarimizda Bulunamazsiniz (BadNick)"
 
 

#--------------------------------------------------------------------------------------------------------------------#

#   SCRIPT STARTS FROM HERE...MAKE IT BETTER WITH YOUR SKILLS IF YOU CAN.I DONT RESTRICT YOU TO NOT TO TOUCH CODE!   #

#--------------------------------------------------------------------------------------------------------------------#
 
 

bind join - * join:RanaUsman

proc join:RanaUsman {nick uhost hand chan} {

global bnick bchan kickreason temp

if {(([lsearch -exact [string tolower $bchan] [string tolower $chan]] != -1)  || ($bchan == ""))} {

  set temp 0

    foreach i [string tolower $bnick] {

    if {[string match *$i* [string tolower $nick]]} {

    set temp 1

     }

     }

}

    if {!$temp} { return } {

putquick "MODE $chan +b $nick"

putquick "KICK $chan $nick :$kickreason"

 } 

}

putlog "=-\002 LOADED BAD NICK BY RANA USMAN (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
RANA USMAN