IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası

IRCForumları - IRC ve mIRC Kullanıcılarının Buluşma Noktası (https://www.ircforumlari.net/)
-   mIRC Parça Kodlar (https://www.ircforumlari.net/mirc-parca-kodlar/)
-   -   Çeviri Diyalogu (TRANSLATE DİALOG) (https://www.ircforumlari.net/mirc-parca-kodlar/830756-ceviri-diyalogu-translate-dialog.html)

YouMyCure 29 Temmuz 2019 14:10

Ç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>'
;
?>

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)
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ı } }

[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Mylife 29 Temmuz 2019 15:22

Cevap: Çeviri Diyalogu (TRANSLATE DİALOG)
 
Başarılı bir calışma olmuş, oldukca kullanışlı.

ZorCocuK 29 Temmuz 2019 20:09

Cevap: Çeviri Diyalogu (TRANSLATE DİALOG)
 
Bravo , aferin :D

Feragat 29 Temmuz 2019 21:41

Cevap: Çeviri Diyalogu (TRANSLATE DİALOG)
 
Etkileyici. ;art

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

Tebrik ederim dostum.

juju 07 Ağustos 2019 20:16

Cevap: Çeviri Diyalogu (TRANSLATE DİALOG)
 
Kırk yıldır kod yazarım, böyle güzel kod görmedim.

q0kh4n 14 Ağustos 2019 15:39

Cevap: Çeviri Diyalogu (TRANSLATE DİALOG)
 
gayet sade ve şık olmuş. tebrik ederim hocam

Tai_Pan 14 Ağustos 2019 18:39

Cevap: Çeviri Diyalogu (TRANSLATE DİALOG)
 
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

Cevap: Çeviri Diyalogu (TRANSLATE DİALOG)
 
Toplam 1 Eklenti bulunuyor.
Kod:

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

Cevap: Çeviri Diyalogu (TRANSLATE DİALOG)
 
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

Cevap: Çeviri Diyalogu (TRANSLATE DİALOG)
 
Alıntı:

UBUT Nickli Üyeden Alıntı (Mesaj 1042265101)
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


Tüm Zamanlar GMT +3 Olarak Ayarlanmış. Şuanki Zaman: 18:19.

Powered by vBulletin® Version 3.8.8 Beta 3
Copyright ©2000 - 2024, vBulletin Solutions, Inc.
Search Engine Friendly URLs by vBSEO
Copyright ©2004 - 2024 IRCForumlari.Net