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