beg to enter

on !*:JOIN:#:{
  if ($islower($left($regsubex($nick,/(^([^a-z]+))/ig,),1)) == $true) {
    set $+(%,subtoenter1.,$nick) $nick
    set $+(%,room1.,$nick) $chan
    .timerbeg $+ $nick 1 300 failtobeg $nick $chan

  }
}

on $*:TEXT:/enter|come|return|join|arrive|pass/i:#: {
  if ($($+(%,subtoenter1.,$nick),2) == $nick) {
    .timerbeg $+ $nick off
    unset $+(%,subtoenter1.,$nick)
    unset $+(%,room1.,$nick)
    msg $chan Come on in $nick $+ ! Strip and describe yourself, slut!
  }
}

on $*:ACTION:/enter|come|return|join|arrive|pass|entry/i:#: {
  if ($($+(%,subtoenter1.,$nick),2) == $nick) {
    .timerbeg $+ $nick off
    unset $+(%,subtoenter1.,$nick)
    unset $+(%,room1.,$nick)
    msg $chan Come on in $nick $+ ! Strip and describe yourself, slut!
  }
}

on *:PART:#:{
  if ($($+(%,subtoenter1.,$nick),2) == $nick) {
    .timerbeg $+ $nick off
    unset $+(%,subtoenter1.,$nick)
    unset $+(%,room1.,$nick)
  }
}


alias failtobeg {
  var %chan $2
  var %nick $1
  ban -u5 %chan %nick
  kick %chan %nick Slaves must beg to enter.
  unset $+(%,room1.,%nick)
  unset $+(%,subtoenter1.,%nick)
}