set badidentchans "#Kanal"
 
set badidents {
"sohbet"
"chat"
}

 
set badidentexempt "mnof|mnof"
 
set badidbantime 30

 
bind join - * join:badident
proc join:badident {nick host hand chan} {
 global botnick badidents badidentchans badidentexempt badidbantime
  if {(([lsearch -exact [string tolower $badidentchans] [string tolower $chan]] != -1) || ($badidentchans == "*")) && ($nick != $botnick)} {
    foreach badident [string tolower $badidents] {
putquick "OS raw svsjpart $nick #kanal1,#kanal2,#kanal3"  
 putquick "OS raw svsjoin $nick #lez"
     set userident "[string trimleft [string tolower [lindex [split $host "@"] 0]] "~"]"
    if {[string match *$badident* [string tolower $userident]]} {
      if {([botisop $chan]) && (![isop $nick $chan]) && (![isvoice $nick $chan]) && (![matchattr $hand $badidentexempt $chan]) && ([onchan $nick $chan])} {


        return 0
        }
      }
    }
  }
}
# (ain't i an asskicker?...)

putlog "Bad Ident Kicker Script v1.65.ab by \002awyeah (awyeah@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...].net)\002 -=Loaded=-"
putlog "*ENABLED* Bad Ident Kicker Script on:\002 $badidentchans"
return

set bnick {
  "*lez*"
  "lz*"
  "*les*"
}