;Tweet Posting Bot
;By HappyMan

on *:TEXT:*twitter.com*:#: {

  %channel = $chan
  twitapi $1

}

alias twitapi {
  %key = $gettok($1,-1,47)
  %twt1 = /1/statuses/show/ $+ %key $+ .json
  sockopen twitapi api.twitter.com 80
}

on *:sockopen:twitapi:{
  var %x = sockwrite -n $sockname
  %x GET %twt1 HTTP/1.1
  %x Host: api.twitter.com
  %x User-Agent: Mozilla/5.0 (Windows; U; Windows NT 6.1; en-US; rv:1.9.2.18) Gecko/20110614 Firefox/3.6.18
  %x Accept: text/html,application/xhtml+xml,application/xml;q=0.9,*/*;q=0.8
  %x Accept-Language: en-us,en;q=0.5
  %x Accept-Encoding: text
  %x Accept-Charset: ISO-8859-1,utf-8;q=0.7,*;q=0.7
  %x Keep-Alive: 115
  %x Connection: Close
  %x

}

on *:sockread:twitapi:{
  echo -a success!
  sockread &bvar
  %twtvar = $bvar(&bvar,1-).text
  %twtname = $regex(%twtvar, /"name":"(.*?)"|"screen_name":"(.*?)"|"text":"(.*[://]?)"/g)
  %twttxt = $replacex($regml(3), \\, \, \, )

  .msg %channel Tweet by $regml(1)  $+ ( $+ $chr(35) $+ $regml(2) $+ ) $+ : $+ " $+ %twttxt $+ "

}