on $*:TEXT:/^[!.]add(support)?chan/Si:#: {
  if ($address($nick,2) == $address($me,2)) {
    if ($readini(supchan.ini, support, $2-) {
      notice $nick $2 is already in the supported channel list.
    }
    else {
      writeini -n supchan.ini support $2 support
      msg $chan The channel $2 has been added to the supported channel list.
    }
  }
}
on $*:TEXT:/^[!.]d(el)??sup(chan)?/Si:#: { 
  if ($address($nick,2) == $address($me,2)) { 
    if ($readini(supchan.ini, support, $2 $+) { 
      remini -n supchan.ini support $2 support
      msg $chan The channel $2 has been deleted from the supported channel list. 
    } 
    else { notice $nick channel $2 is not in the supported channel list.
    } 
  } 
}
on *:TEXT:#*:#: {
  if ($nick == $me) { halt }
  if ($readini(supchan.ini, support, $2) { 
    msg $chan $2 is not in the supported channel list 
    mode $chan +b ~c: $+ $2 $+
  }
}