Code: Select all
// Make sure that these are tabs
020-2.gat,72,65,0 script ??? ???,{
if(QUEST_DesertBow == 1) goto L_Check;
if(QUEST_DesertBow == 2) goto L_Give;
if(QUEST_DesertBow == 3) goto L_Done;
L_Start:
mes "[Bowman]";
mes "\"Greetings... I am good with bows and arrows\"";
next;
mes "\"How about you?\"";
next;
menu
"I like to think I am good with them", L_Do,
"Sorry, I am not interested in ranged weapons", -;
mes "[Bowman]";
mes "\"Best of luck to you!\"";
close;
L_Do:
set @Q_fbow, ((QUEST_Forestbow_state) & @Q_MASK) >> @Q_SHIFT;
if (getequipid(equip_hand1) == 545 && // Has forest bow equiped
@Q_fbow == 5 && // Has done forest bow quest
BaseLevel >= 70 // Is level 70 or higher
) goto L_Good;
mes "[Bowman]";
mes "\"Hmmm... it seems you're not yet skilled enough for me to help you... ";
mes "Come back and see me when you are more skilled\"";
close;
L_Good:
mes "[Bowman]";
mes "\"That seems to be a great bow you have... is it one Alan made?\"";
next;
mes "[You tell him the story of Alan]";
next;
mes "[Bowman]";
mes "\"Well that's a shame that Alan doesn't make his bows anymore...\""
next;
mes "[Bowman]";
mes "\"Tell you what... a stranger the other day told me about a bow that";
mes "can even out match Alan's. But it looks rather complicated to make.";
mes "If you can bring me the materials I need, I will make you one for 30,000 gold.";
menu
"What do you need?", L_Accept,
"Actually I am quite happy with the bow I have.", -;
close;
L_Accept:
mes "[Bowman]";
mes "[You watch as he pulls out some old looking paper and starts to read it]";
next;
mes "[Bowman]";
mes "\"Ok! It says to crush five [Dark Crystal]s and mix with an equal amount of [Sulphur Powder]";
mes "... Then take the mixture and dissolve it in a [Bottle of Water]... Take water and soak a"
mes "[Cotton Cloth] in it until saturated.\";
next;
mes "[Bowman]";
mes "\"Take an ordinary [Bow], and rub cloth on the string of the bow until the string starts to glow.";
mes "Hmmmm.... From here it says the bow will work, but it will snap after just a few uses....";
mes "Recommends to reinforce both limbs with iron from five [Iron Ore].";
next;
mes "[Bowman]";
mes "\"You get all of that?\"";
menu
"ZZZZZZzzzzzzZzzzzz.... huh?", goto L_Accept,
"Yeah... I think", -;
set QUEST_DesertBow, 1;
close;
L_Check:
mes "[Bowman]";
mes "\"Remember, my fee is 30,000 gold...\"";
menu
"Yes, that's fine", -,
"Hmmm... I don't want to pay that", close;
if (countitem("DarkCrystal") < 5) goto L_No;
if (countitem("SulphurPowder") < 5) goto L_No;
if (countitem("BottleOfWater") < 1) goto L_No;
if (countitem("CottonCloth") < 1) goto L_No;
if (countitem("Bow") < 1) goto L_No;
if (countitem("IronOre") < 5) goto L_No;
if (zeny < 30000) goto L_NoMoney;
mes "[Bowman]";
mes "\"Wow! You already got everything I need!\"";
delitem "DarkCrystal", 5;
delitem "SulphurPowder", 5;
delitem "BottleOfWater", 1;
delitem "CottonCloth", 1;
delitem "Bow", 1;
getitem "IronOre", 5;
set zeny, zeny - 30000;
mes "[You watch as he takes the money and items from you]";
mes "\"Ok... I'll need a little time to finish work on your new bow... come back later.\"";
set QUEST_DesertBow, 2;
close;
L_No:
mes "[Bowman]";
mes "\"You don't have all the items I need... would you like to hear the instructions again?\"";
menu
"Yes", goto L_Accept,
"No", -;
close;
L_NoMoney:
mes "[Bowman]";
mes "\"Well... You have the items... but not enough money... so I won't make it for you yet.\"";
close;
L_Give:
if (@inventorylist_count == 100) goto L_TooMany;
mes "[Bowman]";
mes "\"Alright! I am finished with your new bow!\"";
getitem "DesertBow", 1;
mes "[You pick up a [Desert Bow]]";
getexp 50000; // Needs adjusting?
mes "[You receive 50,000 experience]";
set QUEST_DesertBow, 3;
close;
L_TooMany:
mes "[Bowman]";
mes "\"Sorry... you don't have the free space to accept this bow.\"";
close;
L_Done:
mes "[Bowman]";
mes "\"I hope you enjoy your new bow\"";
close;
}
I rewrote it... and made it for the desert bow... tell me what ya think.