## TRANSLATE.TCL ßy rascoLn ##
##############################
package require http 

set tkanal "#kanaladi" ;# Komutlarin geçerli olacagi kanal
set trkomut ".tr" ;# Turkceden Ingilizceye Ceviri Komutu
set enkomut ".en" ;# Ingilizceden Turkceye Ceviri Komutu

bind pubm - "*" translate

proc translate {n u h c a} {
if { $c eq $::tkanal } {
if { [lindex $a 0] == $::enkomut } {
set entrbaglan [::http::geturl "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
map -nocase { " " "%20" } [lrange $a 1 end]]&lang1=en&lang2=tr" -timeout 5000]
set entrdata [::http::data $entrbaglan]
::http::cleanup $entrbaglan
} elseif { [lindex $a 0] == $::trkomut } {
set entrbaglan [::http::geturl "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajýnýz olmasý gerekir.
map -nocase { " " "%20" } [lrange $a 1 end]]&lang1=tr&lang2=en" -timeout 5000]
set entrdata [::http::data $entrbaglan]
::http::cleanup $entrbaglan
}
if {![info exists entrdata]} { return 0 }
regexp -- {<td><textarea style="border:none; background-color:transparent; resize:none" rows="8" cols="58">(.*?)</textarea></td>} $entrdata - entr
if { ![string match [string map {"Ü" "ü" "Ö" "ö" "Ç" "ç" "Ð" "ð"} [lrange $a 1 end]] [string map -nocase {"&nbsp;" "" "°" "Ý" "ÄŸ" "ð" "Ä°" "i" "ç" "ç" "ı" "ý" "ü" "ü" "ÅŸ" "þ" "^ž" "Þ" "ö" "ö"} $entr]] & $entr ne " " } {
if { [lindex $a 0] == $::enkomut } {
putquick "privmsg $c :\00311,1  Ýngilizce:\0030 [lrange $a 1 end]  \003 \0030,1  \00311->\0030 t\0037r\00311a\0039n\0038s\0034l\00315a\00313t\0030e \0039->  \003 \0039,1  Türkçe:\0030 [string map -nocase {"&nbsp;" "" "°" "Ý" "ÄŸ" "ð" "Ä°" "i" "ç" "ç" "ı" "ý" "ü" "ü" "ÅŸ" "þ" "^ž" "Þ" "ö" "ö"} [encoding convertfrom utf-8 $entr]]  \003"
} elseif { [lindex $a 0] == $::trkomut } {
putquick "privmsg $c :\0039,1  Türkçe:\0030 [lrange $a 1 end]  \003 \0030,1  \0039->\0030 t\0037r\00311a\0039n\0038s\0034l\00315a\00313t\0030e \00311->  \003 \00311,1  Ýngilizce:\0030 [string map -nocase {"&nbsp;" ""} $entr]  \003"
}
} else {
putquick "privmsg $c :\0034[lrange $a 1 end]\003 ile ilgili çeviri bulunamadý.."
}
}
}

putlog "translate.tcl coding by rascoLn"