summaryrefslogtreecommitdiff
path: root/npc
diff options
context:
space:
mode:
Diffstat (limited to 'npc')
-rw-r--r--npc/012-1/andrei.txt100
1 files changed, 75 insertions, 25 deletions
diff --git a/npc/012-1/andrei.txt b/npc/012-1/andrei.txt
index 4b00516e9..2a2f74e02 100644
--- a/npc/012-1/andrei.txt
+++ b/npc/012-1/andrei.txt
@@ -9,8 +9,65 @@
// more realistic, which sounded like a human hero (ie. a normal player).
012-1,75,58,0 script Andrei Sakar NPC_ANDREI,{
+ // NLib_question ( )
+ function NLib_question {
+ //freeloop(true);
+ do {
+ @qid=rand(0,7);
+ } while (! (2**@qid) & @sortable);
+ debugmes "Question "+@qid;
+ @sortable-=(2**@qid);
+ setarray @ans$, $@NLIBa1$[@qid], $@NLIBa2$[@qid], $@NLIBa3$[@qid], $@NLIBa4$[@qid];
+ setarray @val, $@NLIBmr1[@qid], $@NLIBmr2[@qid], $@NLIBmr3[@qid], $@NLIBmr4[@qid];
+ /*
+ @nm=15;
+ @i=0;
+ debugmes "BG WHILE S00002";
+ while (@nm > 0) {
+ do {
+ @nai=rand(0,3);
+ } while ((2**@nai) & @nm);
+ debugmes "BG WS2 NODE";
+ @nm-=@nai;
+ @ans$[@i]=@as$[@nai];
+ @val[@i]=@nai;
+ }
+ debugmes "BG NO FREE LOOP";
+ //freeloop(false);
+ */
+ // Final: @ans$ ; @val ; @qid
+ // Question, menuret, QID
+
+ mes "";
+ addtimer(30000, "Andrei Sakar::OnTooLong");
+ .@q=getq3(Q_NivalisLibday);
+ setq3 Q_NivalisLibday, .@q-7;
+ mesn;
+ mesq $@NLIBqs$[@qid];
+ menuint
+ @ans$[0], @val[0],
+ @ans$[1], @val[1],
+ @ans$[2], @val[2],
+ @ans$[3], @val[3];
+ mes "";
+ deltimer("Andrei Sakar::OnTooLong");
+ if (@menuret == 1) {
+ .@q=getq3(Q_NivalisLibday);
+ setq3 Q_NivalisLibday, .@q+7;
+ mesn;
+ mesq l("That's right.");
+ next;
+ } else {
+ mesn;
+ mesq l("Sorry, but that's wrong.");
+ close;
+ }
+ debugmes "BG END";
+ // end
+ }
+
mesn l("Andrei Sakar, Legendary Hero");
- if ($NLIB_DAY) goto L_Quizz;
+ if ($NLIB_DAY || ($@GM_OVERRIDE && is_admin())) goto L_Quizz;
L_Default:
if (strcharinfo(0) == $MOST_HEROIC$)
@@ -36,31 +93,13 @@ L_Quizz:
next;
if (askyesno() == ASK_NO)
close;
+ setarray @sortable, 255;
- mes "";
- addtimer(30000, "Andrei Sakar::OnTooLong");
- .@q=getq3(Q_NivalisLibday);
- setq3 Q_NivalisLibday, .@q-7;
- mesn;
- mesq l("Did you really thought I would allow you to read the question answers on the source code?");
- select
- l("Yes."),
- l("You really should."),
- l("Of course."),
- l("It was worth the shot.");
- mes "";
- deltimer("Andrei Sakar::OnTooLong");
- if (@menu == 4) {
- .@q=getq3(Q_NivalisLibday);
- setq3 Q_NivalisLibday, .@q+7;
- mesn;
- mesq l("That's right.");
- next;
- } else {
- mesn;
- mesq l("Sorry, but that's wrong.");
- close;
- }
+ NLib_question();
+ NLib_question();
+ NLib_question();
+ NLib_question();
+ NLib_question();
mesn;
@@ -113,6 +152,17 @@ OnTooLong:
OnInit:
.sex = G_MALE;
.distance = 5;
+ /* Because I was lazy to calculate array size, it is hard-coded to eight questions numbered from 0 to 7.
+ setarray $@NLIBqs$;
+ setarray $@NLIBa1$;
+ setarray $@NLIBa2$;
+ setarray $@NLIBa3$;
+ setarray $@NLIBa4$;
+ setarray $@NLIBmr1;
+ setarray $@NLIBmr2;
+ setarray $@NLIBmr3;
+ setarray $@NLIBmr4;
+ */
end;
}