on *:TEXT:*:*:{
if ($chan == #ParadiseServers) {
if ($1 == @apply) {
if (!%tryout.timeout) {
.msg $nick Hello $nick $+ , I will now ask you 10 questions which will be part of your tryout process and will be reviewed later!
.msg $nick You will have 10 minutes to complete this process if you would like to continue type ?continue in this window.
}
elseif (%tryout.nick == $nick) {
if (%x == 1) {
.msg $nick 1. Your Username [1/10]
}
if (%x == 2) {
.msg $nick 2. Full Name [2/10]
}
if (%x == 3) {
.msg $nick 3. How old are you? [3/10]
}
if (%x == 4) {
.msg $nick 4. Approximately how many hours are you online a day? [4/10]
}
if (%x == 5) {
.msg $nick 5. Moderator / Staff Experience [5/10]
}
if (%x == 6) {
.msg $nick 6. Any previous experience ? (Yes/No) [6/10]
}
if (%x == 7) {
.msg $nick 7. State three reasons why you wish to be a staff member on Paradise-Servers [7/11]
}
if (%x == 8) {
.msg $nick 8. You overhear one user using racially derogatory comments towards another user, what do you do? [8/10]
}
if (%x == 9) {
.msg $nick 9. How active are you a day? (Hours) [9/10]
}
if (%x == 10) {
.msg $nick 10. Knowing that the last round of moderator applications received over 100 responses, tell us in a few words why would you get accepted? [10/10]
}
}
else {
.msg $nick %tryout.nick is already in the process of questioning. You must wait until %tryout.nick is done until you may begin!
}
}
elseif ($ulevel >= 2) {
if ($1 == ?review) {
if ($2) && (!$3) {
if ($exists(Tryouts/ $+ $2 $+ .txt)) {
.notice $nick Sending tryout review information to you..
var %p 1
while (%p <= $lines(Tryouts/ $+ $2 $+ .txt)) {
.msg $nick $read(Tryouts/ $+ $2 $+ .txt,%p)
inc %p
}
}
else {
.notice $nick You cannot review something that doesn't exist.
}
}
else {
.notice $nick [^B]Error[^B]: Incorrect Format. Usage: ?review <alias>
}
}
}
}
if ($nick) {
if ($1 == ?continue) {
if (!%tryout.timeout) {
set %tryout.nick $nick
set %tryout. $+ $nick $nick
.msg $nick Now starting the Paradiseservers apply questioning process!
set %x 1
set %tryout.timeout 1
.timertryout 1 600 $!iif(%tryout.timeout,goto two,goto three)
.msg $nick 1. Your Username [1/11]
halt
:two
.msg %tryout.nick You have not completed the ParadiseServers questioning process in 10 minutes!
.msg %tryout.nick If you would like to go again you must type @apply in #ParadiseServers in the next available slot!
close -m %tryout.nick
unset %tryout.*
:three
}
else {
.msg $nick %tryout.nick is already in the process of questioning. You must wait until %tryout.nick is done until you may begin!
}
}
if (%x == 1) {
if (!$exists(Tryouts/ $+ $remove($2,") $+ .txt)) {
if ($1 isalpha) && ($left($2,1) == ") && ($right($2,1) == ") && ($3 isalpha) && (!$4) {
var %p 1
while (%p <= $len($remove($2,"))) {
if ($left($remove($2,"),%p) isalpha) || ($left($remove($2,"),%p) isnum) {
inc %p
if (%p == $len($remove($2,"))) {
goto one
}
}
else {
.msg $nick [^B]Error[^B]: Only Numeric and Alphabetic Characters allowed in alias name.
halt
}
:one
set %tryout.alias $remove($2,")
write Tryouts/ $+ %tryout.alias $+ .txt ParadiseServers apply Questioning! IRC Nick: $nick
write Tryouts/ $+ %tryout.alias $+ .txt 1. What is your First "Alias" Last name?
write Tryouts/ $+ %tryout.alias $+ .txt $1-
inc %x
.msg $nick 2. Where do you live? (City, State, Country) [2/11]
halt
}
}
else {
.msg $nick [^B]Error[^B]: Incorrect Format! Usage: FirstName "Alias" LastName
}
}
else {
.msg $nick This alias is already in use. Please pick a new alias.
}
}
if (%x == 2) {
write Tryouts/ $+ %tryout.alias $+ .txt 2. Full Name
write Tryouts/ $+ %tryout.alias $+ .txt $1-
inc %x
.msg $nick 3. How old are you? [3/11]
halt
}
}
if (%x == 3) {
if ($1 isnum) && (!$2) {
if ($1 < 16) {
.msg $nick Sorry $nick $+ , ParadiseServers does not allow people under the age of 16! Thanks for your time!
.msg $nick Your questioning is now over! Have a nice day!
remove Tryouts/ $+ %tryout.alias $+ .txt
onotice #ParadiseServers $nick did not meet the requirements for trying out for ParadiseServers! Reason: Age = $1
unset %x
.timertryout off
unset %tryout.*
close -m $nick
}
else {
write Tryouts/ $+ %tryout.alias $+ .txt 3. How old are you? (Years)
write Tryouts/ $+ %tryout.alias $+ .txt $1 years old
inc %x
.msg $nick 4. Approximately how many hours are you online a day? [4/11]
halt
}
else {
.msg $nick [^B]Error[^B]: Incorrect Format! Usage: #ofyears
}
}
}
if (%x == 4) {
if ($1 isnum) {
write Tryouts/ $+ %tryout.alias $+ .txt 4. Approximately how many hours are you online a day?
write Tryouts/ $+ %tryout.alias $+ .txt $1-
inc %x
.msg $nick 5. Moderator / Staff Experience (Yes/No)[5/11]
halt
}
else {
.msg $nick [^B]Error[^B]: Incorrect Format!
}
}
if (%x == 5) {
write Tryouts/ $+ %tryout.alias $+ .txt 5. Moderator / Staff Experience
write Tryouts/ $+ %tryout.alias $+ .txt $1-
inc %x
.msg $nick 6. Any previous experience ? (Yes/No) [6/11]
halt
}
}
if (%x == 6) {
if (yes == $1) {
.msg $nick Link?
set %y 1
}
if (%y == 1) {
write Tryouts/ $+ %tryout.alias $+ .txt 6. Any previous experience ?
write Tryouts/ $+ %tryout.alias $+ .txt Yes - $1-
unset %y
inc %x
.msg $nick 7. State three reasons why you wish to be a staff member on Paradise-Servers [7/11]
halt
}
}
if (%x == 7) {
write Tryouts/ $+ %tryout.alias $+ .txt 7. State three reasons why you wish to be a staff member on Paradise-Servers
write Tryouts/ $+ %tryout.alias $+ .txt No
inc %x
.msg $nick 8. You overhear one user using racially derogatory comments towards another user, what do you do? [8/11]
halt
}
}
if (%x == 8) {
write Tryouts/ $+ %tryout.alias $+ .txt 8. You overhear one user using racially derogatory comments towards another user, what do you do?
write Tryouts/ $+ %tryout.alias $+ .txt $1
inc %x
.msg $nick 9. How active are you a day? (Hours) [9/11]
halt
}
if (%x == 9) {
if ($1 isnum) {
write Tryouts/ $+ %tryout.alias $+ .txt 9. How active are you a day?
write Tryouts/ $+ %tryout.alias $+ .txt $1-
inc %x
.msg $nick 10. Knowing that the last round of moderator applications received over 100 responses, tell us in a few words why would you get accepted?[10/11]
halt
}
else {
.msg $nick [^B]Error[^B]: Incorrect Format!
}
}
if (%x == 10) {
write Tryouts/ $+ %tryout.alias $+ .txt 10. Knowing that the last round of moderator applications received over 100 responses, tell us in a few words why would you get accepted?
write Tryouts/ $+ %tryout.alias $+ .txt $1-
.msg $nick Congratulations! You have finished the ParadiseServers tryout questioning! ParadiseServers leaders have been notified and your responses have been saved.
.msg $nick Thanks for your time and Happy Fragging!
onotice #ParadiseServers $nick has just completed the tryout questioning process! Stored as %tryout.alias $+ .txt. Type ?review %tryout.alias to view responses.
inc %x
halt
}
if ($1 == ?restart) {
remove Tryouts/ $+ %tryout.alias $+ .txt
.msg $nick Now restarting the ParadiseServers tryout questioning process!
set %x 1
.msg $nick 1. What is your First "Alias" Last name? (Alias -- Numeric and Alphabetic Characters Only) [1/11]
halt
}
if (%x == 1) {
unset %x
}
}
}