Page 1 of 1

new quest : SHORT BOW QUEST

Posted: 10 Jan 2010, 12:59
by lien
all script for the quest

Code: Select all

020-2.gat,72,65,0	script	???	???,{
	if(ShortBow == 1) goto L_Done;

L_Start:
mes"[the other]"
mes"\"hello !! you don't know , I good handle the bow \"";
next;
"\" and you ? do you handle the bow ? \"";
next;
menu
"yes i do !",L_Do ,
"me , a bow man you're crazy !"-;
mes"[the other]"
"\"ok !! bye \"";
close;
L_Do:
  if (countitem("ForestBow") > 1) goto L_Good;
if (countitem("Bow") < 1) goto L_Dont;L_dont:
mes"[the other]"
mes"\"do you want my help ? \"";
menu;
 "yes, but for what ?"L_ok,
 "no i don't need you're help "-;
close;
L_dont:
mes"[the other]"
mes"\"no ! you lie because you haven't  any bow  \"";
close;
L_Good
mes"[the other]"
mes"\"wow ! you're stronger than me  \"";
next;
mes"[the other]"
mes"\"and you don't need my help \"";
close;
L_ok:
mes"[the other]"
mes"\"i can make a better bow than yours  \"";
mes"\"but i need items for this  \"";
L_ok2:
menu
"can you make THE bow " L_Make ;
"what do you want for make the bow" L_What ;
"i don't want a new bow " -;
close;
L_What:
mes"[the other]"
mes"\"i can make a better bow than yours  \"";
mes"\"i need [10 raw logs]  \"";
mes"\"and i need [5 cave snake tongues]  \"";
mes"\"and i need your [bow]  \"";
L_Make :
if(countitem("RawLog") < 10) goto L_No;
if(countitem("CaveSnakeTongue") < 10) goto L_No;
delitem "RawLog", 10;
delitem "CaveSnakeTongue", 5;
delitem "Bow", 1;
getitem "ShortBow", 1;
next;
mes"[the other]"
mes"\"but you haven't arrow  \"";
next;
getitem "Arrow", 200;
getitem "IronArrow", 100;
set ShortBow , 1 ;

L_no :
mes"[the other]"
mes"\"you don't have all item   \"";
mes"\"bye   \"";
close;
L_Done :
mes"[the other]"
mes"\"i think you like your new bow  \"";
mes"\" :) \"";
close;
please comment this :D

Re: new quest : SHORT BOW QUEST

Posted: 10 Jan 2010, 13:07
by Crush
Sorry, but the dialog is written in very VERY bad english.

Re: new quest : SHORT BOW QUEST

Posted: 10 Jan 2010, 13:09
by lien
Crush wrote:Sorry, but the dialog is written in very VERY bad english.
normally i'm not english





<< here

Re: new quest : SHORT BOW QUEST

Posted: 10 Jan 2010, 13:50
by Link , hero of time
anyway , who wants this bow ? :lol:


I much prefer the "lighting bow" (many Zelda)

Re: new quest : SHORT BOW QUEST

Posted: 10 Jan 2010, 21:19
by Kage

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.

Re: new quest : SHORT BOW QUEST

Posted: 10 Jan 2010, 21:24
by Doulos
woot! Why not toss in the Desert Bow and make it just a tiny bit stronger than the Forest Bow, nothing that would upset the game "balance".

Re: new quest : SHORT BOW QUEST

Posted: 11 Jan 2010, 06:58
by Link , hero of time
if (@inventorylist_count == 100) goto L_TooMany;
but you forgot the bow


in "Spirit tracks" there are two of bow

Re: new quest : SHORT BOW QUEST

Posted: 11 Jan 2010, 13:22
by Kage
Link , hero of time wrote:
if (@inventorylist_count == 100) goto L_TooMany;
but you forgot the bow


in "Spirit tracks" there are two of bow
The bow is deleted in a different state... the player has to talk to the NPC again after the NPC removes his items... so they could possibly leave, get more items, come back, get bow.

Re: new quest : SHORT BOW QUEST

Posted: 11 Jan 2010, 16:58
by Link , hero of time
i forget this line

Code: Select all

          "No", -;



I forget that in this dream there are a nightmare "Link's Awakening"

Re: new quest : SHORT BOW QUEST

Posted: 11 Jan 2010, 17:06
by Link , hero of time
and because it is the last bow I think the " bow" could be replaced by the " forest bow"
^ my assumption is this


in the enchanted forest there was a raccoon