[Heartbroken]

Biri Mirc Kodundan Tcl'ye
Çevirmemi İstemişti.
Böyle Küçük-Basit Bir Kod Parçasıyla
Yapıp Göndermiştik Kendisini...


Prosedür İçerisinde :
set trdil "en"
Hedef Dili Belirler Oradan Kendiniz
Değişebilirsiniz.
Ardı Ardına Çok Fazla Kullanırsanız
Google Bundan Hoşlanmıyor!
Bir Süre Bloke Ediyor IP'den
Benden Söylemesi!...

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

package require http
package require eggdrop 1.8

bind pub - .tr tr_TR

proc tr_TR {nick uhost hand chan arg} {
    set tran [string tolower [stripcodes * $arg]]
    set LTxt [lindex [split $tran] 0]
    if {[regexp -- {^@[a-z]{2}$} $LTxt]} {
        set trdil [string range $LTxt 1 end]
        set TAra [join [lrange [split $tran] 1 end]]
    } else {
        set trdil "en"
        set TAra [join [lrange [split $tran] 0 end]]
    }
    catch { eval exec curl -sS https://translate.googleapis.com/translate_a/single?[http::formatQuery client gtx sl auto tl $trdil dt t q $TAra] } offsh
    regexp -- {\"([^\"]+)\"} $offsh - trns
    putmsg $chan $trns
    return 0
}

Kullanımı:

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