-PAGE 4-

----CHANNEL MANAGEMENT----



on *:JOIN:#:{
  if (%join [ $+ [ $nick ] ] == $null) {
    set -u30 %join [ $+ [ $nick ] ] 1
  }
  else {
    inc %join [ $+ [ $nick ] ]
  }
  if (%join [ $+ [ $nick ] ] >= 3) {
    if ($me isop $chan) || ($me ishop $chan)  {  /ban -ku300 $chan $nick 3 11 5 min ban!!  $-$ Don't try and hop spam this channel! 4Number of Bans by me 14> %kbcount <

    }
    unset %join [ $+ [ $nick ] ]
  }
}


ON $*:TEXT:/^[!@.,~`](kb|ban|kickban|b)/Si:#:{
  if ($nick ishop $chan) || ($nick isop $chan) || ($addresS($nick,2) == $addresS($me,2)) {
    inc %kbcount
    inc %totalcuses
    ban -k $chan $2 2  $s1(You were banned from $chan because:) $s2($3-) $s3(Number of people banned By $me > %kbcount <)
  }
} 


On *:Text:!unban*:#: { 
  inc %totalcuses
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick == %owner) {
    mode $chan -bb $address($2,2) $2
  }
} 


ON $*:TEXT:/^[!@.,~`]tb/Si:#:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick == %owner) || ($2 !== $me) {
    inc %kbcount
    inc %totalcuses
    ban -ku $+ $calc( $3 * 60 ) $chan $2 2 $s1(Reason - $4-) - $s2($3 Minute Ban) $s3(Number of people banned By $me > %kbcount <)
  }
}


alias checkvoice {
  if ($1 isreg $2) { mode $2 +v $1 }
}



on *:TEXT:!av*off:#:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick == %owner)  {
    if (%av [ $+ [ $chan ] ] !== ON) {
    notice $nick $s2(Sorry this action could not be carried out, as Auto-Voice for $chan is already off....) }
    Elseif (%av [ $+ [ $chan ] ] == ON) {
      set %av [ $+ [ $chan ] ] OFF 
      inc %totalcuses
      msg $chan  $s2(Auto-Voice is now off for) $s1($chan) $+ ! 
    } 
  } 
}



on *:TEXT:!av*on:#:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick == %owner) {
    if (%av [ $+ [ $chan ] ] == ON) {
    notice $nick $s2(Sorry this action could not be carried out, as Auto-Voice for $chan is already on....) }
    Elseif (%av [ $+ [ $chan ] ] !== ON) {
      set %av [ $+ [ $chan ] ] on
      inc %totalcuses 
      msg $chan $s2(Auto-Voice is now on for) $s1($chan) $+ ! 
    } 
  }
}



ON *:TEXT:!v*:#:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick == %owner) {
    inc %totalcuses
  /mode $chan +v $2 }
}

ON *:TEXT:!dev*:#:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick == %owner) {
    inc %totalcuses
  /mode $chan -v $2 }
}


on *:TEXT:.mute*:#: {
  inc %totalcuses
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick == %owner) {
    mode $chan +m
  }
}

on *:TEXT:.unmute*:#: {
  inc %totalcuses
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick == %owner) {
    mode $chan -m
  }
}


on *:TEXT:.invon*:#: {
  inc %totalcuses
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick == %owner) {
  mode $chan +i }
}


on *:TEXT:.invoff*:#: {
  inc %totalcuses
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick == %owner) {
    mode $chan -i 
  }
}


on *:TEXT:!mk*:#:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick == %owner) {
    var %z = 1
    while (%z <= $nick(#,0)) {
      inc %kbcount {
        if ($nick(#,%z) isreg #) kick # $nick(#,%z) $s1(Mass kick, requested by) $s2($nick) $+ . $s3(Number of Bans by me > %kbcount <)
        inc %z
        inc %totalcuses  {
          mode $chan +i
          { timer 1 20 mode $chan -i 
          }
        }
      }
    }
    else {
      notice $nick $s2(You don't have the power to use that!)
    }
  }
}


on *:TEXT:!mv*:#: {
  inc %totalcuses
  if ($nick isop #) || ($nick ishop #) || ($nick == %owner) {
  var %x 1 | while (%x <= $nick($chan,0,r)) { var %z = %z $nick($chan,%x,r) | inc %x } | mode # + $+ $str(v,$nick($chan,0,r)) %z } 
}

on $*:text:/^[@!](mdv|massdv)/Si:#:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick == %owner) {
    var %demassvoice = 1
    while (%demassvoice <= $nick($chan,0,v)) {
      set %devoice.names %devoice.names $nick($chan,%demassvoice,v)
      inc %demassvoice
    }
  }
  set %devoiced $numtok(%devoice.names,32)
  var %devoicecount = 1
  while (%devoicecount <= %devoiced) {
    set %devcount %devcount $+ v
    inc %devoicecount
  }
  mode $chan - $+ %devcount %devoice.names
  mode $chan +m
  unset %devcount | unset %devoice.names | unset %devoiced
} 

on *:TEXT:!spam*c*off:#:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick == %owner) {
    if (%spama [ $+ [ $chan ] ] !== ON) {
    notice $nick $s2(Sorry this action could not be carried out, as Spam Control for $chan is already off....) }
    Elseif (%spama [ $+ [ $chan ] ] == ON) {
      set %spama [ $+ [ $chan ] ] OFF 
      inc %totalcuses  
      msg $chan $s2(Spam control is now off for) $s1($chan) $+ !  
    } 
  } 
}


on *:TEXT:!spam*c*on:#:{
  if ($nick isop $chan) || ($nick ishop $chan) || ($nick == %owner) { 
    if (%spama [ $+ [ $chan ] ] == ON) {
    notice $nick $s2(Sorry this action could not be carried out, as Spam Control for $chan is already on....) }
    Elseif (%spama [ $+ [ $chan ] ] !== ON) {
      set %spama [ $+ [ $chan ] ] on 
      inc %totalcuses
    msg $chan $s2(Spam control is now on for) $s1($chan) $+ !  } 
  }
}



on *:TEXT:*:#:{
  if (%spama [ $+ [ $chan ] ] == on) {
    inc -u7 %spam. [ $+ [ $nick ] ]
    if (%spam. [ $+ [ $nick ] ] == 4) {
      inc %kbcount {
        ban $+(-,ku,30) $chan $nick $s1(30 second kick due to:) $s2(Spam, 4 Lines in 7 Secs!) $s3(Number of Bans by me > %kbcount <)
      }
    }
  }
}