API tools faq
paste
Advertisement
Ford

Twitter Channel for mIRC / Updated for Testing

Ford
May 27th, 2011
242
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
mIRC 12.53 KB | None | 0 0
raw download clone embed print report
  1. ;Twitter Channel by Ford_Lawnmower irc.GeekShed.net #Script-Help
  2. ;;;;;;;;;;;;;;;;;
  3. ;::Start Setup::;
  4. ;;;;;;;;;;;;;;;;;
  5. ;Edit the lines below to reflect your Twitter Application info.
  6. alias -l consumer_key return PutYourConsumerKeyHere
  7. alias -l consumer_secret return PutYourConsumerSecretHere
  8. alias -l oauth_token return PutYourOauthTokenHere
  9. alias -l oauth_token_secret return PutYourOauthTokenSecretHere
  10. ;;;;;;;;;;;;;;;
  11. ;::End Setup::;
  12. ;;;;;;;;;;;;;;;
  13. menu * {
  14.   .Twitter Channel
  15.   ..$iif($timer(mIRCTwitter),Off,On): {
  16.     if ($timer(mIRCTwitter)) { .timermIRCTwitter off }
  17.     else {
  18.       mIRCTwitter
  19.       .timermIRCTwitter -o 0 $iif($hget(mIRCTwitter,Delay),$hget(mIRCTwitter,Delay),60) mIRCTwitter
  20.     }
  21.   }
  22.   ..SetUp
  23.   ...Set Delay:hadd -m mIRCTwitter Delay $iif($$?="Enter Delay in Seconds" > 29,$!,60) | mtsave
  24.   ...Set Method of Output
  25.   ....Bot Message(.msg #Channel):hadd mIRCTwitter Method $network .msg $$?="Enter the Channel Name including the #prefix" | mtsave
  26.   ....Message(msg #Channel):hadd mIRCTwitter Method $network msg $$?="Enter the Channel Name including the #prefix" | mtsave
  27.   ....Echo(Echo -at):hadd mIRCTwitter Method echo -at | mtsave
  28.   ....Window(Echo -t @Twitter):hadd mIRCTwitter Method echo -t @Twitter | mtsave
  29. }
  30. alias -l mIRCTwitter mTwitterGetStatus echo -a $consumer_key $consumer_secret $oauth_token $oauth_token_secret
  31. alias -l TwitterAuthCheck {
  32.   var %sockname $+(mTwitterAuthCheck,$network,$2,$ticks)
  33.   sockopen %sockname twitter.com 80
  34.   sockmark %sockname /account/verify_credentials.xml $encode($1,m)
  35. }
  36. On *:sockopen:mTwitterAuthCheck*: {
  37.   if (!$sockerr) {
  38.     sockwrite -nt $sockname GET $gettok($sock($sockname).mark,1,32) HTTP/1.0
  39.     sockwrite -n $sockname Host: twitter.com
  40.     sockwrite -n $sockname Authorization: Basic $gettok($sock($sockname).mark,2,32)
  41.     sockwrite -n $sockname $crlf
  42.   }
  43.   else { echo -st Socket Error $nopath($script) | sockclose $sockname | return }
  44. }
  45. On *:sockread:mTwitterAuthCheck*: {
  46.   if ($sockerr) { echo -st Socket Error $nopath($script) | sockclose $sockname | return }
  47.   else {
  48.     var %mTwitterAuthCheck | sockread %mTwitterAuthCheck
  49.     if (HTTP/1.1 401 Unauthorized isin %mTwitterAuthCheck) {
  50.       echo -a Incorrect UserName:Password Combination!! Please Try Again with the Correct Information.
  51.       sockclose $sockname
  52.       return
  53.     }
  54.     elseif ($regex(%mTwitterAuthCheck,/<name>(.*)</name>/)) {
  55.       echo -a $regml(1) Your Account has been Verified and Your Information has been Stored in my Secure Encrypted Database.
  56.       hadd -m mIRCTwitter Active $gettok($sock($sockname).mark,2,32)
  57.       set %MyTwitterName $+(@,$gettok($decode($hget(mIRCTwitter,Active),m),1,58))
  58.       mtsave
  59.       sockclose $sockname
  60.     }
  61.   }
  62. }
  63. alias mIRCTweet mTwitterUpdate echo -a $consumer_key $consumer_secret $oauth_token $oauth_token_secret $1-
  64. ;Syntax mTwitterUpdate echo -a consumer_key consumer_secret oauth_token oauth_token_secret status update here
  65. ;Note that echo -a can be changed to msg $chan or notice $nick ( must be two words )
  66. alias -l mTwitterUpdate {
  67.   var %ots $ctime, %sockname $+(mTwitterUpdate,$network,$ticks,$r(1,10000)), %once $md5(%sockname)
  68.   var %os $signature(post,http://twitter.com/statuses/update.xml,$3,$4,$5,$6,%once,%ots,$+(status=,$tuenc($7-)))
  69.   sockopen %sockname twitter.com 80
  70.   sockmark %sockname $1-2 $space2comma($+(oauth_nonce=,$qt(%once)) $osmqt $+(oauth_timestamp=,$qt(%ots)) $+(oauth_consumer_key=,$qt($tuenc($3))) $&
  71.     $+(oauth_token=,$qt($tuenc($5))) $+(oauth_signature=,$qt($suenc(%os))) $overqt) $+(status=,$tuenc($7-))
  72. }
  73. on *:sockopen:mTwitterUpdate*: {
  74.   if ($sockerr) echo -st Socket Error $nopath($script)
  75.   else {
  76.     tokenize 32 $sock($sockname).mark
  77.     sockwrite -n $sockname POST /statuses/update.xml HTTP/1.1
  78.     sockwrite -n $sockname Host: twitter.com
  79.     sockwrite -n $sockname User-Agent: Lawnmower 9.64
  80.     sockwrite -n $sockname Authorization: OAuth realm="/statuses/update.xml", $3
  81.     sockwrite -n $sockname Content-Type: application/x-www-form-urlencoded
  82.     sockwrite -n $sockname Content-Length: $len($4)
  83.     sockwrite -n $sockname
  84.     sockwrite -n $sockname $4
  85.     sockwrite -n $sockname
  86.   }
  87. }
  88. on *:sockread:mTwitterUpdate*: {
  89.   if ($sockerr) { $gettok($sock($sockname).mark,1-2,32) Unknown Socket error $nopath($script) }
  90.   else {
  91.     var %mTwitterUpdatevar | sockread %mTwitterUpdatevar
  92.     if (HTTP/1.1 401 isin %mTwitterUpdatevar) {
  93.       $gettok($sock($sockname).mark,1-2,32) Password/Username Error --> %mTwitterUpdatevar
  94.       sockclose $sockname | return
  95.     }
  96.     elseif (HTTP/1.1 502 isin %mTwitterUpdatevar) || (HTTP/1.1 503 isin %mTwitterUpdatevar) {
  97.       $gettok($sock($sockname).mark,1-2,32) Server Busy Error --> %mTwitterUpdatevar
  98.       sockclose $sockname | return
  99.     }
  100.     elseif (HTTP/1.1 500 isin %mTwitterUpdatevar) {
  101.       $gettok($sock($sockname).mark,1-2,32) Server Side Error --> %mTwitterUpdatevar
  102.       sockclose $sockname | return      
  103.     }
  104.     elseif (HTTP/1.1 403 isin %mTwitterUpdatevar) {
  105.       $gettok($sock($sockname).mark,1-2,32) Connection Actively Refused --> %mTwitterUpdatevar
  106.       sockclose $sockname | return      
  107.     }
  108.     elseif (HTTP/1.1 400 isin %mTwitterUpdatevar) {
  109.       $gettok($sock($sockname).mark,1-2,32) Unknown Error --> %mTwitterUpdatevar
  110.       sockclose $sockname | return
  111.     }
  112.     elseif (HTTP/1.1 200 isin %mTwitterUpdatevar) {
  113.       $gettok($sock($sockname).mark,1-2,32) Updating Status Please Wait.........
  114.     }
  115.     elseif (</status> isin %mTwitterUpdatevar) {
  116.       .timer 1 3 $gettok($sock($sockname).mark,1-2,32) Your Status has been updated :)
  117.       sockclose $sockname | return
  118.     }
  119.   }
  120. }
  121. alias -l mTwitterGetStatus {
  122.   var %ots $ctime, %sockname $+(mTwitterGetStatus,$network,$ticks,$r(1,10000)), %once $md5(%sockname)
  123.   var %os $signature(GET,http://twitter.com/statuses/home_timeline.rss,$3,$4,$5,$6,%once,%ots,$+(since_id=,$hget(mirctwitter,last_id)))
  124.   sockopen %sockname twitter.com 80
  125.   sockmark %sockname $1-2 $space2comma($+(oauth_nonce=,$qt(%once)) $osmqt $+(oauth_timestamp=,$qt(%ots)) $+(oauth_consumer_key=,$qt($tuenc($3))) $&
  126.     $+(oauth_token=,$qt($tuenc($5))) $+(oauth_signature=,$qt($suenc(%os))) $overqt $+(since_id=,$hget(mirctwitter,last_id))) 1
  127. }
  128. on *:sockopen:mTwitterGetStatus*: {
  129.   if ($sockerr) echo -st Socket Error $nopath($script)
  130.   else {
  131.     tokenize 32 $sock($sockname).mark
  132.     sockwrite -n $sockname GET /statuses/home_timeline.rss? $+ $+(since_id=,$hget(mirctwitter,last_id)) HTTP/1.1
  133.     sockwrite -n $sockname Host: twitter.com
  134.     sockwrite -n $sockname User-Agent: Lawnmower 9.64
  135.     sockwrite -n $sockname Authorization: OAuth realm="/statuses/home_timeline.rss", $3
  136.     sockwrite -n $sockname Content-Type: application/x-www-form-urlencoded
  137.     sockwrite -n $sockname $crlf
  138.   }
  139. }
  140. On *:sockread:mTwitterGetStatus*: {
  141.   if ($sockerr) { echo -st Socket Error $nopath($script) | sockclose $sockname | return }
  142.   else {
  143.     var %mTwitterGetStatus | sockread %mTwitterGetStatus
  144.     if (<item> isin %mTwitterGetStatus) { sockmark $sockname $puttok($sock($sockname).mark,1,3,32) }
  145.     elseif ($regex(%mTwitterGetStatus,/<title>Twitter\s\/\s(.*)\swith\sfriends<\/title>/i)) set %MyTwitterName $+(@,$regml(1))
  146.     elseif ($gettok($sock($sockname).mark,4,32)) && ($regex(%mTwitterGetStatus,/<guid>http:\/\/twitter\.com\/.*\/statuses\/(.*?)<\/guid>/i)) {
  147.       hadd mirctwitter Last_ID $regml(1)
  148.       sockmark $sockname $puttok($sock($sockname).mark,0,4,32)      
  149.     }
  150.     elseif ($gettok($sock($sockname).mark,3,32)) && ($regex(%mTwitterGetStatus,<title>(.*)</title>)) {
  151.       sockmark $sockname $puttok($sock($sockname).mark,$calc($gettok($sock($sockname).mark,5,32) + 1),5,32)
  152.       var %Method $hget(mTwitterGetStatus,Method)
  153.       if (%Method == echo -at) { %Method $fix&#($+(09<07,$gettok($regml(1),1,58),09>04) $gettok($regml(1),2-,58)) }
  154.       elseif ($me ison $gettok(%Method,3,32)) {
  155.         .timer 1 $gettok($sock($sockname).mark,5,32) $gettok(%Method,2-,32) $fix&#($+(09<07,$gettok($regml(1),1,58),09>04) $gettok($regml(1),2-,58))
  156.       }
  157.       else {
  158.         if (!$window(@Twitter)) { window -E @Twitter }
  159.         var %NextTweet $fix&#($+(09<07,$gettok($regml(1),1,58),09>04) $gettok($regml(1),2-,58)) 02,08[04RT02]
  160.         echo -t @Twitter %NextTweet
  161.         if ($istok(%NextTweet,%MyTwitterName,32)) {
  162.           if (!$window(%MyTwitterName)) { window -E %MyTwitterName }
  163.           echo -t %MyTwitterName %NextTweet
  164.           noop $tip(%MyTwitterName,Twitter %MyTwitterName,%NextTweet,60,,,,)
  165.         }
  166.       }
  167.     }
  168.   }
  169. }
  170. ;Syntax $signature(POST/GET,URL,consumer_key,consumer_secret,oauth_token,oauth_token_secret,oauth_nonce,oauth_timestamp,PostData)
  171. alias -l signature {
  172.   var %method $+($upper($1),&), %url $+($tuenc($2),&), %ck $tuenc&($+(oauth_consumer_key=,$3)), %ot $tuenc&($+(oauth_token=,$5))
  173.   var %once $tuenc&($+(oauth_nonce=,$7)), %ots $tuenc&($+(oauth_timestamp=,$8)), %post $iif($9-,$tuenc($+(&,$9-)))
  174.   return $hmacsha1($+($4,&,$iif($6,$6)),$+(%method,%url,%ck,%once,$tuenc&($osm),%ots,%ot,$tuenc($over),%post))
  175. }
  176. alias -l osm return oauth_signature_method=HMAC-SHA1
  177. alias -l osmqt return oauth_signature_method="HMAC-SHA1"
  178. alias -l over return oauth_version=1.0
  179. alias -l overqt return oauth_version="1.0"
  180. alias -l tuenc return $regsubex($replace($1-,+,$chr(32)),/([^a-z0-9._-])/ig,% $+ $base($asc(\t),10,16,2))
  181. alias -l suenc return $regsubex($1-,/([^a-z0-9._-])/ig,% $+ $base($asc(\t),10,16,2))
  182. alias -l space2comma return $replace($1-,$chr(32),$chr(44))
  183. alias -l tuenc& return $tuenc($+($1,&))
  184. ;hmacsha1 by Ford_Lawnmower irc.GeekShed.net #Script-Help
  185. ;Syntax hmacsha1 key message or $hmacsha1(key,message)
  186. alias -l hmacsha1 {
  187.   var %key $1, %data $2
  188.   bset -c &key 1 $regsubex(%key,/(.)/g, $asc(\1) $chr(32))
  189.   bset -c &data 1 $regsubex(%data,/(.)/g, $asc(\1) $chr(32))
  190.   if ($bvar(&key,0) > 64) bset -c &key 1 $hex2chr($sha1(&key,1))
  191.   bset -c &ipad 1 $xorall($str($+(54,$chr(32)),64),$bvar(&key,1-))
  192.   bset -c &opad 1 $xorall($str($+(92,$chr(32)),64),$bvar(&key,1-))
  193.   bcopy &ipad $calc($bvar(&ipad,0) + 1) &data 1 -1
  194.   bset -c &ipad 1 $hex2chr($sha1(&ipad,1))
  195.   bcopy &opad $calc($bvar(&opad,0) + 1) &ipad 1 -1
  196.   bset -c &return 1 $hex2chr($sha1(&opad,1))
  197.   noop $encode(&return, mb)
  198.   $iif($isid,return,$iif(#,say,echo -a)) $bvar(&return, 1-).text
  199. }
  200. alias -l hex2chr return $regsubex($1-,/(.{2})/g, $base(\t,16,10) $chr(32))
  201. alias -l xorall {
  202.   var %p $1, %k $2, %end $iif($regex($1,/([\d]{1,})/g) > $regex($2,/([\d]{1,})/g),$v1,$v2)
  203.   return $regsubex($str(.,%end),/(.)/g,$+($xor($iif($gettok(%p,\n,32),$v1,0),$iif($gettok(%k,\n,32),$v1,0)),$chr(32)))
  204. }
  205. On *:input:@Twitter,%MyTwitterName: {
  206.   if ($left($1,1) != /) {
  207.     haltdef
  208.  
  209.     echo -t $active $+(07<09,$mid(%MyTwitterName,2-),07>09) $1-
  210.     mIRCTweet $1-
  211.   }
  212. }
  213. alias -l fix&# { return $replace($regsubex($1-,/\&\#([0-9]{1,});/g,$utf8(\t)),&quot;,",&amp;,&,&gt;,>,&lt;,<,&#39;,',|,,$chr(9),$chr(32)) }
  214. alias -l UTF8 {
  215.   if ($version >= 7) return $chr($1)
  216.   elseif ($1 < 255) { return $chr($1) }
  217.   elseif ($1 >= 256) && ($1 < 2048) { return $+($chr($calc(192 + $div($1,64))),$chr($calc(128 + $mod($1,64)))) }
  218.   elseif ($1 >= 2048) && ($1 < 65536) { return $+($chr($calc(224 + $div($1,4096))),$chr($calc(128 + $mod($div($1,64),64))),$chr($calc(128 + $mod($1,64)))) }
  219.   elseif ($1 >= 65536) && ($1 < 2097152) {
  220.     return $+($chr($calc(240 + $div($1,262144))),$chr($calc(128 + $mod($div($1,4096),64))),$chr($calc(128 + $mod($div($1,64),64))),$&
  221.       $chr($calc(128 + $mod($1,64))))
  222.   }
  223. }
  224. alias -l div { return $int($calc($1 / $2)) }
  225. alias -l mod {
  226.   var %int $int($calc($1 / $2))
  227.   return $calc($1 - (%int * $2))
  228. }
  229. alias -l H2U { return $utf8($base($1,16,10)) }
  230. alias -l mtsave {
  231.   .timermIRCTwitter -o 0 $iif($hget(mIRCTwitter,Delay),$hget(mIRCTwitter,Delay),60) mIRCTwitter
  232.   if ($hget(mIRCTwitter)) { hsave mIRCTwitter mIRCTwitter.hsh }
  233. }
  234. on ^$*:HOTLINK:/^<([^<>]*)>/S:@Twitter,%MyTwitterName:{
  235.   if ($1) { return }
  236.   halt
  237. }
  238. on ^$*:HOTLINK:/^\[RT\]/S:@Twitter,%MyTwitterName:{
  239.   if ($1) { return }
  240.   halt
  241. }
  242. on $*:HOTLINK:/^<([^<>]*)>/S:@Twitter,%MyTwitterName:{
  243.   if ($mouse.key) { editbox $active $+(@,$strip($regml(1))) }
  244.   halt
  245. }
  246. on $*:HOTLINK:/^\[RT\]/S:@Twitter,%MyTwitterName:{
  247.   if ($mouse.key) {
  248.     noop $regex($hotline,/<([^<>]*)>(.*)\[RT\]/S)
  249.     editbox $active RT $strip($+(@,$regml(1)) $regml(2))
  250.   }
  251.   halt
  252. }
  253. On *:Start: {
  254.   hmake mIRCTwitter 1
  255.   if ($isfile(mIRCTwitter.hsh)) { hload mIRCTwitter mIRCTwitter.hsh | mtsave }
  256. }
  257. On *:Unload: {
  258.   if ($hget(mIRCTwitter)) { hfree mIRCTwitter }
  259.   if ($isfile(mIRCTwitter.hsh)) { .remove mIRCTwitter.hsh }
  260.   unset %MyTwitterName
  261. }
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement
Public Pastes
Advertisement
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!