Çeviri Diyalogu (TRANSLATE DİALOG)

Merhaba, yabancı serverlerde özellikle pek fazla yabancı dili olmayan kişilerin rahat sohbet etmesi açısından yaptığım bir kod, bu kodu isterseniz verdiğim php dosyası ile kendi sitenize ekleyerek kullanabilirsiniz, eklemek istemiyorsanız veya siteniz yoksa benim sitem üzerinden de aktif kullanabilirsiniz. ( site patlayana kadar :d )
*NOT: Kendi Sitenize Eklemek İçin Yandex Üzerinden Bir Api Key Almanız Gerekir ve “ALDIĞINIZ API KEY” bu kısma ekleyiniz.
—> yandex api key al

Kullanımı: /translate

*NOT: Dialog Üzerinde İbranice,Yunanca,Rusça,Japonca,Arapça vb. dillerin karakterleri bozuk çıktığı için, farklı pencereye yansıttım.

php kodu;

<?php  

function yandex_cevir($text,$from,$to,$key){

$text = urlencode($text);

$domain="https://translate.yandex.net";

$parametre="/api/v1.5/tr.json/translate?key=";

$sonuc = file_get_contents($domain.$parametre.$key.'&lang='.$from.'-'.$to.'&text='.$text); 

$json = json_decode($sonuc); 

return $json->text[0];

}

$text= $_GET["metin"];

$buraya= $_GET["sen"];

$burdan= $_GET["ben"];

$key="ALDIĞINIZ API KEY";

$text = yandex_cevir($text,$burdan,$buraya,$key);

echo '<html>

<head><title>Translate</title></head>

<body> '.$text.'

</body>

</html>';

?>

<?php

function yandex_cevir($text,$from,$to,$key){

$text = urlencode($text);

$domain="https://translate.yandex.net";

$parametre="/api/v1.5/tr.json/translate?key=";

$sonuc = file_get_contents($domain.$parametre.$key.'&lang='.$from.'-'.$to.'&text='.$text);

$json = json_decode($sonuc);

return $json->text[0];

}

$text= $_GET["metin"];

$buraya= $_GET["sen"];

$burdan= $_GET["ben"];

$key="ALDIĞINIZ API KEY";

$text = yandex_cevir($text,$burdan,$buraya,$key);

echo '<html>

<head><title>Translate</title></head>

<body> '.$text.'

</body>

</html>';

mirc kodu;

alias translate { dialog -m translate translate }
dialog translate {
  title "TRANSLATE"
  size -1 -1 177 153
  option dbu
  text "Hangi Dilden Çeviri Yapılacak ", 1, 6 12 73 8
  text "Hangi Dile Çeviri Yapılacak", 2, 99 12 94 8
  combo 3, 6 24 72 50, size
  combo 4, 98 23 72 50, size
  box "Çevrilecek Metin", 5, 6 78 167 41
  edit "", 6, 9 87 161 28
  button "ÇEVİRİ YAP", 7, 6 126 76 21
  button "KAPAT !", 8, 98 126 76 21, cancel
}
on *:dialog:translate:*:*:{
  if ($devent = init) {
    did -r translate 3,4
    did -a translate 3,4 tr_TÜRKÇE
    did -a translate 3,4 en_İNGİLİZCE
    did -a translate 3,4 de_ALMANCA
    did -a translate 3,4 fr_FRANSIZCA
    did -a translate 3,4 ru_RUSCA
    did -a translate 3,4 az_AZERİCE
    did -a translate 3,4 sl_YUNANCA
    did -a translate 3,4 ar_ARAPÇA
    did -a translate 3,4 pl_İBRANİCE
    did -a translate 3,4 ja_JAPONCA
    did -a translate 3,4 zh_ÇİNCE
    did -a translate 3,4 it_İTALYANCA
    did -a translate 3,4 pt_PORTEKİZCE
  }
  elseif ($devent = sclick) &amp;&amp; ($did = 7) {
    var %:cvr $r(1000000000,9999999999) | sockopen $+(ceviri,%:cvr) www.perfectdent.net 80
    sockmark $+(ceviri,%:cvr) $+(ben=,$token($did(3),1,95),&amp;sen=,$token($did(4),1,95),&amp;metin=,$replace($did(6),$chr(32),$+($chr(37),20),ı,i,İ,i,Ö,o,ö,o,ü,u,Ü,u,ğ,g,Ğ,g,ç,c,Ç,c))
  }
}
on *:sockopen:ceviri*: {
sockwrite -nt $sockname GET $+(/translate.php?,$sock($sockname).mark) HTTP/1.1 | sockwrite -nt $sockname Host: $sock($sockname).addr | sockwrite -nt $sockname $crlf }
on *:sockread:ceviri*:{
var %i | sockread %i | if (&lt;body> isin %i) { $iif(!$window(@TRANSLATE),window -n @TRANSLATE) | echo -t @TRANSLATE $token(%i,2-,32)  | did -r translate 6 | did -a translate 6 Metin @TRANSLATE penceresine yansıtıldı } }

alias translate { dialog -m translate translate }

dialog translate {

title "TRANSLATE"

size -1 -1 177 153

option dbu

text "Hangi Dilden Çeviri Yapılacak ", 1, 6 12 73 8

text "Hangi Dile Çeviri Yapılacak", 2, 99 12 94 8

combo 3, 6 24 72 50, size

combo 4, 98 23 72 50, size

box "Çevrilecek Metin", 5, 6 78 167 41

edit "", 6, 9 87 161 28

button "ÇEVİRİ YAP", 7, 6 126 76 21

button "KAPAT !", 8, 98 126 76 21, cancel

}

on *:dialog:translate:*:*:{

if ($devent = init) {

did -r translate 3,4

did -a translate 3,4 tr_TÜRKÇE

did -a translate 3,4 en_İNGİLİZCE

did -a translate 3,4 de_ALMANCA

did -a translate 3,4 fr_FRANSIZCA

did -a translate 3,4 ru_RUSCA

did -a translate 3,4 az_AZERİCE

did -a translate 3,4 sl_YUNANCA

did -a translate 3,4 ar_ARAPÇA

did -a translate 3,4 pl_İBRANİCE

did -a translate 3,4 ja_JAPONCA

did -a translate 3,4 zh_ÇİNCE

did -a translate 3,4 it_İTALYANCA

did -a translate 3,4 pt_PORTEKİZCE

}

elseif ($devent = sclick) && ($did = 7) {

var %:cvr $r(1000000000,9999999999) | sockopen $+(ceviri,%:cvr) www.perfectdent.net 80

sockmark $+(ceviri,%:cvr) $+(ben=,$token($did(3),1,95),&sen=,$token($did(4),1,95),&metin=,$replace($did(6),$chr(32),$+($chr(37),20),ı,i,İ,i,Ö,o,ö,o,ü,u,Ü,u,ğ,g,Ğ,g,ç,c,Ç,c))

}

on *:sockopen:ceviri*: {

sockwrite -nt $sockname GET $+(/translate.php?,$sock($sockname).mark) HTTP/1.1 | sockwrite -nt $sockname Host: $sock($sockname).addr | sockwrite -nt $sockname $crlf }

on *:sockread:ceviri*:{

var %i | sockread %i | if (<body> isin %i) { $iif(!$window(@TRANSLATE),window -n @TRANSLATE) | echo -t @TRANSLATE $token(%i,2-,32) | did -r translate 6 | did -a translate 6 Metin @TRANSLATE penceresine yansıtıldı } }