Türkçe Ingilizce - Ingilizce Türkçe kelime ceviri kodlaması

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

<div style="margin:20px; margin-top:5px"> Kod:
alias Translate {
set %XPass 4,4.4,1 XPass 4,4.
sockopen $+(trans_word*,$1) www.tureng.com 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 *Tureng*-*-* iswm %t:word { set %/total:word $addtok(%/total:word,$+(4Kelime:5,$gettok($gettok(%t:word,2,45),1,45)),32) }
if (*

Paylaşım için teşekkür ederim

Teşekkürler.