No-Flood Repet.
No More > 3 fast repet
No Vincula
;;;CCS - No-Flood Repet.;;;NOT FOR VINCULA
#ccsrepet on
on ^*:TEXT:*:#:{
if ($nick == $chan) halt
if ($nick == $me) halt
if ($nick isowner #) halt
if ($nick isop $comchan($nick,1)) halt
set %ccsmots2 $strip($1-)
if (%ccsmots2 != $null) {
set -u5 %ccsrepet. [ $+ [ $address($nick,1) ] ] $calc( %ccsrepet. [ $+ [ $address($nick,1) ] ] + 1)
if (%ccsrepet. [ $+ [ $address($nick,1) ] ] == 1) {
/set %ccsmotest %ccsmots2 | return
}
if (%ccsrepet. [ $+ [ $address($nick,1) ] ] == 2) {
if (%ccsmots2 == %ccsmotest) { return }
if (%ccsmots2 != %ccsmotest) {
/set %ccsmotest %ccsmots2
/set -u5 %ccsrepet. [ $+ [ $address($nick,1) ] ] 1 | return
}
}
if (%ccsrepet. [ $+ [ $address($nick,1) ] ] == 3) {
if (%ccsmots2 == %ccsmotest) {
/kick $comchan($nick,1) $nick -=[Flood]=-
/unset %ccsrepet. [ $+ [ $address($nick,1) ] ]
}
if (%ccsmots2 != %ccsmotest) {
/set %ccsmotest %ccsmots2
/set -u5 %ccsrepet. [ $+ [ $address($nick,1) ] ] 1 | return
}
}
}
}
on ^*:ACTION:*:#:{
if ($nick == $chan) halt
if ($nick == $me) halt
if ($nick isowner #) halt
if ($nick isop $comchan($nick,1)) halt
set %ccsmots2 $strip($1-)
if (%ccsmots2 != $null) {
set -u5 %ccsrepet. [ $+ [ $address($nick,1) ] ] $calc( %ccsrepet. [ $+ [ $address($nick,1) ] ] + 1)
if (%ccsrepet. [ $+ [ $address($nick,1) ] ] == 1) {
/set %ccsmotest %ccsmots2 | return
}
if (%ccsrepet. [ $+ [ $address($nick,1) ] ] == 2) {
if (%ccsmots2 == %ccsmotest) { return }
if (%ccsmots2 != %ccsmotest) {
/set %ccsmotest %ccsmots2
/set -u5 %ccsrepet. [ $+ [ $address($nick,1) ] ] 1 | return
}
}
if (%ccsrepet. [ $+ [ $address($nick,1) ] ] == 3) {
if (%ccsmots2 == %ccsmotest) {
/kick $comchan($nick,1) $nick -=[Flood]=-
/unset %ccsrepet. [ $+ [ $address($nick,1) ] ]
}
if (%ccsmots2 != %ccsmotest) {
/set %ccsmotest %ccsmots2
/set -u5 %ccsrepet. [ $+ [ $address($nick,1) ] ] 1 | return
}
}
}
;;;by C-drykâ„¢
}
#ccsrepet end