on *:TEXT:*:*:{
if ($chan == #ParadiseServers) {
if ($1 == @apply) {
if (!%tryout.timeout) {
.msg $nick Hello $nick $+ , I will now ask you 11 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. What is your First "Alias" Last name? (Alias -- Numeric and Alphabetic Characters Only) [1/11]
}
if (%x == 2) {
.msg $nick 2. Where do you live? (City, State, Country) [2/11]
}
if (%x == 3) {
.msg $nick 3. How old are you? [3/11]
}
if (%x == 4) {
.msg $nick 4. How long have you been playing Counter-Strike? (Years) [4/11]
}
if (%x == 5) {
.msg $nick 5. What CAL-EXP do you have? (Cal-O/IM/M/I/P) [5/11]
}
if (%x == 6) {
.msg $nick 6. Do you have proof? (Yes/No) [6/11]
}
if (%x == 7) {
.msg $nick 7. Do you have a high voice? (Yes/No) [7/11]
}
if (%x == 8) {
.msg $nick 8. Are you mature? (Yes/No) [8/11]
}
if (%x == 9) {
.msg $nick 9. How active are you a day? (Hours) [9/11]
}
if (%x == 10) {
.msg $nick 10. Do you have strict parents? Can you stay up all night on weekends? Or maybe even weekdays if no school? [10/11]
}
if (%x == 11) {
.msg $nick 11. What is your SteamID? [11/11]
}
}
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. What is your First "Alias" Last name? (Alias -- Numeric and Alphabetic Characters Only) [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) {
if ($count($1-,$chr(44)) == 2) {
write Tryouts/ $+ %tryout.alias $+ .txt 2. Where do you live? (City, State, Country)
write Tryouts/ $+ %tryout.alias $+ .txt $1-
inc %x
.msg $nick 3. How old are you? [3/11]
halt
}
else {
.msg $nick [^B]Error[^B]: Incorrect Format! Usage: City, State, Country
}
}
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. How long have you been playing Counter-Strike? (Years) [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. How long have you been playing Counter-Strike?
write Tryouts/ $+ %tryout.alias $+ .txt $1-
inc %x
.msg $nick 5. What CAL-EXP do you have? (Cal-O/IM/M/I/P) [5/11]
halt
}
else {
.msg $nick [^B]Error[^B]: Incorrect Format! Usage: #ofyears
}
}
if (%x == 5) {
if (cal isin $1-) {
write Tryouts/ $+ %tryout.alias $+ .txt 5. What CAL-EXP do you have?
write Tryouts/ $+ %tryout.alias $+ .txt $1-
inc %x
.msg $nick 6. Do you have proof? (Yes/No) [6/11]
halt
}
else {
.msg $nick [^B]Error[^B]: Incorrect Format! Usage: Cal-O/IM/M/I/P
}
}
if (%x == 6) {
if (yes == $1) {
.msg $nick Link?
set %y 1
}
if (%y == 1) {
write Tryouts/ $+ %tryout.alias $+ .txt 6. Do you have proof?
write Tryouts/ $+ %tryout.alias $+ .txt Yes - $1-
unset %y
inc %x
.msg $nick 7. Do you have a high voice? (Yes/No) [7/11]
halt
}
if (no == $1) {
write Tryouts/ $+ %tryout.alias $+ .txt 6. Do you have proof?
write Tryouts/ $+ %tryout.alias $+ .txt No
inc %x
.msg $nick 7. Do you have a high voice? (Yes/No) [7/11]
halt
}
else {
.msg $nick [^B]Error[^B]: Incorrect Format! Usage: Yes/No
}
}
if (%x == 7) {
if (yes == $1) {
.msg $nick Sorry $nick $+ , ParadsieServers does not allow people with high voices! 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 application for ParadiseServers! Reason: High Voice
unset %x
.timertryout off
unset %tryout.*
close -m $nick
}
if (no == $1) {
write Tryouts/ $+ %tryout.alias $+ .txt 7. Do you have a high voice?
write Tryouts/ $+ %tryout.alias $+ .txt No
inc %x
.msg $nick 8. Are you mature? (Yes/No) [8/11]
halt
}
else {
.msg $nick [^B]Error[^B]: Incorrect Format! Usage: Yes/No
}
}
if (%x == 8) {
if (yes == $1) {
write Tryouts/ $+ %tryout.alias $+ .txt 8. Are you mature?
write Tryouts/ $+ %tryout.alias $+ .txt Yes
inc %x
.msg $nick 9. How active are you a day? (Hours) [9/11]
halt
}
if (no == $1) {
.msg $nick Sorry $nick $+ , ParadiseServers does not allow people that are not mature! 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 apply for ParadiseServers! Reason: Not Mature
unset %x
.timertryout off
unset %tryout.*
close -m $nick
}
else {
.msg $nick [^B]Error[^B]: Incorrect Format! Usage: Yes/No
}
}
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. Do you have strict parents? Can you stay up all night on weekends? Or maybe even weekdays if no school? [10/11]
halt
}
else {
.msg $nick [^B]Error[^B]: Incorrect Format! Usage: #ofhours
}
}
if (%x == 10) {
write Tryouts/ $+ %tryout.alias $+ .txt 10. Do you have strict parents? Can you stay up all night on weekends? Or maybe even weekdays if no school?
write Tryouts/ $+ %tryout.alias $+ .txt $1-
inc %x
.msg $nick 11. What is your SteamID?
halt
}
if (%x == 11) {
if ($count($1,:) == 2) {
if ($left($1,5) == STEAM) || ($left($1,1) isnum) {
write Tryouts/ $+ %tryout.alias $+ .txt 11. What is your SteamID?
write Tryouts/ $+ %tryout.alias $+ .txt $1-
unset %x
.timertryout off
.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.
unset %tryout.*
close -m $nick
}
else {
.msg $nick [^B]Error[^B]: Incorrect Format! Usage: STEAM_#:#:##### or #:#:#####
}
}
else {
.msg $nick [^B]Error[^B]: Incorrect Format! Usage: STEAM_#:#:##### or #:#:#####
}
}
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
}
}
}