Forums Scripts & Popups How to Color URL in Text?

on ^*:TEXT:*:*:{
  var %1
  if ($regsub($1-,/((?:(?:http|ftp|mail|irc):\/\/|www\.|ftp\.)[-\w.@?&=/]+(?!\.))/g,12\1, %1)) {
    echo -mbflrt $target $+(<,$nick($chan,$nick).pnick,>) %1
    haltdef
  }
}

on ^*:TEXT:*:*:{
  var %1
  if ($regsub($1-,/((?:(?:http|ftp|mail|irc):\/\/|www\.|ftp\.)[-\w.:@?&=/]+(?!\.))/g,12\1, %1)) {
    echo -mbflrt $target $iif($target ischan, $+(<,$nick($chan,$nick).pnick,>),$+(<,$nick,>)) %1
haltdef
  }
}

on ^*:TEXT:*:#: {
  var %onjo_lin
  if (# isin $nick) { 
    if ($regsub($1-,/((?:(?:http|ftp|mail|irc):\/\/|www\.|~|forum|php|index|ftp\.)[-\w.:@?&=/]+(?!\.))/g,12\1, %onjo_lin)) {
      echo 3 -tlf $target $+(6* 1Onjoin :,$nick(#,$nick).pnick) 3 %onjo_lin
      haltdef
    }
  }
  else {
    if (# isin $nick) { 
      echo -a 6* 1Onjoin :3 $1- | halt
    }
  }
}
raw 332:*: { 
  if (!$nick isreg #) { halt }
  var %top_lin
  if ($regsub($3-,/((?:(?:http|ftp|mail|irc):\/\/|www\.|~|forum|php|index|ftp\.)[-\w.:@?&=/]+(?!\.))/g,12\1, %top_lin)) {
    echo 2 -a $+(1* 5Topic 1:,$nick(#,$nick).pnick) 2 %top_lin | haltdef
  }
  else { echo 5 -a * Topic :1 $3- | halt } 
}