Initial commit

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