From a6d75a1559422a05e25c0a18498b07e0c4d7602d Mon Sep 17 00:00:00 2001 From: Jesusaves Date: Fri, 1 Jun 2018 23:38:48 -0300 Subject: Forest Bow Quest completed (I hope) --- npc/009-1/_import.txt | 1 + npc/009-1/_mobs.txt | 2 +- npc/009-1/fisherman.txt | 151 ++++++++++++++++++++++++++++++++++++++++++++++++ npc/012-1/jack.txt | 5 ++ npc/012-3/alan.txt | 10 ++-- 5 files changed, 163 insertions(+), 6 deletions(-) create mode 100644 npc/009-1/fisherman.txt (limited to 'npc') 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; -- cgit v1.2.3-70-g09d2