on *:START: {
  set %question.1 (1/10): What is your real name? 
  set %question.2 (2/10): What is your date of birth?
  set %question.3 (3/10): Whats your current status? (E.g Single, Married, Divorced)
  set %question.4 (4/10): Are you male or Female?
  set %question.5 (5/10): What is your nickname, IRC/IRL?
  set %question.6 (6/10): Where is your location?
  set %question.7 (7/10): Whats your favourite type of music?
  set %question.8 (8/10): Whats your favourite drink?
  set %question.9 (9/10): Do you have your own site that you would like to show others, If not type "None" 
  set %question.10 (10/10): Do you have an E-mail, If you don't want to give it out type "None"
  set %question.11 Type /msg $me Finish  -  to finish your profile.
}
on *:text:!setprofile*:#:{ 
  notice $nick Hello and Welcome to Profile Setup. This setup requires that you have enabled your privmsg (whisper box isn't blocked for messages) so you can procceed. Also type /mode $nick -f  to stop filtering.
  notice $nick If you are ready to continue with your setup please type /msg $me setup continue In case you need help dont hesitate to ask Lastrites to guide you through the installation.  
}
on *:text:Setup continue*:?:{ 
  set %setup.continue. [ $+ [ $nick ] ] 1
  msg $nick Hello again $nick $+ . In the rest of the installation you will be asked to answer a few questions in order to setup your profile. Please answer them as truly as you can.
  msg $nick Ready? Okay let's go... (If for any reason you want to cancel this setup type /msg $me setup cancel
  msg $nick Type /msg $me Start to start the profile.
}
on *:text:start*:?:{ if (%setup.continue. [ $+ [ $nick ] ]) {
    msg $nick %question.1 
    set %NOQ. [ $+ [ $nick ] ] 1
  }
}
on *:Text:*:?: { 
  if (1 == %NOQ. [ $+ [ $nick ] ]) { 
    set %ans.1. [ $+ [ $nick ] ] $1-
    set %NOQ. [ $+ [ $nick ] ] 2 
    msg $nick %question.2
  }
  elseif (2 == %NOQ. [ $+ [ $nick ] ]) {
    set %ans.2. [ $+ [ $nick ] ] $1-
    set %NOQ. [ $+ [ $nick ] ] 3
    msg $nick %question.3
  }
  elseif (3 == %NOQ. [ $+ [ $nick ] ]) {
    set %ans.3. [ $+ [ $nick ] ] $1-
    set %NOQ. [ $+ [ $nick ] ] 4
    msg $nick %question.4
  }
  elseif (4 == %NOQ. [ $+ [ $nick ] ]) {
    set %ans.4. [ $+ [ $nick ] ] $1-
    set %NOQ. [ $+ [ $nick ] ] 5
    msg $nick %question.5
  }
  elseif (5 == %NOQ. [ $+ [ $nick ] ]) {
    set %ans.5. [ $+ [ $nick ] ] $1-
    set %NOQ. [ $+ [ $nick ] ] 6
    msg $nick %question.6
  }
  elseif (6 == %NOQ. [ $+ [ $nick ] ]) {
    set %ans.6. [ $+ [ $nick ] ] $1-
    set %NOQ. [ $+ [ $nick ] ] 7
    msg $nick %question.7
  }
  elseif (7 == %NOQ. [ $+ [ $nick ] ]) {
    set %ans.7. [ $+ [ $nick ] ] $1-
    set %NOQ. [ $+ [ $nick ] ] 8
    msg $nick %question.8
  }
  elseif (8 == %NOQ. [ $+ [ $nick ] ]) {
    set %ans.8. [ $+ [ $nick ] ] $1-
    set %NOQ. [ $+ [ $nick ] ] 9
    msg $nick %question.9
  }
  elseif (9 == %NOQ. [ $+ [ $nick ] ]) {
    set %ans.9. [ $+ [ $nick ] ] $1-
    set %NOQ. [ $+ [ $nick ] ] 10
    msg $nick %question.10
  }
  elseif (10 == %NOQ. [ $+ [ $nick ] ]) {
    set %ans.10. [ $+ [ $nick ] ] $1-
    set %NOQ. [ $+ [ $nick ] ] 11
    msg $nick %question.11
  }
  else {
  }
}
on *:text:Finish:?: { 
  if (11 == %NOQ. [ $+ [ $nick ] ]) {
    unset %NOQ. [ $+ [ $nick ] ] 
    msg $nick Congratulations you have finished your profile type !profile in a channel that we are both in or /msg $me Profile Nick
  }
}

on *:text:Profile *:?: { 
  if (!%ans.1. [ $+ [ $2 ] ]) { notice $nick Specify a nick. }
  else { 
    notice $nick Their profile has been PMed to you to stop spam
    msg $nick Real Name: %ans.1. [ $+ [ $2 ] ]
    msg $nick Date of Birth: %ans.2. [ $+ [ $2 ] ]
    msg $nick Current Status: %ans.3. [ $+ [ $2 ] ]
    msg $nick Gender/Sex: %ans.4. [ $+ [ $2 ] ]
    msg $nick NickName IRL/IRC: %ans.5. [ $+ [ $2 ] ]
    msg $nick Location: %ans.6. [ $+ [ $2 ] ]
    msg $nick Favourite type of music: %ans.7. [ $+ [ $2 ] ]
    msg $nick Favourite drink: %ans.8. [ $+ [ $2 ] ]
    msg $nick Site: %ans.9. [ $+ [ $2 ] ]
    msg $nick E-mail address: %ans.10. [ $+ [ $2 ] ]
  }
}