Something

on 5:text:!grp*:#evolution_help:{
  if ($2 = add) {
    if ($3) { write palavras.txt $3- }
  }
  if ($2 = del) { 
    if ($3 isnum) { write -dl $+ $3 palavras.txt }
  }
  if ($2 = list) { 
    var %x 1
    while (%x <= $lines(palavras.txt)) { 
      msg $nick $read(palavras.txt,%x)
      inc %x 
    } 
  }
}