Forest Bow Quest completed (I hope)

5 files changed, 163 insertions, 6 deletions

diff --git a/npc/009-1/_import.txt b/npc/009-1/_import.txt
index 1f5735442..64a5b8912 100644
--- a/npc/009-1/_import.txt
+++ b/npc/009-1/_import.txt
@@ -5,6 +5,7 @@
 "npc/009-1/barzil.txt",
 "npc/009-1/charles.txt",
 "npc/009-1/dangrostra.txt",
+"npc/009-1/fisherman.txt",
 "npc/009-1/foxhound.txt",
 "npc/009-1/guards.txt",
 "npc/009-1/kevin.txt",
diff --git a/npc/009-1/_mobs.txt b/npc/009-1/_mobs.txt
index 35d4e61b9..91aba337f 100644
--- a/npc/009-1/_mobs.txt
+++ b/npc/009-1/_mobs.txt
@@ -2,6 +2,6 @@
 // Map 009-1: Halinarzo mobs
 009-1,66,36,28,10	monster	Giant Maggot	1031,5,30000,90000
 009-1,27,29,7,8	monster	Bat	1039,1,60000,60000
-009-1,73,51,49,14	monster	Fire Goblin	1067,5,45000,45000
+009-1,73,51,49,14	monster	Fire Goblin	1067,5,45000,45000,Fisherman::OnKillFireGoblin
 009-1,70,31,49,21	monster	Maggot	1030,20,30000,60000
 009-1,70,86,47,6	monster	Red Scorpion	1072,2,30000,20000
