on *:join:#channel: {
set %reg $addtok(%reg,$nick,44)
whois $nick
timer 1 4 noreg $nick
}
alias noreg {
set %reg $deltok(%reg,$findtok(%reg,$1,44),44)
msg $1 BLA BLA <--- insert msg for not identified here.
on *:part:#channel: {
if (($comchan($nick,0) == 0) && ($istok(%reg.conf,$nick,44))) {
set %reg.conf $deltok(%reg.conf,$findtok(%reg.conf,$nick,44),44)
}
}
on *:quit: {
if ($istok(%reg.conf,$nick,44)) {
set %reg.conf $deltok(%reg.conf,$findtok(%reg.conf,$nick,44),44)
}
}
raw 330:*: {
set %reg.conf $addtok(%reg.conf,$4,44)
set %reg $deltok(%reg,$findtok(%reg,$4,44),44)
}