Twitter Addon

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) [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] 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 }

Amacı: Twitter 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.