This is the new home of the egghelp.org community forum.
All data has been migrated (including user logins/passwords) to a new phpBB version.

For more information, see this announcement post. Click the X in the top right-corner of this box to dismiss this message.

Bad Word script kicks OP's

Old posts that have not been replied to for several years.
Locked
User avatar
FakeZ
Voice
Posts: 19
Joined: Tue Oct 28, 2003 2:25 pm

Bad Word script kicks OP's

Post by FakeZ »

Hi all,

first of all ... Happy new year ! :mrgreen:

I got a problem with this script from The Ghost

http://www.egghelp.org/cgi-bin/tcl_arch ... load&id=29
It kickes Ops an it does a global Ban. Is it possible to fix that ? Or is there a other/betther script avaiable ?

Thax for your support !

FakeZ
Top
User avatar
GodOfSuicide
Master
Posts: 463
Joined: Mon Jun 17, 2002 8:00 pm
Location: Austria

Post by GodOfSuicide »

just add a "if {[isop $nick $chan]} { return 0 }" in the proc and you're done
Top
User avatar
FakeZ
Voice
Posts: 19
Joined: Tue Oct 28, 2003 2:25 pm

Post by FakeZ »

Ok i will test this ... is it also possible to restrict this script to just one channel ?
Top
User avatar
GodOfSuicide
Master
Posts: 463
Joined: Mon Jun 17, 2002 8:00 pm
Location: Austria

Post by GodOfSuicide »

everything is possible, you just have to get the logic behind ever language
Top
User avatar
caesar
Mint Rubber
Posts: 3778
Joined: Sun Oct 14, 2001 8:00 pm
Location: Mint Factory

Post by caesar »

something like:

Code: Select all

setudef flag myflag

if {![channel get $chan myflag]} {
# whatever you want to do with the channels that don't have the required flag.
}
By default all channels are set to -myflag so, to enable or disable this on them use the .chanset #channel +/- myflag Replace myflag with something that suits your needs and do put the "setudef flag myflag" outside the proc.
Once the game is over, the king and the pawn go back in the same box.
Top
User avatar
FakeZ
Voice
Posts: 19
Joined: Tue Oct 28, 2003 2:25 pm

Post by FakeZ »

The "dont kick OPs" thing works.... but not the chan limitation

can you plese help me

Code: Select all

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

##Ban time for second warning
set ban-time 10

##Comment for ban
set Ban "For abusive language"

set flag1 Y
set flag2 E
set flag3 G

###The bad words add and remove as you please

 bind pubm - "*!list*" badword
 bind pubm - "*!find*" badword
 bind pubm - "*@find*" badword
 bind pubm - "*@search*" badword
 bind pubm - "*!ctcp*" badword
 bind pubm - "*!dcc*" badword

### Channel ###

setudef flag badword 

 

proc badword {nick uhost hand chan rest} {
if {![channel get $chan badword]} { 
# whatever you want to do with the channels that don't have the required flag. 
} 
if {[isop $nick $chan]} { return 0 }
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 120 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 10 none
          setuser $nick COMMENT "2 Bad Word Offenses"
          return 1
	} 
          adduser $nick [maskhost [getchanhost $nick $chan]]
          putserv "PRIVMSG $chan :\001ACTION Detected A Banned Word by $nick\001"
          putserv "PRIVMSG $nick :\001ACTION Hey, $nick, Profanity IS BAD,I Will Not allow Such A Thing In This Channel!!!\001"
          putserv "PRIVMSG $chan :\001ACTION Bad Language Is Not Fun, $nick Should never have said that...\001"
          putserv "KICK $chan $nick :Get The out of here with that kind of talk"
          putserv "NOTICE $nick :Please DON'T use that language in $chan"
          putserv "NOTICE $nick :\001ACTION Is Frowning At $nick This is your \[1st Warning\]\001"
          putserv "NOTICE $nick :If You Continue, You Will Be Banned The Second Time For 1 hour"
          chattr $nick +Y
          setuser $nick PASS $bword 
          setuser $nick COMMENT "1st Offense Badword"
          return 0
	 }

putlog "\[Word|KiCk\] v3.0 By \002TheGhost\002 is Loaded"
Top
User avatar
caesar
Mint Rubber
Posts: 3778
Joined: Sun Oct 14, 2001 8:00 pm
Location: Mint Factory

Post by caesar »

Replace the "# whatever you want to do with the channels that don't have the required flag.
" with "return" :mrgreen: duh!
Once the game is over, the king and the pawn go back in the same box.
Top
User avatar
FakeZ
Voice
Posts: 19
Joined: Tue Oct 28, 2003 2:25 pm

Post by FakeZ »

Thanx for the "kick" :D

now it works like it should !

Code: Select all

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

##Ban time for second warning 
set ban-time 10 

##Comment for ban 
set Ban "For abusive language" 

set flag1 Y 
set flag2 E 
set flag3 G 

###The bad words add and remove as you please 

 bind pubm - "*!list*" badword 
 bind pubm - "*!find*" badword 
 bind pubm - "*@find*" badword 
 bind pubm - "*@search*" badword 
 bind pubm - "*!ctcp*" badword 
 bind pubm - "*!dcc*" badword 

### Channel Flag ### 

setudef flag badword 

  

proc badword {nick uhost hand chan rest} { 
if {![channel get $chan badword]} { return } 
if {[isop $nick $chan]} { return 0 } 
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 120 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 10 none 
          setuser $nick COMMENT "2 Bad Word Offenses" 
          return 1 
   } 
          adduser $nick [maskhost [getchanhost $nick $chan]] 
          putserv "PRIVMSG $chan :\001ACTION Detected A Banned Word by $nick\001" 
          putserv "PRIVMSG $nick :\001ACTION Hey, $nick, Profanity IS BAD,I Will Not allow Such A Thing In This Channel!!!\001" 
          putserv "PRIVMSG $chan :\001ACTION Bad Language Is Not Fun, $nick Should never have said that...\001" 
          putserv "KICK $chan $nick :Get The out of here with that kind of talk" 
          putserv "NOTICE $nick :Please DON'T use that language in $chan" 
          putserv "NOTICE $nick :\001ACTION Is Frowning At $nick This is your \[1st Warning\]\001" 
          putserv "NOTICE $nick :If You Continue, You Will Be Banned The Second Time For 1 hour" 
          chattr $nick +Y 
          setuser $nick PASS $bword 
          setuser $nick COMMENT "1st Offense Badword" 
          return 0 
    } 

putlog "\[Word|KiCk\] v3.0 By \002TheGhost\002 is Loaded"
Top
Locked

Return to “Archive”