I don't know if I can help you but I'm using this script, a friend made it for me. I don't know if it helps you, but if anyone can improve it, it would be appreciated.
on *:join:#Luciana:{
.timer 1 7 /msg $nick [Captcha], Para poder tener voice en Bolivia y poder dialogar en sala responde la siguiente pregunta;
.timer 1 9/msg $nick $read $mircdirtxt\ingresos\join.txt
.timer 1 11 /closemsg $nick
}
on *:open:?:{
if (nueve isin $1-) { .msg $nick Respuesta correcta! | /mode #Luciana +v $nick | /closemsg $nick }
if (B isin $1-) { .msg $nick Respuesta correcta! | /mode #Luciana +v $nick | /closemsg $nick }
if (tres isin $1-) { .msg $nick Respuesta correcta! | /mode #Luciana +v $nick | /closemsg $nick }
if (verde isin $1-) { .msg $nick Respuesta correcta! | /mode#Luciana +v $nick | /closemsg $nick }
if (rojo isin $1-) { .msg $nick Respuesta correcta! | /mode #Luciana +v $nick | /closemsg $nick }
if (25 isin $1-) { .msg $nick Respuesta correcta! | /mode #Luciana+v $nick | /closemsg $nick }
if (flaco isin $1-) { .msg $nick Respuesta correcta! | /mode #Luciana +v $nick | /closemsg $nick }
if (60 isin $1-) { .msg $nick Respuesta correcta! | /mode #Luciana +v $nick | /closemsg $nick }
if (24 isin $1-) { .msg $nick Respuesta correcta! | /mode #Luciana +v $nick | /closemsg $nick }
if (francia isin $1-) { .msg $nick Respuesta correcta! | /mode #Luciana +v $nick | /closemsg $nick }
if (paris isin $1-) { .msg $nick Respuesta correcta! | /mode #Luciana +v $nick | /closemsg $nick }
if (sangre isin $1-) { .msg $nick Respuesta correcta! | /mode #Luciana +v $nick | /closemsg $nick }
if (invierno isin $1-) { .msg $nick Respuesta correcta! | /mode #Luciana +v $nick | /closemsg $nick }
if (verano isin $1-) { .msg $nick Respuesta correcta! | /mode #Luciana +v $nick | /closemsg $nick }
if (primavera isin $1-) { .msg $nick Respuesta correcta! | /mode #Luciana +v $nick | /closemsg $nick }
if (D isin $1-) { .msg $nick Respuesta correcta! | /mode #Luciana +v $nick | /closemsg $nick }
if (12 isin $1-) { .msg $nick Respuesta correcta! | /mode #Luciana +v $nick | /closemsg $nick }
if (cuatro isin $1-) { .msg $nick Respuesta correcta! | /mode #Luciana +v $nick | /closemsg $nick }
if (sol isin $1-) { .msg $nick Respuesta correcta! | /mode #Luciana +v $nick | /closemsg $nick }
if (naranja isin $1-) { .msg $nick Respuesta correcta! | /mode #Luciana+v $nick | /closemsg $nick }
if (rojo amarillo verde isin $1-) { .msg $nick Respuesta correcta! | /mode #Luciana +v $nick | /closemsg $nick }
if (ocho isin $1-) { .msg $nick Respuesta correcta! | /mode #Luciana +v $nick | /closemsg $nick }
}
You must have the questions saved in a txt folder and the income file
$mircdirtxt\ingresos\join.txt
I change the questions every month and the answers too and they work for me.