on $@*:text:*:#:{
if ($regex($1-,/.+\.(com|co|uk|net|org|gov|tv|edu)/iS)) && ($nick !isop $chan) {
if (!$istok(%permit,$nick,32)) {
msg $chan $Nick Ask for mods permissions to post links!
msg $chan /timeout $nick 1
}
}
noop $regex($1-,/^!(del|alwayspermit|permit)\s(\S+)/iS) {
if ($regml(1) == alwayspermit) && ($nick isop $chan) {
if ($istok(%permit,$regml(2),32)) {
msg $chan $regml(2) is already on always permit list
}
else {
set %permit $addtok(%permit,$regml(2),32)
msg $chan $regml(2) You are now always permited to post links
}
}
if ($regml(1) == permit) && ($nick isop $chan) {
set %permit $addtok(%permit,$regml(2),32)
.timerunset 1 30 set %permit $remtok(%permit,$regml(2),1,32)
msg $chan $regml(2) You have 30 seconds to post a link in here
}
if ($regml(1) == del) && ($nick isop $chan) {
if ($istok(%permit,$regml(2),32)) {
set %permit $remtok(%permit,$regml(2),1,32)
msg $chan $regml(2) erased suceffully from always permit list
}
else {
msg $chan $regml(2) is not on always permit list
}
}
}
}

on @*:text:*:#:capscheck $1-
on @*:action:*:#:capscheck $1-
on @*:notice:*:#:capscheck $1-
alias -l capscheck {
var %. ,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,%; $len($remove($1- [ %. ] )),%: $len($1-) - %;
if ($nick !isop #) && ($calc(100*($len($removecs($1- [ %. ] ))-%;)/%:) > 50) && (%: > 5) {
set -e $+(%,c,$chr(32),$int($v1))
inc $+(%,$nick)
if ($($+(%,$nick),2) > 2) {
.msg $chan $nick , You had usage of alot of CAPS in your sentence, 2 minute timeout.
.msg $chan .timeout $nick 120
unset $($+(%,$nick),1)
}
elseif ($($+(%,$nick),2) = 2) {
.msg $chan $nick , You had usage of alot of CAPS in your sentence, Second warning!
.msg $chan /timeout $nick 60
}
else {
.msg $chan $nick , You had usage of alot of CAPS in your sentence, First warning!
.msg $chan /timeout $nick 1
}
}
}