on *:JOIN:#goodpcw: {
  set %channy $chan 
  set %user $nick
  set %pc.msg msg $chan   
  set %tt 1
  while (%tt <= $lines(exceptions.txt)) {
    if ($nick == $read(exceptions.txt,%tt)) {
      msg #pc-hq 4 $+ $nick 14is on the4 exception14 list.
      /mode $chan +v $nick
      halt
    }
    inc %tt 1
  }
  sockopen pestkick www.slushpuppy.silverinterlocution.org 80
}


on *:TEXT:!except *:#goodpcw: {
  if ($nick isop $chan) {
    set %aa 1
    while (%aa <= $lines(exceptions.txt)) {
      if ($2 == $read(exceptions.txt,%aa)) {
        msg #goodpcw 4 $+ $2 14is on the4 exception14 list.
        set %bloobla yes
        halt
      }
      inc %aa 1
      set %bloobla no
    }
    if (%bloobla == no) {
      write exceptions.txt $2
      notice $nick 4 $+ $2 14has been added to the 4exception 14list.
      /load -rs exceptions.txt
    }
  }
  else {
    notice $nick 14Sorry, only 4Ops 14can use this 4command14.
  }
}

on *:TEXT:!unexcept *:#goodpcw: {
  if ($nick isop $chan) {
    if ($2 !isin $read(exceptions.txt)) {
      notice $Nick 14This person isn't on the 4exception 14list.
    }
    else {
      write -ds $+ $2 exceptions.txt $2
      notice $nick 4 $+ $2 14has been deleted from the 4exception 14list.
      /load -rs exceptions.txt
    }
  }
  else {
    notice $nick 14Sorry, only 4Ops 14can use this 4command14.
  }
}

on *:TEXT:!elist:#goodpcw: {
  if ($nick isop $chan) {
    set %ss 1
    while (%ss <= $lines(exceptions.txt)) {
      msg $nick 4 $+ $read(exceptions.txt,%ss) 14is an 4exception14.
      inc %ss 1
    }
  }
  else {
    notice $nick 14Sorry, only 4Ops 14can use this 4command14.
  }
}