mIRC TWITTER Addon

Amacı: sitesine bağlanıp kanalda belirtmiş olduğunuz nicki veya kelimeyi:
!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.

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) www.twitter.com 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 class="entry-content">* 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 }</span>
ALINTIDIR.

Bir cevap yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir