alias urlcol {
  var %x
  .echo -q $regsub($1,/(?<=^| )((?>[a-z]{3,8}:\/\/|www\.)\S+)/g, 9\19,%x)
  return %x
}

on &*:input:*:{
 if ($left($1,1) !isin / $readini($mircini,text,commandchar)) && (!$ctrlenter) {
   echo -bmfltcri normal $iif(#,#,$nick) $+(5[1,$nick,5]6) $$urlcol($1-)    
   .msg $chan $1-
   halt
 }


on &^*:text:*:*:{
  echo -bmfltcri normal $iif(#,#,$nick) $+(5[,$nick,5]6) $$urlcol($1-)
  halt
}