API tools faq
paste
Advertisement
Guest User

Untitled

a guest
May 27th, 2017
74
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 8.76 KB | None | 0 0
raw download clone embed print report
  1. menu * {
  2. .Twitter Channel
  3. ..$iif($timer(mIRCTwitter),Off,On): {
  4. if ($timer(mIRCTwitter)) { .timermIRCTwitter off }
  5. else {
  6. mIRCTwitter
  7. .timermIRCTwitter -o 0 $iif($hget(mIRCTwitter,Delay),$hget(mIRCTwitter,Delay),60) mIRCTwitter
  8. }
  9. }
  10. ..SetUp
  11. ...Set UserName and Password:TwitterAuthCheck $+($$?="Enter your Username",:,$$?*="Enter your Password")
  12. ...Set Delay:hadd -m mIRCTwitter Delay $iif($$?="Enter Delay in Seconds" > 29,$!,60) | mtsave
  13. ...Set Method of Output
  14. ....Bot Message(.msg #Channel):hadd mIRCTwitter Method $network .msg $$?="Enter the Channel Name including the #prefix" | mtsave
  15. ....Message(msg #Channel):hadd mIRCTwitter Method $network msg $$?="Enter the Channel Name including the #prefix" | mtsave
  16. ....Echo(Echo -at):hadd mIRCTwitter Method echo -at | mtsave
  17. ....Window(Echo -t @Twitter):hadd mIRCTwitter Method echo -t @Twitter | mtsave
  18. }
  19. alias -l mIRCTwitter {
  20. if ($hget(mIRCTwitter,Active)) { GetmIRCTwitter $v1 $gettok($decode($v1,m),1,58) }
  21. else {
  22. .timermIRCTwitter off
  23. echo -a Error!! No UserName:Password Data. Please return to the menu and setup the script properly
  24. }
  25. }
  26. alias -l GetmIRCTwitter {
  27. var %sockname $+(mIRCTwitter,$network,$2,$ticks)
  28. sockopen %sockname twitter.com 80
  29. sockmark %sockname $+(/statuses/home_timeline/,$2,.rss?since_id=,$iif($hget(mirctwitter,last_id),$hget(mirctwitter,last_id),1),&count=50) $1 0 1 0
  30. }
  31. On *:sockopen:mIRCTwitter*: {
  32. if (!$sockerr) {
  33. sockwrite -nt $sockname GET $gettok($sock($sockname).mark,1,32) HTTP/1.0
  34. sockwrite -n $sockname Host: twitter.com
  35. sockwrite -nt $sockname Authorization: Basic $gettok($sock($sockname).mark,2,32)
  36. sockwrite -n $sockname $str($crlf,2)
  37. }
  38. else { echo -st Socket Error $nopath($script) | sockclose $sockname | return }
  39. }
  40. On *:sockread:mIRCTwitter*: {
  41. if ($sockerr) { echo -st Socket Error $nopath($script) | sockclose $sockname | return }
  42. else {
  43. var %mIRCTwitter | sockread %mIRCTwitter
  44. if (<item> isin %mIRCTwitter) { sockmark $sockname $puttok($sock($sockname).mark,1,3,32) }
  45. elseif ($gettok($sock($sockname).mark,4,32)) && ($regex(%mIRCTwitter,//([^/]*)</guid>/)) {
  46. hadd mIRCTwitter Last_ID $regml(1)
  47. sockmark $sockname $puttok($sock($sockname).mark,0,4,32)
  48. }
  49. elseif ($gettok($sock($sockname).mark,3,32)) && ($regex(%mIRCTwitter,<title>(.*)</title>)) {
  50. sockmark $sockname $puttok($sock($sockname).mark,$calc($gettok($sock($sockname).mark,5,32) + 1),5,32)
  51. var %Method $hget(mIRCTwitter,Method)
  52. if (%Method == echo -at) { %Method $fix&#($+(09<07,$gettok($regml(1),1,58),09>04) $gettok($regml(1),2-,58)) }
  53. elseif ($me ison $gettok(%Method,3,32)) {
  54. .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))
  55. }
  56. else {
  57. if (!$window(@Twitter)) { window -E @Twitter }
  58. var %NextTweet $fix&#($+(09<07,$gettok($regml(1),1,58),09>04) $gettok($regml(1),2-,58)) 02,08[04RT02]
  59. echo -t @Twitter %NextTweet
  60. if ($istok(%NextTweet,%MyTwitterName,32)) {
  61. if (!$window(%MyTwitterName)) { window -E %MyTwitterName }
  62. echo -t %MyTwitterName %NextTweet
  63. }
  64. }
  65. }
  66. }
  67. }
  68. alias -l urlencode return $regsubex($1-,/([^a-z0-9])/ig,$+(%,$base($asc(\t),10,16,2)))
  69. alias -l TwitterAuthCheck {
  70. var %sockname $+(mTwitterAuthCheck,$network,$2,$ticks)
  71. sockopen %sockname twitter.com 80
  72. sockmark %sockname /account/verify_credentials.xml $encode($1,m)
  73. }
  74. On *:sockopen:mTwitterAuthCheck*: {
  75. if (!$sockerr) {
  76. sockwrite -nt $sockname GET $gettok($sock($sockname).mark,1,32) HTTP/1.0
  77. sockwrite -n $sockname Host: twitter.com
  78. sockwrite -n $sockname Authorization: Basic $gettok($sock($sockname).mark,2,32)
  79. sockwrite -n $sockname $crlf
  80. }
  81. else { echo -st Socket Error $nopath($script) | sockclose $sockname | return }
  82. }
  83. On *:sockread:mTwitterAuthCheck*: {
  84. if ($sockerr) { echo -st Socket Error $nopath($script) | sockclose $sockname | return }
  85. else {
  86. var %mTwitterAuthCheck | sockread %mTwitterAuthCheck
  87. if (HTTP/1.1 401 Unauthorized isin %mTwitterAuthCheck) {
  88. echo -a Incorrect UserName:Password Combination!! Please Try Again with the Correct Information.
  89. sockclose $sockname
  90. return
  91. }
  92. elseif ($regex(%mTwitterAuthCheck,/<name>(.*)</name>/)) {
  93. echo -a $regml(1) Your Account has been Verified and Your Information has been Stored in my Secure Encrypted Database.
  94. hadd -m mIRCTwitter Active $gettok($sock($sockname).mark,2,32)
  95. set %MyTwitterName $+(@,$gettok($decode($hget(mIRCTwitter,Active),m),1,58))
  96. mtsave
  97. sockclose $sockname
  98. }
  99. }
  100. }
  101. alias -l mIRCTweet {
  102. if ($hget(mIRCTwitter,Active)) { mTwitterUpdate $v1 echo -a $1- }
  103. }
  104. ;mTwitterUpdate mimeEncodedAuth method place UnEncodedUpdate
  105. alias -l mTwitterUpdate {
  106. var %sockname $+(mTwitterUpdate,$network,$2,$ticks)
  107. sockopen %sockname twitter.com 80
  108. sockmark %sockname $2-3 /statuses/update.xml $1 $+(status=,$urlencode($left($4-,140)))
  109. }
  110. On *:sockopen:mTwitterUpdate*: {
  111. if (!$sockerr) {
  112. sockwrite -nt $sockname POST $gettok($sock($sockname).mark,3,32) HTTP/1.1
  113. sockwrite -n $sockname Host: twitter.com
  114. sockwrite -nt $sockname Authorization: Basic $gettok($sock($sockname).mark,4,32)
  115. sockwrite -n $sockname Content-Type: application/x-www-form-urlencoded
  116. sockwrite -n $sockname Content-Length: $len($gettok($sock($sockname).mark,5,32))
  117. sockwrite -n $sockname $crlf
  118. sockwrite -nt $sockname $gettok($sock($sockname).mark,5,32)
  119. sockwrite -n $sockname $crlf
  120. }
  121. else { echo -st Socket Error $nopath($script) | sockclose $sockname | return }
  122. }
  123. On *:sockread:mTwitterUpdate*: {
  124. if ($sockerr) { echo -st Socket Error $nopath($script) | sockclose $sockname | return }
  125. else {
  126. var %mTwitterUpdate | sockread %mTwitterUpdate
  127. if (HTTP/1.1 401 isin %mTwitterUpdate) {
  128. $gettok($sock($sockname).mark,1-2,32) Username/Password Incorrect. Please message me to properly setup your account.
  129. }
  130. elseif (HTTP/1.1 502 isin %mTwitterUpdate) || (HTTP/1.1 503 isin %TwitterUpvar) {
  131. $gettok($sock($sockname).mark,1-2,32) Servers are Busy. Please try again Later.
  132. }
  133. elseif (HTTP/1.1 500 isin %mTwitterUpdate) { $gettok($sock($sockname).mark,1-2,32) Internal Server Error. }
  134. elseif (HTTP/1.1 403 isin %mTwitterUpdate) { $gettok($sock($sockname).mark,1-2,32) Connection was actively refused. }
  135. elseif (HTTP/1.1 400 isin %mTwitterUpdate) { $gettok($sock($sockname).mark,1-2,32) Unknown Error }
  136. elseif (HTTP/1.1 200 isin %mTwitterUpdate) { $gettok($sock($sockname).mark,1-2,32) Updating Status.. Please Wait... }
  137. elseif (</status> isin %mTwitterUpdate) { .timer 1 3 $gettok($sock($sockname).mark,1-2,32) Status Updated. }
  138. }
  139. }
  140. On *:input:@Twitter,%MyTwitterName: {
  141. if ($left($1,1) != /) {
  142. haltdef
  143. echo -t $active $+(07<09,$mid(%MyTwitterName,2-),07>09) $1-
  144. mIRCTweet $1-
  145. }
  146. }
  147. alias -l fix&# { return $replace($regsubex($1-,/\&\#([0-9]{1,});/g,$utf8(\t)),",",&,&,>,>,<,<,&#39;,',|,,$chr(9),$chr(32)) }
  148. alias -l UTF8 {
  149. if ($1 < 255) { return $chr($1) }
  150. if ($1 >= 256) && ($1 < 2048) { return $+($chr($calc(192 + $div($1,64))),$chr($calc(128 + $mod($1,64)))) }
  151. if ($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)))) }
  152. if ($1 >= 65536) && ($1 < 2097152) {
  153. return $+($chr($calc(240 + $div($1,262144))),$chr($calc(128 + $mod($div($1,4096),64))),$chr($calc(128 + $mod($div($1,64),64))),$&
  154. $chr($calc(128 + $mod($1,64))))
  155. }
  156. }
  157. alias -l div { return $int($calc($1 / $2)) }
  158. alias -l mod {
  159. var %int $int($calc($1 / $2))
  160. return $calc($1 - (%int * $2))
  161. }
  162. alias -l H2U { return $utf8($base($1,16,10)) }
  163. alias -l mtsave {
  164. .timermIRCTwitter -o 0 $iif($hget(mIRCTwitter,Delay),$hget(mIRCTwitter,Delay),60) mIRCTwitter
  165. if ($hget(mIRCTwitter)) { hsave mIRCTwitter mIRCTwitter.hsh }
  166. }
  167. on ^$*:HOTLINK:/^<([^<>]*)>/S:@Twitter,%MyTwitterName:{
  168. if ($1) { return }
  169. halt
  170. }
  171. on ^$*:HOTLINK:/^\[RT\]/S:@Twitter,%MyTwitterName:{
  172. if ($1) { return }
  173. halt
  174. }
  175. on $*:HOTLINK:/^<([^<>]*)>/S:@Twitter,%MyTwitterName:{
  176. if ($mouse.key) { editbox $active $+(@,$strip($regml(1))) }
  177. halt
  178. }
  179. on $*:HOTLINK:/^\[RT\]/S:@Twitter,%MyTwitterName:{
  180. if ($mouse.key) {
  181. noop $regex($hotline,/<([^<>]*)>(.*)\[RT\]/S)
  182. editbox $active RT $strip($+(@,$regml(1)) $regml(2))
  183. }
  184. halt
  185. }
  186. On *:Start: {
  187. hmake mIRCTwitter 1
  188. if ($isfile(mIRCTwitter.hsh)) { hload mIRCTwitter mIRCTwitter.hsh | mtsave }
  189. }
  190. On *:Unload: {
  191. if ($hget(mIRCTwitter)) { hfree mIRCTwitter }
  192. if ($isfile(mIRCTwitter.hsh)) { .remove mIRCTwitter.hsh }
  193. unset %MyTwitterName
  194. }
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!