on *!:join:#:{
if (!$hget(allow,$nick)) && (!$hget(tallow,$nick)) {
names $chan
ban -ku10 $chan $nick You are not allowed to be on this channel.
}
}
on *:text:!*allow &:#:{
if ($1 == !allow) && ($left($nick($chan,$nick).pnick,1) == &) { hadd -m allow $2 $true }
elseif ($1 == !disallow) && ($left($nick($chan,$nick).pnick,1) == &) && ($hget(allow,$2)) {
hdel allow $2
if ($2 ison $chan) && ($istok(~ . * & ! @ %,$left($nick($chan,$me).pnick,1),32)) { ban -ku10 $chan $nick You are not allowed to be on this channel. }
}
elseif ($1 == !tallow) && ($istok(@ &,$left($nick($chan,$nick).pnick,1),32)) && (!$hget(tallow,$2)) {
hadd -mu86400 tallow $2 $true
.timertallow $+ $cid $+ $chan $+ $2 1 86400 $iif($2 ison $chan,ban -ku10 $chan $2 You are not allowed to be on this channel.)
}
elseif ($1 == !clearallow) && ($istok(@ &,$left($nick($chan,$nick).pnick,1),32)) && ($hget(tallow,$2)) {
hdel tallow $2
.timertallow $+ $cid $+ $chan $+ $2 off
if ($2 ison $chan) && ($istok(~ . * & ! @ %,$left($nick($chan,$me).pnick,1),32)) { ban -ku10 $chan $nick You are not allowed to be on this channel. }
}
}