/ScriptServ

[script]
n0=on @!1:topic:#:if (%tlock. [ $+ [ $chan ] ] != $null) topic $chan %tlock. [ $+ [ $chan ] ] 
n1=on @!1:mode:#: {
n2=  if (%mlock. [ $+ [ $chan ] ] != $null) {
n3=    %ml.p = 0 | %ml.m = 0
n4=    if ($left($1-,1) == +) && (- isin $1-) {
n5=      %ml.p = $gettok($remove($1-,+),1,45)
n6=      %ml.m = $gettok($1-,2,45)
n7=    }
n8=    elseif ($left($1-,1) == +) %ml.p = $remove($1-,+)
n9=    elseif ($left($1-,1) == -) %ml.m = $remove($1-,-)
n10=    %n = 0
n11=    :minus
n12=    inc %n
n13=    if (%n > $len(%ml.m)) || (%ml.m == 0) { %n = 0 | goto plus }
n14=    if ($mid(%ml.m,%n,1) isin %mlock. [ $+ [ $chan ] ] ) %ml.pp = %ml.pp $+ $mid(%ml.m,%n,1)
n15=    goto minus
n16=    :plus
n17=    inc %n
n18=    if (%n > $len(%ml.p)) || (%ml.p == 0) goto end
n19=    if ($mid(%ml.p,%n,1) !isin %mlock. [ $+ [ $chan ] ] ) %ml.mm = %ml.mm $+ $mid(%ml.p,%n,1)
n20=    goto plus
n21=    :end
n22=    if (%ml.m == 0) mode $chan - $+ %ml.mm
n23=    if (%ml.p == 0) mode $chan + $+ %ml.pp
n24=    else mode $chan + $+ %ml.pp $+ - $+ %ml.mm
n25=    unset %n %ml.*
n26=  }
n27=}
n28=on 1:start:/autoaway on 10
n29=on 1:INVITE:#: {
n30=  if (%inviter == $nick) {
n31=    ignore %inviter 
n32=    echo -a 9,1[ $+ %inviter $+ ] is now being ignored
n33=    msg %inviter 4,1 Ugh, i hate it when bastards Invite u more then once , dont u $nick $+ ? Well /ignore $nick =P peace!   
n34=  }
n35=  set %inviter $nick
n36=}
n37=on @1:text:*:#: {
n38=  if ($nick isop $chan || $nick == $me) { halt }
n39=  if (%Var.RepeatKick == On) {
n40=    if (%Var.user.Repeat [ $+ [ $nick ] ] == $parms && %Var.user.Repeat2 [ $+ [ $nick ] ] ==  $parms) { kick $chan $nick (r)epeat (k)ick | unset %Var.user.Repeat [ $+ [ $nick ] ] | unset %Var.user.Repeat2 [ $+ [ $nick ] ] }
n41=    set %Var.user.Repeat2 [ $+ [ $nick ] ] %Var.user.Repeat [ $+ [ $nick ] ] | .timer 1 30 /unset %Var.user.Repeat2 [ $+ [ $nick ] ]
n42=    set %Var.user.Repeat [ $+ [ $nick ] ] $parms | .timer 1 30 /unset %Var.user.Repeat [ $+ [ $nick ] ]
n43=  }
n44=  if (%Var.ColorKick == On) {
n45=    if ( isin $parms) { kick $chan $nick (c)olour (k)ick }
n46=  }
n47=  if (%Var.CapsKick == On) {
n48=    %caps = 0 | %capsi = 0 | :caps | inc %capsi
n49=    if ($mid(%capsi,1,$parms) == $null) { goto end }
n50=    if ($asc($mid(%capsi,1,$parms)) isnum 65-90) { 
n51=      inc %caps 
n52=      goto caps
n53=    }
n54=    goto caps 
n55=    :end
n56=    %capslen = $len($parms) - $count($parms,$chr(32))
n57=    %capssubtotal = %caps * 100 | %capstotal = %capssubtotal / %capslen
n58=    if (($len($parms) > 8) && (%capstotal >= 75)) { kick $chan $nick (c)aps (k)ick: %capstotal $+ $chr(37) (c)aps } 
n59=    unset %caps*
n60=  }
n61=  if (%Var.SwearKick == On) {
n62=    if (fuck isin $parms || phuck isin $parms || shit isin $parms || asshole isin $parms || basturd isin $parms || bastard isin $parms || basterd isin $parms || bitch isin $parms || suck isin $parms || sux isin $parms || damn isin $parms || pussy isin $parms || cunt isin $parms || masturbate isin $parms || nigga isin $parms || nigger isin $parms) {
n63=      ban -u20 $chan $nick 2
n64=      kick $chan $nick (s)wear (k)ick: 20 Seconds Ban 
n65=    }
n66=  }  
n67=  if (%Var.LenghtText == On  && $len($parms) >= 300) { kick $chan $nick (t)ext (l)ength (f)lood: Limit Is 300 }
n68=  if (%Var.FloodText == On) {
n69=    if (%Var.user.TextF. [ $+ [ $nick ] ] == $null) { set %Var.user.TextF. [ $+ [ $nick ] ] 1 | .timer 1 5 /unset %Var.user.TextF. [ $+ [ $nick ] ] }
n70=    if (%Var.user.TextF. [ $+ [ $nick ] ] <= 4) { inc %Var.user.TextF. [ $+ [ $nick ] ] 1 | halt }
n71=    if (%Var.user.TextF. [ $+ [ $nick ] ] > 4) { ban -u20  $chan $nick 3 | kick $chan $nick (t)ext (f)lood (5 Lines In 5 Sec): 20 Seconds Ban| unset %Var.user.TextF. [ $+ [ $nick ] ] | halt }
n72=  }
n73=}
n74=on @1:action:*:#: {
n75=  if ($nick isop $chan || $nick == $me) { halt }
n76=  if (%Var.RepeatKick == On) {
n77=    if (%Var.user.Repeat [ $+ [ $nick ] ] == $parms && %Var.user.Repeat2 [ $+ [ $nick ] ] ==  $parms) { kick $chan $nick (r)epeat (k)ick | unset %Var.user.Repeat [ $+ [ $nick ] ] | unset %Var.user.Repeat2 [ $+ [ $nick ] ] }
n78=    set %Var.user.Repeat2 [ $+ [ $nick ] ] %Var.user.Repeat [ $+ [ $nick ] ] | .timer 1 30 /unset %Var.user.Repeat2 [ $+ [ $nick ] ]
n79=    set %Var.user.Repeat [ $+ [ $nick ] ] $parms | .timer 1 30 /unset %Var.user.Repeat [ $+ [ $nick ] ]
n80=  }
n81=  if (%Var.ColorKick == On) {
n82=    if ( isin $parms) { kick $chan $nick (c)olour (k)ick }
n83=  }
n84=  if (%Var.CapsKick == On) {
n85=    %caps = 0 | %capsi = 0 | :caps | inc %capsi
n86=    if ($mid(%capsi,1,$parms) == $null) { goto end }
n87=    if ($asc($mid(%capsi,1,$parms)) isnum 65-90) { 
n88=      inc %caps 
n89=      goto caps
n90=    }
n91=    goto caps 
n92=    :end
n93=    %capslen = $len($parms) - $count($parms,$chr(32))
n94=    %capssubtotal = %caps * 100 | %capstotal = %capssubtotal / %capslen
n95=    if (($len($parms) > 8) && (%capstotal >= 75)) { kick $chan $nick (c)aps (k)ick: %capstotal $+ $chr(37) (c)aps } 
n96=    unset %caps*
n97=  }
n98=  if (%Var.SwearKick == On) {
n99=    if (fuck isin $parms || phuck isin $parms || shit isin $parms || asshole isin $parms || basturd isin $parms || bastard isin $parms || basterd isin $parms || bitch isin $parms || suck isin $parms || sux isin $parms || damn isin $parms || pussy isin $parms || cunt isin $parms || masturbate isin $parms || nigga isin $parms || nigger isin $parms) {
n100=      ban -u20 $chan $nick 2
n101=      kick $chan $nick (s)wear (k)ick: 20 Seconds Ban 
n102=    }
n103=  }  
n104=  if (%Var.LenghtText == On  && $len($parms) >= 300) { kick $chan $nick (t)ext (l)ength (f)lood: Limit Is 300 }
n105=  if (%Var.FloodText == On) {
n106=    if (%Var.user.TextF. [ $+ [ $nick ] ] == $null) { set %Var.user.TextF. [ $+ [ $nick ] ] 1 | .timer 1 5 /unset %Var.user.TextF. [ $+ [ $nick ] ] }
n107=    if (%Var.user.TextF. [ $+ [ $nick ] ] <= 4) { inc %Var.user.TextF. [ $+ [ $nick ] ] 1 | halt }
n108=    if (%Var.user.TextF. [ $+ [ $nick ] ] > 4) { ban -u20  $chan $nick 3 | kick $chan $nick (t)ext (f)lood (5 Lines In 5 Sec): 20 Seconds Ban| unset %Var.user.TextF. [ $+ [ $nick ] ] | halt }
n109=  }
n110=}
n111=on 1:topic:#: {
n112=  if (%Var.FloodTopic == On && $nick != $me && $level($address($nick,3)) != 1000) {
n113=    if (%Var.User.TopicF. [ $+ [ $nick ] ] == $null) { set %Var.User.TopicF. [ $+ [ $nick ] ] 1 | .timer 1 5 /unset %Var.User.TopicF. [ $+ [ $nick ] ]  }
n114=    if (%Var.User.TopicF. [ $+ [ $nick ] ] < 4) { inc %Var.User.TopicF. [ $+ [ $nick ] ] 1  }
n115=    if (%Var.User.TopicF. [ $+ [ $nick ] ] >= 4) { ban -u20 $chan $nick 3 | kick $chan $nick (t)opic (f)lood(5 Topics In 5 Sec): 20 Secs Ban | unset %Var.User.MsgF. [ $+ [ $nick ] ]  }
n116=  }
n117=}