Code:

set Ban "Ban voor vloeken"set flag1 Yset flag2 Eset flag3 G###The bad words add and remove as you please bind pubm - "hoer" badword bind pubm - "*blaat*" badword bind pubm - "*cock*" badword bind pubm - "*kut*" badword bind pubm - "kut" badword bind pubm - "gvd" badword bind pubm - "godverdomme" badword bind pubm - "*kanker*" badword bind pubm - "kanker" badword bind pubm - "heil" badword proc badword {nick uhost hand chan rest} {  putlog "$nick $uhost $hand $chan $rest"  global botnick ban-time Ban bword  set open [open badword.log a]   puts $open "[strftime "%d-%m-%Y \[%T\]"] <$nick> $rest"   close $open   if {([ matchattr $hand f ])} {    putserv "PRIVMSG $chan :\001$nick is NIET meer welkom hier!\001"    return 1  } elseif {([matchattr $hand G])} {    chattr $nick +dk    setuser $nick COMMENT "Permanente ban wegens vloeken."    putserv "PRIVMSG $chan :$nick, je bent NIET meer welkom hier!..."    putserv "KICK $chan $nick :$Ban \[Perm\]"    return 1  } elseif {([matchattr $hand E])} {    chattr $nick +G-E    putserv "PRIVMSG $chan :$nick, je hebt nu je kansen gehad. Je mag 24 uur afkoelen. Nog een keer vloeken? Dan ben je niet  meer welkom!."    set banlamer [maskhost [getchanhost $nick $chan]]    newban $banlamer Badword $Ban 1440  none    setuser $nick COMMENT "3e keer vloeken, 24uur ban"    return 1  } elseif {([matchattr $hand Y])} {    chattr $nick +E-Y    putserv "PRIVMSG $chan :Dat is de 2e keer dat je vloekt, $nick. Je mag een uurtje afkoelen."    set banlamer [maskhost [getchanhost $nick $chan]]    newban $banlamer Badword $Ban 10 none    setuser $nick COMMENT "2x vloeken 60 min.ban"    return 1  }   adduser $nick [maskhost [getchanhost $nick $chan]]  putserv "PRIVMSG $chan :\001ACTION Vloeken is niet toegestaan $nick! De volgende keer krijg je een van van een uur!\001"  putserv "KICK $chan $nick :2e keer vloeken is een uur brommen"  putserv "NOTICE $nick :Vloeken is niet toegestaan in $chan"  putserv "NOTICE $nick :Nog een keer vloeken is een uur brommen"  chattr $nick +Y  setuser $nick PASS $bword   setuser $nick COMMENT "Eerste vloek overtreding"  return 0}

Code:

set Ban "Ban voor vloeken"set flag1 Yset flag2 Eset flag3 G###The bad words add and remove as you please bind pubm - "hoer" badword bind pubm - "*blaat*" badword bind pubm - "*cock*" badword bind pubm - "*kut*" badword bind pubm - "kut" badword bind pubm - "gvd" badword bind pubm - "godverdomme" badword bind pubm - "*kanker*" badword bind pubm - "kanker" badword bind pubm - "heil" 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 :\001$nick is NIET meer welkom hier!\001"        return 1} elseif {([matchattr $hand G])} {          chattr $nick +dk  setuser $nick COMMENT "Permanente ban wegens vloeken."          putserv "PRIVMSG $chan :$nick, je bent NIET meer welkom hier!..."  putserv "KICK $chan $nick :$Ban \[Perm\]"        return 1} elseif {([matchattr $hand E])} {  chattr $nick +G-E  putserv "PRIVMSG $chan :$nick, je hebt nu je kansen gehad. Je mag 24 uur afkoelen. Nog een keer vloeken? Dan ben je niet  meer welkom!."          set banlamer [maskhost [getchanhost $nick $chan]]          newban $banlamer Badword $Ban 1440  none          setuser $nick COMMENT "3e keer vloeken, 24uur ban"          return 1} elseif {([matchattr $hand Y])} {  chattr $nick +E-Y  putserv "PRIVMSG $chan :Dat is de 2e keer dat je vloekt, $nick. Je mag een uurtje afkoelen."  set banlamer [maskhost [getchanhost $nick $chan]]          newban $banlamer Badword $Ban 10 none          setuser $nick COMMENT "2x vloeken 60 min.ban"          return 1}           adduser $nick [maskhost [getchanhost $nick $chan]]          putserv "PRIVMSG $chan :\001ACTION Vloeken is niet toegestaan $nick! De volgende keer krijg je een van van een uur!\001"          putserv "KICK $chan $nick :2e keer vloeken is een uur brommen"          putserv "NOTICE $nick :Vloeken is niet toegestaan in $chan"          putserv "NOTICE $nick :Nog een keer vloeken is een uur brommen"          chattr $nick +Y          setuser $nick PASS $bword           setuser $nick COMMENT "Eerste vloek overtreding"          return 0 }