on *:JOIN:#testytest:{
  var %a = 1
  while (%a <= $lines(team-pride.txt)) {
    if (($read(team-pride.txt,%a) isin $address($nick,1)) || ($read(team-pride.txt,%a) iswm $address($nick,1))) {
      echo 4 INVITE
      invite $nick #team-pride
      notice $nick AUTO INVITE: You have been invited to #team-pride, Welcome
    }
    !inc %a
  }
}
on *:TEXT:*:?:{
  if ($findtok(lil_Toady.AlienX.arc_.Talidan.jhxp.Kevuwk.Brophy.jbeta.IJs.ChrML_Laptop.lol_Toady,$nick,1,46)) {
    if ($1 == !add) {
      if ($2) {
        !write team-pride.txt $2
        /msg $nick Added.
      }
    }
    elseif ($1 == !remove) {
      if ($2) {
        var %a = 1
        while (%a <= $lines(team-pride.txt)) {
          if ($read(team-pride.txt,%a) == $2) {
            /write -dl $+ %a team-pride.txt
            /msg $nick Removed.
          }
          !inc %a
        }
        echo 4 removed $2
      }
    }
    elseif ($1 == !invite) {
      if ($2) {
        invite $2 #team-pride
      }
    }
    elseif ($1 == !list) {
      var %a = 1
      var %bb = ""
      while (%a <= $lines(team-pride.txt)) {
        %bb = %bb $read(team-pride.txt,%a)|
        !inc %a
      }
      /msg $nick %bb
      }else{
      if ($1 == !remove) {
        /msg $nick Access Denied
      }
    }

  }
}

alias listnicks {
  var %a = 1,%b,%chan = $chan
  if ($1) %chan = $1
  while (%a <= $nick(%chan,0)) {
    !write $+(%chan,.txt) $nick(%chan,%a)
    !inc %a
  }
}