#

# Google Çevirici

#

# Google Translate API kullanarak tercüme yapın

# Dil seçeneklerine bir çok dil daha eklenebilir

#

# IUC 2025

#

# Kullanım:

#   !tr <lg> Satır

#  lg is the destination language

#

#

namespace eval gTranslator {

    

    set lngs { "fr" "en" "es" "de" "it" "nl" "id" "tr" }

    

    #---------------------------------------------------------------------#

    #                    *** Ayarların Sonu ***                           #

    #   Ne yaptığınızdan emin değilseniz editlemeyin!                     #

    #---------------------------------------------------------------------#

    variable author "IUC"

    variable versionNum "1.0"

    variable versionName "google çevirici"

    

}

 
namespace eval gTranslator {

    

    bind pub - !tr gTranslator::translate

    

    proc translate { nick uhost handle chan text } {

        package require http

        package require json

        set lngto [string tolower [lindex [split $text] 0]]

        if { [lsearch $::gTranslator::lngs $lngto] == -1 } {

            putserv "PRIVMSG $chan :\002Dikkat!:\002 $Çevirilecek dil geçerli değildir."

            return 0

        }

        set text [::http::formatQuery q [join [lrange [split $text] 1 end]]]

        set dturl "http://ajax.googleapis.com/ajax/services/language/detect?v=1.0&q=$text"

        set res [::json::json2dict [::http::data [::http::geturl $dturl]]]

        set lng [dict get $res responseData language]

        if { $lng == $lngto } {

            putserv "PRIVMSG $chan :\002HATA:\002 $lng dan/den $lngto diline çevirilmedi."

            return 0

        }    

        set trurl "http://ajax.googleapis.com/ajax/services/language/translate?v=1.0&langpair=$lng%7C$lngto&$text"

        putlog $trurl

        set res [::json::json2dict [::http::data [::http::geturl $trurl]]]

        putlog $res

        putserv "PRIVMSG $chan :Dil tespit edildi: $lng"

        set substitution {[format %c \1]}

        set trtext [subst [regsub -all -- {&#(\d+);} [dict get $res responseData translatedText] $substitution]]

        putserv "PRIVMSG $chan :$trtext"

    }

    

}

 
putlog "\002$::gTranslator::versionName $::gTranslator::versionNum\002 Yüklendi."