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)?(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 }
    elseif (!$read(Bad.txt,w,$2)) { notice $nick Channel not found }
    else { 
      write -ds $+ $2 Bad.txt
      notice $nick $2 has been removed from the badchans list
    }
  }
  else { notice $nick Access Denied }
}
on *:JOIN:#rips:{
  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
    }
  }
} 
---------------------------------------------------------------------------------------------------
new file.
---------------------------------------------------------------------------------------------------
on *:TEXT:!start check*#rips:{
  /whoisdafks
}

alias whoisdafks {
  set %massppl 1
  :loop
  if ($nick(#,%massppl) == mirc) { inc %massppl | goto loop | halt }
  if ($nick(#,%massppl) == $me) { inc %massppl | goto loop | halt }
  if ($nick(#,%massppl) ishop $chan) { inc %massppl | goto loop | halt }
  if ($nick(#,%massppl) isop $chan) { inc %massppl | goto loop | halt }
  else {
     whois $nick(#,%massppl)
     set %fkr $nick(#,%massppl) }
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 %fkr 2 4You are on a 7forbidden channel7 %chan ,4 please part it and come back 7(10min ban }
      inc %x
    }
}
  inc %massppl
  if ($nick(#,%massppl) == $null) { unset %massppl }
  else { goto loop }
}