failtobeg multiple nicks Garen

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

  }
}

on *:TEXT:*enter*:#: {
  if ($($+(%,subtoenter1.,$nick),2) == $nick) {
    timerbeg $+ $nick off
    unset $+(%,subtoenter1.,$nick)
    unset $+(%,room1.,$nick)
    msg $chan $nick Strip and describe yourself, slut!
  }
}

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