Çeviri Diyalogu (TRANSLATE DİALOG) - IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

YouMyCure · 29 Temmuz 2019, 14:10

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 Kod: Kodu kopyalamak için üzerine çift tıklayın!


<?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: Kodu kopyalamak için üzerine çift tıklayın!

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) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]NSLATE),window -n @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]NSLATE) | echo -t @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]NSLATE $token(%i,2-,32)  | did -r translate 6 | did -a translate 6 Metin @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]NSLATE penceresine yansıtıldı } }

Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Mylife · 29 Temmuz 2019, 15:22

Başarılı bir calışma olmuş, oldukca kullanışlı.

ZorCocuK · 29 Temmuz 2019, 20:09

Bravo , aferin
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Feragat · 29 Temmuz 2019, 21:41

Etkileyici.
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

Gereksiz sayılabilecek şeyler kullanmamışsın, sade-yalın

Tebrik ederim dostum.

juju · 07 Ağustos 2019, 20:16

Kırk yıldır kod yazarım, böyle güzel kod görmedim.

q0kh4n · 14 Ağustos 2019, 15:39

gayet sade ve şık olmuş. tebrik ederim hocam

Tai_Pan · 14 Ağustos 2019, 18:39

Recep kardeşim istesin yeter ki çok şeyler yapar ve emeği de çok üzerimizde.. Başarılarının devamını diliyorum..

Tai_Pan · 14 Ağustos 2019, 23:33

Kod: Kodu kopyalamak için üzerine çift tıklayın!

alias tmscumleceviri { dialog -m tmscumleceviri tmscumleceviri }
dialog tmscumleceviri {
  title "Cümle Çevirici"
  size -1 -1 177 153
  icon $mircdirTMSResim\cumlecevirici.ico  
  option dbu
  text "AŞAĞIDAKİ BU DİLDEN", 1, 14 15 73 8
  text "ŞU DİLE ÇEVİR", 2, 115 15 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 "Cümle Çevirisini Yap", 7, 6 126 76 21
  button "Diyalogu KAPAT", 8, 98 126 76 21, cancel
  icon 9, 1 -6 175 25, TMSResim\cumlebayrak.jpg, 0
}
on *:dialog:tmscumleceviri:*:*:{
  if ($devent = init) {
    var %mdx dll dll\mdx.dll
    %mdx MarkDialog $dname
    %mdx SetDialog $dname bgcolor $rgb(99,184,255)
    %mdx SetFont $dname 1,2,5,6 +b Turkish 12 600 Arial
    %mdx SetFont $dname 7,8 +b Turkish 15 600 Arial    
    %mdx SetColor $dname 1,2,3,4,5,7,8,9 textbg $rgb(99,184,255)
    %mdx SetColor $dname 1,2,3,4,5,7,8,9 background $rgb(99,184,255)
    %mdx SetColor $dname 6 text $rgb(255,0,0)
    did -r $dname 3,4
    did -a $dname 3,4 tr_TÜRKÇE
    did -a $dname 3,4 en_İNGİLİZCE
    did -a $dname 3,4 de_ALMANCA
    did -a $dname 3,4 fr_FRANSIZCA
    did -a $dname 3,4 ru_RUSCA
    did -a $dname 3,4 az_AZERİCE
    did -a $dname 3,4 sl_YUNANCA
    did -a $dname 3,4 ar_ARAPÇA
    did -a $dname 3,4 pl_İBRANİCE
    did -a $dname 3,4 ja_JAPONCA
    did -a $dname 3,4 zh_ÇİNCE
    did -a $dname 3,4 it_İTALYANCA
    did -a $dname 3,4 pt_PORTEKİZCE
  }
  elseif ($devent = sclick) && ($did = 7) {
    var %:cvr $r(1000000000,9999999999) | sockopen $+(ceviri,%:cvr) 
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
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(@[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]),window -n @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]) | echo -t @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] $token(%i,2-,32)  | did -r tmscumleceviri 6 | did -a tmscumleceviri 6 Çevirisi Yapılan Cümle @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] Penceresine Yansıtıldı.. } }

Renkli diyalog sevenler için düzenlemedir.. Gerekli olan dll, ico, jpeg ve kod txt dosyaları, linkteki dosyanın içerisindedir ve kırmızı ile belirtilen yerleri kendi scriptinize göre ayarlayınız.. Ellerine sağlık tekrar @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...] kardeşim harika bir çalışma..

Ekran görüntüsü ve Download Linki: [Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

UBUT · 07 Mart 2020, 01:32

emeğine sağlık @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

bunu kanalda .çeviri yazarak kanala yansıtma şansımız var mı?

YouMyCure · 19 Mayıs 2020, 22:29

UBUT Nickli Üyeden Alıntı
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

emeğine sağlık @[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

bunu kanalda .çeviri yazarak kanala yansıtma şansımız var mı?

Tabiki var lakin suanda askerde olduğum için pek fazla ilgilenemiyorum forum uzerindeki arkadaslarim yardimci olur illaki

Benzer Konular
Konu	Konuyu Başlatan	Forum	Cevaplar	Son Mesaj
Google Translate (çeviri)	muratt_aziz	mIRC Scripting Hazır Kodlar	12	26 Nisan 2020 02:17
Google Translate, Evrensel Çeviri Yapmayı Öğrendi	Dream	Google	0	30 Kasım 2016 12:56
MSG/AME Koruma Diyalogu	R3dLine	mIRC Parça Kodlar	9	09 Mart 2016 22:19
Teşekkür diyalogu	Poison341	mIRC Scripting Sorunları	2	03 Ekim 2015 17:29
Translate.tcl ( tr -> en \| en -> tr )	rascoLn	TCL Scriptler	8	02 Mart 2015 18:55

Konuyu Toplam 1 Üye okuyor. (0 Kayıtlı üye ve 1 Misafir)

Etiketlenen Kullanıcılar
Etiketlemek istediğiniz kullanıcılar arasına virgül koyunuz. Örnek: nokta,sukunet,NucLear

5846 sayılı Fikir ve Sanat Eserleri Kanunu gereğince sitemizde telif hakkı bulunan mp3,video v.b. eserlerin paylaşımı yasaktır. Yasal işlem olması halinde paylaşan kişi yada kişilerin bilgileri gerekli kuruma verilecektir.