summaryrefslogtreecommitdiff
path: root/npc/001-1/apana.txt
diff options
context:
space:
mode:
Diffstat (limited to 'npc/001-1/apana.txt')
-rw-r--r--npc/001-1/apana.txt76
1 files changed, 76 insertions, 0 deletions
diff --git a/npc/001-1/apana.txt b/npc/001-1/apana.txt
new file mode 100644
index 000000000..812ddfbea
--- /dev/null
+++ b/npc/001-1/apana.txt
@@ -0,0 +1,76 @@
+// Evol scripts.
+// Authors:
+// Saulc
+// Description:
+// NPC test fork from moon
+// Variables:
+// ArtisQuests_Apana - quest var
+// Quest stages:
+// 0 - not started
+// 1 - started, searching for Bug Leg
+// 2 - quest finished
+
+001-1,86,110,0 script apana NPC_PLAYER,{
+
+ .BaitID = BugLeg;
+ .BaitCount = 12;
+
+ .@q = getq(ArtisQuests_Apana);
+ if (.@q == 1) goto L_CheckItems;
+ if (.@q == 2) goto L_QuestDone;
+
+ speech S_LAST_BLANK_LINE,
+ l("I made a figurin with Bug legs."),
+ lg("Be a friend and bring me @@ @@.", "Be a friend and bring me @@ @@.", .BaitCount, getitemlink(.BaitID));
+
+ switch (select(l("I'll be back in no time."),
+ l("Sorry, I'm doing other things at the moment.")))
+ {
+ case 1:
+ setq ArtisQuests_Apana, 1;
+ speech S_FIRST_BLANK_LINE,
+ l("Thank you. I'll wait here.");
+ close;
+ case 2:
+ speech S_FIRST_BLANK_LINE,
+ l("But I'm almost out of @@...", getitemlink(.BaitID));
+ close;
+ }
+
+L_CheckItems:
+ if (countitem(.BaitID) < .BaitCount)
+ {
+ speech
+ l("Sorry, but you don't have what I need."),
+ l("I need @@ @@.", .BaitCount, getitemlink(.BaitID));
+ close;
+ }
+
+ speech
+ l("That's exactly what I needed!"),
+ l("To thank you, accept my old fishing rod."),
+ l("It's not as good as my new one, but still very useful."),
+ l("Just look at that water! There's a whole bunch of fish down there."),
+ l("Oh, and you will need this book too, it will help you learn the basics of fishing."),
+ lg("You might even get lucky, and get a @@.",
+ "You might even get lucky, and get a @@.", getitemlink(GrassCarp)),
+ l("Have a good time fishing!");
+
+ delitem .BaitID, .BaitCount;
+ Zeny = Zeny + 1000;
+ message strcharinfo(0), l("You receive @@ E!", 1000);
+ setq ArtisQuests_Apana, 2;
+ close;
+
+L_QuestDone:
+ // Idea for future: Eugene telling fishman jokes.
+ speech
+ l("Ahoy, @@!", strcharinfo(0)),
+ l("Are the fish biting today?");
+ close;
+
+OnInit:
+ .sex = G_MALE;
+ .distance = 3;
+ end;
+} \ No newline at end of file