Auto ID With dialog

By sunslayer on Dec 22, 2008

basic autoid dialog supports up to three different nicks copy and paste into your remotes (alt+r) and right click in the channel or tools > auto ID and enter your nicks and passwords
if you find any bugs let me no, comment :D

alias aid { dialog -md aid aid }
menu menubar,channel {
  Auto ID: aid
}
dialog aid {
  title "Auto ID"
  size -1 -1 140 100
  option dbu
  menu "&File",1
  item "&Save",2
  item "Save and &exit",3
  item "&Reset",4
  item break,5
  item "&Close",6
  text "Nickname",7,10 5 40 10
  edit "",8,40 5 40 10,autohs
  text "Password",9,10 15 40 10
  edit "",10,40 15 40 10,pass
  button ID %aid.nick1 ,11,84 5 50 10
  button "Clear group 1",12,84 15 50 10
  text "Nick 2",13,10 35 40 10
  edit "",14,40 35 40 10
  text "Password",15,10 45 40 10
  edit "",16,40 45 40 10,pass autohs
  button ID %aid.nick2,17,84 35 50 10
  button "Clear group 2",18,84 45 50 10
  text "nick 3",19,10 65 40 10
  edit "",21,40 65 40 10
  text "Password",22,10 75 40 10
  edit "",23,40 75 40 10,pass autohs
  button ID %aid.nick3,24,84 65 50 10
  button "Clear Group 3",25,84 75 50 10
  button "Set",26,10 90 35 10
  button "Clear",27,90 90 35 10
  button "Done",28,50 90 35 10,default
}
on *:dialog:aid:*:*: {
  if ($devent == sclick) {
    if ($did == 26) {
      set %aid.nick1 $did(8)
      set %aid.pass1 $did(10)
      set %aid.nick2 $did(14)
      set %aid.pass2 $did(16)
      set %aid.nick3 $did(21)
      set %aid.pass3 $did(23)
    }
    if ($did == 27) {
      unset %nick.pass* %aid.pass*
    }
    if ($did == 11) {
      if ($me == %nick.name1) {
        ns id $did(aid,10)
      }
      if ($me != %aid.nick1) {
        nick $did(aid,8)
        ns id $did(aid,10)
      }
    }
    if ($did == 12) {
      unset %nick.name1
      unset %nick.pass1
      did -r aid 8
      did -r aid 10
    }
    if ($did == 17) {
      if ($me == %nick.name2) {
        ns id $did(aid,16)
      }
      if ($me != %nick.name2) {
        nick $did(aid,14) | ns id $did(aid,16)
      }
    }
    if ($did == 18) {
      unset %nick.name2
      unset %nick.pass2
      did -r aid 14
      did -r aid 16
    }
    if ($did == 24) {
      if ($me == %nick.name3) {
        ns id $did(aid,23)
      }
      if ($me != %nick.name3) {
        nick $did(aid,21)
        ns id $did(aid,23)
      }
    }
    if ($did == 25) {
      unset %nick.name3
      unset %nick.pass3
      did -r aid 21
      did -r aid 23
    }
    if ($did == 28) {
      set %aid.nick1 $did(8)
      set %aid.pass1 $did(10)
      set %aid.nick2 $did(14)
      set %aid.pass2 $did(16)
      set %aid.nick3 $did(21)
      set %aid.pass3 $did(23)
      dialog -x aid
    }
  }
  if ($devent == init) {
    did -a aid 8 %aid.nick1
    did -a aid 10 %aid.pass1
    did -a aid 14 %aid.nick2
    did -a aid 16 %aid.pass2
    did -a aid 21 %aid.nick3
    did -a aid 23 %aid.pass3
  }
  if ($devent == menu) {
    if ($did == 2) {
      set %aid.group1 $did(8)
      set %aid.nick1 $did(8)
      set %aid.pass1 $did(10)
      set %aid.group2 $did(14)
      set %aid.nick2 $did(14)
      set %aid.pass2 $did(16)
      set %aid.group3 $did(21)
      set %aid.nick3 $did(21)
      set %aid.pass3 $did(23)
    }
    if ($did == 3) {
      set %aid.group1 $did(8)
      set %aid.nick1 $did(8)
      set %aid.pass1 $did(10)
      set %aid.group2 $did(14)
      set %aid.nick2 $did(14)
      set %aid.pass2 $did(16)
      set %aid.group3 $did(21)
      set %aid.nick3 $did(21)
      set %aid.pass3 $did(23)
      dialog -x aid
    }
    if ($did = 4) { 
      unset %aid.nick* %aid.pass* %aid.group*
       did -r aid 8,10,14,16,21,23
     }
    if ($did == 6) {
      dialog -x aid
    }
  }
}
on *:connect: { 
  if ($me == %aid.nick1) { ns id %aid.pass1 } 
  if ($me == %aid.nick2) { ns id %aid.pass2 }
  if ($me == %aid.nick3) { ns id %aid.nick3 }
}

