This can be used for automated kicks on certain words. Like censor. No warnings, just kick bans.

    alias swear {
      if ($1 == $null) || ($2 == $null) {
        echo -a $timestamp ERROR! Usage: /swear add/del <word> or /swear list
      }
      if ($1 == add) {
        write censor.txt $2-
        echo -a $timestamp Added $2 to censor!
      }
      if ($1 == del) {
        write -ds $+ $2 censor.txt
        echo -a $timestamp Deleted $2 from sensor
      }
      if ($1 == list) {
        play -e censor.txt
      }
    }

    on *:TEXT:*:#:{
      set %antiswear 0
      while (%antiswear < $0) {
        inc %antiswear
        set %antis $ [ $+ [ %antiswear ] $+ ]
        if ($read(censor.txt, sw, %antis)) {
          mode $chan +b $address($nick, 2)
          timer 1 1800 mode $chan -b $address($nick, 2)
          kick $chan $nick $iif($read(censor.txt, sw, fuck), $read(censor.txt, sw, fuck), No reason specified) - Autounban in 30minutes
        }
      }
    }