;SoxFarxAway777
;Usage -Status message
;Usage -DR @name message

alias -l username return *username*
alias -l password return *password*
 
alias -l raiseerror { 
echo -a * /twitter: $1- 
halt 
} 
alias -l urlencode return $regsubex($1-,/([^a-z0-9])/ig,% $+ $base($asc(\t),10,16,2)) 
 
on 5:TEXT:-Status *:#: { 
hfree -w twitter 
sockclose twitter 
sockopen twitter twitter.com 80 
sockmark twitter status= $+ $urlencode([mIRC Tweet] $2-) 
msg $chan 00,01[04,01New Status00,01] $2- 
} 
on 5:TEXT:-DR *:#: { 
hfree -w twitter 
sockclose twitter 
sockopen twitter twitter.com 80 
sockmark twitter status= $+ $urlencode(@ $+ $2 $3-) 
msg $chan 00,01[04,01Direct Reply @ $+ $2 Sent00,01]: $3- 
} 
on *:sockopen:twitter:{ 
if ($sockerr) { 
sockclose twitter 
raiseerror socket error. Try again later. 
} 
var %s = sockwrite -n twitter 
%s POST /statuses/update.xml HTTP/1.1 
%s Host: twitter.com 
%s Authorization: Basic $encode($+($username,:,$password),m) 
%s Accept: */*, *.* 
%s Connection: close 
%s User-Agent: mIRC/ $+ $version 
%s Content-Type: application/x-www-form-urlencoded 
%s Content-Length: $len($sock(twitter).mark) 
%s 
%s $sock(twitter).mark 
} 
on *:sockread:twitter:{ 
var %data 
sockread %data 
if ($regex(%data,/(.+?)/)) { 
hfree -w twitter 
sockclose twitter 
raiseerror $regml(1) 
} 
if ($regex(%data,/<(.+?)>(.+?)/)) hadd -m twitter $regml(1) $regml(2) 
elseif (%data == ) .signal twitterpost 
}