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 %question.1 [ $+ [ $nick ] ] (1/10): What is your real name? 
  set %question.2 [ $+ [ $nick ] ] (2/10): What is your date of birth?
  set %question.3 [ $+ [ $nick ] ] (3/10): Whats your current status? (E.g Single, Married, Divorced)
  set %question.4 [ $+ [ $nick ] ] (4/10): Are you male or Female?
  set %question.5 [ $+ [ $nick ] ] (5/10): What is your nickname, IRC/IRL?
  set %question.6 [ $+ [ $nick ] ] (6/10): Where is your location?
  set %question.7 [ $+ [ $nick ] ] (7/10): Whats your favourite type of music?
  set %question.8 [ $+ [ $nick ] ] (8/10): Whats your favourite drink?
  set %question.9 [ $+ [ $nick ] ] (9/10): Do you have your own site that you would like to show others, If not type "None" 
  set %question.10 [ $+ [ $nick ] ] (10/10): Do you have an E-mail, If you don't want to give it out type "None"
  set %question.11 [ $+ [ $nick ] ] Type /msg $me Finish  -  to finish your profile.
  set %setup.continue [ $+ [ $nick ] ] ON
  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 ] ] == ON) {
    msg $nick %question.1 [ $+ [ $nick ] ] 
    set %NOQ [ $+ [ $nick ] ] 1
  }
}
on *:Text:*:?: { if (%setup.continue [ $+ [ $nick ] ] == ON) && (%NOQ [ $+ [ $nick ] ] == 1) { 
    set %ans.1 $1-
    set %NOQ [ $+ [ $nick ] ] 2 
    msg $nick %question.2 [ $+ [ $nick ] ]
    Halt
  }
}
on *:text:*:?: { if (%setup.continue [ $+ [ $nick ] ] == ON) && (%NOQ [ $+ [ $nick ] ] == 2) {
    set %ans.2 $1-
    set %NOQ [ $+ [ $nick ] ] 3
    msg $nick %question.3 [ $+ [ $nick ] ]
    Halt
  }
}
on *:text:*:?: { if (%setup.continue [ $+ [ $nick ] ] == on) && (%NOQ [ $+ [ $nick ] ] == 3) {
    set %ans.3 $1-
    set %NOQ [ $+ [ $nick ] ] 4
    msg $nick %question.4 [ $+ [ $nick ] ]
    Halt
  }
}
on *:text:*:?: { if (%setup.continue [ $+ [ $nick ] ] == on) && (%NOQ [ $+ [ $nick ] ] == 4) {
    set %ans.4 $1-
    set %NOQ [ $+ [ $nick ] ] 5
    msg $nick %question.5 [ $+ [ $nick ] ]
    Halt
  }
}
on *:text:*:?: { if (%setup.continue [ $+ [ $nick ] ] == on) && (%NOQ [ $+ [ $nick ] ] == 5) {
    set %ans.5 $1-
    set %NOQ [ $+ [ $nick ] ] 6
    msg $nick %question.6 [ $+ [ $nick ] ]
    Halt
  }
}
on *:text:*:?: { if (%setup.continue [ $+ [ $nick ] ] == on) && (%NOQ [ $+ [ $nick ] ] == 6) {
    set %ans.6 $1-
    set %NOQ [ $+ [ $nick ] ] 7
    msg $nick %question.7 [ $+ [ $nick ] ]
    Halt
  }
}
on *:text:*:?: { if (%setup.continue [ $+ [ $nick ] ] == on) && (%NOQ [ $+ [ $nick ] ] == 7) {
    set %ans.7 $1-
    set %NOQ [ $+ [ $nick ] ] 8
    msg $nick %question.8 [ $+ [ $nick ] ]
    Halt
  }
}
on *:text:*:?: { if (%setup.continue [ $+ [ $nick ] ] == on) && (%NOQ [ $+ [ $nick ] ] == 8) {
    set %ans.8 $1-
    set %NOQ [ $+ [ $nick ] ] 9
    msg $nick %question.9 [ $+ [ $nick ] ]
    Halt
  }
}
on *:text:*:?: { if (%setup.continue [ $+ [ $nick ] ] == on) && (%NOQ [ $+ [ $nick ] ] == 9) {
    set %ans.9 $1-
    set %NOQ [ $+ [ $nick ] ] 10
    msg $nick %question.10 [ $+ [ $nick ] ]
    Halt
  }
}
on *:text:*:?: { if (%setup.continue [ $+ [ $nick ] ] == on) && (%NOQ [ $+ [ $nick ] ] == 10) {
    set %ans.10 $1-
    set %NOQ [ $+ [ $nick ] ] 11
    msg $nick %question.11 [ $+ [ $nick ] ]
    Halt
  }
}
on *:text:*:?: { if (%setup.continue [ $+ [ $nick ] ] == on) && (%NOQ [ $+ [ $nick ] ] == 11) {
    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
    unset %question [ $+ [ $nick ] ] 1
    unset %question [ $+ [ $nick ] ] 2
    unset %question [ $+ [ $nick ] ] 3
    unset %question [ $+ [ $nick ] ] 4
    unset %question [ $+ [ $nick ] ] 5
    unset %question [ $+ [ $nick ] ] 6
    unset %question [ $+ [ $nick ] ] 7
    unset %question [ $+ [ $nick ] ] 8
    unset %question [ $+ [ $nick ] ] 9
    unset %question [ $+ [ $nick ] ] 10
    unset %question [ $+ [ $nick ] ] 11
    Halt
  }
}

on *:text:Profile:?: { if ($2 == $null) { notice $nick $2 has no current profile tell them to add one. 
    else { 
      notice $nick There profile has been PM to you to stop spam
      msg $nick Real Name: %ans.1
      msg $nick Date of Birth: %ans.2
      msg $nick Current Status: %ans.3
      msg $nick Gender/Sex: %ans.4
      msg $nick NickName IRL/IRC: %ans.5
      msg $nick Location: %ans.6
      msg $nick Favourite type of music: %ans.7
      msg $nick Favourite drink: %ans.8
      msg $nick Site: %ans.9
      msg $nick E-mail address: %ans.10
    }
  }
}