summaryrefslogtreecommitdiff
path: root/npc/001-1/qpid.txt
diff options
context:
space:
mode:
Diffstat (limited to 'npc/001-1/qpid.txt')
-rw-r--r--npc/001-1/qpid.txt170
1 files changed, 170 insertions, 0 deletions
diff --git a/npc/001-1/qpid.txt b/npc/001-1/qpid.txt
new file mode 100644
index 000000000..d4194ddd5
--- /dev/null
+++ b/npc/001-1/qpid.txt
@@ -0,0 +1,170 @@
+// Evol scripts.
+// Author:
+// Reid
+// Description:
+// Potion seller, she is part of the Enora's noob quests.
+
+001-1,65,116,0 script Q'Pid#001-1 NPC_QPID,{
+
+ function riddle_enigma {
+ speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+ l("Ok fine, you have up to 3 tries, here is the riddle:"),
+ l("What is growing and shrinking at the same time?");
+ narrator S_LAST_NEXT,
+ l("You need to type the answer of this riddle in the NPC window."),
+ l("The answer is a single word, without conjugation."),
+ l("You can also answer in your native language or in English.");
+
+ do
+ {
+ input .@answer$;
+ .@i++;
+
+ if (riddlevalidation(.@answer$, "life", l("life")))
+ {
+ speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+ l("Oh..."),
+ l("You seem more cultivated than you look.");
+
+ if (getq(ArtisQuests_Enora) == 7)
+ {
+ setq(ArtisQuests_Enora, 9);
+ speech S_LAST_NEXT | S_NO_NPC_NAME,
+ l("Fine, take these potions, I will replenish them in the next couple hours anyway.");
+ }
+
+ break;
+ }
+ else if (.@i < 3)
+ {
+ speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+ l("Too bad, try again.");
+ }
+ else
+ {
+ if (getq(ArtisQuests_Enora) == 7)
+ {
+ setq(ArtisQuests_Enora, 8);
+ speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+ l("You failed!"),
+ l("Ivan is the one you should look for now."),
+ l("He is in a small house between the dock's warehouse and the dojo."),
+ l("Follow the canal to the north-east and you will find it."),
+ l("And get out of here, I'm not a map!");
+ }
+ else
+ {
+ speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+ l("You failed!");
+ }
+
+ break;
+ }
+ } while (true);
+
+ return;
+ }
+
+ function enora_quest {
+ speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+ l("She wants? What if I don't want?"),
+ l("I'm not a pawn of the Legion, I don't have to obey you!"),
+ l("Oh and guess what! I'm almost out of potions anyway.");
+
+ switch (select(l("And where can I find these potions?"),
+ l("You bored me, see you later.")))
+ {
+ case 1:
+ break;
+ case 2:
+ return;
+ }
+
+ speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+ l("You don't seem to be from the Legion, let's do a game."),
+ l("If you find the correct answer, I will give you these potions..."),
+ l("But if you fail, you will have to get them from the alchemist."),
+ l("Deal?");
+
+ if (askyesno() == ASK_YES)
+ {
+ riddle_enigma;
+ }
+ return;
+ }
+
+ function alchemist_information {
+ speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+ l("Do? I don't do them."),
+ l("I'm sure that you already knew the answer, didn't you?"),
+ l("You tried to embarrass me, am I right?!"),
+ lg("It's Ivan... I'm sure that he sent you to annoy me..."),
+ l("I'm just a merchant, I trade and make deals, yes \"excuse\" me if I'm not as skilled as that stupid alchemist."),
+ l("But rare are those that receive grants from the Legion itself. For anybody else only a hard work can pay your bills!");
+ emotion E_UPSET;
+
+ switch (select(l("Sorry I didn't mean to bother you."),
+ l("You are just sitting on the shadow of your store.")))
+ {
+ case 1:
+ mes "";
+ mesn;
+ break;
+ case 2:
+ speech S_FIRST_BLANK_LINE | S_LAST_NEXT, l("You are honest, I like it.");
+ break;
+ }
+ mesq l("Is that all you had to say?");
+ next;
+
+ return;
+ }
+
+ speech S_LAST_NEXT,
+ l("What?");
+
+ do
+ {
+ .@enora = getq(ArtisQuests_Enora);
+
+ select
+ rif(.@enora == 7, l("Enora wants her potions.")),
+ menuaction(l("Trade")),
+ rif(.@enora > 7, l("What was your riddle?")),
+ l("How do you do your potions?"),
+ l("What are you reading?"),
+ menuaction(l("Quit"));
+
+ switch (@menu)
+ {
+ case 1:
+ enora_quest;
+ break;
+ case 2:
+ closedialog;
+ shop "Store#Potion001-1";
+ close;
+ case 3:
+ riddle_enigma;
+ break;
+ case 4:
+ alchemist_information;
+ break;
+ case 5:
+ speech S_FIRST_BLANK_LINE | S_LAST_NEXT,
+ l("It's a poem, about poems... Why are you asking that?"),
+ l("Because I am a Kralog I can't read such things? That's rubbish."),
+ l("I borrowed it from the library, you should try to cultivate yourself more instead of insinuate things about people you don't know!");
+ break;
+ }
+ } while (@menu != 6);
+
+ closedialog;
+ goodbye;
+ close;
+
+OnInit:
+ .sex = G_FEMALE;
+ .distance = 3;
+ end;
+}