-.-Auto Identify-.- V1.0

By SL on Oct 15, 2004

A small and easy to use snippet. Load it and type /SLAC it will then open the dialog were u can set up everything...Just enter a nick and a pass then when you connect it will automaticly identify you

alias SLAC { dialog -m SLAC SLAC }
dialog SLAC {
  title "-=- Auto Identify -=-"
  size -1 -1 135 160
  edit "Scroll over Box for help",1 , 5 120 125 35, read, multi
  text "Enter Nickname in here",2 , 5 5 125 12
  edit "",3, 5 20 125 20
  text "Enter Nickname Password",4 , 5 40 125 12
  edit "",6, 5 55 125 20
  check "Auto Identify",7, 5 80 125 12
  button "Ok",8, 5 95 60 20, ok
  button "Cancel",9, 70 95 60 20, cancel
}
on 1:dialog:SLAC:init:*: {
  if (%sl.acn != $null) { did -ra $dname 3 %sl.acn }
  if (%sl.acp != $null) { did -ra $dname 6 [Hidden] }
  if (%sl.acs != $null) { did -c $dname 7 }
}
on 1:dialog:SLAC:mouse:*: {
  if ($did == 3) { did -ra $dname 1 Enter the prefered nick in here }
  if ($did == 6) { did -ra $dname 1 Enter the nicknames password here }
  if ($did == 7) { did -ra $dname 1 Swich auto Identify on or off on connect }
  if ($did == 8) { did -ra $dname 1 Accept new settings and close dialog }
  if ($did == 9) { did -ra $dname 1 Cancel all new settings and close dialog }
}
on 1:dialog:SLAC:sclick:*: {
  if (($did == 8) && ($did($dname, 6) != [hidden])) {
    if ($did($dname, 7).state == 0) { unset %sl.acs }
    if ($did($dname, 7).state == 1) { set %sl.acs on }
    if (($did($dname, 3).text != $null) && ($did($dname, 3).text != %sl.acn)) { set %sl.acn $did($dname, 3).text }
    if (($did($dname, 6).text != $null) && ($did($dname, 6).text != %sl.acp)) { set %sl.acp $did($dname, 6).text }
  }
}
alias SLID {
  if (($me == %sl.acn) && (%sl.acp != $null)) { msg nickserv identify %sl.acp }
}
on *:notice:*:?: {
  if (($nick == nickserv) && (identify isin $1-)) { SLID }
}

Comments

Sign in to comment.
Korvin   -  Nov 04, 2007

I dont think its that great, Great idea tho =] try making it .msg nickserv identify %sl.acp } to reduce the spam =]

 Respond  
Shadow_Knight   -  Oct 16, 2004

all i know is that there is ALREADY an auto-identifying feature for mIRC. good job though

 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.