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 %/ {
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 }