Hi
I am trying to recode this coding so that instead of it just banning someone it warns them first, then kicks , then bans ..
I tried posting this earlier but it did not seem to be get posted for some reason .. anyway the help would be much appreciated.. thanks ..
alias allowedcaps { return 70 }
alias max.controlcodes { return 15 }
alias max.marks { return 10 }
on @*:TEXT:*:#: {
if ($nick !isop #) {
if (%r. [ $+ [ $nick ] $+ . $+ [ $chan ] ] == $null) {
set -u60 %r. [ $+ [ $nick ] $+ . $+ [ $chan ] ] 1
set -u60 %r.text. [ $+ [ $nick ] $+ . $+ [ $chan ] ] $1-
return
}
var %rps = %r. [ $+ [ $nick ] $+ . $+ [ $chan ] ]
var %rpt = %r.text. [ $+ [ $nick ] $+ . $+ [ $chan ] ]
if (%rpt == $1-) {
inc %r. [ $+ [ $nick ] $+ . $+ [ $chan ] ]
if (%rps > 2) {
ban -u300 # $nick 4
kick # $nick You repeated %rps times, slow down! - 5 min ban
}
}
}
if ($len($1-) < 10) { return }
var %caps.letters = $calc($len($1-) + 1 - $len($removecs(A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z)))
var %caps = $calc($len($1-) - $len($removecs($1-,($1-),A,B,C,D,E,F,G,H,I,J,K,L,M,N,O,P,Q,R,S,T,U,V,W,X,Y,Z)))
var %caps.percent = $round($calc(%caps / %caps.letters * 100),0)
if ((%caps.percent > $allowedcaps) && ($nick !isop #)) {
ban # $nick 2
kick # $nick Caps Allowed: $allowedcaps $+ $chr(37) Caps Used: %caps.percent $+ $chr(37)
}
if ($nick !isop # && $len($1-) > 300) {
ban # $nick 2
kick # $nick Excess text!
}
var %c.c $calc($count($1-,$chr(3)) + $count($1-,$chr(2)) + $count($1-,$chr(22)) + $count($1-,$chr(31)))
if (%c.c > 15 && $nick isreg #) {
ban # $nick 2
kick # $nick Control Codes Allowed: $max.controlcodes / Control Codes Used: %c.c
}
var %mark.codes = $calc($count($1-,$chr(33)) + $count($1-,$chr(63)))
if ((%mark.codes > $max.marks) && ($nick isreg #)) {
ban # $nick 2
kick # $nick !!!/??? Allowed: $max.marks !!!/??? Used: %mark.codes
}
}
