Identifier Dialog

By MaxEvans on Apr 16, 2014

I decided to create an easier way to identify yourself, for those who don't like auto identifiers. Instructions are in a seperate dialog, just click the button to find out how to use it. It's fairly easy to use. Just type /idd to use.

If anyone wants to suggest to change or add anything, feel free to comment. Thanks.

;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~;
;     Max's Easier Identifier    ;
;          By: Max Evans         ;
;        irc.geekshed.net        ;
;            #Max-chat           ;
;~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~;

dialog ID {
  title Max Evans' ID Dialog
  size -1 -1 152 116
  option dbu
  edit %idn1, 1, 15 25 50 10, center
  box "Nickname 1", 2, 7 6 65 69
  edit %idp1, 3, 15 46 50 10, pass center
  box "Nickname 2", 4, 77 6 65 69
  edit %idn2, 5, 85 25 50 10, center
  edit %idp2, 6, 85 46 50 10, pass center
  text "Identification Dialog by Max Evans", 7, 31 94 87 8
  link "http://maxevans.net", 8, 49 105 55 8
  text "Nick", 9, 27 17 25 8, center
  text "Pass", 10, 27 38 25 8, center
  text "Nick", 11, 97 17 25 8, center
  text "Pass", 12, 97 38 25 8, center
  button "Set", 13, 14 61 23 10
  button "Reset", 14, 42 61 23 10
  button "Set", 15, 84 61 23 10
  button "Reset", 16, 112 61 23 10
  button "Instructions", 17, 57 80 33 10
}

dialog Instructions {
  title Instructions
  size -1 -1 152 68
  option dbu
  box "", 3, 3 3 146 59
  text "To use this script simply type in your nick and password  then click set. After that, to identify your nick, type /identify or /identify2 for the second nick.", 4, 15 15 120 30, center
  button "Close", 5, 57 49 32 8, ok
}

on *:Dialog:ID:init:*: {
  did $iif(%idn1,-m,-n) $dname 1
  did $iif(%idp1,-m,-n) $dname 3
  did $iif(%idn2,-m,-n) $dname 5
  did $iif(%idp2,-m,-n) $dname 6
}

on *:Dialog:ID:sclick:*: {
  if ($did == 13) { %idn1 = $did(ID,1) | %idp1 = $did(ID,3) | did -m ID 1,3 }
  if ($did == 14) { unset %idn1 %idp1 | did -n ID 1,3 | did -r ID 1,3 }
  if ($did == 15) { %idn2 = $did(ID,5) | %idp2 = $did(ID,6) | did -m ID 5,6 }
  if ($did == 16) { unset %idn2 %idp2 | did -n ID 5,6 | did -r ID 5,6 }
  if ($did == 17) { dialog -m Instructions Instructions }
}

alias identify { /nickserv identify %idp1 }
alias identify2 { /nickserv identify %idp2 }
alias idd { dialog -m ID ID }

Comments

Sign in to comment.
MaxEvans   -  Apr 16, 2014

Max's Easier Identifier.

ProIcons  -  Apr 18, 2014

I had created an add-on a while ago, that it could store more Nicks on Specific networks, with auto identify,
http://hawkee.com/snippet/10188/

Sign in to comment

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.