;Language Translator
;Version 1.00
;by LemonButt (lemonbutt@graffiti.net)
Menu Menubar {
-
Language Translator: { LT }
-
}
On *:Sockopen:LT: {
Sockwrite -tn $Sockname GET $+(http://www.babelfish.altavista.com/tr?lp=,%~~lt.language,&trtext=,%~~lt.text,) HTTP/1.1
Sockwrite -tn $Sockname Host: babelfish.altavista.com $+ $Str($Crlf,2)
Sockwrite -tn $Sockname User-Agent: mIRC
Sockwrite -tn $Sockname $Crlf
Unset %~~lt.language
Unset %~~lt.text
}
On *:Sockread:LT: {
If ($Sockerr) { Sockclose $Sockname | Echo -a An error has occured: $Sockerr | Halt }
Elseif (%~~tbsitu.updated == $Null) {
Sockread %~~lt.sockread
If (*<td bgcolor=white class=s><div style=padding:10px;>* Iswm %~~lt.sockread) && ($Dialog(LT) != $Null) {
Set %~~lt.settings $Gettok(%~~lt.settings,1-2,32) $Calc($Gettok(%~~lt.settings,3,32) + 1)
Did -ra LT 105 $Gettok($Gettok(%~~lt.sockread,3,60),2,62)
Did -ra LT 110 Total Messages Translated: $Gettok(%~~lt.settings,3,32)
}
}
Unset %~~lt.sockread
}
On *:Load: { Set %~~lt.settings 3 4 0 }
On *:Unload: { Unset %~~lt.* }
Dialog LT {
Title "Language Translator [/lt]"
Size -1 -1 205 110
Option DBU
Box "Source", 100, 5 5 195 40
Combo 101, 10 14 50 10, Drop
Edit "", 102, 65 14 130 25, Multi, AutoVS
Box "Translation", 103, 5 50 195 40
Combo 104, 10 59 50 10, Drop
Edit "", 105, 65 59 130 25, Multi, AutoVS
Button "Translate", 106, 10 29 50 10, OK
Button "Swap Languages", 107, 10 74 50 10
Button "About", 108, 115 95 40 10
Button "Close", 109, 160 95 40 10
Text "", 110, 5 96 110 10
}
On *:Dialog:LT:*:*: {
If ($Devent == Init) {
Set -u0 %~~lt.init 1
While ($LT.Language(%~~lt.init) != $Null) { Did -a $Dname 101,104 $LT.Language(%~~lt.init) | Inc %~~lt.init }
Did -c $Dname 101 $Gettok(%~~lt.settings,1,32)
Did -c $Dname 104 $Gettok(%~~lt.settings,2,32)
Did -ra $Dname 110 Total Messages Translated: $Gettok(%~~lt.settings,3,32)
Did -f $Dname 106
}
If ($Devent == Sclick) {
If ($Did == 106) {
If ($Did($Dname,101).sel != $Did($Dname,104).sel) && ($Did($Dname,102) != $Null) { LT.Translate $+($LT.Language($Did($Dname,101).seltext),_,$LT.Language($Did($Dname,104).seltext)) $Did($Dname,102) }
ElseIf ($Did($Dname,102) == $Null) { LT $Input(Please enter text to translate.,wdo,Enter Text) }
Else { LT $Input(Please select two different languages.,wdo,Same Language) }
Haltdef
}
If ($Did == 107) { Set -u0 %~~lt.source $Did($Dname,101).sel | Did -c $Dname 101 $Did($Dname,104).sel | Did -c $Dname 104 %~~lt.source }
If ($Did == 108) { LT $Input($+(Language Translator,$Crlf,Version 1.00,$Crlf,by LemonButt (lemonbutt@graffiti.net)),ido,About) }
If ($Did == 109) { Dialog -x $Dname }
}
}
Alias LT {
If ($1 == $Null) {
If ($Dialog(LT) == $Null) { Dialog -m LT LT }
Else { Dialog -v LT }
}
}
Alias -l LT.Translate {
Sockclose LT
Set %~~lt.language $$1
Set %~~lt.text $Replace($$2-,$Chr(32),$+($Chr(37),20))
Set %~~lt.settings $Did(LT,101).sel $Did(LT,104).sel $Gettok(%~~lt.settings,3,32)
Sockopen LT babelfish.altavista.com 80
}
Alias -l LT.Language {
If ($$1 == English) { Return en }
ElseIf ($$1 == Chinese) { Return zh }
ElseIf ($$1 == Dutch) { Return nl }
ElseIf ($$1 == French) { Return fr }
ElseIf ($$1 == German) { Return de }
ElseIf ($$1 == Greek) { Return el }
ElseIf ($$1 == Italian) { Return it }
ElseIf ($$1 == Japanese) { Return ja }
ElseIf ($$1 == Korean) { Return ko }
ElseIf ($$1 == Portuguese) { Return pt }
ElseIf ($$1 == Russian) { Return ru }
ElseIf ($$1 == Spanish) { Return es }
ElseIf ($$1 == 1) || ($$1 == zh) { Return Chinese }
ElseIf ($$1 == 2) || ($$1 == nl) { Return Dutch }
ElseIf ($$1 == 3) || ($$1 == en) { Return English }
ElseIf ($$1 == 4) || ($$1 == fr) { Return French }
ElseIf ($$1 == 5) || ($$1 == de) { Return German }
ElseIf ($$1 == 6) || ($$1 == el) { Return Greek }
ElseIf ($$1 == 7) || ($$1 == it) { Return Italian }
ElseIf ($$1 == 8) || ($$1 == ja) { Return Japanese }
ElseIf ($$1 == 9) || ($$1 == ko) { Return Korean }
ElseIf ($$1 == 10) || ($$1 == pt) { Return Portuguese }
ElseIf ($$1 == 11) || ($$1 == ru) { Return Russian }
ElseIf ($$1 == 12) || ($$1 == es) { Return Spanish }
}
