mIRC Türkçe Sözlük

Kod Amacı: Türkçe Kelimelerin Sözlük Anlamlarını Bulmak.
Kodu mircinizin remote (ALT+R) bölümüne ekleyiniz.

alias duzlt return $replace($1,&amp;bull;, ,&amp;ccedil;,$chr(231),&amp;ouml;,$chr(246),&amp;uuml;,$chr(252),Ä±,$chr(253),ÅŸ,$chr(254),ÄŸ,$chr(240),Ä°,$chr(221),Å,$chr(222),Ã‡,$chr(199),Ã§,$chr(231),Ãœ,$chr(220),Ã¶,$chr(246),Ã–,$chr(214),Ã¼,$chr(252),Ãœ,$chr(220),&amp;rsquo;,$chr(146),&amp;acirc;,$chr(226),Ä,$chr(208),&amp;nbsp;,$chr(32))
on *:sockopen:trsorgula: { 
  sockwrite -nt $sockname GET /1/ $+ %ymc_k $+ / HTTP/1.1
  sockwrite -nt $sockname Host: www.birsozluk.com
  sockwrite -nt $sockname $crlf
}
on *:sockread:trsorgula:{
  var %i
  sockread %i
  if *SÃ–ZLÃœK ANLAMI* iswm %i {
    msg $active 4Kelimeniz;2 %ymc_k
    msg $active 4Sozluk Anlami;2 $duzlt($gettok($gettok($gettok($gettok(%i,3,$asc(")),5,$asc(/)),3,$asc(>)),1,$asc(&lt;)))
  }
}
on *:input:*: {
  if $regex($1,/^(&#91;.!]s&#91;oÖö]zl&#91;üÜu]k)/Si) {
    if !$2 { msg $active Hatalı Kullanım Sözcük Belirtmediniz. | return }
    if $3- { msg $active Hatalı Kullanım Tek Kelimeden Oluşan Sözcükler Belirtin. | return }
    set %ymc_k $2
    sockclose trsorgula
    sockopen trsorgula www.birsozluk.com 80
  }
}

alias duzlt return $replace($1,&bull;, ,&ccedil;,$chr(231),&ouml;,$chr(246),&uuml;,$chr(252),Ä±,$chr(253),ÅŸ,$chr(254),ÄŸ,$chr(240),Ä°,$chr(221),Å,$chr(222),Ã‡,$chr(199),Ã§,$chr(231),Ãœ,$chr(220),Ã¶,$chr(246),Ã–,$chr(214),Ã¼,$chr(252),Ãœ,$chr(220),&rsquo;,$chr(146),&acirc;,$chr(226),Ä,$chr(208),&nbsp;,$chr(32))

on *:sockopen:trsorgula: {