on *:text:!quotelist*:#:{ %quoteon 2>6Total de quotes na lista: $lines(sistema/quotes.txt) }

on *:text:!quotehelp*:#:{ %quoteon 2>6Quote help2< 6!quote 2mostra quote random; 6!quote nº 2mostra quote específica; 6!quoteadd 2adiciona nova quote; 6!quotelist 2mostra total de quotes na lista }

on *:text:!quoteadd*:#:{ %quoteon 2>6Quote adicionado com sucesso, $nick | write sistema/quotes.txt $2- | me 2<6nº  $lines(sistema/quotes.txt) }

on *:text:!quote*:#:{
  if ($1 == !quote) {
    if ($2 isnum) { %quoteon 2>6Quote $2 $+ / $+ $lines(sistema/quotes.txt) $+ 2< $read(sistema/quotes.txt, $2) }
    else { %quoteon 2>6Quote Random2< $read(sistema/quotes.txt) }
  }
  if ($strip($1-2) == !quoteprocurar) && ($3) {
    if (!$read(sistema/quotes.txt,w,* $+ $3- $+ *,1)) msg # 2>6Não encontrei nenhuma quote com a palavra-chave especificada, $nick
    else {
      var %n 1,%m $null
      while ($read(sistema/quotes.txt,w,* $+ $3- $+ *,%n)) {
        var %x $readn,%m $addtok(%m,%x,32)
        inc %n
      }
      msg # 2>6Quotes encontradas:2 %m
    }
  }
}