Code:
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. }
  }
}