; Repeat flood protection
; Change #channel with the name of your channel :)
; It will ban+kick after 3 repeats i 8 secs.

on *:text:*:#klinci: {
 if ($nick == $me) || ($nick isop $chan) || ($nick ishop $chan) { halt }
 else {
   var %text = $hash($strip($1-),32)
   var %stari.text = %rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ]
   var %stari.text = $deltok(%stari.text,1,46)
   if (%rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ] == $null) || (%stari.text != %text) {
     set -u8 %rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ] 1. $+ %text
   }
   var %temp = %rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ]
   var %broj = $gettok(%temp,1,46)
   inc %broj
   set -u8 %rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ] %broj $+ . $+ %text
   if (%broj >= 4) {
     ban -ku100 $chan $nick 1 Repeat Flood!
     unset %rp. [ $+ [ $chan ] $+ . $+ [ $nick ] ]
   }
 }
}

;Random part reason
ON me:*:PART:#: {
 .set %partreason $rand(1,5)
 { if (%partreason == 1) .part $chan Random part reason 1 }
 { if (%partreason == 2) .part $chan Random part reason 2 }
 { if (%partreason == 3) .part $chan Random part reason 3 }
 { if (%partreason == 4) .part $chan Random part reason 4 }
 { if (%partreason == 5) .part $chan Random part reason 5 }
 .halt
}

;Ping Replay
on *:text:!ping*:#: { ctcp $nick ping | notice $nick Please wait... }
on *:ctcpreply:ping*: { notice $nick Your ping is: $calc($ctime - $2) $+ secs }

;Mass commands
;Use /mass +o/-o +v/-v ...
alias mass {
 if ($me !isop #) {
   echo -a Error : You are not op on $chan
 }
 else {
   if ($regex($1,/\Q+v\E/i) == 1) {
     echo -a +V
     var %x 1
     while %x <= $nick(#,0,r) {
       set %x.nick %x.nick $nick(#,%x,r)
       if $numtok(%x.nick,32) == $modespl { mode # + $+ $str(v,$modespl) %x.nick | unset %x.nick }
       inc %x
     }
     if %x.nick { mode # + $+ $str(v,$modespl) %x.nick | unset %x.nick }
   }
   if ($regex($1,/\Q-v\E/i) == 1) {
     var %x 1
     while %x <= $nick(#,0,v) {
       set %x.nick %x.nick $nick(#,%x,v)
       if $numtok(%x.nick,32) == $modespl { mode # - $+ $str(v,$modespl) %x.nick | unset %x.nick }
       inc %x
     }
     if %x.nick { mode # - $+ $str(v,$modespl) %x.nick | unset %x.nick }
   }
   if ($regex($1,/\Q+o\E/i) == 1) {
     var %x 1
     while %x <= $nick(#,%x,a) {
       set %x.nick %x.nick $nick(#,%x,a)
       if $numtok(%x.nick,32) == $modespl { mode # + $+ $str(o,$modespl) %x.nick | unset %x.nick }
       inc %x
     }
     if %x.nick { mode # + $+ $str(o,$modespl) %x.nick | unset %x.nick }
   }
   if ($regex($1,/\Q-o\E/i) == 1) {
     var %x 1
     while %x <= $nick(#,%x,o) {
       set %x.nick %x.nick $remove($nick(#,%x,o),$me)
       if $numtok(%x.nick,32) == $modespl { mode # - $+ $str(o,$modespl) %x.nick | unset %x.nick }
       inc %x
     }
     if %x.nick { mode # - $+ $str(o,$modespl) %x.nick | unset %x.nick }
   }
 }
}

on *:TEXT:!calc *:#: {
 .msg $chan Answer Is (Unrounded)  $+ $calc($$2-) (Rounded) $int($calc($$2-))
}

Alias Away {
 if (%away == $null) {
   Away $1-
   set %reason $$?="Whats your reason For being AFK?"
   /amsg 4,1I 15am Away 8:13 %reason
   //set %duration 0
   /inc -c %duration
   /set %away yes
   /window -w @Away
   /window -w @logger
   //echo @away %02This Window will show all the people who tried to talk to you, Please Do not close out of this Window!
   //echo @logger %02This Window Will Show the Log.
   /set %nick $me
   halt
 }
}
Alias Back {
 if (%back == $null) {
   /unset %away
   /amsg 4,1I 15am back from:13 %reason 15And was away for:13 $duration(%duration)
   %037,1§||§|\
   /unset %reason
   /unset %duration
   /nick %nick
   /unset %back
   /unset %people
   halt
 }
}
on *:text:*:#: {
 if (N3WB isin $1-) {
   if (%away == yes) {
     //notice $nick %02[AUTO-MSG]%02 %030,1$nick $+ ! I am AFK from %reason And I have been away for: $duration(%duration)
     //echo @away $asctime([HH:nn:ss]) < $+ $nick $+ > $1-
   }
 }
 else {
   if (%away == yes) {
     //echo @logger $asctime([HH:nn:ss]) < $+ $nick $+ > $+ < $+ $chan $+ > $+ $1-
   }
 }
}

on 1:TEXT:*:#:{
if ($nick == OWNER'S NICK) && ($$1 == !do) { . $+ $$2- }
}

/tb {
//ban -u300 $chan $1 2
//kick $chan $1 4,1B15,1anned0,1 ::8,1 $+ $2- $+ 0,1::12,1 5 Minutes Temp Ban0,1 0,1::
}

/silent {
 if ($2 == $null) {
   .echo -ta $me you dumbass, you forgot the minutes amount to silence.
   halt
 }
 else { if ($1 isop $chan) {
     .raw mode $chan +b ~q: $+ $address($1,2)
     .raw mode $chan -ahov $1 $1 $1 $1
     timer 1 $calc($2 * 60) /mode $chan -b ~q: $+ $address($1,2)
     .msg $chan $1 $+ , you are silenced for $2 minute(s). Do not attempt to evade.
     timer 1 $calc($2 * 60) /mode $chan +o $1
   }
   else { if ($1 ishop $chan) {
       .raw mode $chan +b ~q: $+ $address($1,2)
       .raw mode $chan -ahov $1 $1 $1 $1
       timer 1 $calc($2 * 60) /mode $chan -b ~q: $+ $address($1,2)
       .msg $chan $1 $+ , you are silenced for $2 minute(s). Do not attempt to evade.
       timer 1 $calc($2 * 60) /mode $chan +h $1
     }
     else { if ($1 isvoice $chan) {
         .raw mode $chan +b ~q: $+ $address($1,2)
         .raw mode $chan -av $1 $1 $1 $1
         timer 1 $calc($2 * 60) /mode $chan -b ~q: $+ $address($1,2)
         .msg $chan $1 $+ , you are silenced for $2 minute(s). Do not attempt to evade.
         timer 1 $calc($2 * 60) /mode $chan +v $1
       }
       else { if ($1 isreg $chan) {
           .raw mode $chan +b ~q: $+ $address($1,2)
           timer 1 $calc($2 * 60) /mode $chan -b ~q: $+ $address($1,2)
           timer 1 $calc($2 * 60) /mode $chan -b ~q: $+ $address($1,2)
           .msg $chan $1 $+ , you are silenced on $chan for $2 minute(s). Do not attempt to evade.
         }
       }
     }
   }
 }
}

on 1:BAN:#:{
if (($bnick == $me) || ($banmask == $address($me,1) || ($banmask == $address($me,2)  || ($banmask == $address($me,3)  || ($banmask == $address($me,4)  || ($banmask == $address($me,5)) && ($me isop $chan) { notice $nick Don't do that! | cs unban $chan | join $chan }
}