no warez script

[Angel]

i need a tcl script fpr my eggdrop that kicks and bans user that do !list or ciao etc warez command

and another script w/c is the same but rather sends a msg to ther service bot and do the kicking and banning...

thanks a lot

[Angel]

many views but noone helped

[willyw]

many views but noone helped

Myself - - I don't understand what it is that you are asking for.
The same may be true for others.
Perhaps if you re-worded it....

[Angel]

i mean a tcl script that the bot kicks and bans users who uses the warez cmd such as !list or ciao if the bot have @ status

[Anahel]

http://www.egghelp.org/tclhtml/3478-4-0-0-1-warez.htm

did you check this one?

[Angel]

yeah i did but i want it to kick and ban the user too

[tomekk]

download any other 'badword' script, add '!list' to the 'bad words' list and turn on bans for bad words

[blake]

i need a tcl script fpr my eggdrop that kicks and bans user that do !list or ciao etc warez command

and another script w/c is the same but rather sends a msg to ther service bot and do the kicking and banning...

thanks a lot

When you say service bot do you meen you want your eggdrop to set mode +b username then send a command to your service bot as in botserv to do the kick

[blake]

Code: Select all

####################################################################
#                                                                  #
# Based on BadWord.tcl by TheGhost and/or Rajeh Alharithi          #
#                                                                  #
# Stripped out most of the original, for basic kick on 'bad' words #
#                                                                  #
#                                                                  #
#                                        Cobratek                  #
####################################################################

## The bad word list
bind pubm - "!list" badword
bind pub - "!list" badword
bind pubm - "@find" badword
bind pub - "@find" badword
bind pubm - "ciao" badword
bind pub - "ciao" badword

## Main script

proc badword {nick uhost hand chan rest} {
  global botnick bword
    if {([ matchattr $hand f ])} {
      	putserv "PRIVMSG $chan : $nick  >:-| "

        return 1
	} else { 
        putserv "MODE $chan +b $nick"
        putserv "PRIVMSG CHANSERV KICK $chan $nick : Freekin Warez kiddie"
        return 0
	}
}
putlog "!list kicker v0.1 loaded"

Just added an extra line to theghosts script add extra words to this part

Code: Select all

## The bad word list
bind pubm - "!list" badword
bind pub - "!list" badword
bind pubm - "@find" badword
bind pub - "@find" badword
bind pubm - "ciao" badword
bind pub - "ciao" badword

[Angel]

thanks blake..working like a charm to get these italians outa my channel who used to use this warez cmds