Forums Scripts & Popups Url Highlighting

  
on 1:INPUT:#:{
  if ($left($1,1) != /) { 
    haltdef
    raw -q privmsg $active : $+  $1-
    echo -24 $xnick1($me) 14:15 $1-
    halt
  }
} 
on ^1:text:*:#:{ 
  if ($me isin $strip($1-)) { echo -i24 $chan $xnick4($nick) 1414: $strip($1-) | goto arse }
  echo -i24 $chan $xnick16($nick) 00: $strip($1-)
  :arse
  if ($chan == $active) { halt } 
  if ($me isin $strip($1-)) { 
    echo -ai24 02*00Gossip02*02 14:11 $nick 15is mentioning you in10 $chan
    echo -ai24 02*00Gossip02*02 14:11 $nick 15says... $1-
    beep 
  }
  halt
}

alias urlunderline { $iif($1 == on,.en,.dis) $+ able #url }

#url on
on *:input:*:{
  if (!$istok(/ $readini($mircini,text,commandchar),$left($1,1),32)) && (!$ctrlenter) {
    var %input = $1-
    .echo -q $regsub(%input,/((?:ftp:\/\/|https?:\/\/|www2?\.)[^<>\.\s]+(?:\.[^<>\.\s]+)+(?:\/[^<>\.\s]+)*)/g,\1,%input)
    .echo -q $regsub(%input,/(irc:\/\/[^<>\.\s]+(?:\.[^/<>\.\s]+)+(?:\/[^/<>\.\s]*)?\/?(?![^\s\x2c\.]))/g,\1,%input)
    .echo -q $regsub(%input,/(aim:goim\?screenname=[^\s&]+(?:&message=[^\s&=]+)?)/g,\1,%input)
    say %input
    halt
  }
}
on ^*:text:*:*:{
  var %text = $1-
  .echo -q $regsub(%text,/((?:ftp:\/\/|https?:\/\/|www2?\.)[^<>\.\s]+(?:\.[^<>\.\s]+)+(?:\/[^<>\.\s]+)*)/g,\1,%text)
  .echo -q $regsub(%text,/(irc:\/\/[^<>\.\s]+(?:\.[^/<>\.\s]+)+(?:\/[^/<>\.\s]*)?\/?(?![^\s\x2c\.]))/g,\1,%text)
  .echo -q $regsub(%text,/(aim:goim\?screenname=[^\s&]+(?:&message=[^\s&=]+)?)/g,\1,%text)
  echo -tlf $iif($chan,$chan,$iif($query($nick),$nick,$target)) $+(,$cnick($nick).color,<,$iif($gettok($readini($mircini,options,n2),30,44),$left($nick($chan,$nick).pnick,1)),$nick,>) %text
  haltdef
}
on $^*:hotlink:/aim:goim\?screenname=[^\s&]+(?:&message=[^\s&=]+)?|irc:\/\/[^<>\.\s]+(?:\.[^/<>\.\s]+)+(?:\/[^/<>\.\s]*)?\/?(?![^\s\x2c\.])/:*:{ return }
on *:hotlink:*:*:{
  if ($regex(aim,$1,/(aim:goim\?screenname=[^\s&]+(?:&message=[^\s&=]+)?)/)) { run $regml(aim,1) }
  elseif ($regex(irc,$1,/(irc:\/\/[^<>\.\s]+(?:\.[^/<>\.\s]+)+(?:\/[^/<>\.\s]*)?\/?(?![^\s\x2c\.]))/)) { run $regml(irc,1) }
}
#url end

menu menubar {
  $iif($group(#url).status == on,$style(1)) Url underlining: urlunderline $iif($group(#url).status == on,off,on)
}