on *:TEXT:Hi:* { msg $chan Yo $nick FrankerZ / }
on *:TEXT:Hello:* { msg $chan Yo $nick RalpherZ / }
ON *:TEXT:*:#: {
tokenize 32 $strip($1-,burci)
if ($1 == !permit) {
if ($nick isop #) && ($2) {
var %rn = $read(reglist.txt,nw,$2)
if (%rn) { msg $chan [ $+ $nick $+ ]: Error, This user is already into the list! | return }
write reglist.txt $2
msg # $2 has been permited to post a link for 20 seconds.
.timer[RemovePermit_ $+ $2 $+ ] 1 20 RemovePermit # $2
}
}
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 frown | msg $chan .timeout $nick 60
}
}
if ($isurl($1-)) {
var %rn = $read(reglist.txt,nw,$nick)
if (!%rn) { kick $chan $nick [WARNING]: You are NOT allowed to post links here. }
}
}
alias removepermit {
if (!$1-) { return }
var %rn = $read(reglist.txt,nw,$2)
var %rnum = $readn
if (%rn) { write -dl $+ %rnum reglist.txt }
}
alias isurl {
var %url = /(?:ftp:\/\/|https?:\/\/|www2?\.)[^<>\.\s]+(?:\.[^<>\.\s]+)+(?:\/[^<>\.\s]+)*|irc:\/\/[^<>\.\s]+(?:\.[^/<>\.\s]+)+(?:\/[^/<>\.\s]*)?\/?(?![^\s\x2c\.])|aim:goim\?screenname=[^\s&]+(?:&message=[^\s&=]+)?/
return $regex($1,%url)
}