Help : Need Devoice on saying bad Word TCL script

**Riffie** · Wed May 09, 2012 8:09 am

Hello guys..

I've sitten my channel on +moderated mode, all guys joining in, getting an auto voice..

i need now a TCL script that will devoice a nick while saying bad words, instead of kicking.

and re-voice that nick after a selected time..

Does any one have this script?

thank u all.

**Get_A_Fix** · Sat May 19, 2012 1:17 am

I have a script for no.swear, that can be found here - http://www.hawkee.com/snippet/3853/

Now, what I have done is simply edited it, to do what you wanted it to do, devoice the user and then revoice them after a certain time period. I have allowed you to set that timeframe, along with trigger, accessflags, words, etc.

		Code 			
<br />
# NoSwear Module
<br />

<br />
# Default trigger set to "!"
<br />

<br />
# SYNTAX:
<br />
# -------
<br />

<br />
# PUBLIC: !noswear on
<br />
# PUBLIC: !noswear off
<br />

<br />
# MSG: /msg yourbot noswear #channelname on
<br />
# MSG: /msg yourbot noswear #channelname off
<br />

<br />
# NOTE: Currently set to Global OP (o) and above, Channel Master (m) and above. 
<br />
# --------------------------------------------------------------------------
<br />

<br />
# Set global trigger here
<br />
set trigger "!"
<br />

<br />
# Set access flags for command here (example: o|m <- globalop|channelmaster)
<br />
set accessflags "o|m"
<br />

<br />
# Set how long to leave devoiced (set in minutes)
<br />
set devoicetime "5"
<br />

<br />
# Set your swearword pattern below
<br />
set swearwords {
<br />
  "*fark*"
<br />
  "*@#$*"
<br />
  "*shoot*"
<br />
}
<br />

<br />
# -----DONT EDIT BELOW-----
<br />
bind pub - ${trigger}noswear noswear:pub
<br />
bind msg - noswear noswear:msg
<br />
bind pubm - * noswear:text
<br />
bind ctcp - ACTION noswear:act
<br />

<br />
setudef flag noswear
<br />

<br />
proc getTrigger {} {
<br />
  global trigger
<br />
  return $trigger
<br />
}
<br />

<br />
proc noswear:pub {nick uhost hand chan text} {
<br />
  global accessflags
<br />
  if {![matchattr [nick2hand $nick] $accessflags $chan]} {return}
<br />
  if {[lindex [split $text] 0] == ""} {putquick "PRIVMSG $chan :ERROR: Incorrect Parameters. SYNTAX: [getTrigger]noswear on/off"; return}
<br />
 
<br />
  if {[lindex [split $text] 0] == "on"} {
<br />
    if {[channel get $chan noswear]} {putquick "PRIVMSG $chan :ERROR: This setting is already enabled."; return}
<br />
    channel set $chan +noswear
<br />
    puthelp "PRIVMSG $chan :Enabled Swearing Protection for $chan"
<br />
  }
<br />
 
<br />
  if {[lindex [split $text] 0] == "off"} {
<br />
    if {![channel get $chan noswear]} {putquick "PRIVMSG $chan :ERROR: This setting is already disabled."; return}
<br />
    channel set $chan -noswear
<br />
    puthelp "PRIVMSG $chan :Disabled Swearing Protection for $chan"
<br />
  }
<br />
}
<br />
 
<br />
proc noswear:msg {nick uhost hand arg} {
<br />
  global botnick accessflags
<br />
  set chan [strlwr [lindex $arg 0]]
<br />
  if {![matchattr [nick2hand $nick] $accessflags $chan]} {return}
<br />
  if {![string match "*#*" $arg]} {return}
<br />
  if {[lindex [split $arg] 0] == ""} {putquick "NOTICE $nick :\037ERROR\037: Incorrect Parameters. \037SYNTAX\037: /msg $botnick noswear #channel on/off"; return}
<br />
  if {[lindex [split $arg] 1] == ""} {putquick "NOTICE $nick :\037ERROR\037: Incorrect Parameters. \037SYNTAX\037: /msg $botnick noswear $chan on/off"; return}
<br />
 
<br />
  if {[lindex [split $arg] 1] == "on"} {
<br />
    if {[channel get $chan noswear]} {putquick "NOTICE $nick :\037ERROR\037: This setting is already enabled."; return}
<br />
    channel set $chan +noswear
<br />
    putquick "NOTICE $nick :Enabled Swearing Protection for $chan"
<br />
  }
<br />
 
<br />
  if {[lindex [split $arg] 1] == "off"} {
<br />
    if {![channel get $chan noswear]} {putquick "NOTICE $nick :\037ERROR\037: This setting is already disabled."; return}
<br />
    channel set $chan -noswear
<br />
    putquick "NOTICE $nick :Disabled Swearing Protection for $chan"
<br />
  }
<br />
}
<br />
 
<br />
proc noswear:text {nick uhost hand chan arg} {
<br />
  global botnick swearwords devoicetime
<br />
  if {[channel get $chan noswear]} {
<br />
    foreach pattern $swearwords {
<br />
      if {[string match -nocase $pattern $arg]} {
<br />
        if {![validuser $hand] && ![isop $nick $chan]} {
<br />
          set mask *!*@[lindex [split [getchanhost $nick $chan] @] 1]
<br />
          putquick "mode $chan -v $nick"
<br />
          newignore $mask $botnick "Swear Devoice Ignore" 0
<br />
          timer $devoicetime [list putquick "mode $chan +v $nick"]
<br />
          timer $devoicetime [list killignore $mask]
<br />
        }
<br />
      }
<br />
    }
<br />
  }
<br />
}
<br />
 
<br />
proc noswear:act {nick uhost hand dest key text} {
<br />
  global botnick swearwords devoicetime
<br />
  if {![string match "*#*" $dest]} {return}
<br />
  set chan $dest
<br />
  if {[channel get $chan noswear]} {
<br />
    foreach pattern $swearwords {
<br />
      if {[string match -nocase $pattern $text]} {
<br />
        if {[botisop $chan] && ![isbotnick $nick]} {
<br />
          if {[onchan $nick $chan] && ![validuser $hand] && ![isop $nick $chan]} {
<br />
            set mask *!*@[lindex [split [getchanhost $nick $chan] @] 1]
<br />
            putquick "mode $chan -v $nick"
<br />
            newignore $mask $botnick "Swear Devoice Ignore" 0
<br />
            timer $devoicetime [list putquick "mode $chan +v $nick"]
<br />
            timer $devoicetime [list killignore $mask]
<br />
          }
<br />
        }
<br />
      }
<br />
    }
<br />
  }
<br />
}
<br />
 
<br />
putlog "Loaded: NoSwear Module."
<br />
	

Good luck.

**Riffie** · Sat May 19, 2012 7:57 am

thank u very much

i'll try t so Smile

thanks again my brother

**Riffie** · Fri Aug 10, 2012 4:12 am

i have a problem with this script

when it devoice someone, he can get that voice back with rejoining the channel..

isn't there any other script that will take the voice away and won't get t back ever when he rejoin the channel ?

thanks..

**Get_A_Fix** · Tue Nov 13, 2012 10:22 am

Riffie wrote

i have a problem with this script

when it devoice someone, he can get that voice back with rejoining the channel..

isn't there any other script that will take the voice away and won't get t back ever when he rejoin the channel ?

thanks..

I have now added an ignore system to the code, this should ignore any user who trigger's it, therefore not re-voicing them should they rejoin the channel. I hope this helps.

	Hawkee.com Forum Index -> TCL Scripting	All times are GMT - 7 Hours
Page 1 of 1