IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası - Türkçe Ingilizce

/translate <Kelime>
yazdığınız kelime Türkçe ise İngilizce karşılığını verir. İngilizce ise Türkçe karşılığını verir.

Kod:

alias Translate { 

  set %XPass 4,4.4,1 XPass 4,4.

  sockopen  $+(trans_word*,$1) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
80

sockmark $+(trans_word*,$1) $+(tr/turkce-ingilizce/,$replace($1,Ü,u,ü,u,ç,c,Ç,c,Ö,o,ö,o,Ş,s,ş,s,İ,i,ı,i,ğ,g,Ğ,g))  }

on *:sockopen:trans_word*:{ if $sockerr { echo -ag %Xpass 5 bağlantı sağlanamadı | halt }

  sockwrite -tn $sockname GET $+(/,$sock($sockname).mark) HTTP/1.1 

  sockwrite -tn $sockname User-Agent: Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/70.0.3538.102 Safari/537.36

  sockwrite -tn $sockname Connection: keep-alive

  sockwrite -tn $sockname Host: tureng.com

  sockwrite -tn $sockname Content-Type: text/html

sockwrite -tn $sockname  $crlf }

on *:sockread:trans_word*:{ var %t:word | sockread %t:word | tokenize 32 $left(%t:word,107)

  if *<ul class="suggestion-list">* iswm %t:word { unset %/total:word | echo -ag %XPass 5Hatalı kelime girişi yaptınız. Lütfen kelimeyi kontrol ediniz! | sockclose $sockname | return }

  if *<title>Tureng*-*-* iswm %t:word { set %/total:word $addtok(%/total:word,$+(4Kelime:5,$gettok($gettok(%t:word,2,45),1,45)),32) }

  if  (*<td class="*" lang="*"><a* iswm %t:word) { inc %/count:word 1 | if %/count:word == 2 { set %/total:word $addtok(%/total:word,$+(4Cevirisi:5,$gettok($gettok($remove($replace(%t:word,','),<,>),-1,34),1,47)),32)

      echo -ag %XPass $replace(%/total:word,Ü,u,ü,u,ç,c,Ç,c,Ö,o,ö,o,Ş,s,ş,s,İ,i,ı,i,ğ,g) | unset %/count:word | unset %/total:word | sockclose $sockname

    } 

  }

}

Benim gibi Ingilizce merakı olan arkadaşların işine yarayacağını umut ederek yazdım.
Geliştirilebilir. Tabi kaynak site bazı kelimeleri çok anlamlandırdığı için istediğiniz yada beklediğiniz cevabı alamayabilirsiniz. Kaynak site arayışım devam ediyor, fırsat bulursam daha kapsamlısını yazmayı düşünüyorum.
Umarım işinize yarar