Need help with autoidentify - 07/03/03 12:53 PM
can you help me rebuild this autoidentify dialog like add text (server), edit (server) mean support multiserver. I cant build a dialog
Code:
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 } } }