rendered paste body-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 <)
}
}
}
}