1 files changed, 1 insertions, 83 deletions
diff --git a/npc/functions/strangerquiz.txt b/npc/functions/strangerquiz.txt
index a5db31b1..28fc6887 100644
--- a/npc/functions/strangerquiz.txt
+++ b/npc/functions/strangerquiz.txt
@@ -1,89 +1,7 @@
 
-
-
 function	script	StrangerQuiz	{
 	// param @quizparam$$
 	// return in @quizanswer$
-	if ( @quizparam$ == "towelanswer00a" ) set @quizanswer$, "###towel 00a";
-	if ( @quizparam$ == "towelanswer00b" ) set @quizanswer$, "###towel 00b";
-	if ( @quizparam$ == "towelanswer01a" ) set @quizanswer$, "###towel 01a";
-	if ( @quizparam$ == "towelanswer01b" ) set @quizanswer$, "###towel 01b";
-	if ( @quizparam$ == "towelanswer02a" ) set @quizanswer$, "###towel 02a";
-	if ( @quizparam$ == "towelanswer02b" ) set @quizanswer$, "###towel 02b";
-	if ( @quizparam$ == "towelanswer03a" ) set @quizanswer$, "###towel 03a";
-	if ( @quizparam$ == "towelanswer03b" ) set @quizanswer$, "###towel 03b";
-	if ( @quizparam$ == "towelanswer04a" ) set @quizanswer$, "###towel 04a";
-	if ( @quizparam$ == "towelanswer04b" ) set @quizanswer$, "###towel 04b";
-	if ( @quizparam$ == "towelanswer05a" ) set @quizanswer$, "###towel 05a";
-	if ( @quizparam$ == "towelanswer05b" ) set @quizanswer$, "###towel 05b";
-	if ( @quizparam$ == "towelanswer05c" ) set @quizanswer$, "###towel 05c";
-	if ( @quizparam$ == "towelanswer05d" ) set @quizanswer$, "###towel 05d";
-	if ( @quizparam$ == "towelanswer06a" ) set @quizanswer$, "###towel 06a";
-	if ( @quizparam$ == "towelanswer06b" ) set @quizanswer$, "###towel 06b";
-	if ( @quizparam$ == "towelanswer06c" ) set @quizanswer$, "###towel 06c";
-	if ( @quizparam$ == "towelanswer06d" ) set @quizanswer$, "###towel 06d";
-	if ( @quizparam$ == "towelanswer07a" ) set @quizanswer$, "###towel 07a";
-	if ( @quizparam$ == "towelanswer07b" ) set @quizanswer$, "###towel 07b";
-	if ( @quizparam$ == "towelanswer08a" ) set @quizanswer$, "###towel 08a";
-	if ( @quizparam$ == "towelanswer08b" ) set @quizanswer$, "###towel 08b";
-	if ( @quizparam$ == "towelanswer08c" ) set @quizanswer$, "###towel 08c";
-	if ( @quizparam$ == "towelanswer08d" ) set @quizanswer$, "###towel 08d";
-	if ( @quizparam$ == "towelanswer09a" ) set @quizanswer$, "###towel 09a";
-	if ( @quizparam$ == "towelanswer09b" ) set @quizanswer$, "###towel 09b";
-
-	if ( @quizparam$ == "towelanswer10a" ) set @quizanswer$, "###towel 10a";
-	if ( @quizparam$ == "towelanswer10b" ) set @quizanswer$, "###towel 10b";
-	if ( @quizparam$ == "towelanswer11a" ) set @quizanswer$, "###towel 11a";
-	if ( @quizparam$ == "towelanswer11b" ) set @quizanswer$, "###towel 11b";
-	if ( @quizparam$ == "towelanswer12a" ) set @quizanswer$, "###towel 12a";
-	if ( @quizparam$ == "towelanswer12b" ) set @quizanswer$, "###towel 12b";
-	if ( @quizparam$ == "towelanswer13a" ) set @quizanswer$, "###towel 13a";
-	if ( @quizparam$ == "towelanswer13b" ) set @quizanswer$, "###towel 13b";
-	if ( @quizparam$ == "towelanswer14a" ) set @quizanswer$, "###towel 14a";
-	if ( @quizparam$ == "towelanswer14b" ) set @quizanswer$, "###towel 14b";
-	if ( @quizparam$ == "towelanswer15a" ) set @quizanswer$, "###towel 15a";
-	if ( @quizparam$ == "towelanswer15b" ) set @quizanswer$, "###towel 15b";
-	if ( @quizparam$ == "towelanswer15c" ) set @quizanswer$, "###towel 15c";
-	if ( @quizparam$ == "towelanswer16a" ) set @quizanswer$, "###towel 16a";
-	if ( @quizparam$ == "towelanswer16b" ) set @quizanswer$, "###towel 16b";
-	if ( @quizparam$ == "towelanswer17a" ) set @quizanswer$, "###towel 17a";
-	if ( @quizparam$ == "towelanswer17b" ) set @quizanswer$, "###towel 17b";
-	if ( @quizparam$ == "towelanswer18a" ) set @quizanswer$, "###towel 18a";
-	if ( @quizparam$ == "towelanswer18b" ) set @quizanswer$, "###towel 18b";
-	if ( @quizparam$ == "towelanswer18c" ) set @quizanswer$, "###towel 18c";
-	if ( @quizparam$ == "towelanswer18d" ) set @quizanswer$, "###towel 18d";
-	if ( @quizparam$ == "towelanswer19a" ) set @quizanswer$, "###towel 19a";
-	if ( @quizparam$ == "towelanswer19b" ) set @quizanswer$, "###towel 19b";
-	if ( @quizparam$ == "towelanswer19c" ) set @quizanswer$, "###towel 19c";
-	if ( @quizparam$ == "towelanswer19d" ) set @quizanswer$, "###towel 19d";
-	if ( @quizparam$ == "towelanswer110a" ) set @quizanswer$, "###towel 110a";
-	if ( @quizparam$ == "towelanswer110b" ) set @quizanswer$, "###towel 110b";
-	if ( @quizparam$ == "towelanswer111a" ) set @quizanswer$, "###towel 111a";
-	if ( @quizparam$ == "towelanswer111b" ) set @quizanswer$, "###towel 111b";
-
-	if ( @quizparam$ == "towelanswer20a" ) set @quizanswer$, "###towel 20a";
-	if ( @quizparam$ == "towelanswer20b" ) set @quizanswer$, "###towel 20b";
-	if ( @quizparam$ == "towelanswer20c" ) set @quizanswer$, "###towel 20c";
-	if ( @quizparam$ == "towelanswer20d" ) set @quizanswer$, "###towel 20d";
-	if ( @quizparam$ == "towelanswer21a" ) set @quizanswer$, "###towel 21a";
-	if ( @quizparam$ == "towelanswer21b" ) set @quizanswer$, "###towel 21b";
-	if ( @quizparam$ == "towelanswer22a" ) set @quizanswer$, "###towel 22a";
-	if ( @quizparam$ == "towelanswer22b" ) set @quizanswer$, "###towel 22b";
-	if ( @quizparam$ == "towelanswer23a" ) set @quizanswer$, "###towel 23a";
-	if ( @quizparam$ == "towelanswer23b" ) set @quizanswer$, "###towel 23b";
-	if ( @quizparam$ == "towelanswer24a" ) set @quizanswer$, "###towel 24a";
-	if ( @quizparam$ == "towelanswer24b" ) set @quizanswer$, "###towel 24b";
-	if ( @quizparam$ == "towelanswer25a" ) set @quizanswer$, "###towel 25a";
-	if ( @quizparam$ == "towelanswer25b" ) set @quizanswer$, "###towel 25b";
-	if ( @quizparam$ == "towelanswer26a" ) set @quizanswer$, "###towel 26a";
-	if ( @quizparam$ == "towelanswer26b" ) set @quizanswer$, "###towel 26b";
-	if ( @quizparam$ == "towelanswer26c" ) set @quizanswer$, "###towel 26c";
-	if ( @quizparam$ == "towelanswer26d" ) set @quizanswer$, "###towel 26d";
-	if ( @quizparam$ == "towelanswer27a" ) set @quizanswer$, "###towel 27a";
-	if ( @quizparam$ == "towelanswer27b" ) set @quizanswer$, "###towel 27b";
-	if ( @quizparam$ == "towelanswer27c" ) set @quizanswer$, "###towel 27c";
-	if ( @quizparam$ == "towelanswer27d" ) set @quizanswer$, "###towel 27d";
-	if ( @quizparam$ == "towelanswer28a" ) set @quizanswer$, "###towel 28a";
-	if ( @quizparam$ == "towelanswer28b" ) set @quizanswer$, "###towel 28b";
+	set @quizanswer$, getspellinvocation(@quizparam$);
 	return;
 }