on *:TEXT:*:?:{
  if (($nick != %user) && (%user != $null)) return
  if (end isin $1) {
    set %questionNumber 0
    unset %user
  }
  elseif ($regex($1,/^[yn]$/i)) && (%questionNumber == 9) {
    set %qID $gettok($skills,%cSkill,44)
    hadd -m $nick %qID $replace($1,y,1,n,0)
    inc %cSkill
    if ($gettok($skills,%cSkill,44)) {
     msg $nick Do you want to put a point in $gettok($skills,%cSkill,44)
    }
    else {
      msg $nick Character creation successful!
      set %questionNumber 0
      unset %user
    }
  }
  elseif (%questionNumber > 0) {
    hadd -m $nick %qID $1-
    CreateCharacter $nick
  }
  elseif (!new isin $1) {
    set %questionNumber 0
    set %user $nick
    CreateCharacter $nick
  }
}
Alias skills return Acrobatics,Appraise,Bluff,Climb,Craft,Diplomacy,Disable Device,Disguise,Escape Artist,Fly,Handle Animal,Heal,Intimidate,Knowledge(Arcana),Knowledge(Dungeoneering),Knowledge(Engineering),Knowledge(Geography),Knowledge(History),Knowledge(Local),Knowledge(Nature),Knowledge(Nobility),Knowledge(Plains),Knowledge(Religion),Linguistics,Perform,Profession,Ride,Sense Motive,Sleight of Hand,Spellcraft,Stealth,Survival,Swim,Use Magic Device
Alias CreateCharacter {
  if (%questionNumber == 0) {
    msg $nick Hello $+($nick,,) I'm going to ask you some questions to create your new character. To reply, just say your answer. Make certain that things are exactly spelled right, and your stats are exact before hitting enter.
  }
  inc %questionNumber
  goto %questionNumber
  :1
  msg $nick Alright. Let's get started. What is your characters name?
  set %qID name
  return
  :2
  msg $nick Okay. And, your characters age?
  set %qID age
  return
  :3
  msg $nick Great. What is your characters height?
  set %qID height
  return
  :4
  msg $nick Okay. And your characters weight?
  set %qID weight
  return
  :5
  msg $nick Okay, $($nick,) What is your characters gender?
  set %qID sex
  return
  :6
  msg $nick And, their race?
  set %qID race
  return
  :7
  msg $nick What about their class?
  set %qID class
  return
  :8
  msg $nick Let's do your attributes now. Enter your attributes, seperating each one with a comma (no space) The format is STR/CON/DEX/INT/WIS/CHA.
  set %qID attributes
  return
  :9
  msg $nick Alright. Now we're going to do your skills. I'm going to ask you each one in order, and you're going to say either Y or N to put a point in to it. Let's get started.
  set %cSkill 0
  msg $nick Do you want to put a point in $+($gettok($skills,%cSkill,44),?)
  return
}