Unnamed

alias /ajoin { 
  if (!$1) { 
    var %x = 1 
    while ($read(Join.txt,%x) != $null) { 
      join $read(Join.txt,%x) 
      inc %x 
    } 
  } 
  elseif ($1 == add) { 
    if (!$2 || $left($2,1) != $chr(35)) { halt } 
    write Join.txt $2 
    msg $active $timestamp 14*** [2Ajoin14]2:14 Added2 $2 14Ajoin list.

  } 
  elseif ($1 == del) { 
    if ($read(Join.txt,w,$2) != $null) { 
      write -ds $+ $2 Join.txt 
      msg $active  $timestamp 14*** [2Ajoin14]2:14 Deleted2 $2 14from Ajoin list.
    } 
    else { echo -a $2 is not on the list } 
  } 
  elseif ($1 == view) { 
    if ($lines(Join.txt) != $null) { 
      var %x = 1 
      while ($read(Join.txt,%x) != $null) { 
        echo -a %x $+ . $read(Join.txt,%x) 
        inc %x 
      } 
    } 
    else { echo -a The list is empty } 
  } 
  elseif ($1 == clear) { 
    if (!$lines(Join.txt)) { echo $active The AJoin list is not found } 
    else { 
      .remove Join.txt 
      msg $active $timestamp 14*** [2Ajoin14]2:14 Cleared Ajoin list.

    } 
  } 
} 
alias joinall {
  if ($lines(Join.txt) != $null) { 
    var %x = 1 
    while ($read(Join.txt,%x)) { 
      join $read(Join.txt,%x) 
      inc %x 
    } 
  } 
}