IRCForumu.ORG - Çeviri .Tcl

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

Kod:

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ı:
[Üye Olmadan Linkleri Göremezsiniz. Üye Olmak için TIKLAYIN...]

Code ; Heartbroken