on *:text:*:*:{
if (!$read(brain.txt,nw,$1-*)) {
write brain.txt $1- $chr(9)
set %ltopic $1-
}
else {
if (%ltopic != $null) && ($gettok($read(brain.txt,nw,%ltopic $+ *),2,9) == $null) {
write $+(-l,$readn) brain.txt $read(brain.txt,n,$readn) $1-
unset %ltopic
}
elseif ($gettok($read(brain.txt,nw,$1-*),2,9)) { msg $chan $gettok($read(brain.txt,nw,$1-*),2,9) }
}
}