dialog irctovbb {
title "mIRC Code To VBBcode Translator"
size -1 -1 378 255
option dbu
edit "", 1, 13 25 163 200, multi return autohs autovs hsbar vsbar
edit "", 2, 195 25 163 200, read multi return autohs autovs hsbar vsbar
button "Transform To VBBcode", 3, 15 239 71 12
box "mIRC Code", 4, 10 14 176 215
box "VBB code", 5, 187 14 178 215
button "Options", 8, 89 239 37 12
button "Close / Ok", 6, 130 239 37 12, ok
}
on *:dialog:irctovbb:sclick:*:{
if ($did == 3) {
unset %vbb.lijnedited
set %vbbc 1
while (%vbbc <= $did(irctovbb,1).lines) {
set %line.vbb $did(irctovbb,1, %vbbc )
set %beginu 1
set %underline 1
set %bold 1
set %underlinec 1
while (%underlinec <= $len(%line.vbb)) {
if ($mid(%line.vbb , %beginu , 1) == $chr(31)) {
if (%underline == 1) {
set %vbb.lijnedited %vbb.lijnedited $+ [u]
set %underline 0
}
elseif (%underline == 0) {
set %vbb.lijnedited %vbb.lijnedited $+ [/u]
set %underline 1
}
}
if ($mid(%line.vbb , %beginu , 1) == $chr(2)) {
if (%bold == 1 ) {
set %vbb.lijnedited %vbb.lijnedited $+ [b]
set %bold 0
}
elseif (%bold == 0) {
set %vbb.lijnedited %vbb.lijnedited $+ [/b]
set %bold 1
}
}
else {
/set %vbb.lijnedited %vbb.lijnedited $+ $mid(%line.vbb , %beginu , 1)
}
inc %beginu
inc %underlinec
}
set %vbb.lijnedited $replace(%vbb.lijnedited,15,[/COLOR][COLOR=#8C8C8C])
set %vbb.lijnedited $replace(%vbb.lijnedited,14,[/COLOR][COLOR=silver])
set %vbb.lijnedited $replace(%vbb.lijnedited,12,[/COLOR][COLOR=blue])
set %vbb.lijnedited $replace(%vbb.lijnedited,13,[/COLOR][COLOR=deeppink])
set %vbb.lijnedited $replace(%vbb.lijnedited,11,[/COLOR][COLOR=cyan])
set %vbb.lijnedited $replace(%vbb.lijnedited,10,[/COLOR][COLOR=teal])
set %vbb.lijnedited $replace(%vbb.lijnedited,00,[/COLOR][COLOR=white])
set %vbb.lijnedited $replace(%vbb.lijnedited,01,[/COLOR][COLOR=BLACK])
set %vbb.lijnedited $replace(%vbb.lijnedited,02,[/COLOR][COLOR=darkblue])
set %vbb.lijnedited $replace(%vbb.lijnedited,03,[/COLOR][COLOR=green])
set %vbb.lijnedited $replace(%vbb.lijnedited,04,[/COLOR][COLOR=red])
set %vbb.lijnedited $replace(%vbb.lijnedited,05,[/COLOR][COLOR=darkred])
set %vbb.lijnedited $replace(%vbb.lijnedited,06,[/COLOR][COLOR=purple])
set %vbb.lijnedited $replace(%vbb.lijnedited,07,[/COLOR][COLOR=orange])
set %vbb.lijnedited $replace(%vbb.lijnedited,08,[/COLOR][COLOR=sandybrown])
set %vbb.lijnedited $replace(%vbb.lijnedited,09,[/COLOR][COLOR=limegreen])
set %vbb.lijnedited $replace(%vbb.lijnedited,0,[/COLOR][COLOR=white])
set %vbb.lijnedited $replace(%vbb.lijnedited,1,[/COLOR][COLOR=BLACK])
set %vbb.lijnedited $replace(%vbb.lijnedited,2,[/COLOR][COLOR=darkblue])
set %vbb.lijnedited $replace(%vbb.lijnedited,3,[/COLOR][COLOR=green])
set %vbb.lijnedited $replace(%vbb.lijnedited,4,[/COLOR][COLOR=red])
set %vbb.lijnedited $replace(%vbb.lijnedited,5,[/COLOR][COLOR=darkred])
set %vbb.lijnedited $replace(%vbb.lijnedited,6,[/COLOR][COLOR=purple])
set %vbb.lijnedited $replace(%vbb.lijnedited,7,[/COLOR][COLOR=orange])
set %vbb.lijnedited $replace(%vbb.lijnedited,8,[/COLOR][COLOR=sandybrown])
set %vbb.lijnedited $replace(%vbb.lijnedited,9,[/COLOR][COLOR=limegreen])
set %vbb.lijnedited $replace(%vbb.lijnedited,,[/COLOR])
did -o irctovbb 2 %vbbc %vbb.lijnedited
unset %vbb.lijnedited
inc %vbbc
}
}
if ($did == 6) { /dialog -c irctovbb }
if ($did == 8) { /dialog -m irctovbbopt irctovbbopt }
}