## 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"

[18:52:01] <Tester> .en what are you doing
[18:52:03] <%BT>   Ýngilizce: what are you doing     -> translate ->     Türkçe: ne yap1yorsun  
[18:52:07] <Tester> .tr nasýlsýn
[18:52:08] <%BT>   Türkçe: nasýlsýn     -> translate ->     Ýngilizce: How? ls? n  
[18:52:16] <Tester> .tr nasilsin
[18:52:17] <%BT>   Türkçe: nasilsin     -> translate ->     Ýngilizce: how are you  
[18:52:26] <Tester> .tr bugun cok yorgunum
[18:52:27] <%BT>   Türkçe: bugun cok yorgunum     -> translate ->     Ýngilizce: I'm very tired today  
[18:53:02] <Tester> .en Corrupted file detected! Please re-upload all Staff Panel files in-binary mode
[18:53:04] <%BT>   Ýngilizce: Corrupted file detected! Please re-upload all Staff Panel files in-binary mode     -> translate ->     Türkçe: Bozuk bir dosya tespit! </span><span title="Please re-upload all Staff Panel files in-binary mode" onmouseover="this.style.backgroundColor='#ebeff9'" onmouseout="this.style.backgroundColor=  
[18:53:14] <Tester> .en Corrupted file detected
[18:53:15] <%BT>   Ýngilizce: Corrupted file detected     -> translate ->     Türkçe: