;;TinyURL
on *:TEXT:!tinyurl &:#:{ if (%tinyspam) { halt }
  set -u3 %tinyspam 1
  set %tinyurlchan $chan
  set %tinyurl1 $2
  if ($sock(tinyurl)) { sockclose tinyurl }
  sockopen tinyurl tinyurl.com 80
}
on *:INPUT:#:{
  if (!tinyurl == $1 && $2 != $null && %tinyspam == $null) {
    set -u3 %tinyspam 1
    set %tinyurlchan $chan
    set %tinyurl1 $2
    if ($sock(tinyurl)) { sockclose tinyurl }
    sockopen tinyurl tinyurl.com 80
} }
alias tinyurl {
  set -u3 %tinyspam 1
  set %tinyurl1 $1
  if ($sock(tinyurl)) { sockclose tinyurl }
  sockopen tinyurl tinyurl.com 80
}
on *:sockopen:tinyurl:{
  sockwrite -n $sockname GET /create.php?url= $+ %tinyurl1 HTTP/1.0
  sockwrite -n $sockname Host: tinyurl.com
  sockwrite -n $sockname user-agent: Mozilla/??
  sockwrite -n $sockname Connection: Keep-Alive
  sockwrite -n $sockname $crlf
}
on 1:sockread:tinyurl:{
  :nextread
  if ($sockerr > 0) return
  sockread %temp
  if ($sockbr == 0) return
 
  if (<blockquote><b>* iswm %temp && $left($replace(%tinyurl1,&,&amp;),15) !isin %temp) {
    set %tinyurl2 $remove($gettok(%temp,2,60),b>)
    if (%tinyurlchan) { msg %tinyurlchan Shortened %tinyurl1 to %tinyurl2 }
    else { echo -a Shortened %tinyurl1 to %tinyurl2 }
    unset %tinyurl*
  }
 
  goto nextread
}

Commenting Options