Forums Scripts & Popups A Twitter Script

alias tweet {
  set %tw.username YOURLOGIN
  set %tw.password YOURPASSWD
  if ($len($1-) > 140) {
    echo -a Ops, that was $calc($len($1-)-140) ONLY 140 Chars!
    halt
  }
  set %authentication $encode($+(%tw.username,:,%tw.password),m)
  sockclose twitter
  sockopen twitter twitter.com 80
  .timertwitter 1 10 twitter_timeout
  set %tweet $$1-
}

alias urlencode return $regsubex($1-,/\G(.)/g,$iif(($prop && \1 !isalnum) || !$prop,$chr(37) $+ $base($asc(\1),10,16),\1))
alias urldecode return $replace($regsubex($1-,/%(\w\w)/g,$chr($iif($base(\t,16,10) != 32,$v1,1))),$chr(1),$chr(32))

on *:sockopen:twitter:{
  sockwrite -n twitter POST /statuses/update.json HTTP/1.1
  sockwrite -n twitter Host: twitter.com
  sockwrite -n twitter User-Agent: Mozilla/5.0 (Windows; U; Windows NT 6.0; en-US; rv:1.9b5) Gecko/2008032620 Firefox/3.0b5
  sockwrite -n twitter Content-Length: $calc($len($urlencode(%tweet)) + 9)
  sockwrite -n twitter Authorization: Basic %authentication
  sockwrite -n twitter $crlf
  sockwrite twitter status=
  sockwrite -n twitter $urlencode(%tweet)
  sockwrite twitter $crlf
  sockwrite twitter $crlf
}


alias twitter_timeout {
  echo -a Message Failed to Send - Socket Timeout 
  sockclose twitter
}


on *:sockread:twitter: {
  .timertwitter off
  sockread -f %string
  echo -a Message Status ( $+ %string $+ )
  sockclose twitter
}

menu channel {
  Twitter
  .Send Tweet { /tweet $?="Mensaje:" }
}

on *:text:!twitter*:#channel:{
  /tweet Message from $nick : $2-
}

alias -l username return <your username>
alias -l password return <your 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))

alias twitter {
  hfree -w twitter
  sockclose twitter
  sockopen twitter twitter.com 80
  sockmark twitter status= $+ $urlencode($1-)
}

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,/<error>(.+?)</error>/)) {
    hfree -w twitter
    sockclose twitter
    raiseerror $regml(1)
  }
  if ($regex(%data,/<(.+?)>(.+?)</\1>/)) hadd -m twitter $regml(1) $regml(2)
  elseif (%data == </status>) .signal twitterpost
}

on *:signal:twitterpost:{
  var %i = 1
  while ($hget(twitter,%i).item) {
    echo -a $v1 : $hget(twitter,$v1)
    inc %i
  }
}