on *:text:#teste:{
  if (($nick == teste) && ($network == RevolutionIRC)) {
    var %x = 1, %scid = $scid(0)
    while (%x <= $calc(%scid +8)) {
      if ($scid(%x).network == Ptnet) { if ($WordInFile(palavras.txt,$1-) == $true) { scid $scid(%x) msg #meucanal $1- | break } }
      inc %x
    }
  }
}