alias -l urlencode { return $regsubex($$1-,/([^\d\w])/g,$+(%,$base($asc(\t),10,16))) }
alias clicktotweet {
if (!$1) { return }
var %url https://clicktotweet.com/link/basicSubmit?tweet= $+ $urlencode($1-) $+ &submit=Generate+New+Link
var %com = click_ $+ $ticks $+ $ctime
.comopen %com msxml2.xmlhttp
noop $com(%com, Open,1, bstr,GET,bstr,%url,bool,false) $com(%com,Send,1) $com(%com,ResponseText,2)
var %a = $remove($com(%com).result,$chr(10),$chr(9),$chr(13))
var %a = $gettok($wildtok(%a,*http://ctt.ec/*,$wildtok(%a,*http://ctt.ec/*,0,32),32),2,34)
if ($comerr) { return 0 }
if ($com(%com)) { .comclose %com }
return %a
}