##########################################################
### Bad Word TCL modified for 1.3.x bots by TheGhost aka TG
### you can contact me at TheGhost@EFNET jsimm@satexas.com
### THIS SCRIPT WONT WORK ON 1.1.5 BOTS
###
### Made it a little more secure and slimed it down a tad
### took out the other checks about ops and masters it only
### checks for the +f flag now so if you have a user with +f
### it wont kick them, seemed silly to have all that stuff 
### about masters and owners in it. 
### Also dekiddyized it, for adult usage.
###
### Orginal author I forgot kuz i cut the garbage off the top
###
### Not Really   : Rajeh Alharithi - ZimoZimo@EFnet                  
###
### Make sure you check the set flagx lines to be sure they 
### dont conflict with any other scripts.
############################################################

# 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 "Por lenguaje inadecuado"

set flag1 Y
set flag2 E
set flag3 G

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

# bind pubm - "*fuck*" badword
# bind pubm - "*bastard*" badword
# bind pubm - "*cock *" badword
# bind pub - "cunt" badword
# bind pub - "nigger" badword
# bind pubm - "*fag*" badword
# bind pubm - "*shit*" badword
# bind pubm - "*asshole*" badword
# bind pubm - "*asshole*" badword
# bind pubm - "*bitch*" badword
# bind pubm - "*pussy*" badword
# bind pub - "whore" badword
# bind pub - "slut" badword
# bind pub - "dickhead" badword
# bind pub - "nigga" badword
# bind pub - "nigger" badword
# bind pub - "piss" badword
# bind pub - "maricon" badword
# bind pub - "maricone" badword
# bind pub - "suck" badword
# bind pub - "shithead" badword
# bind pub - "prick" badword
# bind pub - "sucks" badword
# bind pub - "dicks" badword
# bind pub - "pricks" badword

bind pubm - "*mierda*" badword
bind pubm - "*puta*" badword
bind pubm - "*cabron*" badword
bind pubm - "*cabrón*" badword
bind pubm - "*joder*" badword
bind pubm - "*cojones*" badword
bind pubm - "*coño*" badword
bind pubm - "*maricon*" badword
bind pubm - "*maricón*" badword
bind pubm - "*jodete*" badword
bind pubm - "*jódete*" badword
bind pubm - "*mamon*" badword
bind pubm - "*mamón*" badword
bind pubm - "*bastardo*" badword
bind pubm - "*folla*" badword
bind pubm - "*culo*" badword
bind pubm - "*polla*" badword
bind pubm - "cago*" badword
bind pub - "gilipollas" badword
bind pub - "imbécil" badword
bind pub - "imbecil" badword
bind pub - "idiota" badword
bind pub - "subnormal" badword
bind pubm - "caga*" 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 "Expulsado permanentemente por decir 4 tacos"
          putserv "PRIVMSG $chan :$nick Ya No Es Bienvenido Aqui..."
	  putserv "KICK $chan $nick :$Ban \[Perm\]"
        return 1
	} elseif {([matchattr $hand E])} {
	  chattr $nick +G-E
	  putserv "PRIVMSG $chan :$nick Ha Tenido Su Oportunidad, Ahora Sera Expulsado Durante Dos Horas"
          set banlamer [maskhost [getchanhost $nick $chan]]
          newban $banlamer Badword $Ban 120 none
          setuser $nick COMMENT "3 Tacos"
          return 1
	} elseif {([matchattr $hand Y])} {
	  chattr $nick +E-Y
	  putserv "PRIVMSG $chan :Tomando medidas sobre $nick por decir dos tacos"
	  set banlamer [maskhost [getchanhost $nick $chan]]
          newban $banlamer Badword $Ban 10 none
          setuser $nick COMMENT "2 Tacos"
          return 1
	} 
          adduser $nick [maskhost [getchanhost $nick $chan]]
          putserv "PRIVMSG $chan :\001ACTION Detectada una palabra prohibida dicha por $nick\001"
          putserv "PRIVMSG $nick :\001ACTION Atencion $nick, en este canal no se permite decir tacos.\001"
          putserv "PRIVMSG $chan :\001ACTION El lenguaje soez no es divertido, $nick...\001"
          putserv "KICK $chan $nick :Expulsado del canal por malhablado"
          putserv "NOTICE $nick :Por favor, NO use ese lenguaje en el canal $chan"
          putserv "NOTICE $nick :\001ACTION Aviso a $nick. Es su \[1a Advertencia\]\001"
          putserv "NOTICE $nick :Al segundo aviso se le expulsara del canal durante una hora"
          chattr $nick +Y
          setuser $nick PASS $bword 
          setuser $nick COMMENT "Primera palabra ofensiva"
          return 0
	 }
#putlog "\[Word|KiCk\] v3.0 By \002TheGhost\002 is Loaded"