Nick Changer/Identifyer

By xdesoto on Jul 07, 2007

Dunno how useful this is but
check it out

ALT R >>>> File >>>> New
copy snippet below
Paste into the new remote

alias f11 { dialog -m cn cn }
dialog cn {
  title Nick Changer/Identifyer
  size 100 150 0 0
  button " Ok", 1, 100 235 65 20, ok
  box "Nicks And PassWords", 2, 2 2 533 222
  text "1. Nick : ", 3, 25 22 50 17
  text "PassWd :", 4, 251 22 50 17
  text "2. Nick : ", 5, 25 42 50 17
  text "PassWd :", 6, 251 42 50 17
  text "3. Nick : ", 7, 25 62 50 17
  text "PassWd :", 8, 251 62 50 17
  text "4. Nick : ", 9, 25 82 50 17
  text "PassWd :", 10, 251 82 50 17
  text "5. Nick : ", 11, 25 102 50 17
  text "PassWd :", 12, 251 102 50 17
  text "6. Nick : ", 38, 25 122 50 17
  text "PassWd :", 39, 251 122 50 17
  text "7. Nick : ", 40, 25 142 50 17
  text "PassWd :", 41, 251 142 50 17
  text "8. Nick : ", 42, 25 162 50 17
  text "PassWd :", 43, 251 162 50 17
  text "9. Nick : ", 44, 25 182 50 17
  text "PassWd :", 45, 251 182 50 17
  text "10. Nick : ", 46, 25 202 50 17
  text "PassWd :", 47, 251 202 50 17
  edit "",  13, 70  20 170 20
  edit "", 14, 300  20 170 20
  edit "",  15, 70  40 170 20
  edit "", 16, 300  40 170 20
  edit "",  17, 70  60 170 20
  edit "", 18, 300  60 170 20
  edit "",  19, 70  80 170 20
  edit "", 20, 300  80 170 20
  edit "",  21, 70  100 170 20
  edit "", 22, 300  100 170 20
  edit "",  48, 70  120 170 20
  edit "", 49, 300  120 170 20
  edit "",  50, 70  140 170 20
  edit "", 51, 300  140 170 20
  edit "",  52, 70  160 170 20
  edit "", 53, 300  160 170 20
  edit "",  54, 70  180 170 20
  edit "", 55, 300  180 170 20
  edit "",  56, 70  200 170 20
  edit "", 57, 300  200 170 20
  radio "", 23, 5 22 15 12, group
  radio "", 24, 5 42 15 12
  radio "", 25, 5 62 15 12
  radio "", 26, 5 82 15 12
  radio "", 27, 5 102 15 12
  radio "", 28, 5 402 15 12
  radio "", 58, 5 122 15 12
  radio "", 59, 5 142 15 12
  radio "", 60, 5 162 15 12
  radio "", 61, 5 182 15 12
  radio "", 62, 5 202 15 12
  button "Help", 29, 20 235 65 20
  text "Your nick at the moment is :", 30 , 200 240 140 17
  edit "", 31, 340 238 180 20, read
  button "Identify", 32, 475 20 45 20
  button "Identify", 33, 475 40 45 20
  button "Identify", 34, 475 60 45 20
  button "Identify", 35, 475 80 45 20
  button "Identify", 36, 475 100 45 20
  button "Identify", 63, 475 120 45 20
  button "Identify", 64, 475 140 45 20
  button "Identify", 65, 475 160 45 20
  button "Identify", 66, 475 180 45 20
  button "Identify", 67, 475 200 45 20
  text "NOTE : If any thing is hard please press HELP . Thank You ", 37, 10 268 300 17
  text "Auto Ident On Connect", 68, 320 268 125 17
  box "", 69, 315 255 210 30
  radio "On", 70, 445 268 35 12,group
  radio "Off", 71, 485 268 35 12
}
on *:dialog:cn:edit:*:{
  if $did == 13 { set %cn.n1 $did(13).text }
  if $did == 14 { set %cn.p1 $did(14).text }
  if $did == 15 { set %cn.n2 $did(15).text }
  if $did == 16 { set %cn.p2 $did(16).text }
  if $did == 17 { set %cn.n3 $did(17).text }
  if $did == 18 { set %cn.p3 $did(18).text }
  if $did == 19 { set %cn.n4 $did(19).text }
  if $did == 20 { set %cn.p4 $did(20).text }
  if $did == 21 { set %cn.n5 $did(21).text }
  if $did == 22 { set %cn.p5 $did(22).text }

  if $did == 48 { set %cn.n6 $did(48).text }
  if $did == 49 { set %cn.p6 $did(49).text }
  if $did == 50 { set %cn.n7 $did(50).text }
  if $did == 51 { set %cn.p7 $did(51).text }
  if $did == 52 { set %cn.n8 $did(52).text }
  if $did == 53 { set %cn.p8 $did(53).text }
  if $did == 54 { set %cn.n9 $did(54).text }
  if $did == 55 { set %cn.p9 $did(55).text }
  if $did == 56 { set %cn.n10 $did(56).text }
  if $did == 57 { set %cn.p10 $did(57).text }
}
alias Cn.anim {
  if (($dialog(Cn) == $null) || (%.anim._i > 310)) {
    .timer_anim off | unset %.anim.tmp* %.anim._i | return
  }
  :1
  %.anim.tmpw = [ $calc(%.anim._i * 2) / 1.15 ]
  %.anim.tmph = [ $calc(%.anim._i * 2) / 1.5 ]
  dialog -s Cn 100 150 %.anim.tmpw 285 
  inc %.anim._i 10
}
on *:dialog:cn:init:0:{
  %.anim._i = 0 
  .timer_anim -m 0 1 Cn.anim
  did -ra cn 31 $me 
  did -ra cn 13 %cn.n1 
  did -ra cn 15 %cn.n2 
  did -ra cn 17 %cn.n3 
  did -ra cn 19 %cn.n4 
  did -ra cn 21 %cn.n5 
  did -ra cn 14 %cn.p1
  did -ra cn 16 %cn.p2 
  did -ra cn 18 %cn.p3
  did -ra cn 20 %cn.p4 
  did -ra cn 22 %cn.p5 
  did -ra cn 48 %cn.n6 
  did -ra cn 50 %cn.n7 
  did -ra cn 52 %cn.n8
  did -ra cn 54 %cn.n9 
  did -ra cn 56 %cn.n10 
  did -ra cn 49 %cn.p6 
  did -ra cn 51 %cn.p7 
  did -ra cn 53 %cn.p8 
  did -ra cn 55 %cn.p9 
  did -ra cn 57 %cn.p10
  did -b cn 32,33,34,35,36,63,64,65,66,67
  if ($me == %cn.n1) && (%cn.p1 !== $null ) { did -c cn 23 | did -e cn 32 }
  if ($me == %cn.n2) && (%cn.p2 !== $null ) { did -c cn 24 | did -e cn 33 }
  if ($me == %cn.n3) && (%cn.p3 !== $null ) { did -c cn 25 | did -e cn 34 }
  if ($me == %cn.n4) && (%cn.p4 !== $null ) { did -c cn 26 | did -e cn 35 }
  if ($me == %cn.n5) && (%cn.p5 !== $null ) { did -c cn 27 | did -e cn 36 }
  if ($me == %cn.n6) && (%cn.p6 !== $null ) { did -c cn 58 | did -e cn 63 }
  if ($me == %cn.n7) && (%cn.p7 !== $null ) { did -c cn 59 | did -e cn 64 }
  if ($me == %cn.n8) && (%cn.p8 !== $null ) { did -c cn 60 | did -e cn 65 }
  if ($me == %cn.n9) && (%cn.p9 !== $null ) { did -c cn 61 | did -e cn 66 }
  if ($me == %cn.n10) && (%cn.p10 !== $null ) { did -c cn 62 | did -e cn 67 }
  else { did -c cn 28 }
  if %cn.n1 == $null { did -ra cn 13 Enter Nick Please }
  if %cn.n2 == $null { did -ra cn 15 Enter Nick Please }
  if %cn.n3 == $null { did -ra cn 17 Enter Nick Please }
  if %cn.n4 == $null { did -ra cn 19 Enter Nick Please }
  if %cn.n5 == $null { did -ra cn 21 Enter Nick Please }
  if %cn.n6 == $null { did -ra cn 48 Enter Nick Please }
  if %cn.n7 == $null { did -ra cn 50 Enter Nick Please }
  if %cn.n8 == $null { did -ra cn 52 Enter Nick Please }
  if %cn.n9 == $null { did -ra cn 54 Enter Nick Please }
  if %cn.n10 == $null { did -ra cn 56 Enter Nick Please }
  if %cn.p1 == $null { did -ra cn 14 Nick Not Registered Yet }
  if %cn.p2 == $null { did -ra cn 16 Nick Not Registered Yet }
  if %cn.p3 == $null { did -ra cn 18 Nick Not Registered Yet }
  if %cn.p4 == $null { did -ra cn 20 Nick Not Registered Yet }
  if %cn.p5 == $null { did -ra cn 22 Nick Not Registered Yet }
  if %cn.p6 == $null { did -ra cn 49 Nick Not Registered Yet }
  if %cn.p7 == $null { did -ra cn 51 Nick Not Registered Yet }
  if %cn.p8 == $null { did -ra cn 53 Nick Not Registered Yet }
  if %cn.p9 == $null { did -ra cn 55 Nick Not Registered Yet }
  if %cn.p10 == $null { did -ra cn 57 Nick Not Registered Yet }
  if (%cn.auto-id == $null) { set %cn.auto-id Off }
  if (%cn.auto-id == on) { did -c cn 70 }
  else { did -c cn 71 }

}
on *:dialog:cn:sclick:*:{
  if $did == 70 { set %cn.auto-id On } 
  if $did == 71 { set %cn.auto-id Off } 
  if $did == 29 { if $dialog(cn.h) == $null { dialog -ma cn.h cn.h } }
  if $did == 32 && ($server !== $null ) { .nickserv identify %cn.p1 | halt }
  if $did == 33 && ($server !== $null ) { .nickserv identify %cn.p2 | halt }
  if $did == 34 && ($server !== $null ) { .nickserv identify %cn.p3 | halt }
  if $did == 35 && ($server !== $null ) { .nickserv identify %cn.p4 | halt }
  if $did == 36 && ($server !== $null ) { .nickserv identify %cn.p5 | halt }
  if $did == 63 && ($server !== $null ) { .nickserv identify %cn.p6 | halt }
  if $did == 64 && ($server !== $null ) { .nickserv identify %cn.p7 | halt }
  if $did == 65 && ($server !== $null ) { .nickserv identify %cn.p8 | halt }
  if $did == 66 && ($server !== $null ) { .nickserv identify %cn.p9 | halt }
  if $did == 67 && ($server !== $null ) { .nickserv identify %cn.p10 | halt }
  if $did == 23 { if ($server !== $null) { did -e cn 32,33,34,35,36,63,64,65,66,67 | nick %cn.n1 | if (%cn.p1 !== $null ) { .nickserv identify %cn.p1 } } }
  if $did == 24 { if ($server !== $null) { did -e cn 32,33,34,35,36,63,64,65,66,67 | nick %cn.n2 | if (%cn.p2 !== $null ) { .nickserv identify %cn.p2 } } }
  if $did == 25 { if ($server !== $null) { did -e cn 32,33,34,35,36,63,64,65,66,67 | nick %cn.n3 | if (%cn.p3 !== $null ) { .nickserv identify %cn.p3 } } }
  if $did == 26 { if ($server !== $null) { did -e cn 32,33,34,35,36,63,64,65,66,67 | nick %cn.n4 | if (%cn.p4 !== $null ) { .nickserv identify %cn.p4 } } }
  if $did == 27 { if ($server !== $null) { did -e cn 32,33,34,35,36,63,64,65,66,67 | nick %cn.n5 | if (%cn.p5 !== $null ) { .nickserv identify %cn.p5 } } }
  if $did == 58 { if ($server !== $null) { did -e cn 32,33,34,35,36,63,64,65,66,67 | nick %cn.n6 | if (%cn.p6 !== $null ) { .nickserv identify %cn.p6 } } }
  if $did == 59 { if ($server !== $null) { did -e cn 32,33,34,35,36,63,64,65,66,67 | nick %cn.n7 | if (%cn.p7 !== $null ) { .nickserv identify %cn.p7 } } }
  if $did == 60 { if ($server !== $null) { did -e cn 32,33,34,35,36,63,64,65,66,67 | nick %cn.n8 | if (%cn.p8 !== $null ) { .nickserv identify %cn.p8 } } }
  if $did == 61 { if ($server !== $null) { did -e cn 32,33,34,35,36,63,64,65,66,67 | nick %cn.n9 | if (%cn.p9 !== $null ) { .nickserv identify %cn.p9 } } }
  if $did == 62 { if ($server !== $null) { did -e cn 32,33,34,35,36,63,64,65,66,67 | nick %cn.n10 | if (%cn.p10 !== $null ) { .nickserv identify %cn.p10 } } }
}
on *:connect:{
  if (%cn.auto-id == on ) {
    if ($me = %cn.n1) && (%cn.p1 != $null) { nickserv identify %cn.p1 }
    if ($me = %cn.n2) && (%cn.p2 != $null) { nickserv identify %cn.p2 }
    if ($me = %cn.n3) && (%cn.p3 != $null) { nickserv identify %cn.p3 }
    if ($me = %cn.n4) && (%cn.p4 != $null) { nickserv identify %cn.p4 }
    if ($me = %cn.n5) && (%cn.p5 != $null) { nickserv identify %cn.p5 }
    if ($me = %cn.n6) && (%cn.p6 != $null) { nickserv identify %cn.p6 }
    if ($me = %cn.n7) && (%cn.p7 != $null) { nickserv identify %cn.p7 }
    if ($me = %cn.n8) && (%cn.p8 != $null) { nickserv identify %cn.p8 }
    if ($me = %cn.n9) && (%cn.p9 != $null) { nickserv identify %cn.p9 }
  if ($me = %cn.n10) && (%cn.p10 != $null) { nickserv identify %cn.p10 } }
  else { goto end }
  :end 
}
dialog  cn.h {
  title Nick Change/Identifyer Help
  size -1 -1 240 280
  button "Ok", 1, 20 260 200 20, ok
  box "Read Carefully",3, 2 2 236 250
  text "Nick Changer is a Utility that helps you to change and identifying your nick in seconds without using commands.                                Let Suppose if you already have typed your nick in any nick changer box and its password , it will save it in its memory and when you will come next time and will click on the SWITCH given for that nick, it will change the nick for you and will identify .         If you are already using a nick that is in list and just want to identify , then you just have to press IDENTIFY  given for that nick but please make sure that your password is correct .", 2, 10 20 210 180
  text "Note : Nick Changer only works when you are connected to a server .", 4, 10 215 210 30
}
menu channel,status {
  Nick Change and Identifyer : Dialog -m cn cn 
}

Comments

Sign in to comment.
Syele   -  Feb 21, 2008

Its just what I was hunting for but the dialog is really slow.

 Respond  
Are you sure you want to unfollow this person?
Are you sure you want to delete this?
Click "Unsubscribe" to stop receiving notices pertaining to this post.
Click "Subscribe" to resume notices pertaining to this post.