Comments

Sign in to comment.
sunslayer   -  Dec 23, 2008

it was a joke babyjesus :/

 Respond  
BabyJesus   -  Dec 23, 2008

sunslayer
Comments: 12

mIRC Snippet: Auto ID With dialog
Posted on Dec 23, 2008 1:42 am
you guys arnt doin a very good of checking lol i found a typo :/

    if ($did == 11) {
      if ($me == %nick.name1) {
        ns if $did(aid,10)
      }

Umm no, its not OUR job to spell check and or bug check YOUR codes YOU post, read the submission rules. Dumb ass. BabyJesus has spoken.

 Respond  
Aucun50   -  Dec 23, 2008

Didn't see that one it still worked for the most part tho lol

 Respond  
sunslayer   -  Dec 23, 2008

you guys arnt doin a very good of checking lol i found a typo :/

    if ($did == 11) {
      if ($me == %nick.name1) {
        ns if $did(aid,10)
      }
 Respond  
Aucun50   -  Dec 23, 2008

I tested new one works thanks for update.

 Respond  
pwnisher3   -  Dec 23, 2008

looks great. ut idk if it works. /me is having trouble with mIRC. i have used the VTP9.01 and now when i open mIRC it doesn't show any text at all.

 Respond  
sunslayer   -  Dec 23, 2008

updated thnx

 Respond  
Scakk   -  Dec 23, 2008

Here are a few sections you can shorten. There are some others you can shorten which I did not so you can see the differences and what can be changed.

if ($did = 27) {            
      unset %aid.nick1
      unset %aid.pass1
      unser %aid.nick2
      unset %aid.pass2
      unset %aid.nick3
      unset %aid.pass3
}
if ($did = 27) { unset %aid.nick* %aid.pass* }

Can be:

 if ($did = 4) {
      unset %aid.group1
      unset %aid.nick1
      unset %aid.pass1
      unset %aid.group2
      unset %aid.nick2
      unset %aid.pass2
      unset %aid.group3
      unset %aid.nick3
      unset %aid.pass3      
      did -r aid 8
      did -r aid 10 
      did -r aid 14
      did -r aid 16
      did -r aid 21
      did -r aid 23
}

Can be:

if ($did = 4) { 
unset %aid.nick* %aid.pass* %aid.group*
did -r aid 8,10,14,16,21,23
        }
 Respond  
Aucun50   -  Dec 23, 2008

I tested it works great, good job.

 Respond  
sunslayer   -  Dec 23, 2008

ye i no but im learning to make dialogs and i needed to practice :/

also that code would only work if all three nicks had the same password and you would have to manually enter the variables

if you want a short simple one http://www.hawkee.com/snippet/5457/

 Respond  
Aucun50   -  Dec 22, 2008

First off this identify you on connect?
If so why not use:

on *:connect: {
var %p (your password)
var %one (first nick)
var %two (second nick)
var %three (third nick)
if ($nick == %one) {
msg nickserv identify %p
}
elseif ($nick == %two) {
msg nickserv identify %p
}
elseif ($nick == %three) {
msg nickserv identify %p
}
}

It's shorter then using dialog.

 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.