Mine

alias theme { 
  var %a = $1, %b = $iif($2 == Status Window,$1,$2), %c = $time(hhnn)   
  if ($hget(%a,%b) == %c) { return $ts tr($chr(160),18) } 
  else { hadd -m %a %b %c
    return $time(4(hh.nnt4)) $ts $str($chr(160),3)
  } 
}
alias ts { return $theme($server,$iif($active == Status Window,$server,$active)) }
on *:INPUT:#:{ if ($left($1-,1) != /) || ($ctrlenter)  {
    haltdef 
    .msg $active $1- 
    var %Access = $remove($nick(#,$me).pnick,$me) 
    echo $ts %in $+ $iif(%Access != $null, $+($chr(3),$nick(#,$me).color,$left($v1,1),$chr(3))) $+ 10 $+ $me $+ %out $regsubex($1-,/\b((?:irc|(?:http|ftp)s?):\/\/\S+)/gi,12\1)
  }
}