Channel identify v3 beta

mIRC Snippet that allows a user to identify as owner for a specific channel. Note that this code is old, so the commands must not be working on new IRC daemons.

Postat de	Copyright	Categorie	Review user	Vizualizari	Data
BLKoldSUN	br0nx	activity	Cod netestat	463	2024-07-30 21:34:50

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 : [email protected]", 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 
  - 
}