new quest : SHORT BOW QUEST

Content and general development discussion, including quest scripts and server code. TMW Classic is a project comprising the Legacy tmwAthena server & the designated improved engine server based on evolHercules.


Forum rules

This forum houses many years of development, tracing back to some of the earliest posts that exist on the board.

Its current use is for the continued development of the server and game it has always served: TMW Classic.

Post Reply
User avatar
lien
Warrior
Warrior
Posts: 446
Joined: 30 Oct 2008, 08:59
Location: France

new quest : SHORT BOW QUEST

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

Re: new quest : SHORT BOW QUEST

Post by Crush »

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
Warrior
Warrior
Posts: 446
Joined: 30 Oct 2008, 08:59
Location: France

Re: new quest : SHORT BOW QUEST

Post by lien »

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: 03 Jan 2010, 15:05
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 »

anyway , who wants this bow ? :lol:


I much prefer the "lighting bow" (many Zelda)
link the hero of time
User avatar
Kage
Manasource
Manasource
Posts: 929
Joined: 02 May 2009, 18:12

Re: new quest : SHORT BOW QUEST

Post 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.
Last edited by Kage on 10 Jan 2010, 22:51, 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: 26 Jan 2009, 17:23

Re: new quest : SHORT BOW QUEST

Post 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".
User avatar
Link , hero of time
Novice
Novice
Posts: 139
Joined: 03 Jan 2010, 15:05
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 »

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
Manasource
Manasource
Posts: 929
Joined: 02 May 2009, 18:12

Re: new quest : SHORT BOW QUEST

Post 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.
<Kage_Jittai> ... are you saying I am elite :D
<thorbjorn> Yes. :P
User avatar
Link , hero of time
Novice
Novice
Posts: 139
Joined: 03 Jan 2010, 15:05
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 »

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: 03 Jan 2010, 15:05
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 »

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