on *:TEXT:*:#:{
if ($1 == [question]) && ($ulevel == 200) {
write ai.txt $1-
}
elseif (< isin $1) {
var %x = $read(ai.txt,nw,$+(*<,$1-,>*))
if (!%x) { msg # Sorry no match found for question $1- }
else {
msg # $gettok(%x,$+($calc($findtok(%x,[answer],1,32)+1),-),32)
}
}
}