Anonymous

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 Main/favourite channel?
  set %question.8 (8/10): Whats your Runescape name, If you dont play type "none"
  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 10Hello and Welcome to 4Profile10 Setup. This setup requires that you have 4enabled10 your privmsg (whisper box isn't blocked for messages) so you can procceed. Also type4 /mode $nick -f 10 to stop filtering.
  notice $nick 10If you are ready to 4continue10 with your setup please type 4/msg $me setup continue 10In case you need help dont hesitate to ask 4Lastrites 10to guide you through the installation.  
}
on *:text:Setup continue*:?:{ 
  set %setup.continue. [ $+ [ $nick ] ] 1
  msg $nick 10Hello again4 $nick $+ 10. In the rest of the installation you will be asked to answer a few questions in order to setup your 4profile10. Please answer them as 4truly10 as you can.
  msg $nick 10Ready? Okay let's go... (if you want to delete your account type 4!delete profile 10- in a chan were both in or type 4/msg $me delete profile 10)
  msg $nick 10Type4 /msg $me Start 10 to start the profile.
}
on *:text:start*:?:{ if (%setup.continue. [ $+ [ $nick ] ] == 1) {
    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
  }
  elseif (11 == %NOQ. [ $+ [ $nick ] ]) {
    unset %NOQ. [ $+ [ $nick ] ] 
    set %complete [ $+ [ $nick ] ] COMPLETE
    msg $nick Congratulations you have finished your profile type !profile in a channel that we are both in or /msg $me Profile Nick
    amsg [amsg] 10 $nick Has just finished their profile type 4!profile $nick 10 - to view it.
  }
}


on *:text:!profile*:#:{
  if (Complete == $iif(!$2,%complete [ $+ [ $nick ] ],%complete [ $+ [ $2 ] ])) {
    notice $nick 10The 4profile10 has been PMed to you to stop 4spam
    msg $nick 10Real Name:4 $iif(!$2,%ans.1. [ $+ [ $nick ] ],%ans.1. [ $+ [ $2 ] ])
    msg $nick 10Date of Birth:4 $iif(!$2,%ans.2. [ $+ [ $nick ] ],%ans.2. [ $+ [ $2 ] ])
    msg $nick 10Current Status:4 $iif(!$2,%ans.3. [ $+ [ $nick ] ],%ans.3. [ $+ [ $2 ] ])
    msg $nick 10Gender/Sex:4 $iif(!$2,%ans.4. [ $+ [ $nick ] ],%ans.4. [ $+ [ $2 ] ])
    msg $nick 10NickName IRL/IRC:4 $iif(!$2,%ans.5. [ $+ [ $nick ] ],%ans.5. [ $+ [ $2 ] ])
    msg $nick 10Location:4 $iif(!$2,%ans.6. [ $+ [ $nick ] ],%ans.6. [ $+ [ $2 ] ])
    msg $nick 10Main/favourite channel:4 $iif(!$2,%ans.7. [ $+ [ $nick ] ],%ans.7. [ $+ [ $2 ] ])
    msg $nick 10Runescape Name:4 $iif(!$2,%ans.8. [ $+ [ $nick ] ],%ans.8. [ $+ [ $2 ] ])
    msg $nick 10Site:4 $iif(!$2,%ans.9. [ $+ [ $nick ] ],%ans.9. [ $+ [ $2 ] ])
    msg $nick 10E-mail address:4 $iif(!$2,%ans.10. [ $+ [ $nick ] ],%ans.10. [ $+ [ $2 ] ])
  }
  else notice $nick 10This person does not have a 4profile10 tell them to make one | halt 
}


on *:text:!delete profile*:#: {
  unset %NOQ. [ $+ [ $nick ] ]
  unset %question.1 [ $+ [ $nick ] ]
  unset %question.2 [ $+ [ $nick ] ]
  unset %question.3 [ $+ [ $nick ] ]
  unset %question.4 [ $+ [ $nick ] ]
  unset %question.5 [ $+ [ $nick ] ]
  unset %question.6 [ $+ [ $nick ] ]
  unset %question.7 [ $+ [ $nick ] ]
  unset %question.8 [ $+ [ $nick ] ]
  unset %question.9 [ $+ [ $nick ] ]
  unset %question.10 [ $+ [ $nick ] ]
  unset %questoin.11 [ $+ [ $nick ] ]
  unset %setup.continue [ $+ [ $nick ] ]
  unset %ans.1. [ $+ [ $nick ] ]
  unset %ans.2. [ $+ [ $nick ] ]
  unset %ans.3. [ $+ [ $nick ] ]
  unset %ans.4. [ $+ [ $nick ] ]
  unset %ans.5. [ $+ [ $nick ] ]
  unset %ans.6. [ $+ [ $nick ] ]
  unset %ans.7. [ $+ [ $nick ] ]
  unset %ans.8. [ $+ [ $nick ] ]
  unset %ans.9. [ $+ [ $nick ] ]
  unset %ans.10. [ $+ [ $nick ] ]
  unset %ans.11. [ $+ [ $nick ] ]
  notice $nick 10Your profile has been succesfully 4deleted
}
on *:text:delete profile*:?: {
  unset %NOQ. [ $+ [ $nick ] ]
  unset %question.1 [ $+ [ $nick ] ]
  unset %question.2 [ $+ [ $nick ] ]
  unset %question.3 [ $+ [ $nick ] ]
  unset %question.4 [ $+ [ $nick ] ]
  unset %question.5 [ $+ [ $nick ] ]
  unset %question.6 [ $+ [ $nick ] ]
  unset %question.7 [ $+ [ $nick ] ]
  unset %question.8 [ $+ [ $nick ] ]
  unset %question.9 [ $+ [ $nick ] ]
  unset %question.10 [ $+ [ $nick ] ]
  unset %questoin.11 [ $+ [ $nick ] ]
  unset %setup.continue [ $+ [ $nick ] ]
  unset %ans.1. [ $+ [ $nick ] ]
  unset %ans.2. [ $+ [ $nick ] ]
  unset %ans.3. [ $+ [ $nick ] ]
  unset %ans.4. [ $+ [ $nick ] ]
  unset %ans.5. [ $+ [ $nick ] ]
  unset %ans.6. [ $+ [ $nick ] ]
  unset %ans.7. [ $+ [ $nick ] ]
  unset %ans.8. [ $+ [ $nick ] ]
  unset %ans.9. [ $+ [ $nick ] ]
  unset %ans.10. [ $+ [ $nick ] ]
  unset %ans.11. [ $+ [ $nick ] ]
  notice $nick 10Your profile has been succesfully 4deleted
}
on *:join:#: { if ($nick == $me) { Halt }
  elseif (%complete [ $+ [ $nick ] ] == $Null) { 
    /notice $nick 10You do not have a public 4profile
    /notice $nick 10To make one type 4!setprofile10 in a chan that were both in.
  }
}
on *:text:!part $me *:#:{ if ($nick isop $chan) || ($nick ishop $chan) 
{
    /part $chan Requested by $nick
  }
}
on *:text:!help*:#:{
  notice $nick 10To make your 4profile10 type4 !setprofile 10in a 4channel10 were both in then carry on with the 4instructions
  notice $nick 10To view someone elses 4profile10 type 4!profile nick 10 In a channel that were both in
  notice $nick 10To make me 4Part 10A channel type 4!part $me
}