summaryrefslogtreecommitdiff
path: root/world/map
diff options
context:
space:
mode:
Diffstat (limited to 'world/map')
-rw-r--r--world/map/npc/002-2/stranger.txt9
-rw-r--r--world/map/npc/functions/quiz.txt15
2 files changed, 16 insertions, 8 deletions
diff --git a/world/map/npc/002-2/stranger.txt b/world/map/npc/002-2/stranger.txt
index e323293e..9616763b 100644
--- a/world/map/npc/002-2/stranger.txt
+++ b/world/map/npc/002-2/stranger.txt
@@ -58,6 +58,9 @@ L_Towel:
mes "\"The first one is easy.\"";
next;
+ cleararray @quiz_questions$[0], "", getarraysize(@quiz_questions$[0]);
+ cleararray @quiz_answers$[0], "", getarraysize(@quiz_answers$[0]);
+
setarray @quiz_questions$[0],
"What two words are written in big friendly letters on the back cover?",
"What's the name of the paranoid robot?",
@@ -88,6 +91,9 @@ L_Towel:
mes "\"You're absolutely right. The next one will be more tricky.\"";
next;
+ cleararray @quiz_questions$[0], "", getarraysize(@quiz_questions$[0]);
+ cleararray @quiz_answers$[0], "", getarraysize(@quiz_answers$[0]);
+
setarray @quiz_questions$[0],
"What is the name of the rock group claiming to be the loudest band in the universe?",
"What star is near Ford's home planet?",
@@ -122,6 +128,9 @@ L_Towel:
mes "\"Not bad, not bad. Let's see if you can answer an even more difficult one.\"";
next;
+ cleararray @quiz_questions$[0], "", getarraysize(@quiz_questions$[0]);
+ cleararray @quiz_answers$[0], "", getarraysize(@quiz_answers$[0]);
+
setarray @quiz_questions$[0],
"Drinking what drink is like having your brain smashed out by a slice of lemon wrapped round a large gold brick?",
"How many pints of beers should you drink before hitchhiking?",
diff --git a/world/map/npc/functions/quiz.txt b/world/map/npc/functions/quiz.txt
index 0f2f7c87..3deddd0a 100644
--- a/world/map/npc/functions/quiz.txt
+++ b/world/map/npc/functions/quiz.txt
@@ -5,10 +5,10 @@
function|script|MultiQuiz
{
- if((getarraysize(@quiz_answers$) != getarraysize(@quiz_questions$)) ||
+ if((getarraysize(@quiz_answers$[0]) != getarraysize(@quiz_questions$[0])) ||
(@quiz_answers$[0] == "") || (@quiz_questions$[0] == "")) goto L_ArrayError;
set @setindex, 1;
- set @index, rand(0,(getarraysize(@quiz_answers$) - 1));
+ set @index, rand(0,(getarraysize(@quiz_answers$[0]) - 1));
set @question$, @quiz_questions$[@index];
mes "\""+ @question$ + "\"";
next;
@@ -19,25 +19,24 @@ function|script|MultiQuiz
L_ArrayError:
if(@quiz_answers$[0] == "") debugmes "@quiz_answers$ is empty";
if(@quiz_questions$[0] == "") debugmes "@quiz_questions$ is empty";
- if(getarraysize(@quiz_answers$) != getarraysize(@quiz_questions$)) debugmes "Size of @quiz_answers$ is not equal to size of @quiz_questions$";
- mapexit;
+ if(getarraysize(@quiz_answers$[0]) != getarraysize(@quiz_questions$[0])) debugmes "Size of @quiz_answers$ is not equal to size of @quiz_questions$";
+ close;
}
function|script|Quiz
{
if((@choices_nr < 1) || (@choices_nr > 8)) set @choices_nr, 3;
- if(@choices_nr > getarraysize(@quiz_answers$)) set @choices_nr, getarraysize(@quiz_answers$);
+ if(@choices_nr > getarraysize(@quiz_answers$[0])) set @choices_nr, getarraysize(@quiz_answers$[0]);
if(@quiz_answers$[0] == "") goto L_ArrayError;
set @success, 0;
if(@setindex < 1) set @index, @answer;
set @good, rand(0,(@choices_nr - 1));
- setarray @choices$, "";
- cleararray @choices$, "", getarraysize(@choices$);
+ cleararray @choices$, "", getarraysize(@choices$[0]);
set @loop, 0;
goto L_Shuffle;
L_Shuffle:
- set @nindex, rand(0,(getarraysize(@quiz_answers$) - 1));
+ set @nindex, rand(0,(getarraysize(@quiz_answers$[0]) - 1));
if(@nindex == @index) goto L_Shuffle; // do not get the good definition
set @loop2, 0;
goto L_Search;