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
}