# by KrON 12.01
# figure it out
on ^msg "smlnk *" {quote privmsg #rit :$1-}
on public "* #rit *http://*" {
@ url = [$pattern(http:\/\/* $2-)]
        if (strlen($url) > 60) {
                msg smlnk $url
        }
}