;# The user will not be able to use the command in 10 minutes, and no one else will be able to use it in 20 seconds after last 'trigger' (flood prot).
;# Tested and works on version 6.15
- Code: Select all
;#
;# visit http://sp00fed.org for updates or support.
;# script by Sumsar
;#
;# Setup
;# Message to (%,@,&,~)
alias -l ::msg { return want contact with an administrator. Reason: $iif($1-,$ifmatch,no reason.) }
;# excluded nicknames
alias -l ::nicks { return S.Q.L.fishbot.catbot }
;# command will not be availible i X seconds after last trigger for anyone.
alias -l ::nospam.channel { return 20 }
;# command will not be availible i X seconds after last trigger for nick.
alias -l ::nospam.nick { return 600 }
;# Code
on *:TEXT:!help*:#:{
if (!%variable.nospam. [ $+ [ $wildsite ] ] && !%variable.nospam. [ $+ [ $chan ] ]) {
set $+(-u,$::nospam.nick) %variable.nospam. [ $+ [ $wildsite ] ] 1
set $+(-u,$::nospam.channel) %variable.nospam. [ $+ [ $chan ] ] 1
var %a = $nick($chan,0),%b
while (%a) {
if ($istok($+($chr(37),.,$chr(64),.,$chr(38),.,$chr(126)),$left($nick($chan,$nick($chan,%a)).pnick,1),46)) {
if (!$istok($::nicks,$nick($chan,%a),46)) {
var %b = $addtok(%b,$nick($chan,%a),44)
}
}
if ($numtok(%b,44) == 6) {
.msg %b $nick $::msg($2-)
var %b
}
dec %a
}
.msg %b $nick $::msg($2-)
var %b
}
}
