Channel Identify v3 Beta - 03/03/07 11:48 AM
Code:
alias ci { dialog -m ci ci } dialog ci { title "Channel Identify" size -1 -1 140 196 option dbu edit "", 1, 16 20 70 10, autohs edit "", 2, 16 48 70 10, autohs edit "", 3, 16 76 70 10, autohs edit "", 4, 16 103 70 10, autohs edit "", 5, 16 130 70 10, autohs edit "", 6, 16 159 70 10, autohs button "On", 7, 15 177 32 12 button "Off", 8, 54 177 32 12 button "Ok", 9, 96 177 32 12, ok button "Identify", 10, 96 32 32 12 button "Identify", 11, 96 87 32 12 button "Identify", 12, 96 142 32 12 text "Chan", 13, 45 9 12 8 text "Pass", 14, 45 35 12 8 text "Chan", 15, 45 64 12 8 text "Pass", 16, 45 90 12 8 text "Pass", 17, 45 145 12 8 text "Chan", 18, 45 117 12 8 } alias cia { dialog -m cia cia } dialog cia { title "About" size -1 -1 120 135 option dbu box "About", 1, 5 4 109 39 text "Addon : Channel Identify", 2, 11 15 97 8 text "Version : v3 Beta", 3, 11 28 97 8 box "About Author", 4, 5 44 109 84 text "Author : br0nx", 5, 11 54 97 8 text "Author Chan : #scr1pt1ng", 6, 11 70 97 8 text "Author Serv : irc.krstarica.com", 7, 11 85 97 8 text "Author Email : br0nx.20@inbox.com", 8, 11 100 97 8 text "Addon Address : br0nx.20.forumer.com", 9, 11 115 97 8 } on *:dialog:ci:init:*: { did -a ci 1 %1.chan did -a ci 2 %1.pass did -a ci 3 %2.chan did -a ci 4 %2.pass did -a ci 5 %3.chan did -a ci 6 %3.pass } alias 1.chan { set %1.chan $did(1) %1.chan } alias 1.pass { set %1.pass $did(2) %1.pass } alias 2.chan { set %2.chan $did(3) %2.chan } alias 2.pass { set %2.pass $did(4) %2.pass } alias 3.chan { set %3.chan $did(5) %3.chan } alias 3.pass { set %3.pass $did(6) %3.pass } on *:dialog:ci:sclick:7: { set %1.chan $did(1) set %1.pass $did(2) set %2.chan $did(3) set %2.pass $did(4) set %3.chan $did(5) set %3.pass $did(6) } on *:dialog:ci:sclick:8: { unset %1.chan $did(1) unset %1.pass $did(2) unset %2.chan $did(3) unset %2.pass $did(4) unset %3.chan $did(5) unset %3.pass $did(6) } on *:dialog:ci:sclick:9: { } on *:dialog:ci:sclick:10: { set %1.chan $did(1) set %1.pass $did(2) chanserv identify %1.chan %1.pass } on *:dialog:ci:sclick:11: { set %2.chan $did(3) set %2.pass $did(4) chanserv identify %2.chan %2.pass } on *:dialog:ci:sclick:12: { set %3.chan $did(5) set %3.pass $did(6) chanserv identify %3.chan %3.pass } on *:connect: { { chanserv identify %1.chan %1.pass } { chanserv identify %2.chan %2.pass } { chanserv identify %3.chan %3.pass } } menu * { - .Channel Identify:ci .Channel Identify About:cia - }