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 ] ]
}
}