#name: ajoin.irc
#author: phos
#date: 11/30/04 (updated)
#my first jircii script
#/load ajoin.irc
#/ajoin help
# shoutout alyssa era tane bc ice
#feedback >> danfare@jircii.info
echo("ajoin.irc: type /ajoin help for list of commands");
alias laj {
   echo("/ajoin help" . "h" x 19);
   echo("h /addchan:  /addchan \b#CHAN\b  h" );
   echo("h /remchan:  /remchan \b#NUM\b   h");
   echo("h /listchan: /listchan       h");
   echo("h /ajtog:    /ajtog \bON|OFF\b   h");
   echo("h" x 30);
}

on repl_376 { $ajtog = getProperty(ajtog);
   if ($ajtog eq 'on') { call("/ajoin"); }
   if ($ajtog eq 'off') { echo("/ajoin: to turn ajoin on type /ajtog on"); }
   return;
}
alias ajtog {
   if ($1 eq 'on') { setProperty(ajtog, "on"); $ajtog = getProperty(ajtog); echo("/ajtog: setting ajoin: $ajtog");  return; }
   if ($1 eq 'off') { setProperty(ajtog, "off"); $ajtog = getProperty(ajtog); echo("/ajtog: setting ajoin: $ajtog"); return; }
   else { echo("/ajtog: /ajtog on|off :: currently: $ajtog"); return; }
}
alias ajoin {
  if ($1) { call("/laj"); return; }
  $network = getServerNetwork(); $path = getScriptResource("ajoin.irc", "$network" . ".ajoin.lst");
  if ($network eq "Unknown") { echo("/ajoin: you are not connected to a server"); return; }
  if (!-isFile $path) { echo("/ajoin: the network you are using: $network $+ , does not have an auto join list. ref: /addchan"); return; }
  $joinlist = openf($path);
  @jlist = readAll($joinlist);
  foreach $scalar (@jlist) { call("/join $scalar"); }
  closef($joinlist);
  return;

}
alias addchan { $temp = left($1, 1);
  $network = getServerNetwork(); $path = getScriptResource("ajoin.irc", "$network" . ".ajoin.lst");
  if ($network eq "Unknown") { echo("/ajoin: you are not connected to a server"); return; }
  if (($1 eq "") || ($temp !eq '#')) { echo("/addchan: /addchan \b#CHAN\b"); return; }
  else {
     $x = ">> $+ $path";
     $joinlist = openf("$x");
     @jlist = readAll($joinlist);
     println($joinlist, $1-);
     echo("/addchan: adding to auto join list: $1-");
     closef($joinlist);
     return;
  }
}
alias listchan {
  $network = getServerNetwork(); $path = getScriptResource("ajoin.irc", "$network" . ".ajoin.lst");
  if ($network eq "Unknown") { echo("/ajoin: you are not connected to a server"); return; }
  if (!-isFile $path) { echo("/ajoin: the network you are using: $network $+ , does not have an auto join list. ref: /addchan"); return; }
  $joinlist = openf($path); @jlist = readAll($joinlist);
  $x = 27 - strlen($network);
  echo("$network" . "h" x $x; );
  for ($x = 0; $x < size(@jlist); $x++) { $rx = $x + 1; $temp = @jlist[$x]; echo("# $+ $[3]rx $[20]temp h"); }
  closef($joinlist);
  echo("h" x 27);
  return;
}

alias remchan {
  $network = getServerNetwork();
  $path = getScriptResource("ajoin.irc", "$network" . ".ajoin.lst");
  if ($network eq "Unknown") { echo("/ajoin: you are not connected to a server"); return; }
  if (!-isFile $path) { echo("/ajoin: the network you are using: $network $+ , does not have an auto join list. ref: /addchan"); return; }
  $joinlist = openf($path);
  @jlist = readAll($joinlist);
  if (!-istrue @jlist[0]) { echo("/ajoin: there are no channels in your auto join list."); return; }
  closef($joinlist);
  $chln = strlen($1) - 1; $chrt = right($1, $chln);
  if ((charAt($1, 0) !eq '#') || (!-isnumber $chrt))  { echo("/remchan: /remchan #num"); return; }
  else {
     $rchrt = $chrt - 1; #get number one less cause arrays start at 0
     $rmchn = @jlist[$rchrt]; removeAt(@jlist, $rchrt);
     echo("/remchan: removing channel from auto join list: $rmchn");
     $joinlist = openf("> $+ $path");
     if (!-istrue @jlist[0]) { echo("/ajoin: there are no channels in your auto join list, skipping re-write"); return; }
     for ($x = 0; $x < size(@jlist); $x++) {
        println($joinlist, @jlist[$x]);
     }
  closef($joinlist);
  }
}