Hello Hawkee people!!!
I know I'm not a great scripter. I'm Starting. but at least I try create my own things.
and this is one of them a nickname control to separate nicknames and passwords by network
and auto-identify where necessary, have options usermode,group,ghost,selfgreet and ant-Guest

ONLY WORK IN NETWORKS WITH NICKSERV
you can choose btw /ns, /nickserv & /msg nickserv

then if you want to comment that I appreciate!
but please test the code before commenting on

UPDATED: added input nick dialog to change your nick using shortwords.

Jah Bless´´´

;###Nick/Pass # By rhasttaff ###
dialog nickpass {
  title "Nick/Pass"
  size -1 -1 68 119
  option dbu
  list 1, 3 27 62 36, size
  combo 2, 5 8 58 47, size drop
  button "ADD", 8, 2 108 18 10
  button "DEL", 9, 25 108 18 10
  button "EDIT", 10, 48 108 18 10
  box "NetWorks", 11, 2 0 64 106
  box "Nicks", 12, 2 19 64 69
  list 13, 3 62 62 25, size
  text "Last Use:", 14, 4 89 16 14, center hide
  text "", 15, 25 88 39 8, center
  text "", 16, 25 96 39 8, center
  menu "Config", 17
  menu "Addon-Pass", 18, 17
  menu "Ask for pass", 19, 18
  item "ON", 20, 19
  item "OFF", 21, 19
  item "Set new pass", 22, 18
  menu "Language", 23, 17
  item "English", 24, 23
  item "Portuguese", 25, 23
  item "Spanish", 26, 23
  menu "Service", 27, 17
  item "/ns", 28, 27
  item "/nickserv", 29, 27
  item "/msg nickserv", 30, 27
  item "Inputs", 31, 17
}
dialog nickpass2 {
  title "Nick/Pass"
  size -1 -1 195 118
  option dbu
  box "NetWork", 3, 2 4 79 74
  edit "", 4, 4 12 75 10
  box "Nick", 5, 2 22 79 56, disable
  edit "", 6, 4 30 75 10, disable
  box "Password", 7, 2 40 79 38
  edit "", 8, 4 48 75 10, disable
  box "uMode", 9, 80 4 45 74
  edit "", 10, 91 12 31 9, disable
  text "+", 11, 85 13 6 7, center
  box "Options", 12, 80 22 45 56
  check "Auto-Ghost", 14, 83 43 37 8, disable
  check "Ant-Guest", 15, 83 54 35 7, disable
  box "Pass-Generator/Scrambler", 35, 2 58 79 20
  edit "", 25, 4 66 41 10
  button "Gen", 17, 46 66 13 9
  button "Scram", 18, 60 66 19 9, disable
  edit "", 19, 82 63 40 10, disable hide
  combo 20, 127 25 63 50, size disable
  box "Grouped Nicks", 21, 124 4 69 74
  button "ADD", 22, 130 12 21 9, disable
  button "REM", 23, 165 12 21 9, disable
  box "Self-GreeT", 24, 2 78 191 21
  edit "", 16, 4 86 187 11, autohs disable
  box "", 27, 2 95 173 22
  box "", 29, 174 95 19 22
  button "OK", 30, 176 100 15 15, ok
  check "Kill", 13, 83 32 21 8, disable
  text "", 36, 3 99 171 16
}
dialog adnpass {
  title "Nick/Pass"
  size -1 -1 80 33
  option dbu
  edit "", 1, 2 20 56 10, pass
  button "OK", 2, 60 20 17 9, disable
  text "", 3, 2 1 77 16, center
}
dialog ninput {
  title "Nick Input"
  size -1 -1 88 99
  option dbu
  edit "", 1, 3 9 16 9, autohs
  edit "", 11, 22 9 63 9, autohs
  edit "", 2, 3 20 16 9, autohs
  edit "", 12, 22 20 63 9, autohs
  edit "", 3, 3 31 16 9, autohs
  edit "", 13, 22 31 63 9, autohs
  edit "", 4, 3 42 16 9, autohs
  edit "", 14, 22 42 63 9, autohs
  edit "", 5, 3 53 16 9, autohs
  edit "", 15, 22 53 63 9, autovs
  edit "", 6, 3 64 16 9, autohs
  edit "", 16, 22 64 63 9, autovs
  box "short", 130, 1 1 20 96
  box "Full Nick", 140, 20 1 67 96
  edit "", 7, 3 75 16 9, autohs
  edit "", 17, 22 75 63 9, autohs
  edit "", 8, 3 86 16 9, autohs
  edit "", 18, 22 86 63 9, autohs
}
on *:dialog:nickpass:init:0: {
  if ($readini(npass.ini,config,svc) = $did($dname,28).text) { did -c $dname 28 }
  if ($readini(npass.ini,config,svc) = $did($dname,29).text) { did -c $dname 29 }
  if ($readini(npass.ini,config,svc) = $did($dname,30).text) { did -c $dname 30 }
  if ($readini(npass.ini,networks,all)) {
    var %t = $numtok($np.allnet,32)
    while (%t != 0) {
      did -a $dname 2 $gettok($readini(npass.ini,networks,all),%t,32)
      dec %t
    }
  }
  if ($np.lang != 1) {
    var %a = Redes, %b = Ultimo uso:, %c = $iif($np.lang = 2,Addon-Senha,Addon-Contraseña), %d = $iif($np.lang = 2,Pedir Senha?,Pedir Contraseña?), %e = $iif($np.lang = 2,Mudar Senha,Cambiar Contraseña), %f = Idiomas, %g = Ingles, %h = Portugues, %i = $iif($np.lang = 2,Espanhol,Español)
    did -ra $dname 11 %a
    did -ra $dname 14 %b
    did -o $dname 18 %c
    did -o $dname 19 %d
    did -o $dname 22 %e
    did -o $dname 23 %f
    did -o $dname 24 %g
    did -o $dname 25 %h
    did -o $dname 26 %i 
    did -c $dname $iif($np.lang = 2,25,26)
  }
  else { did -c $dname 24 }
  did -c $dname $iif($readini(npass.ini,config,adnpass),20,21)
  did $iif($readini(npass.ini,config,adnpass),-e,-b) $dname 22 
  did -b $dname 9-10
}
on *:dialog:nickpass2:init:0: {
  if ($np.lang != 1) {
    var %a = $iif($np.lang = 2,Rede,Red), %b = $iif($np.lang = 2,Senha,Contraseña), %c = $iif($np.lang = 2,Opções,Opciones), %d = $iif($np.lang = 2,Gerador/Mesclador de Senhas,Generador de Contraseñas), %e = $iif($np.lang = 2,Ger,Gen), %f = $iif($np.lang = 2,Mist,Mesc), %g = Greet-Particular, %h = $iif($np.lang = 2,Nicks-Agrupados,Nicks-Agrupados)
    did -ra $dname 3 %a
    did -ra $dname 7 %b
    did -ra $dname 12 %c
    did -ra $dname 35 %d
    did -ra $dname 17 %e
    did -ra $dname 18 %f
    did -ra $dname 24 %g
    did -ra $dname 21 %h
  }
  did -b $dname 23
}
on *:dialog:adnpass:init:0: {
}
on *:dialog:ninput:init:0: {
  if ($np.lang != 1) { 
    did -ra $dname 130 atalh
    did -ra $dname 140 Nick Completo 
  }
  if ($ini(npass.ini,input,0) != 0) {
    var %a- = $ini(npass.ini,input,0)
    var %b- = 1
    while (%b- <= %a-) {
      did -ra $dname %b- $ini(npass.ini,input,%b-)
      did -ra $dname $calc(%b- + 10) $readini(npass.ini,input,$ini(npass.ini,input,%b-))
      inc %b-
    }
    remini npass.ini input
  }
}
on *:dialog:nickpass:sclick:*: {
  if ($did = 2) {
    var %a = $readini(npass.ini,networks,$did($dname,$did).seltext)
    var %b = $numtok(%a,32)
    did -r $dname 1
    while (%b != 0) {
      did -a $dname 1 $gettok(%a,%b,32)
      dec %b
    }
    did -r $dname 13
  }
  if ($did = 8) {
    if (!$dialog(nickpass2)) { npassadd }
  }
  if ($did = 10) {
    if (!$dialog(nickpass2)) { 
      dialog -m nickpass2 nickpass2
      did -ra nickpass2 4 $did($dname,2).seltext
      did -ra nickpass2 6 $did($dname,1).seltext
      did -ra nickpass2 8 $readini(npass.ini,$did($dname,1).seltext $+ $did($dname,2).seltext,pass)
      if ($readini(npass.ini,$did($dname,1).seltext $+ $did($dname,2).seltext,umode)) { did -ra nickpass2 10 $readini(npass.ini,$did($dname,1).seltext $+ $did($dname,2).seltext,umode) }
      if ($readini(npass.ini,$did($dname,1).seltext $+ $did($dname,2).seltext,sgreet)) { did -ra nickpass2 16 $np.transc2($readini(npass.ini,$did($dname,1).seltext $+ $did($dname,2).seltext,sgreet)) }
      if ($readini(npass.ini,$did($dname,1).seltext $+ $did($dname,2).seltext,guest)) { did -ra nickpass2 19 $readini(npass.ini,$did($dname,1).seltext $+ $did($dname,2).seltext,guest) | did -c nickpass2 15 |  did -v nickpass2 19 }
      if ($readini(npass.ini,$did($dname,1).seltext $+ $did($dname,2).seltext,ghost)) { did -c nickpass2 14 $readini(npass.ini,$did($dname,1).seltext $+ $did($dname,2).seltext,ghost) }   
      if ($readini(npass.ini,$did($dname,1).seltext $+ $did($dname,2).seltext,kill)) { did -c nickpass2 13 }
      var %a = $readini(npass.ini,$did(nickpass2,6).text $+ $did(nickpass2,4).text,gnicks)
      var %b = $numtok(%a,32)
      while (%b != 0) {
        did -a nickpass2 20 $gettok(%a,%b,32)
        dec %b
      }
      did -e nickpass2 4-25 
      did -b nickpass2 18
      did -b nickpass2 23
    }
  }
  if ($did = 9) {
    if (!$dialog(nickpass2)) { 
      var %c = $readini(npass.ini,networks,$did($dname,2).seltext)
      var %d = $numtok(%c,32)
      var %f = $readini(npass.ini,networks,all)
      if (%d > 1) { var %g = $findtok(%c,$did($dname,1).seltext,32) | writeini npass.ini networks $did($dname,2).seltext $deltok(%c,%g,32) |  remini npass.ini $did($dname,1).seltext $+ $did($dname,2).seltext   |     np.relo    }
      if (%d = 1) { remini npass.ini networks $did($dname,2).seltext   |  remini npass.ini $did($dname,1).seltext $+ $did($dname,2).seltext  }
      if ($numtok(%f,32) > 1) {  var %h = $findtok(%f,$did($dname,2).seltext,32) | writeini npass.ini networks all $deltok(%f,%h,32) }
      if ($numtok(%f,32) = 1) {  remini npass.ini networks all }
    }
    np.relo 
  }  
  if ($did = 1) {
    did -e $dname 8-10
    var %a = $readini(npass.ini,$did($dname,1).seltext $+ $did($dname,2).seltext,gnicks)
    if (%a) {
      var %b = $numtok(%a,32)
      did -r $dname 13
      while (%b != 0) {
        did -a $dname 13 $gettok(%a,%b,32)
        dec %b
      }
    }
    else { did -r $dname 13 }
    var %c = $readini(npass.ini,$did($dname,1).seltext $+ $did($dname,2).seltext,lastu)
    if (%c) {  did -v $dname 14 | did -ra $dname 15 $gettok(%c,1,32) | did -ra $dname 16 $gettok(%c,2,32) } 
    else { did -r $dname 15-16 | did -h $dname 14 }
  }
  if ($did = 13) {
    var %d = $readini(npass.ini,$did($dname,13).seltext $+ $did($dname,2).seltext,lastu)
    if (%d) { did -v $dname 14 | did -ra $dname 15 $gettok(%d,1,32) | did -ra $dname 16 $gettok(%d,2,32) }
    else { did -r $dname 15-16 | did -h $dname 14  } 
    did -b $dname 9-10
  }
}
on *:dialog:nickpass2:sclick:*: {
  if ($did = 22) && ($did($dname,20).text) { 
    var %a = $readini(npass.ini,$did($dname,6).text $+ $did($dname,4).text,gnicks)
    var %b = $numtok(%a,32)
    if (%b >= 1) && (!$istok(%a,$did($dname,20).text,32)) { writeini npass.ini $did($dname,6).text $+ $did($dname,4).text gnicks %a $did($dname,20).text |  writeini npass.ini $did($dname,20).text $+ $did($dname,4).text pass $did($dname,8).text }
    if (%b < 1) { writeini npass.ini $did($dname,6).text $+ $did($dname,4).text gnicks $did($dname,20).text |  writeini npass.ini $did($dname,20).text $+ $did($dname,4).text pass $did($dname,8).text  }
    var %c = $readini(npass.ini,$did($dname,6).text $+ $did($dname,4).text,gnicks)
    var %d = $numtok(%c,32)
    did -r $dname 20
    while (%d != 0) {
      did -a $dname 20 $gettok(%c,%d,32)
      dec %d
    }
    did -e $dname 23
  }
  if ($did = 23) && ($did($dname,20).seltext) {
    var %e = $readini(npass.ini,$did($dname,6).text $+ $did($dname,4).text,gnicks)
    if ($numtok(%e,32) > 1) { 
      var %f = $findtok(%e,$did($dname,20).seltext,32) 
      writeini npass.ini $did($dname,6).text $+ $did($dname,4).text gnicks $deltok(%e,%f,32)
      remini npass.ini $did($dname,20).seltext $+ $did($dname,4).text
      var %h = $readini(npass.ini,$did($dname,6).text $+ $did($dname,4).text,gnicks)
      var %i = $numtok(%h,32)
      did -r $dname 20
      while (%i != 0) {
        did -a $dname 20 $gettok(%h,%i,32)
        dec %i
      }
    }
    if ($numtok(%e,32) = 1) {  did -r $dname 20 | remini npass.ini $did($dname,6).text $+ $did($dname,4).text gnicks | remini npass.ini $did($dname,20).seltext $+ $did($dname,4).text }
  }
  if ($did = 20) { did -e $dname 23 }
  if ($did != 20) { did -b $dname 23  }
  if ($did = 18) && ($len($did($dname,25).text) > 3) { did -ra $dname 25 $misturecs($did($dname,25).text) }
  if ($did = 17)  { np.genpass | did -e $dname 18 }
  if ($did = 14)  { 
    if ($did($dname,14).state = 1) { writeini npass.ini $did($dname,6).text $+ $did($dname,4).text ghost ok }
    else { remini npass.ini $did($dname,6).text $+ $did($dname,4).text ghost  }
  }
  if ($did = 15) { 
    if ($did($dname,15).state = 0) { remini npass.ini $did($dname,6).text $+ $did($dname,4).text guest  }    
    did -ev $dname 19 
  }
}
on *:dialog:adnpass:sclick:2: {
  if ($np.lang = 1) {
    if (%np.adnps1)  { writeini npass.ini config adnpass $did($dname,1).text | dialog -x $dname $dname | unset %np.adnps1 | halt }
    if (%np.adnps2)  {
      if ($did($dname,1).text == $readini(npass.ini,config,adnpass)) { did -ra $dname 3 Well Come $me $+ !!!!! | .timer 1 1 dialog -x $dname $dname | unset %np.adnps2  | .timer 1 2 npass | halt }
      else { did -ra $dname 3 wrong password | .timer 1 2 did -ra $dname 3  Enter your pass }
    }
    halt
  }
  if ($np.lang = 2) {
    if (%np.adnps1)  { writeini npass.ini config adnpass $did($dname,1).text | dialog -x $dname $dname | unset %np.adnps1 | halt }
    if (%np.adnps2)  {
      if ($did($dname,1).text == $readini(npass.ini,config,adnpass)) { did -ra $dname 3 Bem Vindo $me $+ !!!!! | .timer 1 1 /dialog -x $dname $dname | unset %np.adnps2 |  .timer 1 2 npass | halt }
      else { did -ra $dname 3 Senha incorreta | .timer 1 2 did -ra $dname 3  Digite sua senha }
    }
    halt
  }
  if ($np.lang = 3) {
    if (%np.adnps1)  { writeini npass.ini config adnpass $did($dname,1).text | dialog -x $dname $dname | unset %np.adnps1 | halt }
    if (%np.adnps2)  {
      if ($did($dname,1).text == $readini(npass.ini,config,adnpass)) { did -ra $dname 3 Bien Venido $me $+ !!!!! | .timer 1 1 dialog -x $dname $dname | unset %np.adnps2 | .timer 1 2 /npass | halt }
      else { did -ra $dname 3 Contraseña incorrecta | .timer 1 2 did -ra $dname 3  Entra con tu Contraseña  }
    }
  }
}
on *:dialog:nickpass:menu:*: {
  if ($did = 24) && ($np.lang != 1) { writeini npass.ini config lang 1 | np.relo }
  if ($did = 25) && ($np.lang != 2) { writeini npass.ini config lang 2 | np.relo }
  if ($did = 26) && ($np.lang != 3) { writeini npass.ini config lang 3 | np.relo }
  if ($did = 20) { np.adnpass1 | did -u $dname 21 | did -c $dname 20 | did -e $dname 22 }
  if ($did = 21) { remini npass.ini config adnpass | did -u $dname 20 | did -c $dname 21 | did -b $dname 22  }
  if ($did = 22) && ($readini(npass.ini,config,adnpass)) { np.adnpass1 }
  if ($did = 28) { writeini npass.ini config svc $did($dname,28).text | did -c $dname $did | did -u $dname 29-30 } 
  if ($did = 29) { writeini npass.ini config svc $did($dname,29).text | did -c $dname $did | did -u $dname 28,30 } 
  if ($did = 30) { writeini npass.ini config svc $did($dname,30).text | did -c $dname $did | did -u $dname 28-29 }
  if ($did = 31) { 
    if ($dialog(ninput)) { dialog -x ninput | dialog -m ninput ninput }
    if (!$dialog(ninput)) {  dialog -m ninput ninput }
  }
}
on *:dialog:nickpass2:edit:*: {
  if ($did = 4) && ($did($dname,$did).text = MindForge) { did -ra $dname 19 MindUser | did -e $dname 6 }
  if ($did = 4) && ($did($dname,$did).text != MindForge) { did -ra $dname 19 Guest | did -e $dname 6 }
  if ($did = 6) { did -e $dname 8 }
  if ($did = 8) { did -e $dname 9-22 }
  if ($did = 20) && ($len($did($dname,20).text) >= 1) { did -e $dname 22 }
  if ($did = 25) && ($len($did($dname,25).text) >= 4) { did -e $dname 18 }
  else { did -b $dname 18 }
}
on *:dialog:adnpass:edit:1: {
  if ($len($did($dname,1).text) > 3) { did -e $dname 2 }
  else { did -b $dname 2 }
} 
on *:dialog:nickpass2:mouse:*: {
  if ($np.lang != 1) {
    if ($mouse.x isnum 166-220) {
      var %a = $iif($np.lang = 2,Aqui vc Ativa/Desativa a opçao KILL ao conectar. algumas redes nao dao suporte a esta opção. para saber procure por KILL em /ns help set,Aqui Activa/Desactiva la opcion KILL ao conectar. algumas redes no dan apoyo a esta opcion. busca por KILL en /ns help set)
      var %b = $iif($np.lang = 2,Ativando esta opção quando vc conecta e seu nick ainda esta na rede ira ser recuperado pelo comando /ns ghost nick pass,esta opción pondrá fin a una sesión "fantasma" si es que existe)   
      var %c = $iif($np.lang = 2,Esta Opção permite recuperar seu nick quando mudado para um nick padrao do sistema em algumas este nick começa com "Guest",Aqui activa la opcíon para recuperar automaticamente tu nick quando es cambiado por el sistema)
      var %d  = $iif($np.lang = 2,Aqui Você adiciona os Modos de usuario(uMode). qual sera setado quando vc conectar com o nick associado.,Aquí pones modos de usuario(uMode). que se establecerá cuando usted se conecta con el nick asociado)
      var %e = $iif($np.lang = 2,Em algumas redes o Nick do sistema pode ser diferente de outras assim como na MindForge é igual MindUser na Dalnet é Guest,En algunas redes el Nick del sistema pueden ser diferentes de otros así como en MindForge es  MindUser en Dalnet es Guest)
      if ($mouse.y isnum 65-79) { did -ra $dname 36 %a }
      if ($mouse.y isnum 89-98) { did -ra $dname 36 %b }
      if ($mouse.y isnum 110-120) { did -ra $dname 36 %c  }
      if ($mouse.y isnum 30-40) { did -ra $dname 36  %d }
      if ($mouse.y isnum 125-140) { did -ra $dname 36 %e }
    }
    if ($mouse.x isnum 7-150) {
      var %f = $iif($np.lang = 2,Aqui Você adiciona o Nome da Rede (so Uma) ex: MindForge Dalnet Quakenet SwiftIRC,Aquí entra con UNA red ej:  MindForge Dalnet SwiftIRC), %g = $iif($np.lang = 2,Aqui Você entra com o nick,Aquí entra con el nick), %h = $iif($np.lang = 2,Adicione Aqui a Senha do Nick $did($dname,6).text na rede $did($dname,4).text $+ .,Aqui entra con la Contraseña)
      var %i = $iif($np.lang = 2,Aqui Voce Pode Gerar uma senha clikcando em [Ger] ou misturar uma palavra para dificultar sua senha escreva algo e click em [mist],Aquí usted puede crear/generar una contraseña [Gen] o introduzca una palabra e click [mesc])
      if ($mouse.y isnum 21-45) { did -ra $dname 36  %f  }
      if ($mouse.y isnum 59-80) { did -ra $dname 36  %g }
      if ($mouse.y isnum 95-116) { did -ra $dname 36  %h }
      if ($mouse.y isnum 125-152) { did -ra $dname 36  %i }
    }
    var %j  = $iif($np.lang = 2,Aqui você adiciona os seus nick agrupados ou com a mesma senha. algumas redes nao oferecem esta opção. procure GROUP em /ns help,Aquí entra con nicks agrupados. o nicks com la mesma contraseña. algunas redes no dan apoyo a esta opcion. busca GROUP en /ns help), %k = $iif($np.lang = 2,Aqui Voce Pode adicionar uma mensagem de entrada que sera enviada nos canais quando vc entrar,Aquí Usted puede agregar un mensaje de entrada que se enviará a los canales) 
    if ($did = 21) { did -ra $dname 36 %j }
    if ($did = 24) { did -ra $dname 36 %k }
  }
  else {
    if ($mouse.x isnum 166-220) {
      if ($mouse.y isnum 65-79) { did -ra $dname 36 This will activate de KILL  when you connect. same network have no support to this option. to know type /ns help set and look for KILL }
      if ($mouse.y isnum 89-98) { did -ra $dname 36 This will activate de Ghost  option, this will disconnetc your ghost and recover the nick by /ns ghost nick pass  }
      if ($mouse.y isnum 110-120) { did -ra $dname 36 This option allows recover your nick when changed to network-defalt nick "Guest"  }
      if ($mouse.y isnum 30-40) { did -ra $dname 36  Here you Add The UserModes That will be seted on you when connect in the network. like +[RT ] }
      if ($mouse.y isnum 125-140) { did -ra $dname 36 In Some Networks The Defalt network name is not -GUEST- like in MindForge that is: MindUser }
    }
    if ($mouse.x isnum 7-150) {
      if ($mouse.y isnum 21-45) { did -ra $dname 36  Here you Add ONE Network. eg: Dalnet MindForge SwiftIRC  }
      if ($mouse.y isnum 59-80) { did -ra $dname 36  Here you Add The Nick. }
      if ($mouse.y isnum 95-116) { did -ra $dname 36  Here you Add The Password. }
      if ($mouse.y isnum 125-152) { did -ra $dname 36  Here you can generate a password or Scramble your pass. but its will not change your nick Password on the network! }
    }
    if ($did = 21) { did -ra $dname 36 here you will add Grouped nicks or nicks with same pass that the nick $did($dname,6).text $+ . to know if there is the option GROUP type /ns help  }
    if ($did = 24) { did -ra $dname 36 Here You Can Add a msg that will be send to channel that you join when you join  }
  }
} 
on *:dialog:nickpass2:close:*: {
  if ($did($dname,4).text) && ($did($dname,6).text) && ($did($dname,8).text) {
    var %a = $readini(npass.ini,networks,all)
    if (%a) && (!$istok(%a,$did($dname,4).text,32)) {  writeini npass.ini networks all %a $did($dname,4).text }
    if (!%a) { writeini npass.ini networks all $did($dname,4).text }   
    var %b = $readini(npass.ini,networks,$did($dname,4).text)
    if (%b) && (!$istok(%b,$did($dname,6).text,32)) {  writeini npass.ini networks $did($dname,4).text  %b $did($dname,6).text }
    if (!%b) {  writeini npass.ini networks  $did($dname,4).text $did($dname,6).text }    
    writeini npass.ini $did($dname,6).text $+ $did($dname,4).text pass $did($dname,8).text 
    if ($did($dname,10).text) { writeini npass.ini $did($dname,6).text $+ $did($dname,4).text  umode $did($dname,10).text }
    else { if ($readini(npass.ini,$did($dname,6).text $+ $did($dname,4).text,umode)) { remini npass.ini $did($dname,6).text $+ $did($dname,4).text umode } }
    if ($did($dname,16).text) { writeini npass.ini $did($dname,6).text $+ $did($dname,4).text sgreet $ $+ eval( $np.transc1($did($dname,16).text) $+ , $+ 0) }
    else { if ($readini(npass.ini,$did($dname,6).text $+ $did($dname,4).text,sgreet)) { remini npass.ini $did($dname,6).text $+ $did($dname,4).text sgreet } }
    if ($did($dname,13).state = 1) { writeini npass.ini $did($dname,6).text $+ $did($dname,4).text kill ok }
    else { if ($readini(npass.ini,$did($dname,6).text $+ $did($dname,4).text,kill)) { remini npass.ini $did($dname,6).text $+ $did($dname,4).text kill } }
    if ($did($dname,14).state = 1) { writeini npass.ini $did($dname,6).text $+ $did($dname,4).text ghost ok }
    else { if ($readini(npass.ini,$did($dname,6).text $+ $did($dname,4).text,ghost)) { remini npass.ini $did($dname,6).text $+ $did($dname,4).text ghost } }
    if ($did($dname,15).state = 1) && ($did($dname,19).text) { writeini npass.ini $did($dname,6).text $+ $did($dname,4).text guest $did($dname,19).text }
    if ($did($dname,15).state = 0) && ($readini(npass.ini,$did($dname,6).text $+ $did($dname,4).text,guest)) { remini npass.ini $did($dname,6).text $+ $did($dname,4).text guest }
  }  
  np.relo
}
on *:dialog:ninput:close:*: {
  if ($len($did($dname,1).text) >= 1) && ($len($did($dname,11).text) >= 1) { writeini npass.ini input $did($dname,1).text $did($dname,11).text }
  if ($len($did($dname,2).text) >= 1) && ($len($did($dname,12).text) >= 1) { writeini npass.ini input $did($dname,2).text $did($dname,12).text }
  if ($len($did($dname,3).text) >= 1) && ($len($did($dname,13).text) >= 1) { writeini npass.ini input $did($dname,3).text $did($dname,13).text }
  if ($len($did($dname,4).text) >= 1) && ($len($did($dname,14).text) >= 1) { writeini npass.ini input $did($dname,4).text $did($dname,14).text }
  if ($len($did($dname,5).text) >= 1) && ($len($did($dname,15).text) >= 1) { writeini npass.ini input $did($dname,5).text $did($dname,15).text }
  if ($len($did($dname,6).text) >= 1) && ($len($did($dname,16).text) >= 1) { writeini npass.ini input $did($dname,6).text $did($dname,16).text }
  if ($len($did($dname,7).text) >= 1) && ($len($did($dname,17).text) >= 1) { writeini npass.ini input $did($dname,7).text $did($dname,17).text }
  if ($len($did($dname,8).text) >= 1) && ($len($did($dname,18).text) >= 1) { writeini npass.ini input $did($dname,8).text $did($dname,18).text }
}
on *:load: {
  writeini npass.ini config lang 1
  writeini npass.ini config svc /nickserv
  writeini npass.ini input . $+ $left($me,1) $me
}
on *:connect: {
  if ($readini(npass.ini,$me $+ $network,pass)) { 
    if ($readini(npass.ini,$me $+ $network,umode)) && ($readini(npass.ini,$me $+ $network,kill)) { $readini(npass.ini,config,svc) identify $readini(npass.ini,$me $+ $network,pass) | .timer 1 7 /mode $me $readini(npass.ini,$me $+ $network,umode) | .timer 1 8 ns set kill on | halt }
    if ($readini(npass.ini,$me $+ $network,umode)) && (!$readini(npass.ini,$me $+ $network,kill)) { $readini(npass.ini,config,svc) identify $readini(npass.ini,$me $+ $network,pass) | .timer 1 7 /mode $me $readini(npass.ini,$me $+ $network,umode)  | halt }
    if (!$readini(npass.ini,$me $+ $network,umode)) && ($readini(npass.ini,$me $+ $network,kill)) { $readini(npass.ini,config,svc) identify $readini(npass.ini,$me $+ $network,pass) | .timer 1 8 ns set kill on | halt }
    if (!$readini(npass.ini,$me $+ $network,umode)) && (!$readini(npass.ini,$me $+ $network,kill)) { $readini(npass.ini,config,svc) identify $readini(npass.ini,$me $+ $network,pass)  }
  }
}
on *:nick: {
  if ($nick == $me) {
    if ($scon(0) = 1) { 
      if ($readini(npass.ini,$nick $+ $network,guest) !isincs $newnick) && ($readini(npass.ini,$newnick $+ $network,pass)) {  set -u5 %np.read ok  }
      if ($readini(npass.ini,$nick $+ $network,guest) isincs $newnick) && ($readini(npass.ini,$nick $+ $network,pass)) { .timer 1 2 nick $nick |  set -u6 %np.read ok  }
      if ($ini(npass.ini,$nick $+ $network)) { writeini npass.ini $nick $+ $network lastu $date $time(HH:nn:ss) }
    }
    if ($scon(0) > 1) { 
      if ($readini(npass.ini,$nick $+ $scid($cid).$network,guest) !isincs $newnick) && ($readini(npass.ini,$newnick $+ $scid($cid).$network,pass)) {  set -u5 %np.read ok   }
      if ($readini(npass.ini,$nick $+ $scid($cid).$network,guest) isincs $newnick) && ($readini(npass.ini,$nick $+ $scid($cid).$network,pass)) { .timer 1 2 /nick $nick |  set -u5 %np.read ok  }
      if ($ini(npass.ini,$nick $+ $scid($cid).$network)) { writeini npass.ini $nick $+ $scid($cid).$network lastu $date $time(HH:nn:ss) }
    }
  }
}
raw 433:*: {
  if ($readini(npass.ini,$2 $+ $scid($cid).$network,ghost)) { $readini(npass.ini,config,svc) ghost $2 $readini(npass.ini,$2 $+ $scid($cid).$network,pass) | .timer 1 4 nick $2  }
}
raw 438:*: { 
  if ($readini(npass.ini,$2 $+ $scid($cid).$network,pass)) { .timer 1 $calc($np.fnum($1-) + 2) nick $2 | .timer 1 $calc($np.fnum($1-) + 8)  set -u6 %np.read ok }
}
on *:notice:*:*: {
  if ($nick = NickServ) {     
    if (*msg*nickserv*identify* iswm $1-) { $readini(npass.ini,config,svc) identify $readini(npass.ini,$me $+ $scid($cid).$network,pass) }
  }
}
on *:join:#: {
  if ($nick = $me) && ($readini(npass.ini,$me $+ $network,sgreet)) { .timer 1 2 describe $chan $np.transc2($eval($readini(npass.ini,$me $+ $network,sgreet),3)) }
}
on *:input:*: {
  if ($readini(npass.ini,input,$1)) && (!$2) { /nick $readini(npass.ini,input,$1)  }
}
alias -l npassadd { dialog -m nickpass2 nickpass2 }
alias -l np.relo {  if ($dialog(nickpass)) { dialog -x nickpass |  dialog -m nickpass nickpass } }
alias -l npass { dialog -m nickpass nickpass }
alias -l np.identify {  if ($readini(npass.ini,$me $+ $network,pass)) { $readini(npass.ini,config,svc) identify $v1 } }
alias -l np.lang { return $readini(npass.ini,config,lang) }
alias -l np.transc1 { return $replace($1-,,¢¬,,¢b¬,,¢u¬,,¢r¬) }
alias -l np.transc2 { return $replace($1-,¢¬,,¢b¬,,¢u¬,,¢r¬,) }
alias -l np.allnet { return $readini(npass.ini,networks,all) }
alias -l np.fnum {
  var %a =  $1-, %b = $len($1-), %c = 1
  while (%c <= %b) {
    if ($mid(%a,%c,1) isnum) { var %d = %d $+ $ifmatch } 
    inc %c
  }
  return %d
}
alias -l  np.adnpass1 {
  /dialog -m adnpass adnpass
  if ($np.lang = 1) { did -ra adnpass 3 Enter a password to Addon }
  if ($np.lang = 2) { did -ra adnpass 3 didgite uma senha p/ o addon }
  if ($np.lang = 3) { did -ra adnpass 3 agrega una contraseña para el addon }
  set %np.adnps1 ok
}
alias -l  np.adnpass2 {
  /dialog -m adnpass adnpass
  if ($np.lang = 1) { did -ra adnpass 3 Enter your pass }
  if ($np.lang = 2) { did -ra adnpass 3 didgite sua senha }
  if ($np.lang = 3) { did -ra adnpass 3 entra con tu contraseña }
  set %np.adnps2 ok
}
alias -l  np.adnpass3 {
  if ($readini(npass.ini,config,adnpass)) { np.adnpass2 }
  else { npass }
}
alias -l  np.genpass {
  var %a = 8
  while (%a != 0) {
    var %b = $rand(a,z)
    var %c = $rand(1,9)
    var %d = $rand(1,2)
    var %e = $iif(%d = 1,%b,%c) $+ %e
    dec %a
  }
  did -ra nickpass2 25 %e
}
alias -l misturecs {
  var %trrr = $lower($1)
  var %trr = $len($1)
  var %trr1 = 1
  while (%trr1 <= %trr) {
    var %trr2 = %trr2 $+ $mid(%trrr,%trr1,1) $+ .
    inc %trr1
  } 
  var %tra = %trr2
  var %tr = $numtok(%trr2,46)
  var %tr1 = 1
  var %tr2 = %tr
  while (%tr1 <= %tr) {
    var %tr3 = $rand(1,%tr2)
    var %trr12 = $remove(%tra,.)
    var %tr4 = %tr4 $+ $mid(%trr12,%tr3,1) 
    var %tra = $deltok(%tra,%tr3,46)
    dec %tr2
    inc %tr1
  }
  return %tr4
}
menu menubar,status,channel {  
  Nick-Pass :np.adnpass3 
}
;#### The End :)~ #####(520).lines