new quest : SHORT BOW QUEST

Content and general development discussion, including maps, quests, and server code from the development team.
Post Reply
User avatar
lien
Novice
Novice
Posts: 446
Joined: Thu Oct 30, 2008 9:59 am
Location: France

new quest : SHORT BOW QUEST

Post by lien » Sun Jan 10, 2010 1:59 pm

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
Image
User avatar
Crush
TMW Adviser
TMW Adviser
Posts: 8046
Joined: Thu Aug 25, 2005 5:08 pm
Location: Germany

Re: new quest : SHORT BOW QUEST

Post by Crush » Sun Jan 10, 2010 2:07 pm

Sorry, but the dialog is written in very VERY bad english.
  • former Manasource Programmer
  • former TMW Pixel artist
  • NOT a game master

Please do not send me any inquiries regarding player accounts on TMW.


You might have heard a certain rumor about me. This rumor is completely false. You might also have heard the other rumor about me. This rumor is 100% accurate.
User avatar
lien
Novice
Novice
Posts: 446
Joined: Thu Oct 30, 2008 9:59 am
Location: France

Re: new quest : SHORT BOW QUEST

Post by lien » Sun Jan 10, 2010 2:09 pm

Crush wrote:Sorry, but the dialog is written in very VERY bad english.
normally i'm not english





<< here
Image
User avatar
Link , hero of time
Novice
Novice
Posts: 139
Joined: Sun Jan 03, 2010 4:05 pm
Location: it varies from game to game , "The Legend of Zelda" but I often find myself to Hyrule

Re: new quest : SHORT BOW QUEST

Post by Link , hero of time » Sun Jan 10, 2010 2:50 pm

anyway , who wants this bow ? :lol:


I much prefer the "lighting bow" (many Zelda)
link the hero of time
User avatar
Kage
Warrior
Warrior
Posts: 927
Joined: Sat May 02, 2009 7:12 pm

Re: new quest : SHORT BOW QUEST

Post by Kage » Sun Jan 10, 2010 10:19 pm

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.
Last edited by Kage on Sun Jan 10, 2010 11:51 pm, edited 5 times in total.
<Kage_Jittai> ... are you saying I am elite :D
<thorbjorn> Yes. :P
User avatar
Doulos
Novice
Novice
Posts: 189
Joined: Mon Jan 26, 2009 6:23 pm

Re: new quest : SHORT BOW QUEST

Post by Doulos » Sun Jan 10, 2010 10:24 pm

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".
User avatar
Link , hero of time
Novice
Novice
Posts: 139
Joined: Sun Jan 03, 2010 4:05 pm
Location: it varies from game to game , "The Legend of Zelda" but I often find myself to Hyrule

Re: new quest : SHORT BOW QUEST

Post by Link , hero of time » Mon Jan 11, 2010 7:58 am

if (@inventorylist_count == 100) goto L_TooMany;
but you forgot the bow


in "Spirit tracks" there are two of bow
link the hero of time
User avatar
Kage
Warrior
Warrior
Posts: 927
Joined: Sat May 02, 2009 7:12 pm

Re: new quest : SHORT BOW QUEST

Post by Kage » Mon Jan 11, 2010 2:22 pm

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.
<Kage_Jittai> ... are you saying I am elite :D
<thorbjorn> Yes. :P
User avatar
Link , hero of time
Novice
Novice
Posts: 139
Joined: Sun Jan 03, 2010 4:05 pm
Location: it varies from game to game , "The Legend of Zelda" but I often find myself to Hyrule

Re: new quest : SHORT BOW QUEST

Post by Link , hero of time » Mon Jan 11, 2010 5:58 pm

i forget this line

Code: Select all

          "No", -;



I forget that in this dream there are a nightmare "Link's Awakening"
link the hero of time
User avatar
Link , hero of time
Novice
Novice
Posts: 139
Joined: Sun Jan 03, 2010 4:05 pm
Location: it varies from game to game , "The Legend of Zelda" but I often find myself to Hyrule

Re: new quest : SHORT BOW QUEST

Post by Link , hero of time » Mon Jan 11, 2010 6:06 pm

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
link the hero of time
Post Reply