[Correct script] help chanset

[MasT3r]

uitati ce am nevoie
acesta e codu

### Introduction
# Anti Bad-Nick Script
# SadSalman <-> salman.mehmood@gmail.com
# Version No: 0.2


### Features:
# * Sets a 2 Minute Channel ban on user who writes any of the
#   defined bad words
# * Doesn't ban users with +o OR +f flags
# * Logs ALL user/op messages containing the defined words
# * Strips Character Codes from Messages

### Set Bad Words that you want the Bot to Kick on
set badnicks { 
"sex"
"fuck"
"randi"
"s3x"
"hot"
"lund"
"asshole"
"bitch"
"slut"
"cock"
"cunt"
"nigger"
"dickhead"
"hot*guy"
"faggot"
"prostitute"
"whore"
"lesbian"
"naked"
"xxx"
"horny"
"orgasm"
"bastard"
"hooker"
"rapist"
"orgy"
"penis"
"vagina"
"clit"
"cybersex"
"lesbian"
"prick"
"masturbate"
"masturbation"
"jackoff"
"blowjob"
"bigcock"
"bigdick"
"wetpussy"
"blow*job"
"superbitch"
"fuckwit"
"dumbfuck"
"fucknut"
"bisexual"
"transexual"
"transvestite"
"homosexual"
"lesbi"
"testicle"
"sexual"
"asswipe"
"jackass"
"dumbass"
"intercourse"
"clitoris"
"incest"
"nigga"
"nigger"
"molest"
"breast"
"boobs"
"fuck"
"fuckers"
"fucking"
"sexual"
"porno"
"condom"
"erect"
"erection"
"phuck"
"masturbating"
"motherfucker"
"oralsex"
"analsex"
"****"
"****"
"mui*"
"invade*"
"clon*"
"*pul*"
"coaie*"
"coaie"
"*coaie"
"fut"
"muist*"
"muist"
"wtf"
"orgy"
"stfu"
"bitch"
"slut"
"biatch"
"my dick"
"my penis"
"my prick"
"slut"
"fucck"
"cunt"
"nigger"
"nigga"
"faggot"
"prostitute"
"whore"
"lesbian"
"horny"
"orgasm"
"asshole"
"ass hole"
"bastard"
"incest"
"orgy"
"penis"
"vagina"
"clit"
"cyber with"
"cybersex"
"cyber sex"
"jerk off"
"jerking off"
"bigcock"
"hardcock"
"bigdick"
"wetpussy"
"wet pussy"
"big cock"
"big dick"
"huge cock"
"huge dick"
"large cock"
"hard cock"
"large dick"
"wet pussy"
"fuk"
"fuck"
"fcuk"
"blowjob"
"blow job"
"blow*job"
"lick my pussy"
"my pussy"
"my dick"
"hot pussy"
"hard cock"
"long cock"
"my cock"
"hard dick"
"long dick"
"eat shit"
"gay person"
"ass wipe"
"asswipe"
"peice of shit"
"suck my dick"
"transvestite"
"homo sexual"
"homosexual"
"have intercourse"
"have * intercourse"
"boobs"
"cumfiesta"
"condom"
"erect"
"phuck"
"masturbat"
"kiss my ass"
"pimp"
"****"
"****"
"*****"
"*****"
"****"
"wtf"
"stfu"
}

### Set Your Ban Reason
set badnickreason "Bad Nick, Please change it and rejoin"

### Set Ban Time
set bnduration 24h

### Begin Script:
## (Don't change anything below here... Unless you know tcl)


## Binding all joins to our Process
bind join - * filter_bad_nicks
bind nick - * filter_bad_nicks_change

## Starting Process
proc filter_bad_nicks {nick uhost hand channel} {
 global badnicks badnickreason banmask botnick bnduration
  set handle [nick2hand $nick]
   set banmask "*$nick*!*@*" 
	foreach badnick [string tolower $badnicks] {     
	if {[string match *$badnick* [string tolower $nick]]}  {
       if {[matchattr $handle +f]} {
           putlog "-Anti Bad Nick Script- $nick ($handle) with +f joined $channel"
       } elseif {[matchattr $handle +o]} {
           putlog "-Anti Bad Nick Script- $nick ($handle) with +o flags joined $channel"
       } else {
           putlog "-Anti Bad Nick Script- KICKED $nick on $channel"
           putquick "KICK $channel $nick :$badnickreason"
           newchanban $channel $banmask $botnick $badnickreason $bnduration
       }
    }
  }
}

## Starting Process
proc filter_bad_nicks_change {nick uhost hand channel newnick} {
 global badnicks badnickreason banmask botnick
  set handle [nick2hand $newnick]
   set banmask "*$newnick*!*@*" 
   set duration 10m
	foreach badnick [string tolower $badnicks] {     
	if {[string match *$badnick* [string tolower $newnick]]}  {
       if {[matchattr $handle +f]} {
           putlog "-Anti Bad Nick Script- $nick ($handle) with +f changed nickname to $newnick on $channel"
       } elseif {[matchattr $handle +o]} {
           putlog "-Anti Bad Nick Script- $nick ($handle) with +o flags changed nickname to $newnick on $channel"
       } else {
           putlog "-Anti Bad Nick Script- KICKED $newnick on $channel"
           putquick "KICK $channel $newnick :$badnickreason"
           newchanban $channel $banmask $botnick $badnickreason 2m
       }
    }
  }
}


bind join - * filter_bad_nicks
bind nick - * filter_bad_nicks_change
putlog "SadSalman's Anti Bad Nick Script Loaded"

akm..cum fac sa nu mai dea ban decat dak e setat +badnick ( chanset +Badnick) ??
ca ,ii dau chanset +badnick si ii da ban..dar ii da ban si dak e -badnick ..ce sa-i fac ?? am pus in settings setudef flag badnick ,in local n 22 badnick ...stie careva ??

[arcade]

sub asta:

proc filter_bad_nicks {nick uhost hand channel} {
 global badnicks badnickreason banmask botnick bnduration

si sub asta:

proc filter_bad_nicks_change {nick uhost hand channel newnick} {
 global badnicks badnickreason banmask botnick

adaugi:

if {![channel get $channel badnick]} {return}