my badword tcl is missing :) help pls

[Antiphates]

this badword tcl is ban kicks good but i want to remove the bans with in time period how can i do this ? tnx ..

# Set this to the default password to assign to the added user
# record.
set bword "badword1"

##Ban time for second warning
set bantime 1

##Comment for ban
set Ban "kufur YASAK ! $bantime dakka banlandInIz ."

set flag1 Y
set flag2 E
set flag3 G
bind pub - "pricks" badword

proc badword {nick uhost hand chan rest} {
putlog "$nick $uhost $hand $chan $rest"
global botnick ban-time Ban bword
if {([ matchattr $hand f ])} {
putserv "PRIVMSG $chan :\001ACTION OVER Hears \002$nick\002 And SmiLes L:-)\001"
return 1
} elseif {([matchattr $hand G])} {
chattr $nick +dk
setuser $nick COMMENT "Perm banned for 4 bad word offenses"
putserv "PRIVMSG $chan :$nick You Are Not Welcomed Here Anymore..."
putserv "KICK $chan $nick :$Ban \[Perm\]"
return 1
} elseif {([matchattr $hand E])} {
chattr $nick +G-E
putserv "PRIVMSG $chan :$nick You Have Had Your Chances, Now You Are Out of Here. Strike! two Your --------=>>> Out."
set banlamer [maskhost [getchanhost $nick $chan]]
newban $banlamer Badword $Ban 1 none
setuser $nick COMMENT "3 Bad Word Offenses"
return 1
} elseif {([matchattr $hand Y])} {
chattr $nick +E-Y
putserv "PRIVMSG $chan :Has taken action on $nick for the 2nd Offense"
set banlamer [maskhost [getchanhost $nick $chan]]
newban $banlamer Badword $Ban 1 none
setuser $nick COMMENT "2 Bad Word Offenses"
return 1
}
adduser $nick [maskhost [getchanhost $nick $chan]]
putserv "KICK $chan $nick :git geL 1 topici oku $nick"
putserv "NOTICE $nick :If You Continue, You Will Be Banned The Second Time For 1 hour"
chattr $nick +Y
set banlamer [maskhost [getchanhost $nick $chan]]
newban $banlamer Badword $Ban 1 none
setuser $nick PASS $bword
setuser $nick COMMENT "1st Offense Badword"
return 0
}

[Sir_Fz]

This script is pretty much buggy and has some unused variables, I'd suggest you search for a different bad words kick script.

[awesomeawyeah]

A badword simple script can be summed up in just 5-6 lines.

Code: Select all

set badwords {
"*word1*"
"*word2*"
"word3*"
"*word4"
"*wor*d5*"
"*w??rd6*"
"sentence here*"
}

bind pubm - "*" pubm:badword

proc pubm:badword {nick uhost hand chan text} {
 global badwords
  if {[botisop $chan] && ![isbotnick $nick]} {
   foreach badword $badwords {
    if {[string match -nocase $badword $text]} {
      putquick "MODE $chan +b *!*@[lindex [split $uhost @] 1]"
      putquick "KICK $chan $nick :Badword *$badword* detected"
      }
    }
  }
}