Code:
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) }
     }
}


New username: hixxy