diff --git a/npc/009-1/fisherman.txt b/npc/009-1/fisherman.txt
new file mode 100644
index 000000000..fd7fffedb
--- /dev/null
+++ b/npc/009-1/fisherman.txt
@@ -0,0 +1,151 @@
+// TMW-2 Script
+// Originals: TMW BR
+//
+// Author:
+//    Jesusalva
+// Description:
+//    Forest Bow Quest. DO NOT RENAME THE NPC.
+
+009-1,116,106,0	script	Fisherman	NPC_FISHERMAN_HALI,{
+    .@q=getq(HurscaldQuest_ForestBow);
+    mesn;
+    if (BaseLevel < 30) goto L_Weak;
+    mesq l("Hello. Ah, bad luck. I am three days without fishing a single carp.");
+    next;
+    mesn strcharinfo(0);
+    menu
+        l("Any fishing tips for me?"),-,
+        rif(.@q == 1, l("I need a string, but not just any string, a really good string.")), L_String;
+
+    mes "";
+    mesn;
+    mesq l("Well, yes. Look this river. The water is not moving.");
+    next;
+    mesn;
+    mesq l("If the water doesn't moves, you will never fish anything. Ah, fat luck...");
+    close;
+
+L_Weak;
+    mesn;
+    mesq l("...");
+    next;
+    mesn;
+    mesq l("I am trying to fish here without success. You're weak, do not bother me.");
+    close;
+
+L_String:
+    .@k=getq3(HurscaldQuest_ForestBow);
+    mes "";
+    switch (.@k) {
+        case 0:
+            mesn;
+            mesq l("Well, that's easy to do. For starters, I need 1.000 GP as payment, and 10 @@ to make the string.", getitemlink(Root));
+            next;
+            mesn;
+            mesq l("That's not everything, though. I am having a bad time fishing. Bring me a @@. I know, it is rare. Good luck with it.", getitemlink(GrassCarp));
+            next;
+            mesn;
+            mesq l("And one last thing I'll want. See these @@? I don't like them, so I'll have you to kill 40 of them for me.", getmonsterlink(FireGoblin));
+            next;
+            mesn strcharinfo(0);
+            mes l("o.o \"You're being unreasonable. That's way too much!\"");
+            next;
+            mesn;
+            mesq l("To make the string you want, I need a special oil, which I do it myself. It's hard to do, so I'll spend time I could be using to fish or help the city guard.");
+            next;
+            mesn;
+            mesq l("I'll make your life easier, I'm also accepting 20 @@ or @@ instead the Grass Carp. Go now, pal.", getitemlink(CommonCarp), getitemlink(Roach));
+            setq3 HurscaldQuest_ForestBow, 10;
+            close;
+            break;
+        case 50:
+            mesn;
+            mesq l("Yo, good joob killing the Fire Goblins. Do you have everything I've asked for?");
+            next;
+            goto L_Finish;
+        default:
+            mesn;
+            mesq l("You need:");
+            if (countitem(GrassCarp) > 0)
+                mes l("@@/1 @@", countitem(GrassCarp), getitemlink(GrassCarp));
+            else if (countitem(Roach) > countitem(CommonCarp))
+                mes l("@@/20 @@ (or @@)", countitem(Roach), getitemlink(Roach), getitemlink(CommonCarp));
+            else
+                mes l("@@/20 @@ (or @@)", countitem(CommonCarp), getitemlink(CommonCarp), getitemlink(Roach));
+
+            mes l("@@/10 @@", countitem(Root), getitemlink(Root));
+            mes l("@@/40 slayed @@", .@k-10, getmonsterlink(FireGoblin));
+            mes l("@@/1000 GP", Zeny);
+            close;
+    }
+    close;
+
+L_Finish:
+    mesq l("You need:");
+    if (countitem(GrassCarp) > 0)
+        mes l("@@/1 @@", countitem(GrassCarp), getitemlink(GrassCarp));
+    else if (countitem(Roach) > countitem(CommonCarp))
+        mes l("@@/20 @@ (or @@)", countitem(Roach), getitemlink(Roach), getitemlink(CommonCarp));
+    else
+        mes l("@@/20 @@ (or @@)", countitem(CommonCarp), getitemlink(CommonCarp), getitemlink(Roach));
+
+    mes l("@@/10 @@", countitem(Root), getitemlink(Root));
+    mes l("40/40 slayed @@", getmonsterlink(FireGoblin));
+    mes l("@@/1000 GP", Zeny);
+    mes "";
+    select
+        l("Not yet."),
+        rif(countitem(GrassCarp) >= 1, l("Yes, I'll pay with Grass Carp.")),
+        rif(countitem(CommonCarp) >= 20, l("Yes, I'll pay with Common Carp.")),
+        rif(countitem(Roach) >= 20, l("Yes, I'll pay with Roach."));
+    if (@menu == 1)
+        close;
+
+    if (countitem(Root) < 10 || Zeny < 1000) {
+        mesn;
+        mesq l("Well, you forgot the most important: The material I need to do the string.");
+        next;
+        mesn;
+        mesq l("I am not a half-word man, so I won't take your fish. Come back with the money and the Roots, and I'll make the string for you.");
+        close;
+    }
+
+    switch (@menu) {
+    case 2:
+        delitem GrassCarp, 1; break;
+    case 3:
+        delitem CommonCarp, 20; break;
+    case 4:
+        delitem Roach, 20; break;
+    default:
+        dispbottom l("Script Error: \"Tux didn't found his fish! Blame Saulc at once!\""); close; end;
+    }
+    delitem Root, 10;
+    Zeny=Zeny-1000;
+    setq3 HurscaldQuest_ForestBow, 99;
+    getexp 100, 0;
+    mes "";
+    mesn;
+    mes col("With a knife, the fisherman makes the roots as thin as he can. You wonder if he knows what he is doing.", 9);
+    next;
+    mesn;
+    mes col("Once the roots are of a desired thickness, he ties them to make a string, and applies an oil on it.", 9);
+    next;
+    mes col("After waiting for the oil to dry, he hands you the string.", 9);
+    mesq l("Here, thanks to the oil, this string is very sturdy. You better not keep it on your inventory. Good luck!");
+    close;
+
+OnKillFireGoblin:
+    if (getq(HurscaldQuest_ForestBow) == 1 && getq3(HurscaldQuest_ForestBow) > 10 && getq3(HurscaldQuest_ForestBow) < 50) {
+        setq3 HurscaldQuest_ForestBow, getq3(HurscaldQuest_ForestBow)+1;
+        dispbottom l("@@/40 Fire Goblins killed", getq3(HurscaldQuest_ForestBow)-10);
+    }
+    end;
+
+OnInit:
+    .sex = G_MALE;
+    .distance = 5;
+    end;
+
+}
+
diff --git a/npc/012-1/jack.txt b/npc/012-1/jack.txt
index f1b6912bb..cadcaf828 100644
--- a/npc/012-1/jack.txt
+++ b/npc/012-1/jack.txt
@@ -213,4 +213,9 @@ L_Daily:
 L_Close:
     close;
 
+OnInit:
+    .sex = G_MALE;
+    .distance = 5;
+    end;
+
 }
diff --git a/npc/012-3/alan.txt b/npc/012-3/alan.txt
index 3b01ee7d8..bdf190500 100644
--- a/npc/012-3/alan.txt
+++ b/npc/012-3/alan.txt
@@ -10,11 +10,10 @@
     .@q3=getq3(HurscaldQuest_ForestBow);
     switch (.@q) {
         case 1:
-            npctalk3 l("The Forest Bow is my specialty. I wish I could keep crafting them forever...");
+            npctalk3 l("Ah, if Jack and that fisherman from Halinarzo still gave me materials...");
+            break;
         case 2:
-        case 3:
-        case 4:
-        case 5:
+            npctalk3 l("The bow I gave you was a masterpiece.");
             break;
     }
 
@@ -63,7 +62,8 @@ L_Start:
 L_Craft:
     inventoryplace ForestBow, 1;
     getitem ForestBow, 1;
-    setq HurscaldQuest_ForestBow, 5;
+    getexp 900, 0;
+    setq HurscaldQuest_ForestBow, 2, 0, 0;
     mesn;
     mes "\"Here you go - have fun with it.\"";
     goto L_Close;