Mine

on $*:TEXT:/^[!@.]a(dd)?(ban)?chan/Si:#rips,#rips.staff:{
  if ($nick isop $chan || $nick ishop $chan) {
    if (!$2 || $left($2,1) != $chr(35)) { notice $nick Unknown channel name }
    else {
      write Bad.txt $2
      notice $nick Channel $2 has been added to the badchan list
    }
  }
  else { notice $nick Access Denied }
}
on $*:TEXT:/^[!@.]d(el)?staff/Si:#rips,#rips.staff:{
  if ($nick isop $chan || $nick ishop $chan) {
    if (!$2) { notice $nick Specify Staff NickName }
    else { 
      write -ds $address($2,1) Staffexcept.txt
      notice $nick $2 (host $address($2,1) $+ ) has been deleted from staff except
    }
  }
  else { notice $nick Access Denied }
}
on $*:TEXT:/^[!@.]a(dd)?staff/Si:#rips,#rips.staff:{
  if ($nick isop $chan || $nick ishop $chan) {
    if (!$2) { notice $nick Specify Staff NickName }
    elseif (!$read(Bad.txt,w,$2)) { notice $nick Channel not found }
    else { 
      write Staffexcept.txt $address($2,1)
      notice $nick $2 (host $address($2,1) $+ ) has been added to staff except
    }
  }
  else { notice $nick Access Denied }
}
on $*:TEXT:/^[!@.]d(el)?staff/Si:#rips,#rips.staff:{
  if ($nick isop $chan || $nick ishop $chan) {
    if (!$2) { notice $nick Specify Staff NickName }
    else { 
      write -ds $address($2,1) Staffexcept.txt
      notice $nick $2 (host $address($2,1) $+ ) has been deleted from staff except
    }
  }
  else { notice $nick Access Denied }
}
on *:JOIN:#rips:{
  if $read(staffexcept.txt, s, $address($nick,1)) { halt }
  else { 
  whois $nick }
}
raw 319:*:{
  if ($read(Bad.txt)) {
    var %x = 1
    while ($gettok($3-,%x,32)) {
      var %1 = $gettok($3-,%x,32)
      var %chan, %i = $regsub(%1,/^[+%@]/g,$null,%chan)
      if ($read(Bad.txt,w,%chan)) { ban -ku600 #rips $2 2 4You are on a 7forbidden channel7 %chan ,4 please part it and come back 7(10min ban }
      inc %x
    }
  }
}