# $Id: badident.tcl, eggdrop-1.6.x 2004/5 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
 Exp $
# Begin - Unacceptable User Ident, Bad Ident Kicker Script v1.65.b
# Script Version: 1.65.b
# Built Date: January 2004, Last Updated: 31st May 2004
# Copyright © 1999-2004 awyeah (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)
# TCL script was designed to use with eggdrop v1.5.x or higher
#########################################################################
#             Bad Ident Kicker Script v1.65.b               #
#                                # 
#                                  #
# Author: awyeah                     31st May 2004 #
# Email: 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
             Build version 1.65.b #
# Copyright © 2004 awyeah All Rights Reserved  
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
style="color: #0000BB">set badidentchans "#mychannel"
#Set the *bad words* for the script to react on. 
#When users join a channel this script is activated 
#and their idents match this current world list, 
#they will be kicked/banned. (wildcards "*" are accepted)
#(Set/edit these words according to your needs)
#(I have already added some as examples)
set badidents {
"asshole"
"bitch"
"slut"
"cock"
"cunt"
"nigger"
"dickhead"
"hot*guy"
"faggot"
"prostitute"
"whore"
"lesbian"
"naked"
"xxx"
"horny"
"orgasm"
"bastard"
"hooker"
"rapist"
"orgy"
"penis"
"vagina"
"clit"
"cyber***"
"lesbian"
"prick"
"masturbate"
"masturbation"
"jackoff"
"blowjob"
"bigcock"
"bigdick"
"wetpussy"
"blow*job"
"superbitch"
"fuckwit"
"dumbfuck"
"fucknut"
"bi***ual"
"tran***ual"
"transvestite"
"homo***ual"
"lesbi"
"testicle"
"***ual"
"asswipe"
"jackass"
"dumbass"
"intercourse"
"clitoris"
"incest"
"nigga"
"nigger"
"molest"
"breast"
"boobs"
"fuck"
"fuckers"
"fucking"
"***ual"
"*****"
"condom"
"erect"
"erection"
"phuck"
"masturbating"
"motherfucker"
"oral***"
"anal***"
"wtf"
"orgy"
"stfu"
}

#Set the flags for bot owners, masters, ops
#and users which to exempt from the script.
#(Usage: m, n, o, or "mnf", "fbo" etc)
set badidentexempt "mnof|mnof"
#For how long you wish (in minutes) to ban the 
#user with the bad ident. (mins)
set badidbantime 30

###############################################################################
### Don't edit anything else from this point onwards, even if you know tcl! ###
###############################################################################
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] {
     set badidentban1 "*!*$badident*@*"
     set badidentban2 "*!*@[lindex [split $host @] 1]"
     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])} {
   putquick "MODE $chan -o+bb $nick $badidentban1 $badidentban2"
        putquick "KICK $chan $nick :0,1 Bad User Ident Kick 2,0 - Unacceptable *User Ident* 12detected. Please change your 2'IDENT' 12to a suitable one and then 2rejoin back."
        timer $badidbantime "pushmode $chan -b $badidentban2"
        return 0
        }
      }
    }
  }
}
# (ain't i an asskicker?...)

putlog "Bad Ident Kicker Script v1.65.ab by \002awyeah (
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
)\002 -=Loaded=-"
putlog "*ENABLED* Bad Ident Kicker Script on:\002 $badidentchans"
return