when i use this it works but i get an error saying
9««08Ë®®öR09»» 11 Unknown command:08 SCLICK
I tried getting hold of the guy but know luck can any coders here help.
on mirc 6.16
code is
;Translator v1.0
;EronScript 2003 by Eron
;www.eronscript.tk
alias trans translate
alias translate {
if ($dialog(translate) == $null) { dialog -m translate translate }
sockclose translate
if $1 != $null { sockopen translate
www.systranlinks.com 80 }
}
dialog translate {
title "Eron translator v1.0"
size -1 -1 406 141
box "", 2, 2 -2 0 125
edit "", 3, 10 48 248 68, multi return vsbar
edit "", 4, 10 150 248 76, read multi return vsbar
combo 15, 268 50 126 180, drop
box "", 26, 0 -6 420 8
edit "", 1, 9 10 388 20, read
text "text to translate", 6, 14 32 88 16
button "send to...", 7, 164 230 90 16, disable
button "copy", 8, 76 230 58 16, disable
button "clear", 9, 10 230 58 16
button "translate", 10, 196 120 58 16, disable
button "stop", 11, 128 120 58 16, disable
button "close", 12, 300 120 58 16, ok cancel
list 13, 260 150 132 76, sort size vsbar
text "select language:", 14, 269 33 79 16
link "www.eronscript.tk", 16, 274 88 120 16
check "include original text", 17, 271 232 116 20
}
on *:dialog:translate:init:*: {
translate.act
translate.list
if ($_vr(translate,orig) == on) { $d(-c) 17 }
}
on *:dialog:translate:edit:*: {
if ($did == 3) {
if ($did(3,$did(3).text) != $null) { $d(-e) 10 }
else { $d(-b) 10 }
}
if ($did == 50) { %transw = $did(3).text }
}
on *:dialog:translate:sclick:*: {
if ($did == 7) { unset %trans* | msg $did(13,$did(13).sel) $orig $t.sendt }
if ($did == 8) { unset %trans* | t.copy }
if ($did == 9) { reg.size | $d(-r) 4 }
if ($did == 10) { reg.size | $d(-e) 11 | translate $replace($did(translate,3),$chr(32),$chr(43),$chr(44),$chr(37) $+ 2C,$chr(191),$chr(37) $+ BF,$chr(63),$chr(37) $+ 3F,$chr(40),$chr(37) $+ 28,$chr(41),$chr(37) $+ 29) | $d(-ra) 1 connecting... }
if ($did == 11) { $d(-ra) 1 stopped | sockclose translate | unset %trans* }
if ($did == 13) { $d(-e) 7 }
if ($did == 15) { _vw translate lang $did(translate,15).sel }
if ($did == 16) { run
http://www.eronscript.tk }
if ($did == 17) {
if ($_vr(translate,orig) == off) { _vw translate orig on }
else { _vw translate orig off }
}
}
alias -l orig {
if ($_vr(translate,orig) == on) {
%trans = 1
:loop
%transs = $did(translate,3,%trans)
if (%transs != $null) { %transcopo = $addtok(%transcopo,%transs,32)
inc %trans | goto loop }
else { return %transcopo »12» }
}
}
alias -l t.sendt {
%trans = 1
:loop
%transs = $did(translate,4,%trans)
if (%transs != $null) { %transcop = $addtok(%transcop,%transs,32)
inc %trans | goto loop }
else { return %transcop }
}
alias -l t.copy {
unset %transcop
%trans = 1
:loop
%transs = $did(translate,4,%trans)
if (%transs != $null) { %transcop = $addtok(%transcop,%transs,32)
inc %trans | goto loop }
else { clipboard %transcop | unset %transcop | unset %trans* }
}
on *:sockread:translate:{
sockread %temp
if (name="translation" isin %temp) && ($dialog(translate)) {
did -ra translate 4 $gettok($gettok(%temp,2,62),1,60)
$d(-o) 1 1 translated.
$d(-e) 8
$d(-b) 11
}
unset %temp
}
on *:sockopen:translate:{
sockwrite -n translate GET $+(/systran/cgi?lp=,$t.lang,&partner=demo-SystranSoft-fr&urltext=,$replace($did(translate,3),$chr(32),+))
}
on *:sockclose:translate: {
$d(-ra) 1 recieving translated text, please wait...
big.size
}
alias -l big.size {
dialog -s translate -1 -1 406 253
sclick
}
alias -l reg.size {
dialog -s translate -1 -1 406 141 | $d(-b) 7 | translate.act
}
alias -l translate.list {
$d(-r) 15
didtok -a translate 15 44 english - spanish $+ , $+ english - french $+ , $+ english - german $+ , $+ english - italian $+ , $+ english - portuguese $+ , $+ spanish - english $+ , $+ french - german $+ , $+ french - english $+ , $+ french - spanish $+ , $+ french - italian $+ , $+ french - portuguese $+ , $+ german - french $+ , $+ german - english $+ , $+ italian - english $+ , $+ italian - french $+ , $+ portuguese - english
if ($_vr(translate,lang) != $null) { $d(-c) 15 $_vr(translate,lang) }
else { $d(-c) 15 1 }
}
alias -l t.lang {
if ($did(translate,15) == spanish - english) { return es_en }
elseif ($did(translate,15) == english - spanish) { return en_es }
elseif ($did(translate,15) == english - french) { return en_fr }
elseif ($did(translate,15) == english - german) { return en_de }
elseif ($did(translate,15) == english - italian) { return en_it }
elseif ($did(translate,15) == english - portuguese) { return en_pt }
elseif ($did(translate,15) == french - german) { return fr_de }
elseif ($did(translate,15) == french - english) { return fr_en }
elseif ($did(translate,15) == french - spanish) { return fr_es }
elseif ($did(translate,15) == french - italian) { return fr_it }
elseif ($did(translate,15) == french - portuguese) { return fr_pt }
elseif ($did(translate,15) == german - french) { return de_fr }
elseif ($did(translate,15) == german - english) { return de_en }
elseif ($did(translate,15) == italian - english) { return it_en }
elseif ($did(translate,15) == italian - french) { return it_fr }
elseif ($did(translate,15) == portuguese - english) { return pt_en }
}
menu channel,status,menubar {
-
Translator:translate
}
alias -l translate.act {
if ($dialog(translate) != $null) {
$d(-r) 13
var %channum = 1
var %chanmax = $chan(0)
if (%chanmax == $null) { goto query }
:findchan
if (%channum <= %chanmax) { $d(-i) 13 1 $chan(%channum) | inc %channum 1 | goto findchan }
else { goto query }
:query
var %querymax = $query(0)
var %querynum = 1
:findquery
if ($query(%querynum) == $null) { return }
if (%querynum <= %querymax) { $d(-i) 13 1 $query(%querynum) | inc %querynum 1 | goto findquery }
else { return }
}
}
alias -l d return did $1 translate
on *:join:#: if ($nick == $me) { .timer -m 1 1 translate.act }
on *:part:#: if ($nick == $me) { .timer -m 1 1 translate.act }
on *:kick:#: if ($knick == $me) { .timer -m 1 1 translate.act }
on *:open:?: { .timer -m 1 1 translate.act }
on *:close:?: { .timer -m 1 1 translate.act }
on *:input:?: { .timer -m 1 1 translate.act }
}
on *:load:{ echo -a 4Eron Translator v1.0 | echo -a 4Please type: /translate to begin. }
