;;;;;;;;;;;;; MUJERES Y HOMBRES Y CARAPANES :D
on *:TEXT:*!troni*:#:{ if $2 == $null { msg # 4[12MHYC4]1 Escribe !tronista NICK o no va :/ | halt }
  write -c %tronista.txt | set %troni $2 | set %tronista.txt % $+ $2 $+ .txt | msg # 4[12MHYV4]1 ¡¡Nuev@ tronista!! Ahora es: $2
}
on *:TEXT:*!lista*:#:{ msg # 4[12MHYC4]1 El Tronista actual es %troni y tiene %conta.pret pretendientes
  msg # Son>> 1º: $+ $read(%tronista.txt, 1) 2º: $+ $read(%tronista.txt, 2) 3º: $+ $read(%tronista.txt, 3) $&
    4º: $+ $read(%tronista.txt, 4) 5º: $+ $read(%tronista.txt, 5) 6º: $+ $read(%tronista.txt, 6)
}
on *:TEXT:*!pret*:#:{
  if $2 == $null {
    var %pret * $+ $nick $+ *
    var %d = $read( %tronista.txt, w, %pret )
    ;;; si no esta en la lista lo añadimos...
    if %conta.pret >= 7 { msg # 4[12MHYC4]1 Ya hay mas de 6 pretendientes!
      msg # Son>> 1º: $+ $read(%tronista.txt, 1) 2º: $+ $read(%tronista.txt, 2) 3º: $+ $read(%tronista.txt, 3) $&
        4º: $+ $read(%tronista.txt, 4) 5º: $+ $read(%tronista.txt, 5) 6º: $+ $read(%tronista.txt, 6)
      halt
    }
    if (( %d == $null )) && %conta.pret < 6 ) { msg # 4[12MHYC4]1 Añadimos $nick como pretendiente de %tronista
      write %tronista.txt $nick | set %conta.pret $calc(%conta.pret + 1)
      msg # Son>> 1º: $+ $read(%tronista.txt, 1) 2º: $+ $read(%tronista.txt, 2) 3º: $+ $read(%tronista.txt, 3) $&
        4º: $+ $read(%tronista.txt, 4) 5º: $+ $read(%tronista.txt, 5) 6º: $+ $read(%tronista.txt, 6)
    }
  }
}