Nick auto-identify

By Gemster on Apr 20, 2008

This dialog allows you to set upto 10 nicks for auto identify, also you can change your nick from this dialog as an extra.

To add: copy an paste to remotes (alt+r)
then right click in channel or status and you will see the dialog menu thats called "Raven identify".

tested on anope.
uses services nickserv

Remade by Gecko321, Thanks dude.

on *:notice:*nickname*registered*your*:*: {
  if ($Nick = NickServ) {
    if ($Findtok(%rai,$me,1,32)) { .msg Nickserv identify $GetTok(%Iar,$v1,32) }
  }
}

alias rai { dialog -m rai rai }
dialog rai {
  title "Raven Auto-Identify"
  size -1 -1 179 249
  option dbu
  text "Raven Auto-Identify By Gemster", 1, 60 8 51 22, center
  text "Nick", 2, 40 32 25 8
  text "Password", 3, 104 32 25 8
  edit "Hover the mouse over items to display help for that item.", 24, 42 216 120 25, read multi
  box "Help", 25, 40 208 126 39
  edit "", 4, 40 40 61 10
  edit "", 5, 40 56 61 10
  edit "", 6, 40 72 61 10
  edit "", 7, 40 88 61 10
  edit "", 8, 40 104 61 10
  edit "", 9, 40 120 61 10
  edit "", 10, 40 136 61 10
  edit "", 11, 40 152 61 10
  edit "", 12, 40 168 61 10
  edit "", 13, 40 184 61 10 
  edit "", 14, 104 40 61 10
  edit "", 15, 104 56 61 10
  edit "", 16, 104 72 61 10
  edit "", 17, 104 88 61 10
  edit "", 18, 104 104 61 10
  edit "", 19, 104 120 61 10
  edit "", 20, 104 136 61 10
  edit "", 21, 104 152 61 10
  edit "", 22, 104 168 61 10
  edit "", 23, 104 184 61 10
  button "Save", 26, 85 198 37 12, ok
  button "Set", 27, 8 40 21 9
  button "Set", 28, 8 56 21 9
  button "Set", 29, 8 72 21 9
  button "Set", 30, 8 88 21 9
  button "Set", 31, 8 104 21 9
  button "Set", 32, 8 120 21 9
  button "Set", 33, 8 136 21 9
  button "Set", 34, 8 152 21 9
  button "Set", 35, 8 168 21 9
  button "Set", 36, 8 184 21 9
  box "Set", 37, 2 32 34 167
}

on *:dialog:rai:init:*: {
  var %a = 0,%b = 3
  while (%a <= $NumTok(%Rai,32)) {
    inc %a
    inc %b
    did -ra $Dname %b $Gettok(%Rai,%a,32)
    did -ra $Dname $Calc(%b + 10) $GetTok(%Iar,%a,32)
  }
}

on *:dialog:rai:mouse:*: {
  if (($Did > 3) && ($Did < 14)) { did -ra $dname 24 Enter your nickname $Calc($did - 3) in here }
  if (($Did > 13) && ($Did < 24)) { did -ra $dname 24 Enter your nickname $Calc($did - 13) password in here }
  if ($did == 26) { did -ra $dname 24 Saves all new changes and exits this dialog }
  if ($did == 1) { did -ra $dname 24 Raven Auto-Identify By Gemster , admin@gemster.info , www.gemster.info }
  if ($did == 24) { did -ra $dname 24 Help box, Just hover over the items to see help for that item displayed here }
  if (($Did > 26) && ($Did < 37)) { did -ra $Dname 24 Sets you current nickname to $Did($Dname,$Calc($Did - 23)).text }
  if ($did == 38) { did -ra $dname 24 clicking OK will exit this dialog }
}

on *:dialog:rai:sclick:*: {
  if (($Did > 26) && ($Did < 37)) { .nick $GetTok(%Rai,$Calc($Did - 26),32) }
  if ($did = 26) {
    unset %Rai
    unset %Iar
    var %a = 3
    while (%a <= 12) {
      inc %a
      %Rai = %Rai $+ $chr(32) $+ $Did($Dname,%a).text
      %Iar = %Iar $+ $chr(32) $+ $Did($Dname,$Calc(%a + 10)).text
    }
  }
}

menu channel,status {
  Raven Identifyer:/rai
}

Comments

Sign in to comment.
bugboy1028   -  Jan 09, 2010
  • /nick: insufficient parameters (line 74, script8.ini) <----
 Respond  
SiLver_ShaDow   -  Apr 22, 2008

nice

 Respond  
Gecko321   -  Apr 21, 2008

no problem, if you ever need help with anything just let me know.

 Respond  
Gemster   -  Apr 21, 2008

Thanks Gecko321,i like the use of $GetTok and $Calc, I guess my scripting knowlage isent as good as i thought :P.

 Respond  
Jonesy44   -  Apr 20, 2008

that\'s true, but i mean the if statements mainly ;-)

 Respond  
Gemster   -  Apr 20, 2008

Yes jonesy44 this snippet could be a lot smaller ie: take out all the help info, but as u know theres a lot of new users these days who dont know much about irc. Therfor the help info.
:D

 Respond  
Jonesy44   -  Apr 20, 2008

im sure there must be a way to make this script a little smaller, getting rid of the excessive if statements ..etc. use a more generalized approach ;-)

 Respond  
PuNkTuReD   -  Apr 20, 2008

nice and neat looks good and will come in handy

 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.