Liak, long time since I posted a snippet. Lawl. Anyway, Liak, simple Auto nick identifer I made... Has a Menubar feature to add nicks, delete nicks, and look at nicks that are used for auto identifying. Liak, I added a feature so it auto identifies when you change yer nick. Hope you enjoy it :X

Alias AddnickAI {
  var %a $$?"Nickname"
  var %b $$?"Password"
  if ($read(NickIdentify.txt, s, %a)) { echo This Nick is already Saved }
  Else {
    write NickIdentify.txt %a %b
    Echo Nickname and Password saved
  }
}

Alias DelnickAI {
  var %a $$?"Nickname"
  if (!$read(NickIdentify.txt, s, %a)) { echo This Nick does not Exist }
  Else {
    write -ds $+ %a NickIdentify.txt
    Echo Nickname and Password erased
  }
}

On *:Connect: {
  If ($read(NickIdentify.txt, s, $me)) {
    var %ghom $read(NickIdentify.txt, s, $me)
    ns identify %ghom
  }
}

alias Savednicks {
  echo Saved Nicks for Auto Identify:
  var %x 1
  while %x <= $lines(NickIdentify.txt) {    
    echo -a $read(NickIdentify.txt,%x)
    inc %x
  }
}

ON *:NICK: { 
  If ($nick == $me && $read(NickIdentify.txt, s, $newnick)) { ns identify $read(NickIdentify.txt, s, $newnick) }
  else { halt }
}

menu channel,menubar {
  -
  Auto Identify
  .Add:/AddnickAI
  .Del:/DelnickAI
  .Saved Nicks:/savednicks
  -
}