Id: 7331; Nick: Albie; Timestamp: 2008-03-15 13:54:03; Pasted as: mIRC
Description: n/a 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

alias cbrackets {
  set %colours 03,04,05,06,07,09,10,11,12,13
  set %brackets.i 0
  echo -ag * $coBrackets($1-)
}
;Colour outter most brackets.
alias coBrackets {
  inc %brackets.i
  if (%brackets.i > $numtok(%colours,44)) set %brackets.i 1
  var %re = /\(((?:[^()]|(?R))*)\)/g
  var %colour = $chr(3) $+ $gettok(%colours,%brackets.i,44)
  if (!$regex($1,%re)) return $1
  return $regsubex($1,%re,$+(%colour,$chr(40),$chr(15),$coBrackets2( \t ),%colour,$chr(41),$chr(15)))
}
alias coBrackets2 {
  echo -ag I've got $1-
  inc %brackets.i
  if (%brackets.i > $numtok(%colours,44)) set %brackets.i 1
  var %re = /\(((?:[^()]|(?R))*)\)/g
  var %colour = $chr(3) $+ $gettok(%colours,%brackets.i,44)
  if (!$regex($1,%re)) return $1
  return $regsubex($1,%re,$+(%colour,$chr(40),$chr(15),$coBrackets( \t ),%colour,$chr(41),$chr(15)))
}
 
Parsed for bracket errors and indented: 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

alias cbrackets {
  set %colours 03,04,05,06,07,09,10,11,12,13
  set %brackets.i 0
  echo -ag * $coBrackets($1-)
}
;Colour outter most brackets.
alias coBrackets {
  inc %brackets.i
  if (%brackets.i > $numtok(%colours,44)) set %brackets.i 1
  var %re = /\(((?:[^()]|(?R))*)\)/g
  var %colour = $chr(3) $+ $gettok(%colours,%brackets.i,44)
  if (!$regex($1,%re)) return $1
  return $regsubex($1,%re,$+(%colour,$chr(40),$chr(15),$coBrackets2( \t ),%colour,$chr(41),$chr(15)))
}
alias coBrackets2 {
  echo -ag I've got $1-
  inc %brackets.i
  if (%brackets.i > $numtok(%colours,44)) set %brackets.i 1
  var %re = /\(((?:[^()]|(?R))*)\)/g
  var %colour = $chr(3) $+ $gettok(%colours,%brackets.i,44)
  if (!$regex($1,%re)) return $1
  return $regsubex($1,%re,$+(%colour,$chr(40),$chr(15),$coBrackets( \t ),%colour,$chr(41),$chr(15)))
}
 
Options: New, Download,
, mIRC Parser;
Copyright © 2006 by Zyberdog - Some rights reserved. (Browse/Disclaimer/Stats/About)