This is all the code I have:
on *:TEXT:Hi:* { msg $chan Yo $nick FrankerZ / }
on *:TEXT:Hello:* { msg $chan Yo $nick RalpherZ / }
on *:text:*.com*:#:{
if ($read(reglist.txt,nw,$nick)) return
Msg # .timeout $nick 1
Msg # No links allowed without permission Kappa b
}
on *:text:*www.*:#:{
if ($read(reglist.txt,nw,$nick)) return
Msg # .timeout $nick 1
Msg # No links allowed without permission Kappa b
}
on *:text:*http*:#:{
if ($read(reglist.txt,nw,$nick)) return
Msg # .timeout $nick 1
Msg # No links allowed without permission Kappa b
}
on *:text:*https*:#:{
if ($read(reglist.txt,nw,$nick)) return
Msg # .timeout $nick 1
Msg # No links allowed without permission Kappa b
}
on *:text:*.info*:#:{
if ($read(reglist.txt,nw,$nick)) return
Msg # .timeout $nick 1
Msg # No links allowed without permission Kappa b
}
on *:text:*.uk*:#:{
if ($read(reglist.txt,nw,$nick)) return
Msg # .timeout $nick 1
Msg # No links allowed without permission Kappa b
}
on *:text:*.org*:#:{
if ($read(reglist.txt,nw,$nick)) return
Msg # .timeout $nick 1
Msg # No links allowed without permission Kappa b
}
on *:text:*.us*:#:{
if ($read(reglist.txt,nw,$nick)) return
Msg # .timeout $nick 1
Msg # No links allowed without permission Kappa b
}
on *:text:*.ca*:#:{
if ($read(reglist.txt,nw,$nick)) return
Msg # .timeout $nick 1
Msg # No links allowed without permission Kappa b
}
on *:text:*.tv*:#:{
if ($read(reglist.txt,nw,$nick)) return
Msg # .timeout $nick 1
Msg # No links allowed without permission Kappa b
}
on *:text:*.net*:#:{
if ($read(reglist.txt,nw,$nick)) return
Msg # .timeout $nick 1
Msg # No links allowed without permission Kappa b
}
on *:text:*:#:{
if ($nick isop #) return
if ( $len($1-) >= 10 ) {
if ( $calc($regex($1-,/[A-Z]/g) / $regex($1-,/[A-Z]/gi) * 100) >= 45 ) {
if !$istok(%caps.warned,$nick,32) {
msg $chan $nick -> Kappa not caps! [warning]
set -e %caps.warned $addtok(%caps.warned,$nick,32)
.timer 1 300 remove.warned $nick
}
else msg $chan Caps again
| msg $chan .timeout $nick 60
}
}
^This works, no permit lines work.
