on *:INPUT:@fore: {

  if (!$regex($1, /(\[.+\])/)) && (%count) {
    write format.txt $replace($1-, $1-,$+($open,/list,$close,$open,color="Lime",$close, Location: $1-,$open,/color,$close,$open,list,$close))
  }
  if (!$regex($1, /(\[.+\])/)) && (!%count) {
    set -u20 %count 1
    write format.txt $replace($1-, $1-,$+($open,color="Lime",$close,Location: $1-,$open,/color,$close,$open,list,$close))
  }
  if ($regex($1, /(\[.+\])/)) {
    %npc = $gettok($1-,2,176)
    %npclink = $gettok($1-, 3,176)
    %questlink = $gettok($1-, 5,176)
    %quest = $gettok($1-,4,176)
    write format.txt $replace($1, $1,$+($open,*,$close,$open,COLOR="Red",$close,$1,$open,/COLOR,$close)) $&
      $replace(%npc, %npc,$+($open,COLOR="DeepSkyBlue",$close,NPC: $chr(32),%npc,:,$open,/COLOR,$close)) $&
      $replace(%npclink, %npclink,$+($open,url=",%npclink,",$close,$open,COLOR="Orange",$close,%npclink,$open,/COLOR,$close,$open,/url,$close))
    write format.txt $replace(%quest, %quest,$+(,-,$open,COLOR="Yellow",$close,Quest: ,%quest,:,$open,/COLOR,$close)) $&
      $replace(%questlink, %questlink,$+($open,url=",%questlink,",$close,$open,COLOR="Orange",$close,%questlink,$open,/COLOR,$close,$open,/url,$close)) $crlf $crlf
    write format.txt $crlf
    write format.txt $crlf
  }
  .timerendlist 1 3 endlist
}
alias endlist {
  if (!%endlist) {
    set -u5 %endlist on
    write format.txt $chr(91) $+ /list $+ $chr(93)
  }
  else {
    timerendlist off
  }
}


alias open return $chr(91)
alias close return $chr(93)