;
; OLD auto join routine.  Shouldn't be used any more
;
ON 1:LOAD: {
  %script.autojoin.name = 6[2A-Thing6]  
  writeini $mircini athing autojoinstatus Unset
  writeini $mircini athing autorejoinstatus Unset
}

ON *:CONNECT: {
  AutoJoin
}

ON 1:KICK:#: {
  if ($knick == $me) {
    if ($returninival($mircini,athing,autorejoinstatus) == On) {
      if ($findtok($returninival($mircini,athing,autorejoin),$chan,1,44) != $null) {
        .raw join #
      }
    }
  }
}

alias AutoJoin {
  if ($returninival($mircini,athing,autojoinstatus) == On) {
    if ($returninival($mircini,athing,autojoin) != $null) {
      echo -st %script.autojoin.name Auto-Joining Channels: $returninival($mircini,athing,autojoin)
      %AutoJoin.Count = 0
      :loop
      if ($gettok($returninival($mircini,athing,autojoin),0,44) > %AutoJoin.Count) {
        inc -u3 %AutoJoin.Count 1
        .raw Join $gettok($returninival($mircini,athing,autojoin),%AutoJoin.count,44) $iif($returninival( $mircini ,athing, $gettok($returninival($mircini,athing,autojoin),%AutoJoin.Count,44) $+ .key ) != $Null, [ $returninival($mircini, athing, $gettok($returninival( $mircini ,athing,autojoin),%AutoJoin.Count,44) $+ .key ) ] ) 
        .timerWindowActive 1 1 window -a $gettok($returninival($mircini,athing,autojoin),%AutoJoin.count,44)
        goto loop
      }
    }
    else {
      echo -st %script.autojoin.name Not Auto-Joining any Channels. None set.
    }
  }
}  
menu channel,status,menubar {
  .-
  AutoJoin
  .AutoJoin ( $+ $returninival($mircini,athing,autojoinstatus) $+ ) :{
    if ($returninival($mircini,athing,autojoinstatus) != On) {
      writeini $mircini athing autojoinstatus On
    }
    else {
      writeini $mircini athing autojoinstatus Off
    }
  }
  .Channels
  ..Add $chan : {
    if ($chan == $Null) {
      if ($$?="Add Which Channel?" != $Null) {
        %autojoin = $readini $mircini athing autojoin
        if ($left($!, 1) == $chr(35)) {
          %AutoJoin = $addtok(%autojoin,$!,44)
          } | else {
          %AutoJoin = $addtok(%autojoin, [ $chr(35) $+ [ $! ] ] ,44)
        }
        writeini $mircini athing autojoin %AutoJoin
        unset %AutoJoin
      }
    }
    else {
      %AutoJoin = $readini $mircini athing autojoin
      %AutoJoin = $addtok(%autojoin,$chan,44)
      writeini $mircini athing autojoin %AutoJoin
      if ($chan($chan).key != $Null) {
        writeini $mircini athing $chan $+ [ .key ] $chan($chan).key
      }
      unset %AutoJoin
    }
  }
  ..-
  ..$gettok($returninival($mircini,athing,autojoin) ,1,44)
  ...Remove: {
    %AutoJoin = $readini $mircini athing autojoin
    %AutoJoin = $remtok(%AutoJoin,$gettok(%Autojoin,1,44),1,44)
    if (%autojoin != $null) {
      writeini $mircini athing autojoin %AutoJoin
      } | else {
      remini $mircini athing autojoin
    }
    unset %AutoJoin
  }
  ...-
  ...Key  $iif($returninival( $mircini ,athing, [ $gettok($returninival($mircini,athing,autojoin),1,44) $+ .key ] ) != $Null, [ ( $+ [ $returninival($mircini, athing, [ $gettok($returninival( $mircini ,athing,autojoin),1,44) $+ .key ] ) ] $+ ) ] ) : {
    if ($?="Enter they key, or leave empty for None" != $Null) {
      writeini $mircini athing [ $gettok($returninival($mircini,athing,autojoin) ,1,44) [ $+ .key ] ] $!
    }
    else {
      remini $mircini athing [ $gettok($returninival($mircini,athing,autojoin) ,1,44) $+ .key ]
    }
  }
  ..$gettok($returninival($mircini,athing,autojoin) ,2,44)
  ...Remove: {
    %AutoJoin = $readini $mircini athing autojoin
    %AutoJoin = $remtok(%AutoJoin,$gettok(%Autojoin,2,44),1,44)
    writeini $mircini athing autojoin %AutoJoin
    remini $mircini athing %Autojoin $+ .key
    unset %AutoJoin
  }
  ...-
  ...Key  $iif($returninival( $mircini ,athing, [ $gettok($returninival($mircini,athing,autojoin),2,44) $+ .key ] ) != $Null, [ ( $+ [ $returninival($mircini, athing, [ $gettok($returninival( $mircini ,athing,autojoin),2,44) $+ .key ] ) ] $+ ) ] ) : {
    if ($?="Enter they key, or leave empty for None" != $Null) {
      writeini $mircini athing [ $gettok($returninival($mircini,athing,autojoin) ,2,44) [ $+ .key ] ] $!
    }
    else {
      remini $mircini athing [ $gettok($returninival($mircini,athing,autojoin) ,2,44) $+ .key ]
    }
  }
  ..$gettok($returninival($mircini,athing,autojoin),3,44)
  ...Remove: {
    %AutoJoin = $readini $mircini athing autojoin
    %AutoJoin = $remtok(%AutoJoin,$gettok(%Autojoin,3,44),1,44)
    writeini $mircini athing autojoin %AutoJoin
    remini $mircini athing %Autojoin $+ .key
    unset %AutoJoin
  }
  ...-
  ...Key  $iif($returninival( $mircini ,athing, [ $gettok($returninival($mircini,athing,autojoin),3,44) $+ .key ] ) != $Null, [ ( $+ [ $returninival($mircini, athing, [ $gettok($returninival( $mircini ,athing,autojoin),3,44) $+ .key ] ) ] $+ ) ] ) : {
    if ($?="Enter they key, or leave empty for None" != $Null) {
      writeini $mircini athing [ $gettok($returninival($mircini,athing,autojoin) ,3,44) [ $+ .key ] ] $!
    }
    else {
      remini $mircini athing [ $gettok($returninival($mircini,athing,autojoin) ,3,44) $+ .key ]
    }
  }
  ..$gettok($returninival($mircini,athing,autojoin),4,44)
  ...Remove: {
    %AutoJoin = $readini $mircini athing autojoin
    %AutoJoin = $remtok(%AutoJoin,$gettok(%Autojoin,4,44),1,44)
    writeini $mircini athing autojoin %AutoJoin
    remini $mircini athing %Autojoin $+ .key
    unset %AutoJoin
  }
  ...-
  ...Key  $iif($returninival( $mircini ,athing, [ $gettok($returninival($mircini,athing,autojoin),4,44) $+ .key ] ) != $Null, [ ( $+ [ $returninival($mircini, athing, [ $gettok($returninival( $mircini ,athing,autojoin),4,44) $+ .key ] ) ] $+ ) ] ) : {
    if ($?="Enter they key, or leave empty for None" != $Null) {
      writeini $mircini athing [ $gettok($returninival($mircini,athing,autojoin) ,4,44) [ $+ .key ] ] $!
    }
    else {
      remini $mircini athing [ $gettok($returninival($mircini,athing,autojoin) ,4,44) $+ .key ]
    }
  }
  ..$gettok($returninival($mircini,athing,autojoin),5,44)
  ...Remove: {
    %AutoJoin = $readini $mircini athing autojoin
    %AutoJoin = $remtok(%AutoJoin,$gettok(%Autojoin,5,44),1,44)
    writeini $mircini athing autojoin %AutoJoin
    remini $mircini athing %Autojoin $+ .key
    unset %AutoJoin
  }
  ...-
  ...Key  $iif($returninival( $mircini ,athing, [ $gettok($returninival($mircini,athing,autojoin),5,44) $+ .key ] ) != $Null, [ ( $+ [ $returninival($mircini, athing, [ $gettok($returninival( $mircini ,athing,autojoin),5,44) $+ .key ] ) ] $+ ) ] ) : {
    if ($?="Enter they key, or leave empty for None" != $Null) {
      writeini $mircini athing [ $gettok($returninival($mircini,athing,autojoin) ,5,44) [ $+ .key ] ] $!
    }
    else {
      remini $mircini athing [ $gettok($returninival($mircini,athing,autojoin) ,5,44) $+ .key ]
    }
  }
  ..$gettok($returninival($mircini,athing,autojoin),6,44)
  ...Remove: {
    %AutoJoin = $readini $mircini athing autojoin
    %AutoJoin = $remtok(%AutoJoin,$gettok(%Autojoin,6,44),1,44)
    writeini $mircini athing autojoin %AutoJoin
    remini $mircini athing %Autojoin $+ .key
    unset %AutoJoin
  }
  ...-
  ...Key  $iif($returninival( $mircini ,athing, [ $gettok($returninival($mircini,athing,autojoin),6,44) $+ .key ] ) != $Null, [ ( $+ [ $returninival($mircini, athing, [ $gettok($returninival( $mircini ,athing,autojoin),6,44) $+ .key ] ) ] $+ ) ] ) : {
    if ($?="Enter they key, or leave empty for None" != $Null) {
      writeini $mircini athing [ $gettok($returninival($mircini,athing,autojoin) ,6,44) [ $+ .key ] ] $!
    }
    else {
      remini $mircini athing [ $gettok($returninival($mircini,athing,autojoin) ,6,44) $+ .key ]
    }
  }
  ..$gettok($returninival($mircini,athing,autojoin),7,44)
  ...Remove: {
    %AutoJoin = $readini $mircini athing autojoin
    %AutoJoin = $remtok(%AutoJoin,$gettok(%Autojoin,7,44),1,44)
    writeini $mircini athing autojoin %AutoJoin
    remini $mircini athing %Autojoin $+ .key
    unset %AutoJoin
  }
  ...-
  ...Key  $iif($returninival( $mircini ,athing, [ $gettok($returninival($mircini,athing,autojoin),7,44) $+ .key ] ) != $Null, [ ( $+ [ $returninival($mircini, athing, [ $gettok($returninival( $mircini ,athing,autojoin),7,44) $+ .key ] ) ] $+ ) ] ) : {
    if ($?="Enter they key, or leave empty for None" != $Null) {
      writeini $mircini athing [ $gettok($returninival($mircini,athing,autojoin) ,7,44) [ $+ .key ] ] $!
    }
    else {
      remini $mircini athing [ $gettok($returninival($mircini,athing,autojoin) ,7,44) $+ .key ]
    }
  }
  ..$gettok($returninival($mircini,athing,autojoin),8,44)
  ...Remove: {
    %AutoJoin = $readini $mircini athing autojoin
    %AutoJoin = $remtok(%AutoJoin,$gettok(%Autojoin,8,44),1,44)
    writeini $mircini athing autojoin %AutoJoin
    remini $mircini athing %Autojoin $+ .key
    unset %AutoJoin
  }
  ...-
  ...Key  $iif($returninival( $mircini ,athing, [ $gettok($returninival($mircini,athing,autojoin),8,44) $+ .key ] ) != $Null, [ ( $+ [ $returninival($mircini, athing, [ $gettok($returninival( $mircini ,athing,autojoin),8,44) $+ .key ] ) ] $+ ) ] ) : {
    if ($?="Enter they key, or leave empty for None" != $Null) {
      writeini $mircini athing [ $gettok($returninival($mircini,athing,autojoin) ,8,44) [ $+ .key ] ] $!
    }
    else {
      remini $mircini athing [ $gettok($returninival($mircini,athing,autojoin) ,8,44) $+ .key ]
    }
  }
  ..$gettok($returninival($mircini,athing,autojoin),9,44)
  ...Remove: {
    %AutoJoin = $readini $mircini athing autojoin
    %AutoJoin = $remtok(%AutoJoin,$gettok(%Autojoin,9,44),1,44)
    writeini $mircini athing autojoin %AutoJoin
    remini $mircini athing %Autojoin $+ .key
    unset %AutoJoin
  }
  ...-
  ...Key  $iif($returninival( $mircini ,athing, [ $gettok($returninival($mircini,athing,autojoin),9,44) $+ .key ] ) != $Null, [ ( $+ [ $returninival($mircini, athing, [ $gettok($returninival( $mircini ,athing,autojoin),9,44) $+ .key ] ) ] $+ ) ] ) : {
    if ($?="Enter they key, or leave empty for None" != $Null) {
      writeini $mircini athing [ $gettok($returninival($mircini,athing,autojoin) ,9,44) [ $+ .key ] ] $!
    }
    else {
      remini $mircini athing [ $gettok($returninival($mircini,athing,autojoin) ,9,44) $+ .key ]
    }
  }
  ..$gettok($returninival($mircini,athing,autojoin),10,44)
  ...Remove: {
    %AutoJoin = $readini $mircini athing autojoin
    %AutoJoin = $remtok(%AutoJoin,$gettok(%Autojoin,10,44),1,44)
    writeini $mircini athing autojoin %AutoJoin
    remini $mircini athing %Autojoin $+ .key
    unset %AutoJoin
  }
  ...-
  ...Key  $iif($returninival( $mircini ,athing, [ $gettok($returninival($mircini,athing,autojoin),10,44) $+ .key ] ) != $Null, [ ( $+ [ $returninival($mircini, athing, [ $gettok($returninival( $mircini ,athing,autojoin),10,44) $+ .key ] ) ] $+ ) ] ) : {
    if ($?="Enter they key, or leave empty for None" != $Null) {
      writeini $mircini athing [ $gettok($returninival($mircini,athing,autojoin) ,10,44) [ $+ .key ] ] $!
    }
    else {
      remini $mircini athing [ $gettok($returninival($mircini,athing,autojoin) ,10,44) $+ .key ]
    }
  }
  ..-
  ..List: echo -at %Script.AutoJoin.Name AutoJoin These Channels: $returninival($mircini,athing,autojoin)
  AutoReJoin
  .AutoReJoin ( $+ $returninival($mircini,athing,autorejoinstatus) $+ ) :{
    if ($returninival($mircini,athing,autorejoinstatus) != On) {
      writeini $mircini athing autorejoinstatus On
    }
    else {
      writeini $mircini athing autorejoinstatus Off
    }
  }
  .Channels
  ..Add $chan : {
    if ($chan == $Null) {
      if ($$?="Add Which Channel?" != $Null) {
        %autorejoin = $readini $mircini athing autorejoin
        if ($left($!, 1) == $chr(35)) {
          %AutoReJoin = $addtok(%autorejoin,$!,44)
          } | else {
          %AutoReJoin = $addtok(%autorejoin, [ $chr(35) $+ [ $! ] ] ,44)
        }
        writeini $mircini athing autorejoin %AutoReJoin
        unset %AutoReJoin
      }
    }
    else {
      %autorejoin = $readini $mircini athing autorejoin
      %autorejoin = $addtok(%autorejoin,$chan,44)
      writeini $mircini athing autorejoin %autorejoin
      unset %autorejoin
    }
  }
  ..-
  ..$gettok($returninival($mircini,athing,autorejoin) ,1,44)
  ...Remove: {
    %autorejoin = $readini $mircini athing autorejoin
    %autorejoin = $remtok(%autorejoin,$gettok(%autorejoin,1,44),1,44)
    if (%autorejoin != $null) {
      writeini $mircini athing autorejoin %autorejoin
      } | else {
      remini $mircini athing autorejoin
    }
    unset %autorejoin
  }
  ..$gettok($returninival($mircini,athing,autorejoin) ,2,44)
  ...Remove: {
    %autorejoin = $readini $mircini athing autorejoin
    %autorejoin = $remtok(%autorejoin,$gettok(%autorejoin,2,44),1,44)
    if (%autorejoin != $null) {
      writeini $mircini athing autorejoin %autorejoin
      } | else {
      remini $mircini athing autorejoin
    }
    unset %autorejoin
  }
  ..$gettok($returninival($mircini,athing,autorejoin),3,44)
  ...Remove: {
    %autorejoin = $readini $mircini athing autorejoin
    %autorejoin = $remtok(%autorejoin,$gettok(%autorejoin,3,44),1,44)
    writeini $mircini athing autorejoin %autorejoin
    unset %autorejoin
  }
  ..$gettok($returninival($mircini,athing,autorejoin),4,44)
  ...Remove: {
    %autorejoin = $readini $mircini athing autorejoin
    %autorejoin = $remtok(%autorejoin,$gettok(%autorejoin,4,44),1,44)
    writeini $mircini athing autorejoin %autorejoin
    unset %autorejoin
  }
  ..$gettok($returninival($mircini,athing,autorejoin),5,44)
  ...Remove: {
    %autorejoin = $readini $mircini athing autorejoin
    %autorejoin = $remtok(%autorejoin,$gettok(%autorejoin,5,44),1,44)
    writeini $mircini athing autorejoin %autorejoin
    unset %autorejoin
  }
  ..$gettok($returninival($mircini,athing,autorejoin),6,44)
  ...Remove: {
    %autorejoin = $readini $mircini athing autorejoin
    %autorejoin = $remtok(%autorejoin,$gettok(%autorejoin,6,44),1,44)
    writeini $mircini athing autorejoin %autorejoin
    unset %autorejoin
  }
  ..$gettok($returninival($mircini,athing,autorejoin),7,44)
  ...Remove: {
    %autorejoin = $readini $mircini athing autorejoin
    %autorejoin = $remtok(%autorejoin,$gettok(%autorejoin,7,44),1,44)
    writeini $mircini athing autorejoin %autorejoin
    unset %autorejoin
  }
  ..$gettok($returninival($mircini,athing,autorejoin),8,44)
  ...Remove: {
    %autorejoin = $readini $mircini athing autorejoin
    %autorejoin = $remtok(%autorejoin,$gettok(%autorejoin,8,44),1,44)
    writeini $mircini athing autorejoin %autorejoin
    unset %autorejoin
  }
  ..$gettok($returninival($mircini,athing,autorejoin),9,44)
  ...Remove: {
    %autorejoin = $readini $mircini athing autorejoin
    %autorejoin = $remtok(%autorejoin,$gettok(%autorejoin,9,44),1,44)
    writeini $mircini athing autorejoin %autorejoin
    unset %autorejoin
  }
  ..$gettok($returninival($mircini,athing,autorejoin),10,44)
  ...Remove: {
    %autorejoin = $readini $mircini athing autorejoin
    %autorejoin = $remtok(%autorejoin,$gettok(%autorejoin,10,44),1,44)
    writeini $mircini athing autorejoin %autorejoin
    unset %autorejoin
  }
  ..-
  ..List: echo -at %Script.AutoJoin.Name AutoReJoin These Channels: $returninival($mircini,athing,autorejoin)
}

alias -l returninival {
  return $readini $$1 $$2 $$3
}

;raw 443:*: haltdef