off *:text:*world*:#luckypc:{
  if ($(* $+ $read(badwords.txt, w) $+ *) iswm $1-) {
    unset %complainer
    set %complainer $nick
    /mode #luckypc +b ~q: $+ $address(%complainer,2)
    /timerban 1 60 /mode #luckypc -b ~q: $+ $address(%complainer,2)
    msg $chan $nick has been silenced for complaining about the world and will not be unsilenced until he finds a better world!
    notice $nick If you think this world is crap, scout another one! you have been silenced for 1 minute.
  }