dialog autoid {
title Auto Identify
size -1 -1 260 300
button OK,100,165 272 40 20,ok
button Cancel,200,210 272 40 20,cancel
box "",1,1 -5 258 305
text "Nick:",5,60 10 40 15
text "Password:",6,160 10 50 15
check "",2,10 33 15 15
edit %nick1 ,3,30 30 95 20,center,autohs
edit %pass1 ,4,135 30 95 20,center,autohs,pass
check "",7,10 53 15 15
edit %nick2 ,8,30 50 95 20,center,autohs
edit %pass2 ,9,135 50 95 20,center,autohs,pass
check "",10,10 73 15 15
edit %nick3 ,11,30 70 95 20,center,autohs
edit %pass3 ,12,135 70 95 20,center,autohs,pass
check "",13,10 93 15 15
edit %nick4 ,14,30 90 95 20,center,autohs
edit %pass4 ,15,135 90 95 20,center,autohs,pass
check "",16,10 113 15 15
edit %nick5 ,17,30 110 95 20,center,autohs
edit %pass5 ,18,135 110 95 20,center,autohs,pass
check "",19,10 133 15 15
edit %nick6 ,20,30 130 95 20,center,autohs
edit %pass6 ,21,135 130 95 20,center,autohs,pass
check "",22,10 153 15 15
edit %nick7 ,23,30 150 95 20,center,autohs
edit %pass7 ,24,135 150 95 20,center,autohs,pass
check "",25,10 173 15 15
edit %nick8 ,26,30 170 95 20,center,autohs
edit %pass8 ,27,135 170 95 20,center,autohs,pass
check "",28,10 193 15 15
edit %nick9 ,29,30 190 95 20,center,autohs
edit %pass9 ,30,135 190 95 20,center,autohs,pass
check "",31,10 213 15 15
edit %nick10 ,32,30 210 95 20,center,autohs
edit %pass10 ,33,135 210 95 20,center,autohs,pass
text "Auto Identify - Vietnamese IRC Network",35,15 239 220 32
button clr,36,233 32 20 16
button clr,37,233 52 20 16
button clr,38,233 72 20 16
button clr,39,233 92 20 16
button clr,40,233 112 20 16
button clr,41,233 132 20 16
button clr,42,233 152 20 16
button clr,43,233 172 20 16
button clr,44,233 192 20 16
button clr,45,233 212 20 16
check "Auto-Identify on connect",46,10 274 140 17
}
on *:dialog:autoid:init:*: {
if %chk1 = ON { did -c autoid 2 }
if %chk2 = ON { did -c autoid 7 }
if %chk3 = ON { did -c autoid 10 }
if %chk4 = ON { did -c autoid 13 }
if %chk5 = ON { did -c autoid 16 }
if %chk6 = ON { did -c autoid 19 }
if %chk7 = ON { did -c autoid 22 }
if %chk8 = ON { did -c autoid 25 }
if %chk9 = ON { did -c autoid 28 }
if %chk10 = ON { did -c autoid 31 }
if %autoidcon = ON { did -c autoid 46 }
}
on *:dialog:autoid:sclick:100: {
if ($did(autoid,2).state = 1) { %chk1 = on } | else { %chk1 = off }
if ($did(autoid,7).state = 1) { %chk2 = on } | else { %chk2 = off }
if ($did(autoid,10).state = 1) { %chk3 = on } | else { %chk3 = off }
if ($did(autoid,13).state = 1) { %chk4 = on } | else { %chk4 = off }
if ($did(autoid,16).state = 1) { %chk5 = on } | else { %chk5 = off }
if ($did(autoid,19).state = 1) { %chk6 = on } | else { %chk6 = off }
if ($did(autoid,22).state = 1) { %chk7 = on } | else { %chk7 = off }
if ($did(autoid,25).state = 1) { %chk8 = on } | else { %chk8 = off }
if ($did(autoid,28).state = 1) { %chk9 = on } | else { %chk9 = off }
if ($did(autoid,31).state = 1) { %chk10 = on } | else { %chk10 = off }
if ($did(autoid,46).state = 1) { %autoidcon = on } | else { %autoidcon = off }
%nick1 = $did(3) | %nick2 = $did(8) | %nick3 = $did(11) | %nick4 = $did(14) | %nick5 = $did(17) | %nick6 = $did(20) | %nick7 = $did(23) | %nick8 = $did(26) | %nick9 = $did(29) | %nick10 = $did(32)
%pass1 = $did(4) | %pass2 = $did(9) | %pass3 = $did(12) | %pass4 = $did(15) | %pass5 = $did(18) | %pass6 = $did(21) | %pass7 = $did(24) | %pass8 = $did(27) | %pass9 = $did(30) | %pass10 = $did(33)
}
on *:dialog:autoid:sclick:*: {
if $did = 36 { did -ru autoid 3,4,2 }
if $did = 37 { did -ru autoid 7,8,9 }
if $did = 38 { did -ru autoid 10,11,12 }
if $did = 39 { did -ru autoid 13,14,15 }
if $did = 40 { did -ru autoid 16,17,18 }
if $did = 41 { did -ru autoid 19,20,21 }
if $did = 42 { did -ru autoid 22,23,24 }
if $did = 43 { did -ru autoid 25,26,27 }
if $did = 44 { did -ru autoid 28,29,30 }
if $did = 45 { did -ru autoid 31,32,33 }
}
on *:NICK: {
if $nick == $me {
if ($newnick == %nick1) && (%chk1 == on) { identify %pass1 }
if ($newnick == %nick2) && (%chk2 == on) { identify %pass2 }
if ($newnick == %nick3) && (%chk3 == on) { identify %pass3 }
if ($newnick == %nick4) && (%chk4 == on) { identify %pass4 }
if ($newnick == %nick5) && (%chk5 == on) { identify %pass5 }
if ($newnick == %nick6) && (%chk6 == on) { identify %pass6 }
if ($newnick == %nick7) && (%chk7 == on) { identify %pass7 }
if ($newnick == %nick8) && (%chk8 == on) { identify %pass8 }
if ($newnick == %nick9) && (%chk9 == on) { identify %pass9 }
if ($newnick == %nick10) && (%chk10 == on) { identify %pass10 }
}
}
on *:connect: {
if (%autoidcon = on) {
if ($me = %nick1) { identify %pass1 }
if ($me = %nick2) { identify %pass2 }
if ($me = %nick3) { identify %pass3 }
if ($me = %nick4) { identify %pass4 }
if ($me = %nick5) { identify %pass5 }
if ($me = %nick6) { identify %pass6 }
if ($me = %nick7) { identify %pass7 }
if ($me = %nick8) { identify %pass8 }
if ($me = %nick9) { identify %pass9 }
if ($me = %nick10) { identify %pass10 }
}
}
