Çeviri Diyalogu (TRANSLATE DİALOG)

Aytac

Developer
Yönetici
Developer
Katılım
4 Şub 2020
Mesajlar
373
Tepkime puanı
17
Puanları
18
Konum
ircland
Web sitesi
www.ircalem.net
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:
<?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 KODLARI
Kod:
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([MENTION=143461]TRA[/MENTION]NSLATE),window -n [MENTION=143461]TRA[/MENTION]NSLATE) | echo -t [MENTION=143461]TRA[/MENTION]NSLATE $token(%i,2-,32)  | did -r translate 6 | did -a translate 6 Metin [MENTION=143461]TRA[/MENTION]NSLATE penceresine yansıtıldı } }

bNAdc8.png
 
Üst