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