Twitter Addon
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 |
on *:sockopen:twmud*:{ if ($sockerr) { msg %channel [HATA]: %nick Lütfen tekrar deneyin. } else { sockwrite -n $sockname GET $+(/search?q=,$replace(%twitmud,$chr(32),+)) HTTP/1.1 sockwrite -n $sockname Host: search.twitter.com $+ $CRLF $+ $CRLF } } on *:sockread:twmud*:{ if ($sockerr) { msg %channel [HATA]: %nick Lütfen tekrar deneyin. return } else { var %listen sockread %listen if *'/exit/to/* iswm %listen { if %twitmud isin %listen || $upper(%twitmud) isin %listen { msg %channel 2Hesap: $+(5,$gettok($ayikla(%listen),1,58)) 1, 2Gönderisi: $ayikla2($+(5,$gettok($ayikla(%listen),2,58))) } } } } on *:text:*:#kanal:{ if $1 == !twits { if !$2 { msg $chan [HATA]: Lütfen search edebiliceğim bir hesap girin. ÖRN:!twits $nick $+ } else { if $sock(twmud*).status == on { msg $chan [HATA]: Şuanda başka bir hesaba bakılıyor, 10 saniye sonra tekrar deneyin. } else { msg $chan $nick [Search]: $nick $2- adlı kişisi search ediliyor, bekleyin. set %nick $nick set %channel $chan set %twitmud $2- inc %tw sockopen $+(twmud,%tw) search.twitter.com 80 } } } elseif $1 == !twitn { if !$2 { msg $chan [HATA]: Lütfen search edebiliceğim bir hesap girin. ÖRN:!twitn $nick $+ } else { if $sock(tw2mud*).status == on { msg $chan [HATA]: Şuanda başka bir hesaba bakılıyor, 10 saniye sonra tekrar deneyin. } else { msg $chan $nick [Sonkonular]: $nick $2 adlı kişinin duvarındaki son mesajlar sıralanıyor. Bekleyiniz. set %nick1 $nick set %chan $chan set %nick3 $2 sockopen $+(tw2mud,%tw) <b><span style="color: red">[Üye Olmadan Linkleri Göremezsiniz. <a href="http://www.ircforumlari.net/register.php">Üye Olmak için TIKLAYIN...</a>]</span></b> 80 } } } } on *:sockopen:tw2mud*:{ if ($sockerr) { msg %chan [HATA]: %nick1 Lütfen daha sonra tekrar deneyiniz. return } else { sockwrite -n $sockname GET / $+ %nick3 HTTP/1.0 sockwrite -n $sockname Host: Host: twitter.com sockwrite -n $sockname $crlf } } on *:sockread:tw2mud*:{ if ($sockerr) { msg %chan [HATA]: %nick1 Lütfen daha sonra tekrar deneyiniz. return } else { var %/ sockread %/ if *<span>* iswm %/ { inc %12 msg %chan $+(2,%12) $+ )1 $ayikla($htmlfree(%/)) } } } alias htmlfree { return $regsubex($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)|&[^;]+;|/g,$null) } alias ayikla { var %z, %m = $regsub($1-,/(^[^<]*>|<[^>]*>|<[^>]*$)/g,$null,%z), %z = $remove(%z,&nbsp;,&quot;,&apos;,&lt;3,&amp;,$chr(9)) | return %z } alias ayikla2 { var %y = $replace($1,ÅŸ,ş,ç,ç,ı,ı,ÄŸ,ğ,$chr(246),ö,$chr(214),Ö) | return %y } <b><span style="font-size: xx-small">Amacı: Twitter sitesine bağlanıp kanalda belirtmiş olduğunuz nicki veya kelimeyi:</span></b> |
- !twits kelime (search) kelimeyi twitter adresinde arar.
- !twitn nick (latest news) nickin twitter bloğuna gidip en son hangi mesajlar var onları kanala yansıtır.