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ı:
Code ; Heartbroken