on *:TEXT:*:#: {
  If (tbg: == $1) {
    if ($read(tbg.txt,s,$nick)) { write $+(-l,$readn) tbg.txt $2 
    } 
    else {
      /write tbg.txt $2
    }
  }
}