##########################
#  Badword by shitbreak  #
##########################
on *:load:{ 
  echo 2 -a * You have loaded a badword script made by shitbreak.
  echo 2 -a * This script will ban users using the forbidden language.
  echo 2 -a * You will see the menu by rightclicking.
  if (!$hget(badword)) { hmake badword }
  if ($exists(badword.hsh)) { hload badword badword.hsh }
}
on *:start:{
  if (!$hget(badword)) { hmake badword }
  if ($exists(badword.hsh)) { hload badword badword.hsh }
}
on *:disconnect:{
  if ($hget(badword)) { hsave badword badword.hsh }
}
menu * {
  ....Badword by shitbreak
  ..Add a badword:{
    var %bw = $$?"Enter the badword here."
    if ($hget(badword,%bw)) { echo 2 -a * The badword %bw already exists. }
    if (!$hget(badword,%bw)) { hadd badword %bw $date $time | echo 2 -a * The badword %bw added succesfully. }
  }
  ..Delete a badword:{
    var %bw = $$?"Enter the badword here."
    if (!$hget(badword,%bw)) { echo 2 -a * The badword %bw does not exist. }
    if ($hget(badword,%bw)) { hdel badword %bw | echo 2 -a * Badword %bw removed succesfully. }
  }
  ..List badwords:{
    if ($hfind(badword,*,0,w) == 0) { echo 2 -a * The badword list is empty. }
    if ($hfind(badword,*,0,w) > 0) {
      var %i = 1
      while (%i <= $hfind(badword,*,0,w)) {
        echo -a Badword: $hfind(badword,*,%i,w) Added on: $hget(badword,$hfind(badword,*,%i,w)) 
        inc %i
      }
    }
  }
}
on *:text:*:#:{
  if ($me isop $chan) {
    if ($hfind(badword,*,0,w) > 0) {
      var %i = $hfind(badword,*,0,w)
      while (%i) {
        if ($hfind(badword,*,%i,w) isin $1-) { ban -k1800 $chan $nick 1 Banned: Badword $+($mid($hfind(badword,*,%i,w),1,1),$str($chr(42),$calc($len($hfind(badword,*,%i,w)) - 1))) - Banned for 30minutes. }
        dec %i
      }
    }
  }
}
 

Commenting Options