brettyomi

on *:text:!brettyomi *:#thebrett:{
  if ($nick isop $chan) || ($nick == thebrett) {

    if ($2 == on) {
      msg $chan $nick -> Brettyomi turned on.
      .enable #brettyomi

    }
    else if ($2 == off) {
      msg $chan $nick -> Brettyomi turned off.
      .disable #brettyomi

    }
  }
}

#brettyomi on

on *:text:*:#thebrett:{


  if ($nick == saltybrett) || ($regex($1-,/(.)\1{3}/) > 0 ) || ($nick == thebrett) || ($nick == brettbot) || ($nick == nightbot) || ($nick == kazukimouto) || ($left($1,1) == !)  || ($deurl($1-)) {
    ;/msg $chan $nick-> skipping
  }
  else if ($speak(0) > 7) {

    ;msg $chan $nick -> Too many lines queued.

  }
  else if ($numtok($1-,32) > 17) {

    ;msg $chan $nick -> Too many words. The word limit is 17 for Brettyomichan.

  }
  else {

    /speak -lu $1-
    ;/msg $chan $nick-> speaking
  }

}

#brettyomi end


alias deurl {

  return $null($regex($1-,/(((http(s)?\72(\57{2}))|(www\56{1}))+(\w*)+(\56{1})+(\w{2,3})\S*)/Sig)) $regml(1)

}