Çevrimdışı

; Online Translator (using babylon.com) v1.4 by ^BeAsT^
; Use '/bab [word]' to open the dialog.
; More options in menubar.

dialog bab {
title "Online Sözlük"
size -1 -1 %bab.size
option pixels
button "", 1, 0 0 0 0, hide cancel
text "Sözcük:", 2, 5 10 50 15
combo 3, 58 6 110 300, size
text "dil:", 4, 174 10 20 15
combo 5, 201 6 110 300, size
button "Çevir!", 6, 315 6 40 22
box "", 7, 0 -6 360 40
text "", 8, 0 34 360 132
list 9, 0 166 360 22, size
button "", 10, 0 0 0 0, hide
button "", 11, 0 0 0 0, hide default
}
on *:dialog:bab:init:0:{
mdx MarkDialog bab
mdx SetBorderStyle 9 windowedge
mdx SetControlMDX 3 ComboBoxEx dropedit > dlls\mdx\views.mdx
mdx SetControlMDX 5 ComboBoxEx drop > dlls\mdx\views.mdx
mdx SetControlMDX 9 statusbar sizegrip > dlls\mdx\bars.mdx
mdx SetControlMDX 10 positioner size maxbox minbox > dlls\mdx\dialog.mdx
var %1 = 0 | while (%1 < $lines($scriptdirbab.recent.dat)) { inc %1 | did -a bab 3 0 0 0 0 $read($scriptdirbab.recent.dat,%1) }
did -i bab 5 1 iconsize small
var %1 = 0,%2 = -.Arabic.Chinese (S).Chinese (T).Dutch.English (USA).French.German.Greek.Hebrew.Italian.Japanese. Korean.Portuguese.Russian.Spanish.Swedish.Turkish | tokenize 46 %2
while (%1 < 17) { var %3 = $calc(%1 + 1) | did -i bab 5 1 seticon %1 $+ , $+ $scriptdirbab.icl | did -a bab 5 %3 %3 $ [ $+ [ $calc(%3 + 1) ] ] | inc %1 } | did -c bab 5 $findtok(%2,%bab.lang,46)
did -i bab 9 1 seticon small 17, $+ $scriptdirbab.icl
did -i bab 9 1 seticon small 18, $+ $scriptdirbab.icl
did -i bab 9 1 seticon small 19, $+ $scriptdirbab.icl
did -i bab 9 1 seticon small 20, $+ $scriptdirbab.icl
bab.filestart | bab.fileend
nHTMLn attach $nHTMLn(item,$dialog(bab).hwnd id:8)
nHTMLn select $nHTMLn(item,$dialog(bab).hwnd id:8)
nHTMLn navigate $mircdir $+ $scriptdirbab.translation.dat
}
on *:dialog:bab:sclikc:1:{ bab.end | .remove $+(",$scriptdirbab.translation.dat,") }
on *:dialog:bab:sclick:5:{ set %bab.lang $gettok($did(bab,5).seltext,5-,32) }
on *:dialog:bab:sclick:6,11:{
if ($did(bab,6).text == Dur) { bab.end | halt }
if ($did(bab,6).text == Çevir!) {
var %1 = $gettok($did(bab,3).text,5-,32)
if (!%1) { beep | did -f bab 3 | halt }
bab %1
}
}
on *:dialog:bab:sclick:10:{
tokenize 32 $did(bab,10,1).text
var %1 = $dialog(bab).cw
var %2 = $dialog(bab).ch
if ($1 == sizing) {
var %1 = $iif($9 < 360,360,$9)
var %2 = $iif($10 < 188,188,$10)
did -a bab 10 setrect c * * %1 %2
}
if ($1 == size) { set %bab.size %1 %2 | bab.size }
}
dialog bab.about {
title "About"
size -1 -1 255 110
option pixels
button "&Close", 1, 170 77 75 25, cancel
text "Online Translator v1.4 for mIRC v6.03 Written by ^BeAsT^ - April™ Corp.", 2, 55 10 190 30
icon 3, 9 10 32 32, $scriptdirbab.icl, 21
box "", 6, -5 60 265 8
link "
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.
5, 120 42 131 16
text "Powered by:", 4, 55 42 65 15
}
on *:dialog:bab.about:uclick:3:{ did -g bab.about 3 $iif($gettok($did(bab.about,3).text,1,32) == 21,22,21) $+(",$scriptdirbab.icl,") }
on *:dialog:bab.about:sclick:5:{ url -n $did(bab.about,5).text }
on *:sockopen:bab:{
bab.filestart
if ($sockerr > 0) { bab.end Baglanilamadi. | halt }
if ($dialog(bab)) { bab.sb 3 Baglanti kuruldu! Çeviri yapiliyor... }
var %1 = $iif(!%bab.temp.mr,$replace(%bab.lang,English (USA),0,French,1,Italian,2,Spanish,3,Dutch,4,Portu guese,5,German,6,Russian,7,Japanese,8,Chinese (T),9,Chinese (S),10,Greek,11,Korean,12,Turkish,13,Hebrew,14,Ara bic,15,Swedish,48),0)
set %bab.temp.align $iif(%1 == 14 || %1 == 15,align="right" dir="rtl",align="left" dir="ltr")
sockwrite -tn $sockname GET $+(/cgi-bin/info.cgi?word=,%bab.temp.text,&lang=,%1,&type=hp&l ayout=combo.html&n=10&list
Bu forumdaki linkleri ve resimleri görebilmek için en az 25 mesajınız olması gerekir.

sockwrite -tn $sockname Host: $sock($sockname).ip
sockwrite -tn $sockname Connection: Keep-Alive
sockwrite -n $sockname $crlf
}
on *:sockread:bab:{
:bab
var %1 | sockread %1
if (!$sockbr || !$remove(%1,$chr(9)) || $remove(%1,$chr(9)) == </div>) { halt }
if (Sorry - no results were found. isin $remove(%1,$chr(9))) {
if (!%bab.temp.mr && %bab.lang != English (USA)) { set %bab.temp.mr $true | bab $gettok($did(bab,3).text,5-,32) }
else { write $+(",$scriptdirbab.translation.dat,") <div align="center" dir="ltr"><font color="#000080"><br><b>Üzgünüz - hiçbir sonuç bulunamadi.</b> | bab.fileend }
halt
}
if (<span class="glossTitle"> isin $remove(%1,$chr(9))) { inc %bab.temp.gloss | write $+(",$scriptdirbab.translation.dat,") $+($iif(%bab.temp.gloss > 1,<br>),<div align="center" dir="ltr"><font color="#000080"><b><u>,$gettok($gettok($remove(%1, $chr(9)),2,60),2,62),</b></u>) | halt }
if (bullet.gif isin $remove(%1,$chr(9))) { set %bab.temp.check 1 | halt }
if (%bab.temp.check == 1) { write $+(",$scriptdirbab.translation.dat,") $+(<div align="left" dir="ltr"><font color="#000080"><b>•<font color="#000000"> $remove(%1,$chr(9)),</b><br>) | set %bab.temp.check 2 | halt }
if (%bab.temp.check == 2) {
if ($remove(%1,$chr(9)) != <br> && $remove(%1,$chr(9)) != </b><br>) {
if (</script> isin $remove(%1,$chr(9))) { unset %bab.temp.check | halt }
if ($len($remove(%1,$chr(9))) <= 800) {
write $iif(%bab.temp.line,-al $+ $lines($scriptdirbab.translation.dat)) $+(",$scriptdirbab.translation.dat,") $+($iif(!%bab.temp.line,<div %bab.temp.align $+ >),$remove(%1,$chr(9)),<br>)
unset %bab.temp.line
}
else {
if (!%bab.temp.line) { write $+(",$scriptdirbab.translation.dat,") <div %bab.temp.align $+ > }
write $+(",$scriptdirbab.translation.dat,") $left($remove(%1,$chr(9)),800)
write $+(",$scriptdirbab.translation.dat,") $mid($remove(%1,$chr(9)),801)
set %bab.temp.line $true
}
}
}
if ($remove(%1,$chr(9)) == </body>) { bab.fileend | halt }
goto bab
}
on *:sockclose:bab:{ bab.end Site baglantisi kapatildi. }
on ^*:hotlink:*:*:{ if ($mouse.key & %bab.hotlink) { return } | halt }
on *:hotlink:*:*:{ bab $1 }
on *:load:{
set %bab.lang English (USA)
set %bab.size 360 188
set %bab.hotlink 4
}
on *:unload:{ unset %bab.* | if ($dialog(bab)) { dialog -c bab } }
alias bab {
if (!$dialog(bab)) { dialog -md bab bab }
else { dialog -ev bab }
if ($1) {
if (!$read($scriptdirbab.recent.dat,w,$1-)) {
did -ic bab 3 2 0 0 0 0 $1- | write -il1 $+(",$scriptdirbab.recent.dat,") $1-
if ($did(bab,3).lines == 12) { did -d bab 3 12 | write -dl11 $+(",$scriptdirbab.recent.dat,") }
}
else {
did -d bab 3 $calc($readn + 1) | write -dl $+ $readn $+(",$scriptdirbab.recent.dat,")
did -ic bab 3 2 0 0 0 0 $1- | write -il1 $+(",$scriptdirbab.recent.dat,") $1-
}
set %bab.temp.text $1-
sockclose bab | sockopen bab info.babylon.com 80
did -ra bab 6 Dur
bab.sb 2 Baglaniliyor...
did -b bab 2,3,4,5
}
}
alias -l bab.size {
tokenize 32 %bab.size
mdx MoveControl 3 * * $calc($1 - 250) *
mdx MoveControl 4 $calc($1 - 186) * * *
mdx MoveControl 5 $calc($1 - 159) * * *
mdx MoveControl 6 $calc($1 - 45) * * *
mdx MoveControl 7 * * $1 *
mdx MoveControl 8 * * $1 $calc($2 - 56)
mdx MoveControl 9 * $calc($2 - 22) $1 *
did -i bab 9 1 setparts $calc($1 - 17)
}
alias -l bab.sb { did -o bab 9 2 $1- | .timerbab off }
alias -l bab.filestart { write -c $+(",$scriptdirbab.translation.dat,") <html><body topmargin="1" leftmargin="5" rightmargin="5"><font face="tahoma"><span style="font-size:11px"> }
alias -l bab.fileend {
write $+(",$scriptdirbab.translation.dat,") </div></span></font></body></html>
if ($nhtmln(url,$nHTMLn(item,$dialog(bab).hwnd id:8)) == file:// $+ $scriptdirbab.translation.dat) { nhtmln refresh $nHTMLn(item,$dialog(bab).hwnd id:8) }
else { nhtmln select $nHTMLn(item,$dialog(bab).hwnd id:8) | nhtmln navigate $scriptdirbab.translation.dat }
bab.end
}
alias -l bab.end {
sockclose bab | unset %bab.temp.*
if (!$1) { if ($dialog(bab)) { bab.sb 1 Hazir. } }
if ($1) { if ($dialog(bab)) { bab.sb 4 $1- } | .timerbab 1 3 bab.end }
if ($dialog(bab)) { did -ra bab 6 Çevir! | did -e bab 2,3,4,5 }
}


arkadaşlar böyle bir Sözlük remotesi var ama çalışmıyor. Yardımcı olabilir misiniz?