on *:LOAD:{
  mkdir autojoin
  writeini autojoin\settings.ini settings status Enabled
  echo -a AutoJoin Script by iAlex Loaded.
}
menu menubar {
  mIRC Extended Autojoin
  .Settings:/dialog -m mircaj mircaj
  . $+ $majstat :/chanmjstat
  .Unload:/unload -rs mircaj.mrc
}
on *:START:{
  remini autojoin\settings.ini tempjoin
  remini autojoin\settings.ini joincount
  if ($readini(autojoin\settings.ini, settings, status) == Disabled) { halt }
  set %aconon 1
  server $read(autojoin\networks.txt, 1)
  set %acon 2
  while (%aconon == 1) {
    if ($read(autojoin\networks.txt, %acon) !== $null) { server -m $read(autojoin\networks.txt, %acon) | inc %acon 1 }
    else { unset %aconon | unset %acon }
  }
}
on *:CONNECT:{
  if ($readini(autojoin\settings.ini, $network, nickserv) !== $null) { .ns IDENTIFY $readini(autojoin\settings.ini, $network, nickserv) }
  if ($readini(autojoin\settings.ini, settings, status) == Disabled) { halt }
  if ($readini(autojoin\settings.ini, $network, oper) !== $null) { oper $readini(autojoin\settings.ini, $network, oper) $readini(autojoin\settings.ini, $network, password) }
  writeini autojoin\settings.ini tempjoin $network 1
  writeini autojoin\settings.ini joincount $network 1
  while ($readini(autojoin\settings.ini, tempjoin, $network) == 1) {
    if ($read(autojoin\ $+ $network $+ .txt, $readini(autojoin\settings.ini, joincount, $network)) !== $null) { join $read(autojoin\ $+ $network $+ .txt, $readini(autojoin\settings.ini, joincount, $network)) | writeini autojoin\settings.ini joincount $network $calc($readini(autojoin\settings.ini, joincount, $network) + 1) }
    else { remini autojoin\settings.ini tempjoin $network | remini autojoin\settings.ini joincount $network }
  }
}
on *:NOTICE:*This nickname is registered and protected*:?:{
  if ($readini(autojoin\settings.ini, settings, status) == Disabled) { halt }
  else {
    if ($nick == nickserv) {
      if ($readini(autojoin\settings.ini, $network, nickserv) !== $null) { .ns IDENTIFY $readini(autojoin\settings.ini, $network, nickserv) }
    }
  }
}
on *:TEXT:*registred and protected*:?:{
  if ($readini(autojoin\settings.ini, settings, status) == Disabled) { halt }
  if ($nick == nickserv && $readini(autojoin\settings.ini, $network, nickserv) !== $null) { ns identify $readini(autojoin\settings.ini, $network, nickserv) }
}
dialog mIRCAJ {
  title "mIRC Extended AutoJoin by iAlex."
  size -1 -1 277 110
  option dbu
  combo 1, 3 13 51 68, size
  text "Networks", 2, 4 3 32 8
  combo 3, 67 13 51 69, size
  text "Channels", 4, 71 2 25 8
  text "NickServ Auto Identify", 5, 163 1 56 8
  edit "", 6, 163 11 64 10, pass
  text "Password", 7, 134 12 25 9
  text "Auto Oper", 8, 166 29 30 8
  edit "", 9, 166 57 64 10, pass
  text "Password", 10, 135 58 25 9
  text "User", 11, 142 45 17 8
  edit "", 12, 166 43 64 10
  button "OK", 14, 232 95 37 12, ok
  button "Add", 15, 5 82 37 12
  button "Add", 16, 72 82 37 12
  button "Delete", 17, 5 96 37 12
  button "Delete", 18, 72 96 37 12
  button "Save", 19, 229 10 37 12
  button "Save", 20, 233 49 37 12
}
on *:DIALOG:mIRCAJ:init:0:{
  set %loadnetworks 1
  set %nwc 1
  while (%loadnetworks == 1) {
    if ($read(autojoin\networks.txt, %nwc) !== $null) {
      did -a mircaj 1 $read(autojoin\networks.txt, %nwc)
      inc %nwc 1
    }
    else { unset %nwc | unset %loadnetworks }
  }
}
on *:dialog:mircaj:sclick:1:{
  did -r mircaj 3
  did -r mircaj 6
  did -r mircaj 9
  did -r mircaj 12
  did -a mircaj 6 $readini(autojoin/settings.ini, $did(mircaj,1).seltext, nickserv)
  did -a mircaj 9 $readini(autojoin/settings.ini, $did(mircaj,1).seltext, oper)
  did -a mircaj 12 $readini(autojoin/settings.ini, $did(mircaj,1).seltext, password)
  set %loadchans 1
  set %cload 1
  while (%loadchans == 1) {
    if ($read(autojoin\ $+ $did(mIRCAj,1).seltext $+ .txt, %cload) !== $null) {
      did -a mircaj 3 $read(autojoin\ $+ $did(mIRCAJ,1).seltext $+ .txt, %cload)
      inc %cload 1
    }
    else { unset %loadchans | unset %cload }
  }
}
on *:dialog:mircaj:sclick:15:{
  if ($did(mircaj,1,0).text !== $null) {
    write autojoin\networks.txt $did(mircaj,1,0)
    did -a mircaj 1 $did(mircaj,1,0)
  }
}
on *:dialog:mircaj:sclick:17:{
  if ($did(mircaj,1).seltext !== $null) {
    write -ds $+ $did(mircaj,1).seltext autojoin\networks.txt
    did -d mircaj 1 $did(mircaj,1).sel
  }
}
on *:dialog:mircaj:sclick:16:{
  if ($did(mircaj,3,0).text !== $null) {
    write autojoin\ $+ $did(mircaj,1).seltext $+ .txt $did(mircaj,3,0)
    did -a mircaj 3 $did(mircaj,3,0)
  }
}
on *:dialog:mircaj:sclick:18:{
  if ($did(mircaj,3).seltext !== $null) {
    write -ds $+ $did(mircaj,3).seltext autojoin\ $+ $did(mircaj,1).seltext $+ .txt
    did -d mircaj 3 $did(mircaj,3).sel
  }
}
on *:dialog:mircaj:sclick:19:{
  if ($did(mircaj,6).text !== $null) { writeini autojoin\settings.ini $did(mircaj,1).seltext NickServ $did(mircaj,6).text }
}
on *:dialog:mircaj:sclick:20:{
  if ($did(mircaj,9).text !== $null && $did(mircaj,12).text !== $null) {
    writeini autojoin\settings.ini $did(mircaj,1).seltext Oper $did(mircaj,9).text
    writeini autojoin\settings.ini $did(mircaj,1).seltext Password $did(mircaj,12).text
  }
}
alias majstat {
  if ($readini(autojoin\settings.ini, settings, status) == Enabled) { return Disable }
  if ($readini(autojoin\settings.ini, settings, status) == Disabled) { return Enable }
  else { return error }
}
alias chanmjstat {
  if ($readini(autojoin\settings.ini, settings, status) == Enabled) { writeini autojoin\settings.ini settings status Disabled }
  if ($readini(autojoin\settings.ini, settings, status) == Disabled) { writeini autojoin\settings.ini settings status Enabled }
}