diff options
Diffstat (limited to 'npc/quests')
49 files changed, 15885 insertions, 0 deletions
diff --git a/npc/quests/Lvl4_weapon_quest.txt b/npc/quests/Lvl4_weapon_quest.txt new file mode 100644 index 000000000..ce2af0856 --- /dev/null +++ b/npc/quests/Lvl4_weapon_quest.txt @@ -0,0 +1,3614 @@ +//===== eAthena Script =======================================
+//= Grade A and Grade S weapon quests
+//===== By: ==================================================
+//= Vicious_Pucca, Reddozen & MasterOfMuppets
+//===== Current Version: =====================================
+//= 1.1
+//===== Compatible With: =====================================
+//= eAthena SVN 3422+(Requires jA Script System)
+//===== Description: =========================================
+//= Grade A and Grade S weapon quests
+//===== Additional Comments: =================================
+//= 1.0 First Version, Credits goes to Vicious_Pucca for converting [MasterOfMuppets]
+//= the quest from aegis format to eA format. Also thanks to
+//= reddozen for fixing bugs.
+//= 1.1 Many fixes to spelling, grammar, and sentence order. [Silent]
+//= 1.2 A small fix, thanks to vicious_pucca [MasterOfMuppets]
+//============================================================
+
+//---------------------------------------------------------------
+// Initialize the basic materials for easier reading/conversion
+//---------------------------------------------------------------
+
+- script lv4_weapon_init -1,{
+OnInit:
+ set $@LV4_Citrine, 7295; // 7295,Citrine
+ set $@LV4_Turquoise, 7294; // 7294,Turquoise
+ set $@LV4_Agate, 7291; // 7291,Agate
+
+ set $@LV4_Muscovite, 7292; // 7292,Muscovite
+ set $@LV4_Biotite, 7297; // 7297,Biotite
+ set $@LV4_Pyroxene, 7296; // 7296,Pyroxene
+
+ set $@LV4_Phlogopite, 7290; // 7290,Phlogopite
+ set $@LV4_Olivine, 7289; // 7289,Peridot
+ set $@LV4_Rose_Quartz, 7293; // 7293,Rose_Quartz
+
+ set $@LV4_Gold, 969; // 969,Gold
+ set $@LV4_Steel, 999; // 999,Steel
+ set $@LV4_Emperium, 714; // 714,Emperium
+ set $@LV4_Hammer_Of_Blacksmith, 1005; // 1005,Hammer_of_Blacksmith
+ set $@LV4_Emperium_Anvil, 989; // 989,Emperium_Anvil
+ set $@LV4_Illusion_Flower, 710; // 710,Illusion_Flower
+ end;
+}
+
+//---------------------------------------------------------------
+// Bazo, creates Immaterial Sword, Quadrille and Slash
+//---------------------------------------------------------------
+
+umbala.gat,117,285,3 script Bazo 85,{
+ set @NowWeight, MaxWeight - Weight;
+ if (@NowWeight >= 3000) goto LV4_NOT_OW;
+ mes "- Wait a minute! -";
+ mes "- Currently you are overweight. -";
+ mes "- Please lighten your weight -";
+ mes "- and try again. -";
+ close;
+
+
+LV4_NOT_OW:
+ if(lv4_weapon == 0) goto LV4_0;
+ if(lv4_weapon == 1) goto LV4_1;
+ if(lv4_weapon == 2) goto LV4_2;
+ if(lv4_weapon == 3) goto LV4_2;
+ if(lv4_weapon == 4) goto LV4_2;
+ if(lv4_weapon == 5) goto LV4_5;
+ if(lv4_weapon == 6) goto LV4_5;
+ if(lv4_weapon == 7) goto LV4_5;
+ if(lv4_weapon > 7) goto LV4_7;
+ end; // shouldn't be here
+
+
+LV4_0:
+ mes "[Bazo]";
+ mes "Hello, you are from outside, huh?";
+ mes "I can tell by your appearance.";
+ mes "Pleased to meet you. My name is Bazo Heburiech.";
+ mes "I am also from outside.";
+ next;
+ mes "[Bazo]";
+ mes "We must have been meant to meet each other.";
+ mes "If you don't mind, let me explain about this place for a while.";
+ mes "Umbala is adjacent to Nifflheim, the city of the dead.";
+ mes "Even at a first sight, I knew that";
+ mes "there is something about this village.";
+ next;
+ mes "[Bazo]";
+ mes "Due to that geographical trait,";
+ mes "this village was filled with evil power";
+ mes "that was influenced by the city of the dead.";
+ next;
+ mes "[Bazo]";
+ mes "The local people have learned";
+ mes "to manipulate the evil power for";
+ mes "producing specialties.";
+ next;
+ mes "[Bazo]";
+ mes "While staying here, I also have learned";
+ mes "some recipes. If you bring me materials,";
+ mes "I am willing to show you my skills.";
+ mes "How does that sound?";
+ next;
+
+ switch( select( "Sounds good.", "No, thanks." ) ) {
+ case 1:
+ if(BaseLevel >= 70) goto L4_0_1;
+
+ mes "[Bazo]";
+ mes "Err...I don't think that you are powerful";
+ mes "enough to handle my products.";
+ mes "They are charged with evil power.";
+ next;
+ mes "That means if their owners are not powerful";
+ mes "and not experienced enough,";
+ mes "they will drive the owners insane.";
+ mes "And I cannot do that to my friend.";
+ next;
+ mes "[Bazo]";
+ mes "Therefore, I want you to go back and level up first.";
+ mes "I will gladly expect you to come back when you are ready.";
+ break;
+L4_0_1:
+ mes "[Bazo]";
+ mes "Excellent! Let me tell you";
+ mes "the materials I need. I hope you will write them down.";
+ mes "There is not that many though.";
+ next;
+ mes "[Bazo]";
+ mes "I need 10 Gold, 50 Steel and 10 Emperium";
+ mes "as basic materials...";
+ mes "and you can enchant the product with a certain trait.";
+ mes "For that, I need some rare ores...";
+ next;
+ mes "[Bazo]";
+ mes "Please bring me 30 of either Citrin, Turquoise or Agate.";
+ mes "Each one of them possess their own attribute";
+ mes "and following by the ore you have brought,";
+ mes "my product will possess a special trait.";
+ next;
+ mes "[Bazo]";
+ mes "I wish you good luck...";
+ mes "I will wait for you!";
+
+ set lv4_weapon, 1;
+ break;
+ case 2:
+ mes "[Bazo]";
+ mes "Oh, okay. That is fine with me.";
+ mes "By the way, don't you want to know how evil the city of the dead will be?";
+ mes "I do since that city influences so much of this village";
+ mes "with it's mysterious power, you know.";
+ break;
+ }
+ close;
+
+
+
+//--------------------------------------------------
+//Gold, Steel, Emp Check + Choosing the gem
+//--------------------------------------------------
+LV4_1:
+ if(countitem($@LV4_Gold) < 10) goto LV4_1_FAIL;
+ if(countitem($@LV4_Steel) < 50) goto LV4_1_FAIL;
+ if(countitem($@LV4_Emperium) < 10) goto LV4_1_FAIL;
+
+ mes "[Bazo]";
+ mes "Oh...you have brought all the basic materials.";
+ mes "Now let me check what kind of rare ores";
+ mes "you have brought...";
+ next;
+
+ if (countitem($@LV4_Citrine) >= 30 && countitem($@LV4_Turquoise) >= 30 && countitem($@LV4_Agate) >= 30) goto LV4_1_CTA;
+ if (countitem($@LV4_Citrine) >= 30 && countitem($@LV4_Turquoise) >= 30) goto LV4_1_CT;
+ if (countitem($@LV4_Citrine) >= 30 && countitem($@LV4_Agate) >= 30) goto LV4_1_CA;
+ if (countitem($@LV4_Turquoise) >= 30 && countitem($@LV4_Agate) >= 30) goto LV4_1_TA;
+ if (countitem($@LV4_Citrine) >= 30) goto LV4_1_C;
+ if (countitem($@LV4_Turquoise) >= 30) goto LV4_1_T;
+ if (countitem($@LV4_Agate) >= 30) goto LV4_1_A;
+ goto LV4_1_NOGEM;
+ end;
+
+
+LV4_1_CTA:
+ mes "[Bazo]";
+ mes "Hahaha, I asked you to bring one kind not all of them.";
+ mes "You can only use one kind of ore.";
+ mes "Which one would you like to use?";
+ next;
+
+ switch( select( "Citrine", "Turquoise", "Agate" ) ) {
+ case 1:
+ mes "[Bazo]";
+ mes "Citrin...okay. Before we start,";
+ set @gem, $@LV4_Citrine;
+ set @gemstring$,"Citrine";
+ break;
+ case 2:
+ mes "[Bazo]";
+ mes "Turquoise...okay. Before we start,";
+ set @gem, $@LV4_Turquoise;
+ set @gemstring$,"Turquoise";
+ break;
+ case 3:
+ mes "[Bazo]";
+ mes "Agate....okay. Before we start,";
+ set @gem, $@LV4_Agate;
+ set @gemstring$,"Agate";
+ break;
+ }
+
+ goto LV4_1_PICK;
+ end; // shouldn't be here
+
+
+LV4_1_CT:
+ mes "[Bazo]";
+ mes "Hahaha, I asked you to bring one kind not two.";
+ mes "You can only use one kind of ore.";
+ mes "Which one would you like to use?";
+ next;
+
+ switch( select( "Citrine", "Turquoise" ) ) {
+ case 1:
+ mes "[Bazo]";
+ mes "Citrin...okay. Before we start,";
+ set @gem, $@LV4_Citrine;
+ set @gemstring$,"Citrine";
+ break;
+ case 2:
+ mes "[Bazo]";
+ mes "Turquoise...okay. Before we start,";
+ set @gem, $@LV4_Turquoise;
+ set @gemstring$,"Turquoise";
+ break;
+ }
+
+ goto LV4_1_PICK;
+ end; // shouldn't be here
+
+
+LV4_1_CA:
+ mes "[Bazo]";
+ mes "Hahaha, I asked you to bring one kind not two.";
+ mes "You can only use one kind of ore.";
+ mes "Which one would you like to use?";
+ next;
+
+ switch( select( "Citrine", "Agate" ) ) {
+ case 1:
+ mes "[Bazo]";
+ mes "Citrin...okay. Before we start,";
+ set @gem, $@LV4_Citrine;
+ set @gemstring$,"Citrine";
+ break;
+ case 2:
+ mes "[Bazo]";
+ mes "Agate....okay. Before we start,";
+ set @gem, $@LV4_Agate;
+ set @gemstring$,"Agate";
+ break;
+ }
+
+ goto LV4_1_PICK;
+ end; // shouldn't be here
+
+
+LV4_1_TA:
+ mes "[Bazo]";
+ mes "Hahaha, I asked you to bring one kind not two.";
+ mes "You can only use one kind of ore.";
+ mes "Which one would you like to use?";
+ next;
+
+ switch( select( "Turquoise", "Agate" ) ) {
+ case 1:
+ mes "[Bazo]";
+ mes "Turquoise...okay. Before we start,";
+ set @gem, $@LV4_Turquoise;
+ set @gemstring$,"Turquoise";
+ break;
+ case 2:
+ mes "[Bazo]";
+ mes "Agate....okay. Before we start,";
+ set @gem, $@LV4_Agate;
+ set @gemstring$,"Agate";
+ break;
+ }
+
+ goto LV4_1_PICK;
+ end; // shouldn't be here
+
+
+LV4_1_C:
+ mes "[Bazo]";
+ mes "Citrin...okay. Before we start,";
+ set @gem, $@LV4_Citrine;
+ set @gemstring$,"Citrine";
+ goto LV4_1_PICK;
+ end; // shouldn't be here
+
+
+LV4_1_T:
+ mes "[Bazo]";
+ mes "Turquoise...okay. Before we start,";
+ set @gem, $@LV4_Turquoise;
+ set @gemstring$,"Turquoise";
+ goto LV4_1_PICK;
+ end; // shouldn't be here
+
+
+LV4_1_A:
+ mes "[Bazo]";
+ mes "Agate....okay. Before we start,";
+ set @gem, $@LV4_Agate;
+ set @gemstring$,"Agate";
+ goto LV4_1_PICK;
+ end; // shouldn't be here
+
+
+LV4_1_PICK:
+ mes "we must do one thing first.";
+ mes "That is, testing your luck.";
+ mes "As you already know,";
+ mes "I cannot guarantee you that we will succeed";
+ mes "to make one right away.";
+ next;
+ mes "[Bazo]";
+ mes "If we can raise your luck before we start,";
+ mes "we will be able to succeed.";
+ next;
+ mes "[Bazo]";
+ mes "Now you must be wondering what we";
+ mes "will do in order to increase your luck.";
+ mes "It is simple, we will play a mind-reading game.";
+ mes "I am going to think of one monster among 4 of my favorite ones,";
+ mes "you will guess what the monster is.";
+ next;
+ mes "[Bazo]";
+ mes "You must answer correctly at least";
+ mes "1 out of 5 times. It shouldn't be that difficult.";
+ mes "And if you fail to answer, we must do something else";
+ mes "to drive away your bad luck.";
+ next;
+ mes "[Bazo]";
+ mes "I will take 10 of the special ore you chose.";
+ mes "Well, I understand that it does not sound tempting";
+ mes "but let's think of it this way.";
+ mes "It is much better than wasting 30 ore";
+ mes "by failing to create the item, isn't it?";
+ next;
+ mes "[Bazo]";
+ mes "Okay, now I need some time to prepare...";
+ mes "Talk to you later!";
+
+ if(countitem($@LV4_Gold) < 10) goto LV4_HACK;
+ if(countitem($@LV4_Steel) < 50) goto LV4_HACK;
+ if(countitem($@LV4_Emperium) < 10) goto LV4_HACK;
+ delitem $@LV4_Gold, 10;
+ delitem $@LV4_Steel, 50;
+ delitem $@LV4_Emperium, 10;
+ if(@gem == $@LV4_Citrine) set lv4_weapon, 2;
+ if(@gem == $@LV4_Turquoise) set lv4_weapon, 3;
+ if(@gem == $@LV4_Agate) set lv4_weapon, 4;
+ close;
+
+
+LV4_1_NOGEM:
+ mes "[Bazo]";
+ mes "I seem to recall that I asked you to bring";
+ mes "30 of a special ore, Citrine, Turquoise, or Agate...";
+ mes "And I don't see any of them.";
+ mes "You must have forgot them. Please go get them too.";
+ close;
+
+
+LV4_1_FAIL:
+ mes "[Bazo]";
+ mes "Please bring me 10 Gold, 50 Steel and 10 Emperium";
+ mes "as basic materials...";
+ mes "and you can enchant the product with a certain trait.";
+ mes "For that, I need some rare ores...";
+ next;
+ mes "[Bazo]";
+ mes "Please bring me 30 of either Citrin, Turquoise or Agate.";
+ mes "Each one of them possess their own attribute";
+ mes "and using the ore you have brought,";
+ mes "my product will possess a special trait.";
+ next;
+ mes "[Bazo]";
+ mes "I wish you good luck...";
+ mes "I will wait for you!";
+ close;
+
+
+
+//--------------------------------------------------
+//Guessing Game
+//--------------------------------------------------
+LV4_2:
+ if(lv4_weapon == 2) set @gem, $@LV4_Citrine;
+ if(lv4_weapon == 3) set @gem, $@LV4_Turquoise;
+ if(lv4_weapon == 4) set @gem, $@LV4_Agate;
+ if(countitem(@gem) < 30) goto LV4_2_NOGEM;
+
+ mes "[Bazo]";
+ mes "Ok, you seem to be ready.";
+ mes "Let's get started.";
+ mes "My favorite monsters are Poring,";
+ mes "Hode, Obeaune, and Minorous.";
+ next;
+
+ set @dap, 0;
+ set @correct[0],1;
+ for( set @i, 1; @i <= 5; set @i, @i + 1 ) {
+ mes "[Bazo]";
+
+ if(@i == 1) mes "Here's the 1st question. Guess what monster";
+ if(@i != 1) mes "Alright. Now guess what monster";
+
+ mes "I have in my mind at this moment.";
+ next;
+
+ set @mons, rand(1, 4);
+
+ switch( select( "Poring", "Hode", "Obeaune", "Minorous" ) ) {
+ case 1:
+ set @correct[@i], 1;
+ if(@mons == 1) set @dap, @dap + 1;
+ break;
+
+ case 2:
+ set @correct[@i], 2;
+ if(@mons == 2) set @dap, @dap + 1;
+ break;
+
+ case 3:
+ set @correct[@i], 3;
+ if(@mons == 3) set @dap, @dap + 1;
+ break;
+
+ case 4:
+ set @correct[@i], 4;
+ if(@mons == 4) set @dap, @dap + 1;
+ break;
+ }
+ }
+
+ mes "[Bazo]";
+ mes "Okay, let me give you answers for the questions.";
+ mes "I was thinking of the monsters in the order of";
+ next;
+ mes "[Bazo]";
+
+ for( set @i, 1; @i <= 5; set @i, @i + 1 ) {
+ if(@correct[@i] == 1) mes "Poring";
+ if(@correct[@i] == 2) mes "Hode";
+ if(@correct[@i] == 3) mes "Obeaune";
+ if(@correct[@i] == 4) mes "Minorous";
+ }
+
+ if(@dap < 1) goto LV4_2_FAIL;
+
+ next;
+ mes "[Bazo]";
+ mes "You answered " + @dap + " times!";
+ mes "I must say you're amazing!";
+ mes "As I promised, I will make an Umbala specialty for you.";
+ mes "Please give me some time to prepare.";
+ mes "Talk to you later.";
+
+ if(countitem(@gem) < 30) goto LV4_HACK;
+ delitem @gem, 30;
+ set lv4_weapon, lv4_weapon + 3;
+ close;
+
+
+LV4_2_FAIL:
+ if(countitem(@gem) < 10) goto LV4_HACK;
+ delitem @gem, 10;
+
+ next;
+ mes "[Bazo]";
+ mes "Errr... I don't think you are good at reading";
+ mes "other people's minds. Or you had bad luck, I guess.";
+ mes "We cannot do that again unless";
+ mes "we drive away the bad luck.";
+ mes "Give me 10 " + @gemstring$ + ", that will do the job.";
+ next;
+ mes "[Bazo]";
+ mes "Well...if you want to do this mind-reading game again,";
+ mes "please come back with the materials.";
+ mes "I will wait here for you.";
+ close;
+
+
+LV4_2_NOGEM:
+ mes "[Bazo]";
+ mes "Errr...something doesn't feel right. We lack something...";
+ mes "Will you check the materials that you have brought?";
+ close;
+
+
+
+//--------------------------------------------------
+//Weapon Creation
+//--------------------------------------------------
+LV4_5:
+ mes "[Bazo]";
+ mes "Great... now, let's do it!";
+ mes "Wish me luck...ah, I forgot to tell you this.";
+ mes "I cannot tell you what kind of product it will be. It is so random.";
+ mes "Let's wish that a good thing will come out, okay?";
+ next;
+ mes "- You feel unknown power start gathering in -";
+ mes "- the materials. It seems the materials are -";
+ mes "- absorbing all the evil power in the air. -";
+ next;
+ mes "- Then, the materials start merging into one -";
+ mes "- even though Bazo didn't touch them at all. -";
+ next;
+ mes "[Bazo]";
+ mes "Can you feel that? The materials are gathering";
+ mes "power at their own will.";
+ mes "They are out of my hand now. Let's wait and hope.";
+ next;
+ mes "- After a while, the air becomes calm -";
+ mes "- and you check the result. -";
+ next;
+ mes "[Bazo]";
+ mes "Ooooooh! It is done!";
+ mes "We have succeeded! Ah, it's amazing!";
+ mes "Did I tell you that it is really rare to succeed right away?";
+ mes "Yes, God must have listened to our prayers.";
+ mes "Oh, it is a weapon! It will be very useful to you.";
+ mes "Let's take a closer look...";
+ next;
+
+ mes "[Bazo]";
+
+ switch( lv4_weapon ) {
+ case 5:
+ mes "Immaterial Sword!";
+ getitem 1141, 1; // 1141,Immaterial_Sword
+ break;
+ case 6:
+ mes "it is Slash!";
+ getitem 1526, 1; // 1526,Slash
+ break;
+ case 7:
+ mes "it is Quadrille!";
+ getitem 1527, 1; // 1527,Quadrille
+ break;
+ }
+
+ set lv4_weapon, 0;
+ mes "This sword was born to be yours!";
+ mes "Congratulations and hopefully it will have a good use for you.";
+ next;
+
+ mes "[Bazo]";
+ mes "I feel so gratified. If you wish to have";
+ mes "another one, please feel free to visit me anytime.";
+ mes "Have a good travel!";
+ close;
+
+
+
+//--------------------------------------------------
+//Other Quests
+//--------------------------------------------------
+LV4_7:
+ mes "[Bazo]";
+ mes "Hmm...I feel something strange from you.";
+ mes "I regret to say that there is nothing I can do for you.";
+ mes "I hope you have a safe travel.";
+ close;
+
+
+
+//--------------------------------------------------
+//Hack Attempt
+//--------------------------------------------------
+LV4_HACK:
+ mes "[Bazo]";
+ mes "Hmm. There seems to be a bit of problem.";
+ set lv4_weapon, 0;
+ logmes "[" +strcharinfo(0) + "] tried to hack LV4 quest.";
+ close;
+}
+
+//---------------------------------------------------------------
+// Hibilaithan, creates Mailbreaker, Swordbreaker and Slaughter
+//---------------------------------------------------------------
+
+umbala.gat,163,257,3 script Hibilaithan 785,{
+ if(event_umbala < 3) goto LumWord;
+ set @NowWeight, MaxWeight - Weight;
+ if (@NowWeight >= 3000) goto LV4_NOT_OW;
+ mes "- Wait a minute! -";
+ mes "- Currently you are overweight. -";
+ mes "- Please lighten your weight -";
+ mes "- and try again. -";
+ close;
+
+
+LV4_NOT_OW:
+ if(lv4_weapon == 0) goto LV4_0;
+ if(lv4_weapon == 8) goto LV4_8;
+ if(lv4_weapon == 9) goto LV4_9;
+ if(lv4_weapon == 10) goto LV4_9;
+ if(lv4_weapon == 11) goto LV4_9;
+ if(lv4_weapon == 12) goto LV4_12;
+ if(lv4_weapon == 13) goto LV4_12;
+ if(lv4_weapon == 14) goto LV4_12;
+ if(lv4_weapon < 8) goto LV4_7;
+ if(lv4_weapon > 14) goto LV4_7;
+ end; // shouldn't be here
+
+
+LumWord:
+ mes "[Hibilaithan]";
+ mes "Umba! Umbaba...umum! Baumba!";
+ mes "Umumumbababaumumbabaumba!";
+ mes "Umbaumbaumbaumbaumhah!";
+ mes "Umumumumumbababababab!";
+ close;
+
+
+LV4_0:
+ mes "[Hibilaithan]";
+ mes "Haha, yeah, I knew this day would come.";
+ mes "Finally people recognize my value";
+ mes "as the best artisan in Umbala!";
+ next;
+ mes "[Hibilaithan]";
+ mes "Okay, let's talk straight.";
+ mes "I, Hibilaithan shall craft something nice";
+ mes "if you bring me materials!";
+ mes "Hahahahahaha!";
+ next;
+ mes "[Hibilaithan]";
+ mes "Eh? What? You didn't come to see me?";
+ mes "Stop joking around...Don't play me for a fool!";
+ mes "People are too shy to tell the truth nowadays!";
+ mes "Let's be honest and tell me if you want it or not.";
+ next;
+
+ switch( select( "...okay.", "...sorry, I don't need it!" ) ) {
+ case 1:
+ if(BaseLevel >= 70) goto L4_0_1;
+
+ mes "[Hibilaithan]";
+ mes "...what a shame! I regret to tell you this,";
+ mes "but your spirit is too weak";
+ mes "to handle the power of my stuff!";
+ mes "This is not good, not good at all!";
+ mes "Go and train yourself first.";
+ mes "When you become strong, you may come back!";
+ break;
+L4_0_1:
+ mes "[Hibilaithan]";
+ mes "Great! I like your attitute! Great, great!";
+ mes "I am going to tell you what I need.";
+ mes "It is not much, so do not forget.";
+ next;
+ mes "[Hibilaithan]";
+ mes "Bring me 10 Gold, 50 Steel and 10 Emperium";
+ mes "... as basic materials.";
+ mes "And I need some rare ores to endow power...";
+ next;
+ mes "[Hibilaithan]";
+ mes "Bring me 30 of one ore among Muscovite, Biotite or Pyroxene.";
+ mes "Remember you are going to bring 30 of one ore.";
+ mes "I cannot pick one among those because I am";
+ mes "not sure what will come out. Heh.";
+ next;
+ mes "[Hibilaithan]";
+ mes "Okay, wish you good luck!";
+ mes "Meanwhile I am going to chill here.";
+
+ set lv4_weapon, 8;
+ break;
+ case 2:
+ mes "[Hibilaithan]";
+ mes "Bah~ what are you afraid of?";
+ mes "I am just trying to do you a favor, you know?";
+ mes "Alright, it is your call.";
+ mes "But if you change your mind,";
+ mes "feel free to come back.";
+ break;
+ }
+ close;
+
+
+
+//--------------------------------------------------
+//Gold, Steel, Emp Check + Choosing the gem
+//--------------------------------------------------
+LV4_8:
+ if(countitem($@LV4_Gold) < 10) goto LV4_8_FAIL;
+ if(countitem($@LV4_Steel) < 50) goto LV4_8_FAIL;
+ if(countitem($@LV4_Emperium) < 10) goto LV4_8_FAIL;
+
+ mes "[Hibilaithan]";
+ mes "Oh...you have brought all the basic materials.";
+ mes "Now let me check what kind of rare ores";
+ mes "you have brought...";
+ next;
+
+ if (countitem($@LV4_Muscovite) >= 30 && countitem($@LV4_Biotite) >= 30 && countitem($@LV4_Pyroxene) >= 30) goto LV4_8_MBP;
+ if (countitem($@LV4_Muscovite) >= 30 && countitem($@LV4_Biotite) >= 30) goto LV4_8_MB;
+ if (countitem($@LV4_Muscovite) >= 30 && countitem($@LV4_Pyroxene) >= 30) goto LV4_8_MP;
+ if (countitem($@LV4_Biotite) >= 30 && countitem($@LV4_Pyroxene) >= 30) goto LV4_8_BP;
+ if (countitem($@LV4_Muscovite) >= 30) goto LV4_8_M;
+ if (countitem($@LV4_Biotite) >= 30) goto LV4_8_B;
+ if (countitem($@LV4_Pyroxene) >= 30) goto LV4_8_P;
+ goto LV4_8_NOGEM;
+ end;
+
+
+LV4_8_MBP:
+ mes "[Hibilaithan]";
+ mes "Gosh, did you brought all three kinds?";
+ mes "Hahaha, it's fine.";
+ mes "But we cannot use all of them this time.";
+ mes "Pick one that you want to use.";
+ next;
+
+ switch( select( "Muscovite", "Biotite", "Pyroxene" ) ) {
+ case 1:
+ mes "[Hibilaithan]";
+ mes "Muscovite...okay. Before we start,";
+ set @gem, $@LV4_Muscovite;
+ set @gemstring$,"Muscovite";
+ break;
+ case 2:
+ mes "[Hibilaithan]";
+ mes "Biotite...okay. Before we start,";
+ set @gem, $@LV4_Biotite;
+ set @gemstring$,"Biotite";
+ break;
+ case 3:
+ mes "[Hibilaithan]";
+ mes "Pyroxene....okay. Before we start,";
+ set @gem, $@LV4_Pyroxene;
+ set @gemstring$,"Pyroxene";
+ break;
+ }
+
+ goto LV4_8_PICK;
+ end; // shouldn't be here
+
+
+LV4_8_MB:
+ mes "[Hibilaithan]";
+ mes "Hahaha, I asked you to bring one kind not two.";
+ mes "You can only use one kind of ore.";
+ mes "Which one would you like to use?";
+ next;
+
+ switch( select( "Muscovite", "Biotite" ) ) {
+ case 1:
+ mes "[Hibilaithan]";
+ mes "Muscovite...okay. Before we start,";
+ set @gem, $@LV4_Muscovite;
+ set @gemstring$,"Muscovite";
+ break;
+ case 2:
+ mes "[Hibilaithan]";
+ mes "Biotite...okay. Before we start,";
+ set @gem, $@LV4_Biotite;
+ set @gemstring$,"Biotite";
+ break;
+ }
+
+ goto LV4_8_PICK;
+ end; // shouldn't be here
+
+
+LV4_8_MP:
+ mes "[Hibilaithan]";
+ mes "Hahaha, I asked you to bring one kind not two.";
+ mes "You can only use one kind of ore.";
+ mes "Which one would you like to use?";
+ next;
+
+ switch( select( "Muscovite", "Pyroxene" ) ) {
+ case 1:
+ mes "[Hibilaithan]";
+ mes "Muscovite...okay. Before we start,";
+ set @gem, $@LV4_Muscovite;
+ set @gemstring$,"Muscovite";
+ break;
+ case 2:
+ mes "[Hibilaithan]";
+ mes "Pyroxene....okay. Before we start,";
+ set @gem, $@LV4_Pyroxene;
+ set @gemstring$,"Pyroxene";
+ break;
+ }
+
+ goto LV4_8_PICK;
+ end; // shouldn't be here
+
+
+LV4_8_BP:
+ mes "[Hibilaithan]";
+ mes "Hahaha, I asked you to bring one kind not two.";
+ mes "You can only use one kind of ore.";
+ mes "Which one would you like to use?";
+ next;
+
+ switch( select( "Biotite", "Pyroxene" ) ) {
+ case 1:
+ mes "[Hibilaithan]";
+ mes "Biotite...okay. Before we start,";
+ set @gem, $@LV4_Biotite;
+ set @gemstring$,"Biotite";
+ break;
+ case 2:
+ mes "[Hibilaithan]";
+ mes "Pyroxene....okay. Before we start,";
+ set @gem, $@LV4_Pyroxene;
+ set @gemstring$,"Pyroxene";
+ break;
+ }
+
+ goto LV4_8_PICK;
+ end; // shouldn't be here
+
+
+LV4_8_M:
+ mes "[Hibilaithan]";
+ mes "Muscovite...okay. Before we start,";
+ set @gem, $@LV4_Muscovite;
+ set @gemstring$,"Muscovite";
+ goto LV4_8_PICK;
+ end; // shouldn't be here
+
+
+LV4_8_B:
+ mes "[Hibilaithan]";
+ mes "Biotite...okay. Before we start,";
+ set @gem, $@LV4_Biotite;
+ set @gemstring$,"Biotite";
+ goto LV4_8_PICK;
+ end; // shouldn't be here
+
+
+LV4_8_P:
+ mes "[Hibilaithan]";
+ mes "Pyroxene....okay. Before we start,";
+ set @gem, $@LV4_Pyroxene;
+ set @gemstring$,"Pyroxene";
+ goto LV4_8_PICK;
+ end; // shouldn't be here
+
+
+LV4_8_PICK:
+ mes "we must do one thing first.";
+ mes "That is, to test your luck.";
+ mes "As you already know,";
+ mes "I cannot guarantee you that we will succeed";
+ mes "to make one right away.";
+ next;
+ mes "[Hibilaithan]";
+ mes "If we can raise your luck before we start,";
+ mes "we will be able to succeed.";
+ next;
+ mes "[Hibilaithan]";
+ mes "Now you must be wondering what we";
+ mes "will do in order to increase your luck.";
+ mes "It is simple, we will play a mind-reading game.";
+ mes "I am going to think of one monster among 4 of my favorites,";
+ mes "you will guess what that monster is.";
+ next;
+ mes "[Hibilaithan]";
+ mes "You must answer correctly at least";
+ mes "1 out of 5 times. It should not be that difficult.";
+ mes "And if you fail to answer, we must do something else";
+ mes "to drive away your bad luck.";
+ next;
+ mes "[Hibilaithan]";
+ mes "I will take 10 of the special ore you have chose.";
+ mes "Well, I understand that it does not sound tempting";
+ mes "but let's think of it this way.";
+ mes "It is much better than wasting 30 ore";
+ mes "by failing to create the item, isn't it?";
+ next;
+ mes "[Hibilaithan]";
+ mes "Okay, now I need some time to prepare...";
+ mes "Talk to you later!";
+
+ if(countitem($@LV4_Gold) < 10) goto LV4_HACK;
+ if(countitem($@LV4_Steel) < 50) goto LV4_HACK;
+ if(countitem($@LV4_Emperium) < 10) goto LV4_HACK;
+ delitem $@LV4_Gold, 10;
+ delitem $@LV4_Steel, 50;
+ delitem $@LV4_Emperium, 10;
+ if(@gem == $@LV4_Muscovite) set lv4_weapon, 9;
+ if(@gem == $@LV4_Biotite) set lv4_weapon, 10;
+ if(@gem == $@LV4_Pyroxene) set lv4_weapon, 11;
+ close;
+
+
+LV4_8_NOGEM:
+ mes "[Hibilaithan]";
+ mes "I seem to recall that I asked you to bring";
+ mes "30 of a special ore among Muscovite, Biotite or Pyroxene...";
+ mes "And I don't see any of them.";
+ mes "You must have forgot that. Please go get them too.";
+ close;
+
+
+LV4_8_FAIL:
+ mes "[Hibilaithan]";
+ mes "Please bring me 10 Gold, 50 Steel and 10 Emperium";
+ mes "as basic materials...";
+ mes "and you can enchant the product with a certain trait.";
+ mes "For that, I need some rare ores...";
+ next;
+ mes "[Hibilaithan]";
+ mes "Please bring me 30 of an ore among Citrin, Biotite or Pyroxene.";
+ mes "Each one of them possess their own attributes";
+ mes "and by using the ore you have brought,";
+ mes "my product will possess a special trait.";
+ next;
+ mes "[Hibilaithan]";
+ mes "I wish you good luck...";
+ mes "I will wait for you!";
+ close;
+
+
+
+//--------------------------------------------------
+//Guessing Game
+//--------------------------------------------------
+LV4_9:
+ if(lv4_weapon == 9) set @gem, $@LV4_Muscovite;
+ if(lv4_weapon == 10) set @gem, $@LV4_Biotite;
+ if(lv4_weapon == 11) set @gem, $@LV4_Pyroxene;
+ if(countitem(@gem) < 30) goto LV4_9_NOGEM;
+
+ mes "[Hibilaithan]";
+ mes "Okay, let's get started!";
+ mes "It is simple. There are";
+ mes "4 monsters that I like. I am going to think";
+ mes "of a monster among the 4, you will guess what it is.";
+ mes "We will play this game 5 times and you must";
+ mes "answer correctly at least 1 out of 5 times. Doesn't that sound easy?";
+ next;
+ mes "[Hibilaithan]";
+ mes "This is a very good game for";
+ mes "increasing your luck!";
+ mes "Okay, you better be ready now.";
+ next;
+
+ set @dap, 0;
+ set @correct[0],1;
+ for( set @i, 1; @i <= 5; set @i, @i + 1 ) {
+ mes "[Hibilaithan]";
+
+ if(@i == 1) mes "I like Zealotus, Alice,";
+ if(@i == 1) mes "Munak, and Isis among all monsters.";
+
+ mes "Now, guess which one";
+ mes "I am thinking of at this moment.";
+ next;
+
+ set @mons, rand(1, 4);
+
+ switch( select( "Zhertilsh", "Alice", "Munak", "Isis" ) ) {
+ case 1:
+ set @correct[@i], 1;
+ if(@mons == 1) set @dap, @dap + 1;
+ break;
+
+ case 2:
+ set @correct[@i], 2;
+ if(@mons == 2) set @dap, @dap + 1;
+ break;
+
+ case 3:
+ set @correct[@i], 3;
+ if(@mons == 3) set @dap, @dap + 1;
+ break;
+
+ case 4:
+ set @correct[@i], 4;
+ if(@mons == 4) set @dap, @dap + 1;
+ break;
+ }
+ }
+
+ mes "[Hibilaithan]";
+ mes "Okay, that's all! Now let me";
+ mes "check the answers. I was thinking";
+ mes "monsters in the order of...";
+ next;
+ mes "[Hibilaithan]";
+
+ for( set @i, 1; @i <= 5; set @i, @i + 1 ) {
+ if(@correct[@i] == 1) mes "Zhertilsh";
+ if(@correct[@i] == 2) mes "Alice";
+ if(@correct[@i] == 3) mes "Munak";
+ if(@correct[@i] == 4) mes "Isis";
+ }
+
+ if(@dap < 1) goto LV4_9_FAIL;
+
+ next;
+ mes "[Hibilaithan]";
+ mes "Wow, are you a mind reader or what?";
+ mes "You answered " + @dap + " times correctly! Whoa...";
+ mes "I guess you are already a lucky one,";
+ mes "therefore we don't have any reason";
+ mes "to prolong the work now!";
+ mes "I need some time to prepare, talk to you later!";
+
+ if(countitem(@gem) < 30) goto LV4_HACK;
+ delitem @gem, 30;
+ set lv4_weapon, lv4_weapon + 3;
+ close;
+
+
+LV4_9_FAIL:
+ if(countitem(@gem) < 10) goto LV4_HACK;
+ delitem @gem, 10;
+
+ next;
+ mes "[Hibilaithan]";
+ mes "This is not good, not good at all!";
+ mes "You didn't even have a correct answer.";
+ mes "We cannot start the work with this kind of result.";
+ mes "Okay...we must drive away your bad luck first.";
+ mes "10 " + @gemstring$ + " will do it!";
+ next;
+ mes "[Hibilaithan]";
+ mes "Now, we need to play the game again.";
+ mes "If you don't anymore ore, go get some.";
+ mes "I am not going anywhere";
+ mes "so you don't need to be in hurry.";
+ mes "Take your time!";
+ close;
+
+
+LV4_9_NOGEM:
+ mes "[Hibilaithan]";
+ mes "Hum. You might lack of";
+ mes "materials? Check them again.";
+ mes "See. I knew it.";
+ close;
+
+
+
+//--------------------------------------------------
+//Weapon Creation
+//--------------------------------------------------
+LV4_12:
+ mes "[Hibilaithan]";
+ mes "Ah, I can tell you are ready. Alright...";
+ mes "I will try to make an awsome item for you.";
+ mes "...and you are not going to look over my shoulder!";
+ mes "I don't want to share my secret recipe with anyone!";
+ next;
+ mes "- Hibilaithan picks up all the materials -";
+ mes "- and turns his back at you. -";
+ mes "- You see him busying himself with something. -";
+ mes "- Although the way he is doing it -";
+ mes "- looks very primitive and crude, -";
+ mes "- you feel that some strange energy has gathered around him. -";
+ next;
+ mes "[Hibilaithan]";
+ mes "Umm~ umm~ umm~";
+ mes "Aww~aww~ aww~";
+ mes "Phew~ phew~ phew~";
+ mes "Woo~ woo~ woo~";
+ mes "Ho~ ho~ ho~";
+ next;
+ mes "[Hibilaithan]";
+ mes " ";
+ mes " ";
+ mes "Haha, there it is! Phew, that was really hard...";
+ mes "You're anxious, aren't you? Ok, let's see...";
+ next;
+
+ mes "[Hibilaithan]";
+ mes "It's a big success! Hahaha, sure, I made it...";
+ mes "Therefore, it should be a big success.";
+ mes "Oh, you got a weapon here...let's see,";
+
+ switch( lv4_weapon ) {
+ case 12:
+ mes "it is a Mailbreaker!";
+ getitem 1225, 1; // 1225,Mail_Breaker
+ break;
+ case 13:
+ mes "it is a Swordbreaker!";
+ getitem 1224, 1; // 1224,Sword_Breaker
+ break;
+ case 14:
+ mes "it is a Slaughter!";
+ getitem 1367, 1; // 1367,Slaughter
+ break;
+ }
+
+ set lv4_weapon, 0;
+ mes "This was made competely because I am that skillful,";
+ mes "you got to be thankful for that!";
+ next;
+
+ mes "[Hibilaithan]";
+ mes "Whenever you want to have a nice thing,";
+ mes "come back to me anytime!";
+ mes "I am a very generous genius, you know?";
+ mes "Always be thankful for the weapon that I made for you, okay?";
+ mes "See you!";
+ close;
+
+
+
+//--------------------------------------------------
+//Other Quests
+//--------------------------------------------------
+LV4_7:
+ mes "[Hibilaithan]";
+ mes "Hmm...I feel something strange from you.";
+ mes "I regret to say that there is nothing I can do for you.";
+ mes "I hope you have a safe travel.";
+ close;
+
+
+
+//--------------------------------------------------
+//Hack Attempt
+//--------------------------------------------------
+LV4_HACK:
+ mes "[Hibilaithan]";
+ mes "Hmm. There seems to be a bit of problem.";
+ set lv4_weapon, 0;
+ logmes "[" +strcharinfo(0) + "] tried to hack LV4 quest.";
+ close;
+}
+
+//--------------------------------------------------
+// Tabezthan, creates Talefing, Sabbath and Caesar's Sword
+//--------------------------------------------------
+
+um_in.gat,156,77,5 script Tabezthan 788,{
+ if(event_umbala < 3) goto LumWord;
+ set @NowWeight, MaxWeight - Weight;
+ if (@NowWeight >= 3000) goto LV4_NOT_OW;
+ mes "- Wait a minute! -";
+ mes "- You are currently overweight. -";
+ mes "- Please lose some weight -";
+ mes "- and try again. -";
+ close;
+
+
+LV4_NOT_OW:
+ if(lv4_weapon == 0) goto LV4_0;
+ if(lv4_weapon == 15) goto LV4_15;
+ if(lv4_weapon == 16) goto LV4_16;
+ if(lv4_weapon == 17) goto LV4_16;
+ if(lv4_weapon == 18) goto LV4_16;
+ if(lv4_weapon == 19) goto LV4_19;
+ if(lv4_weapon == 20) goto LV4_19;
+ if(lv4_weapon == 21) goto LV4_19;
+ if(lv4_weapon < 15) goto LV4_14;
+ if(lv4_weapon > 21) goto LV4_14;
+ end; // shouldn't be here
+
+
+LumWord:
+ mes "[Tabezthan]";
+ mes "Umba! Umbaba...umum! Baumba!";
+ mes "Umumumbababaumumbabaumba!";
+ mes "Umbaumbaumbaumbaumhah!";
+ mes "Umumumumumbababababab!";
+ close;
+
+
+LV4_0:
+ mes "[Tabezthan]";
+ mes "Hmm...I feel something different about you...";
+ mes "You are a stranger...aren't you?";
+ next;
+ mes "[Tabezthan]";
+ mes "Let me introduce myself.";
+ mes "I am Tabezthan,";
+ mes "the storage of the knowledge and the genius of Umbala...";
+ mes "Hahahaha.";
+ next;
+ mes "[Tabezthan]";
+ mes "I have two diciples. One is Hibilaithan the fool";
+ mes "and the other one is Bazo who is intelligent";
+ mes "and is from outside the same as you.";
+ next;
+ mes "[Tabezthan]";
+ mes "Of course both of them are talented and skillful";
+ mes "but I am worried about Hibilaithan, for he";
+ mes "makes many stupid mistakes and is shameless";
+ mes "for what he has done.";
+ next;
+ mes "[Tabezthan]";
+ mes "I have tought them how to manipulate";
+ mes "the mysterious energy existing in Umbala";
+ mes "for creating things with it..";
+ mes "I heard that there is a similar skill called Alchemy";
+ mes "in the outside world. Although I am not sure if I remember it correctly.";
+ next;
+ mes "[Tabezthan]";
+ mes "Anyways, would you like to see my skill?";
+ mes "If so, bring me materials I need,";
+ mes "I am more than willing to present my skill for you.";
+ next;
+
+ switch( select( "Yes, please.", "No, thank you." ) ) {
+ case 1:
+ if(BaseLevel >= 70) goto L4_0_1;
+
+ mes "[Tabezthan]";
+ mes "Sebelumnya saya harus menekankan ini";
+ mes "Barang spesial ini akan menjadi berbahaya jika kamu sendiri masih lemah";
+ mes "Kamu harus lebih berpengalaman lagi anak muda";
+ mes "Naikan level kamu terlebih dahulu";
+ mes "jika kamu sudah merasa kuat kembalilah kesini kembali";
+ mes "Sampai jumpa ~~";
+ break;
+L4_0_1:
+ mes "[Tabezthan]";
+ mes "One with curiousity...he is called the young adventurer...";
+ mes "Fine. Then let me inform you of";
+ mes "the matetrials I need. Please memorize them";
+ mes "or write them down.";
+ mes "It is not much however.";
+ next;
+ mes "[Tabezthan]";
+ mes "I need 10 Gold, 50 Steel and 10 Emperium";
+ mes "as basic materials...";
+ mes "and you can enchant the product with a certain trait.";
+ mes "For that, I need some rare ores...";
+ next;
+ mes "[Tabezthan]";
+ mes "Please bring me 30 of an ore among Phlogopite, Peridot or Rose Quartz.";
+ mes "Each one of them possess their own attribute";
+ mes "and by using the ore you have brought,";
+ mes "my product will possess a special trait.";
+ next;
+ mes "[Tabezthan]";
+ mes "However, please be aware that";
+ mes "I cannot guarantee what will come out as a result.";
+ mes "There are too many factors in the world of alchemy";
+ mes "where my knowledge is limited.";
+ mes "So you must be willing to accept the result as it is";
+ mes "even if it does not satisfy your expectations.";
+ next;
+ mes "[Tabezthan]";
+ mes "That means that you should place trust in luck.";
+ mes "Let's talk about it later...please go prepare the materials first.";
+ mes "Come back when you are ready.";
+ mes "I will wait here.";
+
+ set lv4_weapon, 15;
+ break;
+ case 2:
+ mes "[Tabezthan]";
+ mes "Oh...I see. I was not forcing you anyhow.";
+ mes "However, it is a little bit dissappointing to hear that.";
+ mes "I was going to display my ability at full length.";
+ mes "When you change your mind, please come back.";
+ break;
+ }
+ close;
+
+
+
+//--------------------------------------------------
+//Gold, Steel, Emp Check + Choosing the gem
+//--------------------------------------------------
+LV4_15:
+ if(countitem($@LV4_Gold) < 10) goto LV4_15_FAIL;
+ if(countitem($@LV4_Steel) < 50) goto LV4_15_FAIL;
+ if(countitem($@LV4_Emperium) < 10) goto LV4_15_FAIL;
+
+ mes "[Tabezthan]";
+ mes "Ah~ you came back ealier than I thought.";
+ mes "Let's see...you have all the basic materials...and";
+ mes "we need one more thing, remember?";
+ mes "Did you bring it as well?";
+ next;
+
+ if (countitem($@LV4_Phlogopite) >= 30 && countitem($@LV4_Olivine) >= 30 && countitem($@LV4_Rose_Quartz) >= 30) goto LV4_15_POR;
+ if (countitem($@LV4_Phlogopite) >= 30 && countitem($@LV4_Olivine) >= 30) goto LV4_15_PO;
+ if (countitem($@LV4_Phlogopite) >= 30 && countitem($@LV4_Rose_Quartz) >= 30) goto LV4_15_PR;
+ if (countitem($@LV4_Olivine) >= 30 && countitem($@LV4_Rose_Quartz) >= 30) goto LV4_15_PR;
+ if (countitem($@LV4_Phlogopite) >= 30) goto LV4_15_P;
+ if (countitem($@LV4_Olivine) >= 30) goto LV4_15_O;
+ if (countitem($@LV4_Rose_Quartz) >= 30) goto LV4_15_R;
+ goto LV4_15_NOGEM;
+ end;
+
+
+LV4_15_POR:
+ mes "[Tabezthan]";
+ mes "You made a great effort to bring all of them.";
+ mes "However, you can only use one kind at a time.";
+ mes "Please choose what you want to use this time.";
+ next;
+
+ switch( select( "Phlogopite", "Peridot", "Rose Quartz" ) ) {
+ case 1:
+ mes "[Tabezthan]";
+ mes "Phlogopite...okay. Before we start,";
+ set @gem, $@LV4_Phlogopite;
+ set @gemstring$,"Phlogopite";
+ break;
+ case 2:
+ mes "[Tabezthan]";
+ mes "Peridot...okay. Before we start,";
+ set @gem, $@LV4_Olivine;
+ set @gemstring$,"Peridot";
+ break;
+ case 3:
+ mes "[Tabezthan]";
+ mes "Rose Quartz....okay. Before we start,";
+ set @gem, $@LV4_Rose_Quartz;
+ set @gemstring$,"Rose Quartz";
+ break;
+ }
+
+ goto LV4_15_PICK;
+ end; // shouldn't be here
+
+
+LV4_15_PO:
+ mes "[Tabezthan]";
+ mes "Hahaha, I asked you to bring one kind not two.";
+ mes "You can only use one kind of ore.";
+ mes "Which one would you like to use?";
+ next;
+
+ switch( select( "Phlogopite", "Peridot" ) ) {
+ case 1:
+ mes "[Tabezthan]";
+ mes "Phlogopite...okay. Before we start,";
+ set @gem, $@LV4_Phlogopite;
+ set @gemstring$,"Phlogopite";
+ break;
+ case 2:
+ mes "[Tabezthan]";
+ mes "Peridot...okay. Before we start,";
+ set @gem, $@LV4_Olivine;
+ set @gemstring$,"Peridot";
+ break;
+ }
+
+ goto LV4_15_PICK;
+ end; // shouldn't be here
+
+
+LV4_15_PR:
+ mes "[Tabezthan]";
+ mes "Hahaha, I asked you to bring one kind not two.";
+ mes "You can only use one kind of ore.";
+ mes "Which one would you like to use?";
+ next;
+
+ switch( select( "Phlogopite", "Rose Quartz" ) ) {
+ case 1:
+ mes "[Tabezthan]";
+ mes "Phlogopite...okay. Before we start,";
+ set @gem, $@LV4_Phlogopite;
+ set @gemstring$,"Phlogopite";
+ break;
+ case 2:
+ mes "[Tabezthan]";
+ mes "Rose Quartz....okay. Before we start,";
+ set @gem, $@LV4_Rose_Quartz;
+ set @gemstring$,"Rose Quartz";
+ break;
+ }
+
+ goto LV4_15_PICK;
+ end; // shouldn't be here
+
+
+LV4_15_OR:
+ mes "[Tabezthan]";
+ mes "Hahaha, I asked you to bring one kind not two.";
+ mes "You can only use one kind of ore.";
+ mes "Which one would you like to use?";
+ next;
+
+ switch( select( "Peridot", "Rose Quartz" ) ) {
+ case 1:
+ mes "[Tabezthan]";
+ mes "Peridot...okay. Before we start,";
+ set @gem, $@LV4_Olivine;
+ set @gemstring$,"Peridot";
+ break;
+ case 2:
+ mes "[Tabezthan]";
+ mes "Rose Quartz....okay. Before we start,";
+ set @gem, $@LV4_Rose_Quartz;
+ set @gemstring$,"Rose Quartz";
+ break;
+ }
+
+ goto LV4_15_PICK;
+ end; // shouldn't be here
+
+
+LV4_15_P:
+ mes "[Tabezthan]";
+ mes "Phlogopite...okay. Before we start,";
+ set @gem, $@LV4_Phlogopite;
+ set @gemstring$,"Phlogopite";
+ goto LV4_15_PICK;
+ end; // shouldn't be here
+
+
+LV4_15_O:
+ mes "[Tabezthan]";
+ mes "Peridot...okay. Before we start,";
+ set @gem, $@LV4_Olivine;
+ set @gemstring$,"Peridot";
+ goto LV4_15_PICK;
+ end; // shouldn't be here
+
+
+LV4_15_R:
+ mes "[Tabezthan]";
+ mes "Rose Quartz....okay. Before we start,";
+ set @gem, $@LV4_Rose_Quartz;
+ set @gemstring$,"Rose Quartz";
+ goto LV4_15_PICK;
+ end; // shouldn't be here
+
+
+LV4_15_PICK:
+ mes "we must do one thing first.";
+ mes "That is, to test your luck.";
+ mes "As you already know,";
+ mes "I cannot guarantee you that we will succeed";
+ mes "in makeing one right away.";
+ next;
+ mes "[Tabezthan]";
+ mes "If we can raise your luck before we start,";
+ mes "we will be able to succeed.";
+ next;
+ mes "[Tabezthan]";
+ mes "Now you must be wondering what we";
+ mes "will do in order to increase your luck.";
+ mes "It is simple, we will play a mind-reading game.";
+ mes "I am going to think of one monster among 4 of my favorites,";
+ mes "you will guess what the monster is.";
+ next;
+ mes "[Tabezthan]";
+ mes "You must answer correctly at least";
+ mes "1 out of 5 times. It should not be that difficult.";
+ mes "And if you fail to answer correctly, we must do something else";
+ mes "to drive away your bad luck.";
+ next;
+ mes "[Tabezthan]";
+ mes "I will take 10 of the special ore you chose.";
+ mes "Well, I understand that it does not sound tempting";
+ mes "but let's think of it this way.";
+ mes "It is much better than wasting 30 ore";
+ mes "by failing to create the item, isn't it?";
+ next;
+ mes "[Tabezthan]";
+ mes "Okay, now I need some time to prepare...";
+ mes "Talk to you later!";
+
+ if(countitem($@LV4_Gold) < 10) goto LV4_HACK;
+ if(countitem($@LV4_Steel) < 50) goto LV4_HACK;
+ if(countitem($@LV4_Emperium) < 10) goto LV4_HACK;
+ delitem $@LV4_Gold, 10;
+ delitem $@LV4_Steel, 50;
+ delitem $@LV4_Emperium, 10;
+ if(@gem == $@LV4_Phlogopite) set lv4_weapon, 16;
+ if(@gem == $@LV4_Olivine) set lv4_weapon, 17;
+ if(@gem == $@LV4_Rose_Quartz) set lv4_weapon, 18;
+ close;
+
+
+LV4_15_NOGEM:
+ mes "[Tabezthan]";
+ mes "Hmmm...I cannot find any rare ores in";
+ mes "the materials that you have brought...";
+ mes "Please bring me 30 of an ore among Phlogopite, Peridot";
+ mes "or Rose Quartz.";
+ close;
+
+
+LV4_15_FAIL:
+ mes "[Tabezthan]";
+ mes "I need 10 Gold, 50 Steel and 10 Emperium";
+ mes "as basic materials...";
+ mes "and you can enchant the product with a certain trait.";
+ mes "For that, I need some rare ores...";
+ next;
+ mes "[Tabezthan]";
+ mes "Please bring me 30 of an ore among Phlogopite, Peridot or Rose Quartz.";
+ mes "Each one of them possess their own attribute";
+ mes "and by using the ore you have brought,";
+ mes "my product will possess a special trait.";
+ close;
+
+
+
+//--------------------------------------------------
+//Guessing Game
+//--------------------------------------------------
+LV4_16:
+ if(lv4_weapon == 16) set @gem, $@LV4_Phlogopite;
+ if(lv4_weapon == 17) set @gem, $@LV4_Olivine;
+ if(lv4_weapon == 18) set @gem, $@LV4_Rose_Quartz;
+ if(countitem(@gem) < 30) goto LV4_2_NOGEM;
+
+ mes "[Tabezthan]";
+ mes "Okay, let's get started!";
+ mes "It is simple. There are";
+ mes "4 monsters that I like. I am going to think";
+ mes "of a monster among the 4, you will guess what it is.";
+ mes "We will play this game 5 times and you must";
+ mes "answer correctly at least 1 out of 5 times. Doesn't it sound easy?";
+ next;
+ mes "[Hibilaithan]";
+ mes "This is a very good game for";
+ mes "increasing your luck!";
+ mes "Okay, better be ready now.";
+ next;
+
+ set @dap, 0;
+ set @correct[0],1;
+ for( set @i, 1; @i <= 5; set @i, @i + 1 ) {
+ mes "[Tabezthan]";
+
+ if(@i == 1) mes "I like Baphomet, Dark Lord,";
+ if(@i == 1) mes "Bloody Knight, and Stormy Knight among all monsters.";
+
+ mes "Now, guess which one";
+ mes "I am thinking at this moment.";
+ next;
+
+ set @mons, rand(1, 4);
+
+ switch( select( "Baphomet", "Dark Lord", "Bloody Knight", "Stormy Knight" ) ) {
+ case 1:
+ set @correct[@i], 1;
+ if(@mons == 1) set @dap, @dap + 1;
+ break;
+
+ case 2:
+ set @correct[@i], 2;
+ if(@mons == 2) set @dap, @dap + 1;
+ break;
+
+ case 3:
+ set @correct[@i], 3;
+ if(@mons == 3) set @dap, @dap + 1;
+ break;
+
+ case 4:
+ set @correct[@i], 4;
+ if(@mons == 4) set @dap, @dap + 1;
+ break;
+ }
+ }
+
+ mes "[Tabezthan]";
+ mes "Okay, that's all! Now let me check";
+ mes "the answers. I was thinking";
+ mes "of the monsters in the order of...";
+ next;
+ mes "[Tabezthan]";
+
+ for( set @i, 1; @i <= 5; set @i, @i + 1 ) {
+ if(@correct[@i] == 1) mes "Baphomet";
+ if(@correct[@i] == 2) mes "Dark Lord";
+ if(@correct[@i] == 3) mes "Bloody Knight";
+ if(@correct[@i] == 4) mes "Stormy Knight";
+ }
+
+ if(@dap < 1) goto LV4_16_FAIL;
+
+ next;
+ mes "[Tabezthan]";
+ mes "You have answered " + @dap + " times correctly.";
+ mes "It seems that your luck is at its highest.";
+ mes "I need some time to prepare, talk to you later.";
+
+ if(countitem(@gem) < 30) goto LV4_HACK;
+ delitem @gem, 30;
+ set lv4_weapon, lv4_weapon + 3;
+ close;
+
+
+LV4_16_FAIL:
+ if(countitem(@gem) < 10) goto LV4_HACK;
+ delitem @gem, 10;
+
+ next;
+ mes "[Tabezthan]";
+ mes "Unfortunately you have failed...";
+ mes "When you have bad luck, you'd better";
+ mes "not expect a good result.";
+ mes "Okay, we must drive away your bad luck.";
+ mes "10 " + @gemstring$ + " will do it.";
+ next;
+ mes "[Tabezthan]";
+ mes "Do not be so dissappointed.";
+ mes "It is still better than wasting 30 of them";
+ mes "for trying to make a thing when you know";
+ mes "you would not make it. ";
+ next;
+ mes "[Tabezthan]";
+ mes "If you need something to prepare,";
+ mes "please do. I will wait for you here.";
+ close;
+
+
+LV4_16_NOGEM:
+ mes "[Tabezthan]";
+ mes "Umm...it seems you are lacking " + @gemstring$;
+ mes "Please count them and";
+ mes "if you don't have enough,";
+ mes "you can go gather more first.";
+ close;
+
+
+
+//--------------------------------------------------
+//Weapon Creation
+//--------------------------------------------------
+LV4_19:
+ mes "[Tabezthan]";
+ mes "Great, I am also ready.";
+ mes "Shall we start now? Give me a minute.";
+ mes "I need to arrange these materials in a magic circle.";
+ next;
+ mes "- He arranges materials in a strange circle -";
+ mes "- and starts chanting in a strange language. -";
+ mes "- As he does that, suddenly the air surrounding him -";
+ mes "- seems to change and you feel something powerful-";
+ mes "- gathering around him and the materials. -";
+ next;
+ mes "[Tabezthan]";
+ mes "Please understand that the power is not from me.";
+ mes "I just used my ability to gather the power into these materials.";
+ mes "The power has come from the city of the dead.";
+ next;
+ mes "[Tabezthan]";
+ mes "The result is in God's hands.";
+ mes "Let's pray for a good result together.";
+ mes "Hmmmmm!";
+ next;
+ mes "- After a while...you find the materials -";
+ mes "- are gathering and combining into one new thing. -";
+ mes "- Does that mean that you have succeeded or failed?! -";
+ next;
+ mes "[Tabezthan]";
+ mes "?!...God must bless you!";
+ mes "I cannot believe that I created such a rare weapon!";
+ mes "Yes, my late father told me the name of this weapon.";
+
+ switch( lv4_weapon ) {
+ case 19:
+ mes "That is Caesar's Sword.";
+ getitem 1134, 1; // 1134,Caesar's_Sword
+ break;
+ case 20:
+ mes "That is Talefing.";
+ getitem 1139, 1; // 1139,Talefing_
+ break;
+ case 21:
+ mes "That is Sabbath.";
+ getitem 1365, 1; // 1365,Sabbath
+ break;
+ }
+
+ set lv4_weapon, 0;
+ mes "[Tabezthan]";
+ mes "Now, since I made this with materials";
+ mes "that you have brought, this is yours now.";
+ mes "I only helped you to make it,";
+ mes "and I am glad to give this to you.";
+ next;
+ mes "[Tabezthan]";
+ mes "Well, feel free to come back";
+ mes "if you want to make a thing again...hahaha.";
+ mes "The weapon was made to be yours.";
+ close;
+
+
+
+//--------------------------------------------------
+//Other Quests
+//--------------------------------------------------
+LV4_14:
+ mes "[Tabezthan]";
+ mes "Umm...you don't have a business with me, do you?";
+ mes "Please do not think of me as an old fool.";
+ mes "When a man gets older, he can see through other people's minds.";
+ mes "Go ahead and do what you have been doing.";
+ mes "Do not let me intrrupt you any longer.";
+ close;
+
+
+
+//--------------------------------------------------
+//Hack Attempt
+//--------------------------------------------------
+LV4_HACK:
+ mes "[Tabezthan]";
+ mes "Hmm. There seems to be a bit of problem.";
+ set lv4_weapon, 0;
+ logmes "[" +strcharinfo(0) + "] tried to hack LV4 quest.";
+ close;
+}
+
+//--------------------------------------------------
+// Bill Thayer, Gives hints for S grade weapons quests
+//--------------------------------------------------
+
+aldebaran.gat,178,239,3 script Bill Thayer 712,{
+ // Explain Materials
+ if(lv4_weapon == 26) goto LV4_26;
+ if(lv4_weapon == 27) goto LV4_27;
+ if(lv4_weapon == 28) goto LV4_28;
+
+ if(lv4_weapon == 35) goto LV4_35;
+ if(lv4_weapon == 36) goto LV4_36;
+ if(lv4_weapon == 37) goto LV4_37;
+
+ if(lv4_weapon == 44) goto LV4_44;
+ if(lv4_weapon == 45) goto LV4_45;
+ if(lv4_weapon == 46) goto LV4_46;
+
+ if(lv4_weapon == 53) goto LV4_53;
+ if(lv4_weapon == 54) goto LV4_54;
+ if(lv4_weapon == 55) goto LV4_55;
+
+ // Guide
+ if(lv4_weapon == 22) goto LV4_22;
+ if(lv4_weapon == 23) goto LV4_23;
+
+ if(lv4_weapon == 31) goto LV4_31;
+ if(lv4_weapon == 32) goto LV4_32;
+
+ if(lv4_weapon == 40) goto LV4_40;
+ if(lv4_weapon == 41) goto LV4_41;
+
+ if(lv4_weapon == 49) goto LV4_49;
+ if(lv4_weapon == 50) goto LV4_50;
+
+ mes "[Bill Thayer]";
+ mes "...I cannot do anything now.";
+ mes "In the past, I used to be a well-known weaponsmith";
+ mes "but now I am just a lonely old man who lost all of his sons.";
+ mes "Please leave me alone.";
+ close;
+
+LV4_27:
+LV4_28:
+LV4_36:
+LV4_37:
+LV4_45:
+LV4_46:
+LV4_54:
+LV4_55:
+ if(lv4_weapon == 27)
+{
+ set @LV4_Gem1Name$, "Peridot";
+ set @LV4_Gem2Name$, "Turquoise";
+ set @LV4_Gem3Name$, "Agate";
+}
+ if(lv4_weapon == 28)
+{
+ set @LV4_Gem1Name$, "Phlogopite";
+ set @LV4_Gem2Name$, "Pyroxene";
+ set @LV4_Gem3Name$, "Rose Quartz";
+}
+ if(lv4_weapon == 36)
+{
+ set @LV4_Gem1Name$, "Muscovite";
+ set @LV4_Gem2Name$, "Rose Quartz";
+ set @LV4_Gem3Name$, "Peridot";
+}
+ if(lv4_weapon == 37)
+{
+ set @LV4_Gem1Name$, "Biotite";
+ set @LV4_Gem2Name$, "Agate";
+ set @LV4_Gem3Name$, "Citrine";
+}
+ if(lv4_weapon == 45)
+{
+ set @LV4_Gem1Name$, "Turquoise";
+ set @LV4_Gem2Name$, "Biotite";
+ set @LV4_Gem3Name$, "Rose Quartz";
+}
+ if(lv4_weapon == 46)
+{
+ set @LV4_Gem1Name$, "Citrine";
+ set @LV4_Gem2Name$, "Pyroxene";
+ set @LV4_Gem3Name$, "Phlogopite";
+}
+ if(lv4_weapon == 54)
+{
+ set @LV4_Gem1Name$, "Muscovite";
+ set @LV4_Gem2Name$, "Agate";
+ set @LV4_Gem3Name$, "Citrine";
+}
+ if(lv4_weapon == 55)
+{
+ set @LV4_Gem1Name$, "Pyroxene";
+ set @LV4_Gem2Name$, "Turquoise";
+ set @LV4_Gem3Name$, "Phlogopite";
+}
+
+ mes "[Bill Thayer]";
+ mes "Hmm...it seems that you need 30 of";
+ mes @LV4_Gem1Name$ + ", " + @LV4_Gem2Name$ + ", and " + @LV4_Gem3Name$;
+ mes "I am sure that those are the materials...";
+ mes "but I cannot guarantee anything about the result...";
+ next;
+ mes "[Bill Thayer]";
+ mes "My sons passed away before we finished this research...";
+ mes "Hahaha...let's not talk about it.";
+ mes "I told you what you need anyway.";
+ close;
+
+
+LV4_26:
+LV4_35:
+LV4_44:
+LV4_53:
+ mes "[Bill Thayer]";
+ if(lv4_weapon == 26) mes "What, Kayron's research?";
+ if(lv4_weapon == 35) mes "What, Reyghema's research?";
+ if(lv4_weapon == 44) mes "What? Hein's research?";
+ if(lv4_weapon == 53) mes "What? Waltboughst's research?";
+ mes "How do you know him?";
+ mes "Were you a friend of him when he was still alive?";
+ mes "Ah....there must an act of providence.";
+ next;
+
+ set lv4_weapon, lv4_weapon + rand(1, 2);
+
+ switch( lv4_weapon ) {
+ case 27:
+ set @LV4_Gem1Name$, "Peridot";
+ set LV4_Gem1, $@LV4_Olivine;
+ set @LV4_Gem2Name$, "Turquoise";
+ set LV4_Gem2, $@LV4_Turquoise;
+ set @LV4_Gem3Name$, "Agate";
+ set LV4_Gem3, $@LV4_Agate;
+ break;
+ case 28:
+ set @LV4_Gem1Name$, "Phlogopite";
+ set LV4_Gem1, $@LV4_Phlogopite;
+ set @LV4_Gem2Name$, "Pyroxene";
+ set LV4_Gem2, $@LV4_Pyroxene;
+ set @LV4_Gem3Name$, "Rose Quartz";
+ set LV4_Gem3, $@LV4_Rose_Quartz;
+ break;
+ case 36:
+ set @LV4_Gem1Name$, "Muscovite";
+ set LV4_Gem1, $@LV4_Muscovite;
+ set @LV4_Gem2Name$, "Rose Quartz";
+ set LV4_Gem2, $@LV4_Rose_Quartz ;
+ set @LV4_Gem3Name$, "Peridot";
+ set LV4_Gem3, $@LV4_Olivine;
+ break;
+ case 37:
+ set @LV4_Gem1Name$, "Biotite";
+ set LV4_Gem1, $@LV4_Biotite;
+ set @LV4_Gem2Name$, "Agate";
+ set LV4_Gem2, $@LV4_Agate;
+ set @LV4_Gem3Name$, "Citrine";
+ set LV4_Gem3, $@LV4_Citrine;
+ break;
+ case 45:
+ set @LV4_Gem1Name$, "Turquoise";
+ set LV4_Gem1, $@LV4_Turquoise;
+ set @LV4_Gem2Name$, "Biotite";
+ set LV4_Gem2, $@LV4_Biotite;
+ set @LV4_Gem3Name$, "Rose Quartz";
+ set LV4_Gem3, $@LV4_Rose_Quartz;
+ break;
+ case 46:
+ set @LV4_Gem1Name$, "Citrine";
+ set LV4_Gem1, $@LV4_Citrine;
+ set @LV4_Gem2Name$, "Pyroxene";
+ set LV4_Gem2, $@LV4_Pyroxene;
+ set @LV4_Gem3Name$, "Phlogopite";
+ set LV4_Gem3, $@LV4_Phlogopite;
+ break;
+ case 54:
+ set @LV4_Gem1Name$, "Muscovite";
+ set LV4_Gem1, $@LV4_Muscovite;
+ set @LV4_Gem2Name$, "Agate";
+ set LV4_Gem2, $@LV4_Agate;
+ set @LV4_Gem3Name$, "Citrine";
+ set LV4_Gem3, $@LV4_Citrine;
+ break;
+ case 55:
+ set @LV4_Gem1Name$, "Pyroxene";
+ set LV4_Gem1, $@LV4_Pyroxene;
+ set @LV4_Gem2Name$, "Turquoise";
+ set LV4_Gem2, $@LV4_Turquoise;
+ set @LV4_Gem3Name$, "Phlogopite";
+ set LV4_Gem3, $@LV4_Phlogopite;
+ break;
+ }
+
+ mes "[Bill Thayer]";
+ mes "Hmm...it seems that you need 30 of";
+ mes @LV4_Gem1Name$ + ", " + @LV4_Gem2Name$ + ", and " + @LV4_Gem3Name$;
+ mes "I am sure that those are the materials...";
+ mes "but I cannot guarantee anything about the result...";
+ next;
+ mes "[Bill Thayer]";
+ mes "My sons passed away before we finished this research...";
+ mes "Hahaha...let's not talk about it.";
+ mes "I told you what you need anyway.";
+ close;
+
+
+LV4_22:
+LV4_23:
+ mes "[Bill Thayer]";
+ mes "Oh well, I told you already";
+ mes "that there is nothing I can do for you...";
+ mes "since my sons are all gone...why are";
+ mes "you wasting my breath? ^4D4DFFYou are helpless.^000000";
+ set lv4_weapon, 23;
+ next;
+ mes "[Bill Thayer]";
+ mes "...you just made me";
+ mes "miss my sons again...";
+ mes "Please leave me alone.";
+ close;
+
+
+LV4_31:
+LV4_32:
+ mes "[Bill Thayer]";
+ mes "All of my sons broke my heart by dying young...";
+ mes "...youth...what is youth?";
+ mes "^4D4DFFThat means that you never regret anything!^000000";
+ set lv4_weapon, 32;
+ next;
+ mes "[Bill Thayer]";
+ mes "That was what I used to tell to my sons.";
+ mes "Please remember that,";
+ mes "never regret anything that you have done.";
+ mes "However, in order to do that, you must";
+ mes "do everything right...that's all I can tell you for now.";
+ close;
+
+
+LV4_40:
+LV4_41:
+ mes "[Bill Thayer]";
+ mes "...no matter how much you are willing to pay me,";
+ mes "I am not going to forge any weapons.";
+ mes "Even when I was actively forging weapons,";
+ mes "I didn't accept money from my clients.";
+ mes "You know why?";
+ next;
+ mes "[Bill Thayer]";
+ mes "It brings me bad luck ^4D4DFFto^000000";
+ mes "^4D4DFFforge a good weapon.^000000";
+ mes "Therefore I didn't receive money from them.";
+ set lv4_weapon, 41;
+ next;
+ mes "[Bill Thayer]";
+ mes "Well, I am not going to do so";
+ mes "even if you offer me something else other than money";
+ mes "...unless all of my sons come back";
+ mes "alive....";
+ close;
+
+
+LV4_49:
+LV4_50:
+ mes "[Bill Thayer]";
+ mes "...do you not have anything to do?";
+ mes "I hope you stop bothering me";
+ mes "and trying your best for your work.";
+ mes "Ah...trying best does not always";
+ mes "result in a success though.";
+ next;
+ mes "[Bill Thayer]";
+ mes "However, ^4D4DFFall the successful men^000000";
+ mes "^4D4DFFin the history tried their best!^000000";
+ mes "I hope you will remember that.";
+ mes "I used to tell this to my sons when they were alive.";
+ mes "Hahaha...";
+ set lv4_weapon, 50;
+ close;
+}
+
+//--------------------------------------------------
+// Kayron, creates Longinus' Spear, Guillotine, Great Axe and Brionac
+//--------------------------------------------------
+
+niflheim.gat,240,193,3 script Kayron 794, {
+ set @NowWeight, MaxWeight - Weight;
+ if (@NowWeight >= 3000) goto LV4_NOT_OW;
+ mes "- Wait a minute! -";
+ mes "- You are currently overweight. -";
+ mes "- Please lose some weight -";
+ mes "- and try again. -";
+ close;
+
+
+LV4_NOT_OW:
+ if(BaseLevel >= 80) goto LV4_LEVEL_PASS;
+ mes "[Kayron]";
+ mes "Bah, I cannot believe";
+ mes "that such a weak man like you even came here.";
+ mes "You have an invisible sign on your forehead";
+ mes "that indicates you are a weakling. Be strong first.";
+ close;
+
+
+LV4_LEVEL_PASS:
+ if(lv4_weapon == 0) goto LV4_0;
+ if(lv4_weapon < 22) goto LV4_21;
+ if(lv4_weapon == 22) goto LV4_22;
+ if(lv4_weapon == 23) goto LV4_23;
+ if(lv4_weapon == 24) goto LV4_24;
+ if(lv4_weapon == 25) goto LV4_25;
+ if(lv4_weapon == 26) goto LV4_26;
+ if(lv4_weapon == 27) goto LV4_27;
+ if(lv4_weapon == 28) goto LV4_28;
+ if(lv4_weapon == 29) goto LV4_29;
+ if(lv4_weapon == 30) goto LV4_30;
+ if(lv4_weapon > 30) goto LV4_31;
+ end; // shouldn't be here
+
+
+LV4_0:
+LV4_22:
+ mes "[Kayron]";
+ mes "I used to be called Kayron when I was alive.";
+ mes "But now I am nothing but";
+ mes "a ghost wandering this place.";
+ mes "I am worthless...I cannot do anything";
+ mes "without a body...";
+ next;
+
+ if(lv4_weapon == 0) goto LV4_0_ASK;
+
+ mes "[Kayron]";
+ mes "Ah...I cannot remember what I was going to say...";
+ mes "Waaahhh.....I cannot remember....";
+ mes "My memory is gone...!";
+ close;
+
+LV4_0_ASK:
+ switch( select( "Show interest.", "Ignore him." ) ) {
+ case 1:
+ mes "[Kayron]";
+ mes "Ah...I cannot remember what I was going to say...";
+ mes "Waaahhh.....I cannot remember....";
+ mes "My memory is gone...!";
+ set lv4_weapon, 22;
+ close;
+ break;
+ case 2:
+ mes "- Because you decided to ignore him, -";
+ mes "- you are no longer able to hear him. -";
+ close;
+ break;
+ }
+ end;
+
+
+LV4_21:
+LV4_31:
+ mes "[Kayron]";
+ mes "I feel something different about you.";
+ mes "Did you come here with a purpose?";
+ mes "I am envious of you...";
+ close;
+
+
+LV4_23:
+ mes "[Kayron]";
+ mes "I used to be called Kayron when I was alive.";
+ mes "But now I am nothing but";
+ mes "a ghost wandering this place.";
+ mes "I am worthless...I cannot do anything";
+ mes "without a body...";
+ next;
+ set @dap1$, "You are helpless.";
+ input @answer1$;
+ if(@answer1$ == @dap1$) goto LV4_23_CORRECT;
+ mes "[Kayron]";
+ mes "...? What did you just say?";
+ mes "I am sorry but I don't think I understood you.";
+ close;
+
+LV4_23_CORRECT:
+ mes "[Kayron]";
+ mes "Yes, You are helpless...?! Eh?";
+ mes "That was my father's favorite saying!";
+ mes "Whoa?! Ah...";
+ mes "Yes...I forgot that I am dead already.";
+ mes "Why did you make me recall something from my past?";
+ mes "It is no use now...";
+ next;
+ mes "[Kayron]";
+ mes "But I want to do something in return...";
+ mes "since you made me find a piece of my mind.";
+ mes "I used to be a weaponsmith in the past,";
+ mes "therefore I am going to forge a nice weapon for you.";
+ next;
+ mes "[Kayron]";
+ mes "But you have to gather the materials for me.";
+ mes "As you see, I do not have a body";
+ mes "that would allow me to touch other objects...";
+ mes "So you got to help me with that.";
+ next;
+ mes "[Kayron]";
+ mes "Luckily this place is filled with mysterious energy,";
+ mes "that makes my work easier!";
+ mes "Heh, even if I fail to forge one,";
+ mes "I don't have to worry about dying.";
+ mes "Because I am dead already! Muhahahaha!";
+ next;
+ mes "[Kayron]";
+ mes "I will talk to you in a while.";
+ mes "I am trying to think of the receipe...";
+ set lv4_weapon, 24;
+ close;
+
+
+LV4_25:
+ if(countitem($@LV4_Hammer_Of_Blacksmith) < 2) goto LV4_25_BASE_MAT;
+ if(countitem($@LV4_Emperium_Anvil) < 1) goto LV4_25_BASE_MAT;
+ if(countitem($@LV4_Illusion_Flower) < 1) goto LV4_25_BASE_MAT;
+ if(countitem($@LV4_Gold) < 20) goto LV4_25_BASE_MAT;
+
+ mes "[Kayron]";
+ mes "Oh...you brought everything I need!";
+ mes "You are a reliable person unlike your appearance.";
+ mes "But here is the thing...";
+ mes "There are some more materials I need...";
+ mes "But I cannot think of any of them...my memory";
+ mes "is unclear...arrrrph...";
+ next;
+ mes "[Kayron]";
+ mes "I need to think about that a little longer.";
+ mes "I know that I really need those materials...awwww....";
+ mes "Do you have any idea to bring my memory back?";
+ mes "At the same time, rest assured that the materials";
+ mes "you brought will be used for my creation. So let me keep them for you.";
+
+ if(countitem($@LV4_Hammer_Of_Blacksmith) < 2) goto LV4_HACK;
+ if(countitem($@LV4_Emperium_Anvil) < 1) goto LV4_HACK;
+ if(countitem($@LV4_Illusion_Flower) < 1) goto LV4_HACK;
+ if(countitem($@LV4_Gold) < 20) goto LV4_HACK;
+ delitem $@LV4_Hammer_Of_Blacksmith, 2;
+ delitem $@LV4_Emperium_Anvil, 1;
+ delitem $@LV4_Illusion_Flower, 1;
+ delitem $@LV4_Gold, 20;
+ set lv4_weapon, 26;
+ close;
+
+LV4_24:
+LV4_25_BASE_MAT:
+ switch( lv4_weapon ) {
+ case 24:
+ mes "[Kayron]";
+ mes "Oh, you came back at a right time.";
+ mes "I just finished my thoughts. Let me tell you one thing.";
+ mes "I cannot guarantee you which weapon will come out of this.";
+ mes "Also you must be willing to take a risk as well...";
+ mes "I guess that the result will be affected by the power";
+ mes "of Nifflheim at the time I make.";
+ next;
+ mes "[Kayron]";
+ mes "Let me give you the list of materials";
+ mes "I need. They are quite a lot,";
+ mes "so write them down if you need.";
+ break;
+ case 25:
+ mes "[Kayron]";
+ mes "I will tell you the list of materials I need again.";
+ mes "I think I need a lot of materials...so";
+ mes "write them down if you need.";
+ break;
+ }
+ next;
+ mes "[Kayron]";
+ mes "I need 2 Hammer of Blacksmith,";
+ mes "1 Emperium Anvil, 1 Illusion Flower and 20 Gold...";
+ next;
+ mes "[Kayron]";
+ mes "Bring these to me first. I am kind of worried";
+ mes "that I forgot something...but I will try to remember";
+ mes "while waiting for you to bring these items.";
+ next;
+ mes "[Kayron]";
+ mes "Have a safe travel.";
+ set lv4_weapon, 25;
+ close;
+
+
+LV4_27:
+LV4_28:
+ if(countitem(LV4_Gem1) < 30) goto LV4_27_NOGEM;
+ if(countitem(LV4_Gem2) < 30) goto LV4_27_NOGEM;
+ if(countitem(LV4_Gem3) < 30) goto LV4_27_NOGEM;
+ mes "[Kayron]";
+ mes "...Um? The items that you brought to me seem";
+ mes "to be good materials for my creation...";
+ mes "Give them to me, I shall try first!";
+ next;
+ mes "[Kayron]";
+ mes "Oh...I was right! How did you";
+ mes "know these are materials I need?";
+ mes "Great, give me a moment!";
+ next;
+ mes "[Kayron]";
+ mes "...wait, I must test your luck first.";
+ mes "Since I am not sure about the result,";
+ mes "we should place trust in luck for the result of my creation.";
+ mes "You must have good luck...";
+ next;
+ mes "[Kayron]";
+ mes "We are going to play 'Rock, Paper, Scissors'.";
+ mes "You must win at least 2 out of 3 times.";
+ mes "If you fail, you must throw away a large amount";
+ mes "of one of the 3 kinds of ore that you have brought.";
+ mes "It is for driving away your bad luck.";
+ next;
+ mes "[Kayron]";
+ mes "I will give you a piece of paper.";
+ mes "You will write down one among 'Rock, Paper, or Scissors'.";
+ mes "I will do the same at the same time.";
+ mes "We will compare each other's paper after.";
+ next;
+
+ set @shobu, 0;
+
+ for( set @i, 1; @i <= 3; set @i, @i + 1 ) {
+ if(@i == 2) mes "[Kayron]";
+ if(@i == 2) mes "Let's play the second one!";
+ if(@i == 3) mes "[Kayron]";
+ if(@i == 3) mes "This will be the last one!";
+ if(@i == 3) mes "Let's compare after this.";
+ set @npchand[@i], rand(1, 3);
+ switch( select( "Scissors", "Rock", "Paper" ) ) {
+ case 1:
+ set @myhand[@i], 1;
+ if(@npchand[@i] == 3) set @shobu, @shobu + 1;
+ break;
+ case 2:
+ set @myhand[@i], 2;
+ if(@npchand[@i] == 1) set @shobu, @shobu + 1;
+ break;
+ case 3:
+ set @myhand[@i], 3;
+ if(@npchand[@i] == 2) set @shobu, @shobu + 1;
+ break;
+ }
+ }
+
+ if(countitem(LV4_Gem1) < 30) goto LV4_HACK;
+ if(countitem(LV4_Gem2) < 30) goto LV4_HACK;
+ if(countitem(LV4_Gem3) < 30) goto LV4_HACK;
+
+ if(@shobu > 1) goto LV4_27_WIN;
+
+ switch ( rand(1 ,3) ) {
+ case 1:
+ delitem LV4_Gem1, 30;
+ break;
+ case 2:
+ delitem LV4_Gem2, 30;
+ break;
+ case 3:
+ delitem LV4_Gem3, 30;
+ break;
+ }
+ goto LV4_27_RESULT;
+
+LV4_27_WIN:
+ delitem LV4_Gem1, 30;
+ delitem LV4_Gem2, 30;
+ delitem LV4_Gem3, 30;
+ set lv4_weapon, lv4_weapon + 2;
+ goto LV4_27_RESULT;
+
+LV4_27_RESULT:
+ mes "[Kayron]";
+ mes "Okay...I played in the order of...";
+
+ for( set @i, 1; @i <= 3; set @i, @i + 1 ) {
+ if(@npchand[@i] == 1) mes "Scissors";
+ if(@npchand[@i] == 2) mes "Rock";
+ if(@npchand[@i] == 3) mes "Paper";
+ }
+
+ next;
+ mes "[Kayron]";
+ mes "You did in the order of...";
+
+ for( set @i, 1; @i <= 3; set @i, @i + 1 ) {
+ if(@myhand[@i] == 1) mes "Scissors";
+ if(@myhand[@i] == 2) mes "Rock";
+ if(@myhand[@i] == 3) mes "Paper";
+ }
+
+ next;
+
+ if(@shobu > 1) goto LV4_27_SAY_WIN;
+
+ mes "[Kayron]";
+ mes "Well well well...you lost the game.";
+ mes "Ah~ you were close though...";
+ mes "We must drive away bad luck.";
+ next;
+ mes "[Kayron]";
+ mes "Okay, I will wait here,";
+ mes "go bring me the materials again...";
+ close;
+
+LV4_27_SAY_WIN:
+ mes "[Kayron]";
+ mes "Let's see...";
+ mes "You won total " + @shobu + " times.";
+ mes "Ah~ you must be really good at game!";
+ mes "Yes, your luck is at its highest!";
+ next;
+ mes "[Kayron]";
+ mes "I am going to keep my promise.";
+ mes "But I need some time to prepare.";
+ mes "Give me the materials now and I will talk to you later.";
+ close;
+
+LV4_26:
+LV4_27_NOGEM:
+ mes "[Kayron]";
+ mes "Arph...it has not gotten into my memory yet.";
+ mes "Awww....this is a problem.";
+ mes "I used to often discuss the materials";
+ mes "with my family...now I cannot remember what they are...";
+ close;
+
+
+LV4_29:
+LV4_30:
+ mes "[Kayron]";
+ mes "Hahaha...you came back at the right time.";
+ mes "The result? Do you want to know about the result?...";
+ mes "Haha...okay...let's see...";
+ next;
+ mes "[Kayron]";
+ mes "...YES! It's a success!";
+ mes "I created the weapon that got me killed last time!";
+ mes "Look at this...haha! I died while making this!";
+ mes "... The name of the weapon is...";
+
+
+ switch( rand(1, 2) ) {
+ case 1:
+ if(lv4_weapon == 29) mes "Great Axe! Weee~ I made it!";
+ if(lv4_weapon == 29) getitem 1364 ,1; // 1364,Great_Axe
+ if(lv4_weapon == 30) mes "Longinus's Spear! Weee~ I made it!";
+ if(lv4_weapon == 30) getitem 1469, 1; // 1469,Longinus's_Spear
+ break;
+ case 2:
+ if(lv4_weapon == 29) mes "Guillotine! Weee~ I made it!";
+ if(lv4_weapon == 29) getitem 1369, 1; // 1369,Guillotine
+ if(lv4_weapon == 30) mes "Brionac! Weee~ I made it!";
+ if(lv4_weapon == 30) getitem 1470, 1; // 1470,Brionac
+ }
+
+ set lv4_weapon, 0;
+ next;
+ mes "[Kayron]";
+ mes "I finally succeeded in the research...";
+ mes "I want to show this result to my father...";
+ mes "He will be really happy for this.";
+ next;
+ mes "[Kayron]";
+ mes "Ah~ I feel my memories are fading again...";
+ mes "If you see me next time...";
+ mes "please let me remember the memories again...";
+ mes "Thank you...";
+ close;
+
+
+
+//--------------------------------------------------
+//Hack Attempt
+//--------------------------------------------------
+LV4_HACK:
+ mes "[Kayron]";
+ mes "Hmm. There seems to be a bit of problem.";
+ set lv4_weapon, 0;
+ logmes "[" +strcharinfo(0) + "] tried to hack LV4 quest.";
+ close;
+}
+
+//--------------------------------------------------
+// Reyghema, creates Berserk, Tjungkulleti, Rudra's Bow and Brocca(Skewer)
+//--------------------------------------------------
+
+niflheim.gat,99,268,5 script Reyghema 794, {
+ set @NowWeight, MaxWeight - Weight;
+ if (@NowWeight >= 3000) goto LV4_NOT_OW;
+ mes "- Wait a minute! -";
+ mes "- You are currently overweight. -";
+ mes "- Please lose some weight -";
+ mes "- and try again. -";
+ close;
+
+
+LV4_NOT_OW:
+ if(BaseLevel >= 80) goto LV4_LEVEL_PASS;
+ mes "[Reyghema]";
+ mes "Um? Do you have any business with me?";
+ mes "Sorry but I don't. I'm also not";
+ mes "speaking to a weak person like you.";
+ mes "Have a safe travel~";
+ close;
+
+
+LV4_LEVEL_PASS:
+ if(lv4_weapon == 0) goto LV4_0;
+ if(lv4_weapon < 31) goto LV4_30;
+ if(lv4_weapon == 31) goto LV4_31;
+ if(lv4_weapon == 32) goto LV4_32;
+ if(lv4_weapon == 33) goto LV4_33;
+ if(lv4_weapon == 34) goto LV4_34;
+ if(lv4_weapon == 35) goto LV4_35;
+ if(lv4_weapon == 36) goto LV4_36;
+ if(lv4_weapon == 37) goto LV4_37;
+ if(lv4_weapon == 38) goto LV4_38;
+ if(lv4_weapon == 39) goto LV4_39;
+ if(lv4_weapon > 39) goto LV4_40;
+ end; // shouldn't be here
+
+
+LV4_0:
+LV4_31:
+ mes "[Reyghema]";
+ mes "Darn it...I didn't want to die!";
+ mes "Well...there is no living thing that wants to die but...";
+ mes "Especially me, I was too young to die!";
+ mes "Youth! ...Ah...I just remember the word.";
+ mes "Speaking of which...I think I usually said something related to that...";
+ next;
+
+ if(lv4_weapon == 0) goto LV4_0_ASK;
+
+ mes "[Reyghema]";
+ mes "Ah...I cannot remember what I was going to say...";
+ mes "Waaahhh.....I cannot remember....";
+ mes "My memory is gone...!";
+ close;
+
+LV4_0_ASK:
+ switch( select( "Show interest.", "Igonore him." ) ) {
+ case 1:
+ mes "[Reyghema]";
+ mes "Ah...I cannot remember what I was going to say...";
+ mes "Waaahhh.....I cannot remember....";
+ mes "My memory is gone...!";
+ set lv4_weapon, 31;
+ close;
+ break;
+ case 2:
+ mes "- Because you decided to ignore him, -";
+ mes "- you are no longer able to hear him. -";
+ close;
+ break;
+ }
+ end;
+
+
+LV4_30:
+LV4_40:
+ mes "[Reyghema]";
+ mes "I feel something different about you.";
+ mes "Did you come here with a purpose?";
+ mes "I am envious of you...";
+ close;
+
+
+LV4_32:
+ mes "[Reyghema]";
+ mes "I used to be called Reyghema when I was alive.";
+ mes "But now I am nothing but";
+ mes "a ghost wandering this place.";
+ mes "I am worthless...I cannot do anything";
+ mes "without a body...";
+ next;
+ set @dap2$, "That means that you never regret anything!";
+ input @answer2$;
+ if(@answer2$ == @dap2$) goto LV4_32_CORRECT;
+ mes "[Reyghema]";
+ mes "What? Do you want to play a game with me or what?";
+ mes "Unfortunately I have something to do...";
+ mes "wait...what was I going to do?";
+ close;
+
+LV4_32_CORRECT:
+ mes "[Reyghema]";
+ mes "...";
+ next;
+ mes "[Reyghema]";
+ mes "...";
+ mes "......";
+ next;
+ mes "[Reyghema]";
+ mes "...";
+ mes "......";
+ mes ".........";
+ next;
+ mes "[Reyghema]";
+ mes "That's right! I am Bill Thayer the Weaponsmith's";
+ mes "second son! And I must forge a weapon";
+ mes "in order to not regret my youth!";
+ mes "Even if I am dead, I cannot give it up!";
+ next;
+ mes "[Reyghema]";
+ mes "Hey you, thank you for letting me have my memory back!";
+ mes "You need to do me another favor!";
+ mes "Bring me some items, I need to forge a weapon.";
+ mes "Once I make one, I will give it to you in return for your favor.";
+ next;
+ mes "[Reyghema]";
+ mes "Reyghema, breathe deeply first...phew~.";
+ mes "Give me a second!";
+ set lv4_weapon, 33;
+ close;
+
+
+LV4_34:
+ if(countitem($@LV4_Hammer_Of_Blacksmith) < 2) goto LV4_34_BASE_MAT;
+ if(countitem($@LV4_Emperium_Anvil) < 1) goto LV4_34_BASE_MAT;
+ if(countitem($@LV4_Illusion_Flower) < 1) goto LV4_34_BASE_MAT;
+ if(countitem($@LV4_Gold) < 20) goto LV4_34_BASE_MAT;
+
+ mes "[Reyghema]";
+ mes "Oh...you brought everything I need!";
+ mes "You are a reliable person unlike you appear.";
+ mes "But here is the thing...";
+ mes "There are some more materials I need...";
+ mes "But I cannot think of any of them...my memory";
+ mes "is unclear...arrrrph...";
+ next;
+ mes "[Reyghema]";
+ mes "I need to think about that a little longer.";
+ mes "I know that I really need those materials...awwww....";
+ mes "Do you have any idea to bring my memory back?";
+ mes "At the same time, rest assured that the materials";
+ mes "you brought will be used for my creation. So let me keep them for you.";
+
+ if(countitem($@LV4_Hammer_Of_Blacksmith) < 2) goto LV4_HACK;
+ if(countitem($@LV4_Emperium_Anvil) < 1) goto LV4_HACK;
+ if(countitem($@LV4_Illusion_Flower) < 1) goto LV4_HACK;
+ if(countitem($@LV4_Gold) < 20) goto LV4_HACK;
+ delitem $@LV4_Hammer_Of_Blacksmith, 2;
+ delitem $@LV4_Emperium_Anvil, 1;
+ delitem $@LV4_Illusion_Flower, 1;
+ delitem $@LV4_Gold, 20;
+ set lv4_weapon, 35;
+ close;
+
+LV4_33:
+LV4_34_BASE_MAT:
+ switch( lv4_weapon ) {
+ case 33:
+ mes "[Reyghema]";
+ mes "Okay. You don't need any other explaination, do you?";
+ mes "I will tell you what I need";
+ mes "so please do not forget those materials.";
+ break;
+ case 34:
+ mes "[Reyghema]";
+ mes "I will tell you the list of materials I need again.";
+ mes "I think I need a lot of materials...so";
+ mes "write them down if you need.";
+ break;
+ }
+ next;
+ mes "[Reyghema]";
+ mes "I need 2 Hammer of Blacksmith,";
+ mes "1 Emperium Anvil, 1 Illusion Flower and 20 Gold...";
+ mes "...wait...are they all...or do I need more?!";
+ if(lv4_weapon == 33) next;
+ if(lv4_weapon == 33) mes "[Reyghema]";
+ if(lv4_weapon == 33) mes "Ah...I think need something more...it's very important...";
+ if(lv4_weapon == 33) mes "But I cannot remember what more I need....!";
+ if(lv4_weapon == 33) mes "Bah...this is so frustrating.";
+ set lv4_weapon, 34;
+ close;
+
+
+LV4_36:
+LV4_37:
+ if(countitem(LV4_Gem1) < 30) goto LV4_36_NOGEM;
+ if(countitem(LV4_Gem2) < 30) goto LV4_36_NOGEM;
+ if(countitem(LV4_Gem3) < 30) goto LV4_36_NOGEM;
+ mes "[Reyghema]";
+ mes "...Um? The items that you brought to me seem";
+ mes "to be good materials for my creation...";
+ mes "Give them to me, I shall try first!";
+ next;
+ mes "[Reyghema]";
+ mes "Oh...I was right! How did you";
+ mes "know these are materials I need?";
+ mes "Great, give me a moment!";
+ next;
+ mes "[Reyghema]";
+ mes "...wait, I must test your luck first.";
+ mes "Since I am not sure about the result,";
+ mes "we should place trust in luck for the result of my creation.";
+ mes "You must have good luck...";
+ next;
+ mes "[Reyghema]";
+ mes "We are going to play 'Rock, Paper, Scissors'.";
+ mes "You must win at least 2 out of 3 times.";
+ mes "If you fail, you must leave a large amount";
+ mes "of one material you have brought.";
+ mes "It is for driving away your bad luck.";
+ next;
+ mes "[Reyghema]";
+ mes "I will give you a piece of paper.";
+ mes "You will write down one among 'Rock, Paper, or Scissors'.";
+ mes "I will do the same at the same time.";
+ mes "We will then compare each other's paper.";
+ next;
+
+ set @shobu, 0;
+
+ for( set @i, 1; @i <= 3; set @i, @i + 1 ) {
+ if(@i == 2) mes "[Reyghema]";
+ if(@i == 2) mes "Let's play the second one!";
+ if(@i == 3) mes "[Reyghema]";
+ if(@i == 3) mes "This will be the last one!";
+ if(@i == 3) mes "Let's compare after this.";
+ set @npchand[@i], rand(1, 3);
+ switch( select( "Scissors", "Rock", "Paper" ) ) {
+ case 1:
+ set @myhand[@i], 1;
+ if(@npchand[@i] == 3) set @shobu, @shobu + 1;
+ break;
+ case 2:
+ set @myhand[@i], 2;
+ if(@npchand[@i] == 1) set @shobu, @shobu + 1;
+ break;
+ case 3:
+ set @myhand[@i], 3;
+ if(@npchand[@i] == 2) set @shobu, @shobu + 1;
+ break;
+ }
+ }
+
+ if(countitem(LV4_Gem1) < 30) goto LV4_HACK;
+ if(countitem(LV4_Gem2) < 30) goto LV4_HACK;
+ if(countitem(LV4_Gem3) < 30) goto LV4_HACK;
+
+ if(@shobu > 1) goto LV4_36_WIN;
+
+ switch ( rand(1 ,3) ) {
+ case 1:
+ delitem LV4_Gem1, 30;
+ break;
+ case 2:
+ delitem LV4_Gem2, 30;
+ break;
+ case 3:
+ delitem LV4_Gem3, 30;
+ break;
+ }
+ goto LV4_36_RESULT;
+
+LV4_36_WIN:
+ delitem LV4_Gem1, 30;
+ delitem LV4_Gem2, 30;
+ delitem LV4_Gem3, 30;
+ set lv4_weapon, lv4_weapon + 2;
+ goto LV4_36_RESULT;
+
+LV4_36_RESULT:
+ mes "[Reyghema]";
+ mes "Okay...I played in the order of...";
+
+ for( set @i, 1; @i <= 3; set @i, @i + 1 ) {
+ if(@npchand[@i] == 1) mes "Scissors";
+ if(@npchand[@i] == 2) mes "Rock";
+ if(@npchand[@i] == 3) mes "Paper";
+ }
+
+ next;
+ mes "[Reyghema]";
+ mes "You did in the order of...";
+
+ for( set @i, 1; @i <= 3; set @i, @i + 1 ) {
+ if(@myhand[@i] == 1) mes "Scissors";
+ if(@myhand[@i] == 2) mes "Rock";
+ if(@myhand[@i] == 3) mes "Paper";
+ }
+
+ next;
+
+ if(@shobu > 1) goto LV4_36_SAY_WIN;
+
+ mes "[Reyghema]";
+ mes "Well well well...you lost the game.";
+ mes "Ah~ you were close though...";
+ mes "We must drive away bad luck.";
+ next;
+ mes "[Reyghema]";
+ mes "Okay, I will wait here,";
+ mes "go bring me the materials again...";
+ close;
+
+LV4_36_SAY_WIN:
+ mes "[Reyghema]";
+ mes "Let's see...";
+ mes "You won total " + @shobu + " times.";
+ mes "Ah~ you must be really good at game!";
+ mes "Yes, your luck is at its highest!";
+ next;
+ mes "[Reyghema]";
+ mes "I am going to keep my promise.";
+ mes "But I need some time to prepare.";
+ mes "Give me the materials now and I will talk to you later.";
+ close;
+
+LV4_35:
+LV4_36_NOGEM:
+ mes "[Reyghema]";
+ mes "Not yet! I have not remembered it yet! Awwww...";
+ mes "This is killing me...";
+ mes "Oh, wait...I died already...";
+ mes "God damn it!";
+ close;
+
+
+LV4_38:
+LV4_39:
+ mes "[Reyghema]";
+ mes "..................";
+ next;
+ mes "[Reyghema]";
+ mes "...YES! It's a success!";
+ mes "I created the weapon that got me killed last time!";
+ mes "Look at this...haha! I died while making this!";
+ mes "... The name of the weapon is...";
+
+ switch( rand(1, 2) ) {
+ case 1:
+ if(lv4_weapon == 38) mes "Berserk! Weee~ Weee~ I made it!";
+ if(lv4_weapon == 38) getitem 1814 ,1; // 1814,Berserk
+ if(lv4_weapon == 39) mes "Tjungkuletti! Weee~ I made it!";
+ if(lv4_weapon == 39) getitem 1416, 1; // 1416,Tjungkuletti
+ break;
+ case 2:
+ if(lv4_weapon == 38) mes "Rudra's Bow! Weee~ I made it!";
+ if(lv4_weapon == 38) getitem 1720, 1; // 1720,Bow_of_Rudra
+ if(lv4_weapon == 39) mes "Brocca!";
+ if(lv4_weapon == 39) getitem 1415, 1; // 1415,Skewer
+ }
+
+ set lv4_weapon, 0;
+ next;
+ mes "[Reyghema]";
+ mes "...*sigh*.";
+ next;
+ mes "[Reyghema]";
+ mes "Happiness lasts too short...";
+ mes "As I am a dead man, I think I am not allowed";
+ mes "to keep the memory of past....";
+ mes "My memory is fading again...";
+ next;
+ mes "[Reyghema]";
+ mes "But thank you for letting me achieve";
+ mes "my long-cherished desire.";
+ mes "If we meet again, please let me";
+ mes "retrieve my memory of past again.";
+ mes "So I can try forging another weapon.";
+ next;
+ mes "[Reyghema]";
+ mes "Farewell, adventurer.";
+ close;
+
+
+
+//--------------------------------------------------
+//Hack Attempt
+//--------------------------------------------------
+LV4_HACK:
+ mes "[Reyghema]";
+ mes "Hmm. There seems to be a bit of problem.";
+ set lv4_weapon, 0;
+ logmes "[" +strcharinfo(0) + "] tried to hack LV4 quest.";
+ close;
+}
+
+//--------------------------------------------------
+// Hein, creates Excalibur, Schweisersabel, Dragon Slayer and Edge
+//--------------------------------------------------
+
+niflheim.gat,187,280,3 script Hein 795, {
+ set @NowWeight, MaxWeight - Weight;
+ if (@NowWeight >= 3000) goto LV4_NOT_OW;
+ mes "- Wait a minute! -";
+ mes "- You are currently overweight. -";
+ mes "- Please lose some weight -";
+ mes "- and try again. -";
+ close;
+
+
+LV4_NOT_OW:
+ if(BaseLevel >= 80) goto LV4_LEVEL_PASS;
+ mes "[Hein]";
+ mes "You should care about other people";
+ mes "more than yourself...";
+ mes "You are quite weak for an adventurer.";
+ close;
+
+
+LV4_LEVEL_PASS:
+ if(lv4_weapon == 0) goto LV4_0;
+ if(lv4_weapon < 40) goto LV4_39;
+ if(lv4_weapon == 40) goto LV4_40;
+ if(lv4_weapon == 41) goto LV4_41;
+ if(lv4_weapon == 42) goto LV4_42;
+ if(lv4_weapon == 43) goto LV4_43;
+ if(lv4_weapon == 44) goto LV4_44;
+ if(lv4_weapon == 45) goto LV4_45;
+ if(lv4_weapon == 46) goto LV4_46;
+ if(lv4_weapon == 47) goto LV4_47;
+ if(lv4_weapon == 48) goto LV4_48;
+ if(lv4_weapon > 48) goto LV4_49;
+ end; // shouldn't be here
+
+
+LV4_0:
+LV4_40:
+ mes "[Hein]";
+ mes "Ah...are you going to ask me something?";
+ mes "However, I am not accepting money";
+ mes "from my client. Because.";
+ mes "It brings me bad luck to...";
+ mes "...whaat? What did I just say?";
+ mes "Awww....I am confused.";
+ next;
+
+ if(lv4_weapon == 0) goto LV4_0_ASK;
+
+ mes "[Hein]";
+ mes "Why did I speak of money?";
+ mes "I am a dead man and dead people";
+ mes "do not need money...arf!";
+ mes "My head is hurting...I guess that";
+ mes "a dead man can have a headache!";
+ close;
+
+LV4_0_ASK:
+ switch( select( "Show interest.", "Igonore him." ) ) {
+ case 1:
+ mes "[Hein]";
+ mes "Why did I speak of money?";
+ mes "I am a dead man and dead people";
+ mes "do not need money...arf!";
+ mes "My head is hurting...I guess that";
+ mes "a dead man can have a headache!";
+ set lv4_weapon, 40;
+ close;
+ break;
+ case 2:
+ mes "- Because you decided to ignore him, -";
+ mes "- you are no longer able to hear him. -";
+ close;
+ break;
+ }
+ end;
+
+
+LV4_39:
+LV4_49:
+ mes "[Hein]";
+ mes "I feel something different from you.";
+ mes "Did you come here with a purpose?";
+ mes "I am envious of you...";
+ close;
+
+
+LV4_41:
+ mes "[Hein]";
+ mes "Ah...are you going to ask me something?";
+ mes "However, I am not accepting money";
+ mes "from my client. Because.";
+ mes "It brings me bad luck to...";
+ next;
+ set @dap3$, "to forge a good weapon.";
+ input @answer3$;
+ if(@answer3$ == @dap3$) goto LV4_41_CORRECT;
+ mes "[Hein]";
+ mes "...? What are you talking about?";
+ mes "What was I going to say?";
+ mes "Arf....my head is hurting...!";
+ close;
+
+LV4_41_CORRECT:
+ mes "[Hein]";
+ mes "That's right! It's bad luck!";
+ mes "Creating weapons is betting! And I am...I am?";
+ mes "Oh right...I forgot that. Yes, I am dead.";
+ mes "Ahahahahaha.";
+ set lv4_weapon, 42;
+ next;
+ mes "[Hein]";
+ mes "Well, I must be a lucky dead man";
+ mes "for remembering my past!";
+ mes "Hahahahaha!";
+ next;
+ mes "[Hein]";
+ mes "Perhaps God wants me to";
+ mes "continue my research...?";
+ mes "wait, let me ask you a favor.";
+ next;
+ mes "[Hein]";
+ mes "Can you bring me some materials";
+ mes "that I need for my research?";
+ mes "If I succeed in the research,";
+ mes "I will give you the result in return.";
+ next;
+ mes "[Hein]";
+ mes "You can take your time to think of my offer.";
+ mes "Please talk to me later.";
+ close;
+
+
+LV4_43:
+ if(countitem($@LV4_Hammer_Of_Blacksmith) < 2) goto LV4_43_BASE_MAT;
+ if(countitem($@LV4_Emperium_Anvil) < 1) goto LV4_43_BASE_MAT;
+ if(countitem($@LV4_Illusion_Flower) < 1) goto LV4_43_BASE_MAT;
+ if(countitem($@LV4_Gold) < 20) goto LV4_43_BASE_MAT;
+
+ mes "[Hein]";
+ mes "Oh, you have brought the materials I asked.";
+ mes "Here's the thing. I cannot remember what I need other than those...";
+ mes "Aww....I need some more time to think of them...";
+ next;
+ mes "[Hein]";
+ mes "Please try to search what I need...if you can.";
+ mes "Of course, it will not be an easy job for you";
+ mes "to do so...but I know you have a body to move with your will...";
+ mes "It is still better than being a ghost like me...";
+ next;
+ mes "[Hein]";
+ mes "Please give me all the materials you have brought.";
+ mes "I will keep them for you.";
+
+ if(countitem($@LV4_Hammer_Of_Blacksmith) < 2) goto LV4_HACK;
+ if(countitem($@LV4_Emperium_Anvil) < 1) goto LV4_HACK;
+ if(countitem($@LV4_Illusion_Flower) < 1) goto LV4_HACK;
+ if(countitem($@LV4_Gold) < 20) goto LV4_HACK;
+ delitem $@LV4_Hammer_Of_Blacksmith, 2;
+ delitem $@LV4_Emperium_Anvil, 1;
+ delitem $@LV4_Illusion_Flower, 1;
+ delitem $@LV4_Gold, 20;
+ set lv4_weapon, 44;
+ close;
+
+LV4_42:
+LV4_43_BASE_MAT:
+ switch( lv4_weapon ) {
+ case 42:
+ mes "[Hein]";
+ mes "I will take you speaking to me again";
+ mes "as the approval of my request.";
+ mes "Thank you so much.";
+ next;
+ mes "[Hein]";
+ mes "I need 2 Hammer of Blacksmith,";
+ mes "1 Emperium Anvil, 1 Illusion Flower and 20 Gold...";
+ mes "Most likely they are the ones I need.";
+ next;
+ mes "[Hein]";
+ mes "And I do need 3 more things...";
+ mes "but I have a hard time remembering what they are.";
+ mes "That means that my memory of the past is not";
+ mes "absolutely back.";
+ next;
+ mes "[Hein]";
+ mes "*sigh*...I am so sorry to ask of you this...";
+ mes "but please search for what those 3 things are.";
+ mes "In the meantime, I will try to remember them.";
+ mes "Thank you.";
+ set lv4_weapon, 43;
+ break;
+ case 43:
+ mes "[Hein]";
+ mes "I need 2 Hammer of Blacksmith,";
+ mes "1 Emperium Anvil, 1 Illusion Flower and 20 Gold...";
+ mes "Most likely they are the ones I need.";
+ break;
+ }
+ close;
+
+
+LV4_45:
+LV4_46:
+ if(countitem(LV4_Gem1) < 30) goto LV4_45_NOGEM;
+ if(countitem(LV4_Gem2) < 30) goto LV4_45_NOGEM;
+ if(countitem(LV4_Gem3) < 30) goto LV4_45_NOGEM;
+ mes "[Hein]";
+ mes "...Um? The items that you brought to me seem";
+ mes "to be good materials for my creation...";
+ mes "Give them to me, I shall try first!";
+ next;
+ mes "[Hein]";
+ mes "Oh...I was right! How did you";
+ mes "know these are materials I need?";
+ mes "Great, give me a moment!";
+ next;
+ mes "[Hein]";
+ mes "...Wait, I must test your luck first.";
+ mes "Since I am not sure about the result,";
+ mes "we should trust to luck for the result of my creation.";
+ mes "You must have good luck...";
+ next;
+ mes "[Hein]";
+ mes "We are going to play 'Rock, Paper, Scissors'.";
+ mes "You must win at least 2 out of 3 times.";
+ mes "If you fail, you must leave a large amount";
+ mes "of one material you have brought.";
+ mes "It is for driving away your bad luck.";
+ next;
+ mes "[Hein]";
+ mes "I will give you a piece of paper.";
+ mes "You will write down one among 'Rock, Paper, or Scissors'.";
+ mes "I will do the same at the same time.";
+ mes "We will then compare each other's paper at the end.";
+ next;
+
+ set @shobu, 0;
+
+ for( set @i, 1; @i <= 3; set @i, @i + 1 ) {
+ if(@i == 2) mes "[Hein]";
+ if(@i == 2) mes "Let's play the second one!";
+ if(@i == 3) mes "[Hein]";
+ if(@i == 3) mes "This will be the last one!";
+ if(@i == 3) mes "Let's compare after this.";
+ set @npchand[@i], rand(1, 3);
+ switch( select( "Scissors", "Rock", "Paper" ) ) {
+ case 1:
+ set @myhand[@i], 1;
+ if(@npchand[@i] == 3) set @shobu, @shobu + 1;
+ break;
+ case 2:
+ set @myhand[@i], 2;
+ if(@npchand[@i] == 1) set @shobu, @shobu + 1;
+ break;
+ case 3:
+ set @myhand[@i], 3;
+ if(@npchand[@i] == 2) set @shobu, @shobu + 1;
+ break;
+ }
+ }
+
+ if(countitem(LV4_Gem1) < 30) goto LV4_HACK;
+ if(countitem(LV4_Gem2) < 30) goto LV4_HACK;
+ if(countitem(LV4_Gem3) < 30) goto LV4_HACK;
+
+ if(@shobu > 1) goto LV4_45_WIN;
+
+ switch ( rand(1 ,3) ) {
+ case 1:
+ delitem LV4_Gem1, 30;
+ break;
+ case 2:
+ delitem LV4_Gem2, 30;
+ break;
+ case 3:
+ delitem LV4_Gem3, 30;
+ break;
+ }
+ goto LV4_45_RESULT;
+
+LV4_45_WIN:
+ delitem LV4_Gem1, 30;
+ delitem LV4_Gem2, 30;
+ delitem LV4_Gem3, 30;
+ set lv4_weapon, lv4_weapon + 2;
+ goto LV4_45_RESULT;
+
+LV4_45_RESULT:
+ mes "[Hein]";
+ mes "Okay...I played in the order of...";
+
+ for( set @i, 1; @i <= 3; set @i, @i + 1 ) {
+ if(@npchand[@i] == 1) mes "Scissors";
+ if(@npchand[@i] == 2) mes "Rock";
+ if(@npchand[@i] == 3) mes "Paper";
+ }
+
+ next;
+ mes "[Hein]";
+ mes "You did in the order of...";
+
+ for( set @i, 1; @i <= 3; set @i, @i + 1 ) {
+ if(@myhand[@i] == 1) mes "Scissors";
+ if(@myhand[@i] == 2) mes "Rock";
+ if(@myhand[@i] == 3) mes "Paper";
+ }
+
+ next;
+
+ if(@shobu > 1) goto LV4_45_SAY_WIN;
+
+ mes "[Hein]";
+ mes "Well well well...you lost the game.";
+ mes "Ah~ you were close though...";
+ mes "We must drive away bad luck.";
+ next;
+ mes "[Hein]";
+ mes "Okay, I will wait here,";
+ mes "go bring me the materials again...";
+ close;
+
+LV4_45_SAY_WIN:
+ mes "[Hein]";
+ mes "Let's see...";
+ mes "You won total " + @shobu + " times.";
+ mes "Ah~ you must be really good at game!";
+ mes "Yes, your luck is at its highest!";
+ next;
+ mes "[Hein]";
+ mes "I am going to keep my promise.";
+ mes "But I need some time to prepare.";
+ mes "Give me the materials now and I will talk to you later.";
+ close;
+
+LV4_44:
+LV4_45_NOGEM:
+ mes "[Hein]";
+ mes "I am sorry but please give me more time to remember the materials...";
+ mes "I had really good memory when I was alive...";
+ mes "So I could even recite them right after I woke up...";
+ close;
+
+
+LV4_47:
+LV4_48:
+ mes "[Hein]";
+ mes "Oh, yes. I just finished the work.";
+ mes "Do you want to know the result? Okay...";
+ mes "Breathe deeply...before we check.";
+ mes "The result is...";
+ next;
+ mes "[Hein]";
+ mes "a Big Success! This is great!";
+ mes "I have not labored in vain!";
+ mes "Let's see the weapon...it is...";
+
+ switch( rand(1, 2) ) {
+ case 1:
+ if(lv4_weapon == 47) mes "Edge.";
+ if(lv4_weapon == 47) getitem 1132 ,1; // 1132,Edge
+ if(lv4_weapon == 48) mes "Dragon Slayer.";
+ if(lv4_weapon == 48) getitem 1166, 1; // 1166,Dragon_Slayer
+ break;
+ case 2:
+ if(lv4_weapon == 47) mes "Excalibur.";
+ if(lv4_weapon == 47) getitem 1137, 1; // 1137,Excalibur
+ if(lv4_weapon == 48) mes "Schweizersabel.";
+ if(lv4_weapon == 48) getitem 1167, 1; // 1167,Schweizersabel
+ }
+
+ set lv4_weapon, 0;
+ next;
+ mes "[Hein]";
+ mes "Well...this is it.";
+ mes "I feel my memory is fading again...";
+ mes "Hahaha...being dead is not good.";
+ next;
+ mes "[Hein]";
+ mes "Thank you for your help. And if you have";
+ mes "a chance to visit Nifflheim again,";
+ mes "please come back and retrieve my memory once more...";
+ next;
+ mes "[Hein]";
+ mes "Aaahhhh! I don't think I will";
+ mes "remember you next time...";
+ mes "Take care, adventurer...father, I made it...";
+ close;
+
+
+
+//--------------------------------------------------
+//Hack Attempt
+//--------------------------------------------------
+LV4_HACK:
+ mes "[Hein]";
+ mes "Hmm. There seems to be a bit of problem.";
+ set lv4_weapon, 0;
+ logmes "[" +strcharinfo(0) + "] tried to hack LV4 quest.";
+ close;
+}
+
+//--------------------------------------------------
+// Waltboughst, creates Byeollungum, Exorciser(excercise), Combat Knife and Grand Cross
+//--------------------------------------------------
+
+niflheim.gat,331,72,3 script Waltboughst 795,{
+ set @NowWeight, MaxWeight - Weight;
+ if (@NowWeight >= 3000) goto LV4_NOT_OW;
+ mes "- Wait a minute! -";
+ mes "- You are currently overweight. -";
+ mes "- Please lose some weight -";
+ mes "- and try again. -";
+ close;
+
+
+LV4_NOT_OW:
+ if(BaseLevel >= 80) goto LV4_LEVEL_PASS;
+ mes "[Waltboughst]";
+ mes "...Hah!";
+ close;
+
+
+LV4_LEVEL_PASS:
+ if(lv4_weapon == 0) goto LV4_0;
+ if(lv4_weapon < 49) goto LV4_48;
+ if(lv4_weapon == 49) goto LV4_49;
+ if(lv4_weapon == 50) goto LV4_50;
+ if(lv4_weapon == 51) goto LV4_51;
+ if(lv4_weapon == 52) goto LV4_52;
+ if(lv4_weapon == 53) goto LV4_53;
+ if(lv4_weapon == 54) goto LV4_54;
+ if(lv4_weapon == 55) goto LV4_55;
+ if(lv4_weapon == 56) goto LV4_56;
+ if(lv4_weapon == 57) goto LV4_57;
+ if(lv4_weapon > 57) goto LV4_58;
+ end; // shouldn't be here
+
+
+LV4_0:
+LV4_49:
+ mes "[Waltboughst]";
+ mes "Ah~ it is so frustrating to be a dead man.";
+ mes "Because I cannot do anything without a body.";
+ mes "You know what my father used to say?";
+ mes "Trying best does not always";
+ mes "result in a success.";
+ mes "However...errr?";
+ next;
+
+ if(lv4_weapon == 0) goto LV4_0_ASK;
+
+ mes "[Waltboughst]";
+ mes "...What was my father's";
+ mes "quote? Why am I stuck in";
+ mes "here after death? Hey, you";
+ mes "Do you know anything about";
+ mes "Waltboughst when he was";
+ mes "alive?";
+ close;
+
+LV4_0_ASK:
+ switch( select( "Show interest.", "Igonore him." ) ) {
+ case 1:
+ mes "[Waltboughst]";
+ mes "...what did he say afterwards?";
+ mes "Speaking of which, why am I";
+ mes "so anxious to do something?";
+ mes "I am a dead man, and a dead man is not supposed to do anything!";
+ mes "Hey, do you know anything about me when I was alive?";
+ set lv4_weapon, 49;
+ close;
+ break;
+ case 2:
+ mes "- Because you decided to ignore him, -";
+ mes "- you are no longer able to hear him. -";
+ close;
+ break;
+ }
+ end;
+
+
+LV4_48:
+LV4_58:
+ mes "[Waltboughst]";
+ mes "I feel something different about you.";
+ mes "Did you come here with a purpose?";
+ mes "I am envious of you...";
+ close;
+
+
+LV4_50:
+ mes "[Waltboughst]";
+ mes "Ah~ it is so frustrating to be a dead man.";
+ mes "Because I cannot do anything without a body.";
+ mes "You know what my father used to say?";
+ mes "Trying best does not always";
+ mes "result in a success.";
+ mes "However...";
+ next;
+ set @dap4$, "All the successful men in the history tried their best!";
+ input @answer4$;
+ if(@answer4$ == @dap4$) goto LV4_50_CORRECT;
+ mes "[Waltboughst]";
+ mes "...What? What did you just say?";
+ mes "Hmmm.";
+ close;
+
+LV4_50_CORRECT:
+ mes "[Waltboughst]";
+ mes "Yes! That was it!";
+ mes "Since I am dead, I cannot even try!";
+ mes "Eh...?! Ah!";
+ mes "I see, I see now.";
+ mes "I must have been killed by some kind of accident!";
+ set lv4_weapon, 51;
+ next;
+ mes "[Waltboughst]";
+ mes "Okay, I am not going to end this way.";
+ mes "Hey, you were meant to meet me!";
+ mes "You got to do me a favor, now!";
+ next;
+ mes "[Waltboughst]";
+ mes "I will give you the result of my research";
+ mes "in return! All I want is to compete my research,";
+ mes "not the result.";
+ next;
+ mes "[Waltboughst]";
+ mes "Well, give me some time to remember";
+ mes "what I need for my research.";
+ mes "I will talk to you later.";
+ close;
+
+
+LV4_52:
+ if(countitem($@LV4_Hammer_Of_Blacksmith) < 2) goto LV4_52_BASE_MAT;
+ if(countitem($@LV4_Emperium_Anvil) < 1) goto LV4_52_BASE_MAT;
+ if(countitem($@LV4_Illusion_Flower) < 1) goto LV4_52_BASE_MAT;
+ if(countitem($@LV4_Gold) < 20) goto LV4_52_BASE_MAT;
+
+ mes "[Waltboughst]";
+ mes "Oh...you brought everything I need!";
+ mes "You were quick this time...I am still having";
+ mes "a hard time remembering what I need other than those.";
+ mes "This is not good, this is not good at all.";
+ next;
+ mes "[Waltboughst]";
+ mes "Anyways, I will keep those materials for you.";
+ mes "And give me some more times to";
+ mes "remember what I need...arph!";
+
+ if(countitem($@LV4_Hammer_Of_Blacksmith) < 2) goto LV4_HACK;
+ if(countitem($@LV4_Emperium_Anvil) < 1) goto LV4_HACK;
+ if(countitem($@LV4_Illusion_Flower) < 1) goto LV4_HACK;
+ if(countitem($@LV4_Gold) < 20) goto LV4_HACK;
+ delitem $@LV4_Hammer_Of_Blacksmith, 2;
+ delitem $@LV4_Emperium_Anvil, 1;
+ delitem $@LV4_Illusion_Flower, 1;
+ delitem $@LV4_Gold, 20;
+ set lv4_weapon, 53;
+ close;
+
+LV4_51:
+LV4_52_BASE_MAT:
+ switch( lv4_weapon ) {
+ case 51:
+ mes "[Waltboughst]";
+ mes "Umm, you came back so early.";
+ mes "I just remembered the materials.";
+ next;
+ mes "[Waltboughst]";
+ mes "I need 2 Hammer of Blacksmith,";
+ mes "1 Emperium Anvil, 1 Illusion Flower and 20 Gold...";
+ next;
+ mes "[Waltboughst]";
+ mes "I do need some other items...but I need some time";
+ mes "to remember those. Oh well,";
+ mes "we have enough time, so let me think of them.";
+ set lv4_weapon, 52;
+ break;
+ case 52:
+ mes "[Waltboughst]";
+ mes "I need 2 Hammer of Blacksmith,";
+ mes "1 Emperium Anvil, 1 Illusion Flower and 20 Gold...";
+ mes "Most likey they will be the ones I need...";
+ break;
+ }
+ close;
+
+
+LV4_54:
+LV4_55:
+ if(countitem(LV4_Gem1) < 30) goto LV4_54_NOGEM;
+ if(countitem(LV4_Gem2) < 30) goto LV4_54_NOGEM;
+ if(countitem(LV4_Gem3) < 30) goto LV4_54_NOGEM;
+ mes "[Waltboughst]";
+ mes "...Um? The items that you brought to me seem";
+ mes "to be good materials for my creation...";
+ mes "Give them to me, I shall try first!";
+ next;
+ mes "[Waltboughst]";
+ mes "Oh...I was right! How did you";
+ mes "know these are materials I need?";
+ mes "Great, give me a moment!";
+ next;
+ mes "[Waltboughst]";
+ mes "...wait, I must test your luck first.";
+ mes "Since I am not sure about the result,";
+ mes "we should trust to luck for the result of my creation.";
+ mes "You must have good luck...";
+ next;
+ mes "[Waltboughst]";
+ mes "We are going to play 'Rock, Paper, Scissors'.";
+ mes "You must win at least 2 out of 3 times.";
+ mes "If you fail, you must leave a large amount";
+ mes "of one material you have brought.";
+ mes "It is for driving away your bad luck.";
+ next;
+ mes "[Waltboughst]";
+ mes "I will give you a piece of paper.";
+ mes "You will write down one among 'Rock, Paper, or Scissors'.";
+ mes "I will do the same at the same time.";
+ mes "We will then compare each other's paper at the end.";
+ next;
+
+ set @shobu, 0;
+
+ for( set @i, 1; @i <= 3; set @i, @i + 1 ) {
+ if(@i == 2) mes "[Waltboughst]";
+ if(@i == 2) mes "Let's play the second one!";
+ if(@i == 3) mes "[Waltboughst]";
+ if(@i == 3) mes "This will be the last one!";
+ if(@i == 3) mes "Let's compare after this.";
+ set @npchand[@i], rand(1, 3);
+ switch( select( "Scissors", "Rock", "Paper" ) ) {
+ case 1:
+ set @myhand[@i], 1;
+ if(@npchand[@i] == 3) set @shobu, @shobu + 1;
+ break;
+ case 2:
+ set @myhand[@i], 2;
+ if(@npchand[@i] == 1) set @shobu, @shobu + 1;
+ break;
+ case 3:
+ set @myhand[@i], 3;
+ if(@npchand[@i] == 2) set @shobu, @shobu + 1;
+ break;
+ }
+ }
+
+ if(countitem(LV4_Gem1) < 30) goto LV4_HACK;
+ if(countitem(LV4_Gem2) < 30) goto LV4_HACK;
+ if(countitem(LV4_Gem3) < 30) goto LV4_HACK;
+
+ if(@shobu > 1) goto LV4_54_WIN;
+
+ switch ( rand(1 ,3) ) {
+ case 1:
+ delitem LV4_Gem1, 30;
+ break;
+ case 2:
+ delitem LV4_Gem2, 30;
+ break;
+ case 3:
+ delitem LV4_Gem3, 30;
+ break;
+ }
+ goto LV4_54_RESULT;
+
+LV4_54_WIN:
+ delitem LV4_Gem1, 30;
+ delitem LV4_Gem2, 30;
+ delitem LV4_Gem3, 30;
+ set lv4_weapon, lv4_weapon + 2;
+ goto LV4_54_RESULT;
+
+LV4_54_RESULT:
+ mes "[Waltboughst]";
+ mes "Okay...I played in the order of...";
+
+ for( set @i, 1; @i <= 3; set @i, @i + 1 ) {
+ if(@npchand[@i] == 1) mes "Scissors";
+ if(@npchand[@i] == 2) mes "Rock";
+ if(@npchand[@i] == 3) mes "Paper";
+ }
+
+ next;
+ mes "[Waltboughst]";
+ mes "You did in the order of...";
+
+ for( set @i, 1; @i <= 3; set @i, @i + 1 ) {
+ if(@myhand[@i] == 1) mes "Scissors";
+ if(@myhand[@i] == 2) mes "Rock";
+ if(@myhand[@i] == 3) mes "Paper";
+ }
+
+ next;
+
+ if(@shobu > 1) goto LV4_54_SAY_WIN;
+
+ mes "[Waltboughst]";
+ mes "Well well well...you lost the game.";
+ mes "Ah~ you were close though...";
+ mes "We must drive away bad luck.";
+ next;
+ mes "[Waltboughst]";
+ mes "Okay, I will wait here,";
+ mes "go bring me the materials again...";
+ close;
+
+LV4_54_SAY_WIN:
+ mes "[Waltboughst]";
+ mes "Let's see...";
+ mes "You won total " + @shobu + " times.";
+ mes "Ah~ you must be really good at game!";
+ mes "Yes, your luck is at its highest!";
+ next;
+ mes "[Waltboughst]";
+ mes "I am going to keep my promise.";
+ mes "But I need some time to prepare.";
+ mes "Give me the materials now and I will talk to you later.";
+ close;
+
+LV4_53:
+LV4_54_NOGEM:
+ mes "[Waltboughst]";
+ mes "Arph...I haven't remembered them yet.";
+ mes "Awww....this is a problem.";
+ mes "I must think of them as soon as possible...";
+ close;
+
+
+LV4_56:
+LV4_57:
+ mes "[Waltboughst]";
+ mes "Hehe, I made something with the materials";
+ mes "in this short time! Wanna see?";
+ mes "Aren't you wondering about the result?";
+ mes "Hmmm....let's see...";
+ next;
+ mes "[Waltboughst]";
+ mes "Waltboughst never fails!";
+ mes "Besides you had good luck,";
+ mes "so it resulted in a perfect success!";
+ mes "You got a nice weapon here, it is...";
+
+ switch( rand(1, 2) ) {
+ case 1:
+ if(lv4_weapon == 56) mes "Byeollungum!";
+ if(lv4_weapon == 56) getitem 1140 ,1; // 1140,Byeollungum
+ if(lv4_weapon == 57) mes "Exorciser!";
+ if(lv4_weapon == 57) getitem 1233, 1; // 1233,Exercise
+ break;
+ case 2:
+ if(lv4_weapon == 56) mes "Combat Knife!";
+ if(lv4_weapon == 56) getitem 1228, 1; // 1228,Combat_Knife
+ if(lv4_weapon == 57) mes "Grand Cross!!";
+ if(lv4_weapon == 57) getitem 1528, 1; // 1528,Grand_Cross
+ }
+
+ set lv4_weapon, 0;
+ next;
+ mes "[Waltboughst]";
+ mes "I am genius! Hahahaha!";
+ mes "I made it when my brothers could not!";
+ mes "Muhahahahahaha!";
+ mes "Eh...err? Arrr...phhh?";
+ next;
+ mes "[Waltboughst]";
+ mes "Damn...I must try too hard.";
+ mes "My memory is fading again...";
+ mes "Oh well, somehow I proved";
+ mes "that I am a genius even after I died.";
+ next;
+ mes "[Waltboughst]";
+ mes "If you want me to display my genius again,";
+ mes "come retrieve my memory again.";
+ mes "And thank you!";
+ next;
+ mes "[Waltboughst]";
+ mes "Ah...my memory's dying again...";
+ mes "Farewell~ I don't think I will remember you";
+ mes "but I hope you will remember me as Waltboughst";
+ mes "the genius in the age!";
+ close;
+
+
+
+//--------------------------------------------------
+//Hack Attempt
+//--------------------------------------------------
+LV4_HACK:
+ mes "[Waltboughst]";
+ mes "Hmm. There seems to be a bit of problem.";
+ set lv4_weapon, 0;
+ logmes "[" +strcharinfo(0) + "] tried to hack LV4 quest.";
+ close;
+}
diff --git a/npc/quests/The_Sign_Quest(unfinished).txt b/npc/quests/The_Sign_Quest(unfinished).txt new file mode 100644 index 000000000..58f766d23 --- /dev/null +++ b/npc/quests/The_Sign_Quest(unfinished).txt @@ -0,0 +1,2053 @@ +//===== eAthena Script =======================================
+//= The Sign Quest, NOT FINISHED.
+//===== By: ==================================================
+//= MasterOfMuppets
+//===== Current Version: =====================================
+//= 0.1
+//===== Compatible With: =====================================
+//= eAthena SVN 3422+(Requires jA Script System)
+//===== Description: =========================================
+//= Quest for opening the doors to Geffenia, NOT FINISHED
+//===== Comments: ============================================
+//= This script uses sign_01.bmp - sign_04.bmp, these will be
+//= found in the language of your client.
+//===== Additional Comments: =================================
+//= Stored here for backup purposes
+//= 0.1 Added a few npcs, this quest cannot be finished [MasterOfMuppets]
+//= yet, so add it at your own risk.
+//= 0.2 This script is only here for storing purposes, [MasterOfMuppets]
+//= it is not finished and will not work at the moment!
+//============================================================
+//===== Configuration : ======================================
+prontera.gat,1,1,1 script TheSignConfig -1,{
+OnInit:
+//= This string will be used to show which timezone your server
+//= is located in, it's necessary for the quest, so please change it.
+
+ set $timezonestring$,"^FF0000-The Timezone isn't Configured-";
+
+//= This variable determines whether the "sign_xx.bmps" will be used or
+//= if raw text will be used in the 'Sign::Geffenia' script. Set it to
+//= 0 if you want to use text.
+
+ set $signbmps,1;
+}
+//============================================================
+
+alberta.gat,35,241,1 script Sign::GeffeniaSigns 111,{
+
+ if($signbmps == 1)
+{
+ if(signquest < 1)set signquest,1;
+ cutin "sign_01",4;
+ mes "^3131FFNext";
+ next;
+ cutin "",255;
+ cutin "sign_02",4;
+ mes "^3131FFNext";
+ next;
+ cutin "",255;
+ cutin "sign_03",4;
+ mes "^3131FFNext";
+ next;
+ cutin "",255;
+ cutin "sign_04",4;
+ mes "^3131FFClose";
+ close2;
+ cutin "",255;
+ end;
+}
+ else
+{
+ if(signquest < 1)set signquest,1;
+ mes "^3131FFTo the talented and";
+ mes "experienced adventurers who";
+ mes "have dreams of achieving true";
+ mes "greatness...";
+ next;
+ mes "^3131FFI present a once in a";
+ mes "lifetime opportunity to the one";
+ mes "who proves most worthy. You must";
+ mes "have the courage to risk peril,";
+ mes "the wisdowm to perforum right";
+ mes "action and the strength to be";
+ mes "victorious in combat.";
+ next;
+ mes "^3131FFThe way will be fraught";
+ mes "with danger and only the most";
+ mes "adept adventurers may have a";
+ mes "chance of surviving. But if we";
+ mes "can succeed, I promies on my";
+ mes "good name that power beyond";
+ mes "imagining will become yours.";
+ next;
+ mes "^3131FFThose of you who are interested,";
+ mes "come to me and I will test";
+ mes "your abilities. The one who";
+ mes "can manage to pass this testing";
+ mes "just might be capable of helping";
+ mes "me prove a forgotten legend";
+ mes "and uncover a long lost power";
+ next;
+ mes "^3131FFI shall be waiting.";
+ mes "";
+ mes "^000000-Metz Brayde";
+ close;
+}
+
+}
+
+morocc.gat,168,264,1 duplicate(GeffeniaSigns) Sign 111
+payon.gat,160,183,1 duplicate(GeffeniaSigns) Sign 111
+prontera.gat,147,305,1 duplicate(GeffeniaSigns) Sign 111
+geffen.gat,168,175,1 duplicate(GeffeniaSigns) Sign 111
+aldebaran.gat,54,223,1 duplicate(GeffeniaSigns) Sign 111
+
+prt_in.gat,228,26,4 script Steward 55,{
+
+ if(signquest > 1)
+{
+ mes "[Vendez]";
+ mes "Ah, master " + strcharinfo(0) + ".";
+ mes "Welcome. How may I be";
+ mes "of service today?";
+ next;
+ menu "Who is Arian?",s_Arian,"What is Metz doing?",-,"How is Elle?",s_Elle;
+
+ mes "[Vendez]";
+ mes "Althought I've served";
+ mes "the Brayde family for years";
+ mes "I'm unfamiliar with Master";
+ mes "Metz's work. My appologies, but";
+ mes "I simply cannot even begin to";
+ mes "fathom his research...";
+ close;
+s_Arian:
+ mes "[Vendez]";
+ mes "Ah yes, Arian.";
+ mes "I consider him to be";
+ mes "a man of few words. The";
+ mes "words he does choose to";
+ mes "use are rather harsh and";
+ mes "brutish, you might say.";
+ close;
+s_Elle:
+ mes "[Vendez]";
+ mes "Ah, Mistress Elle";
+ mes "has been working here";
+ mes "since she was a very young";
+ mes "girl. She is almost like";
+ mes "a granddaughter to me.";
+ mes "Ha ha-^222222*Ahem*";
+ close;
+
+}
+ else
+{
+ mes "[Vendez]";
+ mes "Welcome to the";
+ mes "Brayde Estate. How";
+ mes "may I be of service?";
+ next;
+ menu "Nothing",-,"I'm here to see Metz",s_Metz,"Gimmie your cash!",s_Cash;
+
+ mes "[Vendez]";
+ mes "If you do not have";
+ mes "any business to conduct";
+ mes "with Master Metz, please";
+ mes "leave immediately";
+ close;
+
+s_Metz:
+ mes "[Vendez]";
+ mes "Very good, sir.";
+ mes "Please wait a moment";
+ mes "while I consult with";
+ mes "the master in his study.";
+ close;
+
+s_Cash:
+ mes "[Vendez]";
+ mes "My apologies,";
+ mes "but I insist that";
+ mes "you leave the premises";
+ mes "^FF0000immediately^000000.";
+ close2;
+ warp "prontera.gat",150,150;
+ end;
+}
+
+}
+
+prt_in.gat,227,45,4 script Archaeologist 804,{
+
+ cutin "mets_alpha",2;
+ if(signquest > 0)goto s_Cont;
+ mes "[Metz]";
+ mes "Although you need everlasting";
+ mes "patience in an archaeological";
+ mes "excavation, the feeling you get";
+ mes "when you find something makes";
+ mes "all those long hours of study and";
+ mes "research worth it.";
+ close2;
+ cutin "",255;
+ end;
+
+s_Cont:
+ if(signquest == 1)
+{
+ mes "[Metz]";
+ mes "Hm...?";
+ mes "Can I help you?";
+ next;
+ menu "I've been following these signs and...",s_Sign,"I was just passing by",-;
+
+ mes "[Metz]";
+ mes "Oh really?";
+ mes "I see, I though you";
+ mes "were an applicant for";
+ mes "the position I'm offering";
+ mes "to brave adventurers.";
+ close2;
+ cutin "",255;
+ end;
+
+s_Sign:
+ mes "[Metz]";
+ mes "Great...!";
+ mes "Welcome to my";
+ mes "humble lodgings.";
+ mes "Hmm, let me see...";
+ next;
+ mes "[Metz]";
+ mes "Hey, I think you might";
+ mes "be well suited for the job!";
+ mes "But do you think you could come";
+ mes "back later? I've got my hands full";
+ mes "with some other business.";
+ next;
+ mes "[Metz]";
+ mes "Oh right, would you tell";
+ mes "me your name? " + strcharinfo(0) + "?";
+ mes "Okay then, I'll remember that.";
+ mes "Talk to you later, alright?";
+ set signquest,2;
+ close2;
+ cutin "",255;
+ end;
+}
+
+ else if(signquest == 2)
+{
+ mes "[Metz]";
+ mes "I'm sorry I made you wait,";
+ mes "but I had some research to finish";
+ mes "and it took longer than I expected.";
+ mes "Now, before I tell you more about";
+ mes "the job, I want to test your";
+ mes "competency";
+ next;
+ mes "[Metz]";
+ mes "The job I'm offering is";
+ mes "pretty risky and not just";
+ mes "anybody can handle it.";
+ mes "You'll actually go through";
+ mes "a series of tests conducted";
+ mes "by my trusted friends.";
+ next;
+ mes "[Metz]";
+ mes "Now, the first person";
+ mes "you must visit is ^FF0000Arian^000000";
+ mes "in Morroc. Please speak";
+ mes "to him and he'll give you";
+ mes "all the details about his";
+ mes "examination... I hope";
+ next;
+ mes "[Metz]";
+ mes "Once you're finished with";
+ mes "the test, Arian will tell you";
+ mes "what to do next. Afterwards,";
+ mes "come back to me so that we";
+ mes "can finally talk business.";
+ next;
+ mes "[Metz]";
+ mes "Ah, almost forgot.";
+ mes "Arian won't talk to anybody";
+ mes "unless he knows them or";
+ mes "receives a message from me.";
+ mes "So if he's snubbed you in the past,";
+ mes "just understand that's his way.";
+ set signquest,3;
+ close2;
+ cutin "",255;
+ end;
+}
+ else if(signquest == 3 || signquest == 4)
+{
+ mes "[Metz]";
+ mes "Hm...?";
+ mes "Shouldn't you leave";
+ mes "for Morroc to see Arian?";
+ mes "You better hurrty in case";
+ mes "somebody else applies";
+ mes "for this little job.";
+ close2;
+ cutin "",255;
+ end;
+}
+
+}
+
+prt_in.gat,248,23,4 script Maid 1275,{
+
+end;
+
+}
+
+morocc_in.gat,114,162,4 script Young Man 118,{
+
+ if(signquest == 5)
+{
+ mes "[Gaanan]";
+ mes "^444444*Sigh...*^000000";
+ mes "I wish the weather'd";
+ mes "cool down, even just a little.";
+ mes "While I'm asking for miracles,";
+ mes "I may as well wish for a billion";
+ mes "kajillion zeny. And maybe a yacht.";
+ close;
+}
+
+ else if(arianstest == 8)
+{
+ if(gaanantest == 1)
+{
+ mes "[Gaanan]";
+ mes "Hm...?";
+ mes "Arian is the one";
+ mes "who's grading your";
+ mes "test. But I understand.";
+ mes "If you failed, I'd want";
+ mes "to avoid him too...";
+ close;
+}
+ mes "[Gaanan]";
+ mes "Oh, Arian seny you to me,";
+ mes "right? I'm sorry, but he takes";
+ mes "a little time getting used to.";
+ mes "Even though I still have to get";
+ mes "used to his... mannerisms";
+ next;
+ mes "[Gaanan]";
+ mes "Anyway, since he thinks it's";
+ mes "boring, Arian put me in charge";
+ mes "of the quiz portion of your test.";
+ mes "Please carefully choose an";
+ mes "ansawer when I ask you a";
+ mes "question. Are you ready?";
+ next;
+ set gaananpoint,0;
+ mes "[Gaanan]";
+ mes "Now, the first question.";
+ mes "Let's say that you just";
+ mes "found yourself on a deserted";
+ mes "island. What is the very first";
+ mes "thing that you should do?";
+ next;
+ menu "Look for fresh water",-,"Just wait for rescue.",s_1W,"Forage for food.",s_1W,"Explore the island.",s_1W;
+ set gaananpoint,1;
+s_1W:
+ mes "[Gaanan]";
+ mes "The second question is...";
+ mes "You happen to be stuck in";
+ mes "a narrow place inside some collapsed building. What";
+ mes "do you plan to do first?";
+ next;
+ menu "Scream for help",-,"Stay quiet.",s_2W,"Wait for death to come.",s_2W,"Find a way out.",s_2W;
+ set gaananpoint,gaananpoint + 1;
+s_2W:
+ mes "[Gaanan]";
+ mes "Now, the third question.";
+ mes "You're on some dungeon";
+ mes "expedition with your friends,";
+ mes "but you got lost somehow.";
+ mes "How do you handle it?";
+ next;
+ menu "Try to find my friends.",-,"Find a way out.",s_3W,"Stay put.",s_3W,"Continue exploring the dungeon.",s_3W;
+ set gaananpoint,gaananpoint + 1;
+s_3W:
+ mes "[Gaanan]";
+ mes "Here's the fourth question.";
+ mes "You're with your friends inside";
+ mes "a mansion with no exit. What do";
+ mes "you do first when a murder happens";
+ mes "inside the mansion?";
+ next;
+ menu "Wait for the case to get solved.",-,"Try to find my firends first.",s_4W,"Find a way out.",s_4W,"Solve the murder case on my own.",s_4W,"Kill the others before they kill me.",s_4W;
+ set gaananpoint,gaananpoint + 1;
+s_4W:
+ mes "[Gaanan]";
+ mes "The fifth question is";
+ mes "You hear that the end of";
+ mes "the world is in one week.";
+ mes "So what do you do during";
+ mes "this final week?";
+ next;
+ menu "Wait to see the end.",-,"Plant an apple tree.",s_5W,"Look to move to a different world.",s_5W,"What else? Save the world.",s_5W,"What else? Go on a crime spree.",s_5W;
+ set gaananpoint,gaananpoint + 1;
+s_5W:
+ mes "[Gaanan]";
+ mes "Oh! We're done!";
+ mes "Okay, let me give";
+ mes "these answers to Arian.";
+ mes "Sooo... Talk to him and";
+ mes "he'll let you know how";
+ mes "you did.";
+ set gaanantest,1;
+ close;
+}
+
+ else if(ariantest < 8)
+{
+
+ emotion 19;
+ mes "[Gaanan]";
+ mes "The weather here in";
+ mes "Morroc is too hot for me.";
+ mes "I'm having a hard time just";
+ mes "trying to live here. Do you";
+ mes "know a nice and cool place";
+ mes "where I can work?";
+ close;
+
+}
+
+}
+
+morocc_in.gat,115,154,5 script Rogue 810,{
+
+ if(signquest == 5)
+{
+ mes "[Arian]";
+ mes "..........";
+ mes "Payon...?";
+ mes "Daewooon?";
+ mes "Any of it ring a bell?";
+ mes "Cuz it really oughtta!";
+ close;
+}
+
+ else if(signquest < 3 || signquest > 5)
+{
+ emotion 9;
+ end;
+}
+ else if(signquest == 3)
+{
+
+ mes "[Arian]";
+ mes "...";
+ mes "Who the hell";
+ mes "are you, jerkface?";
+ next;
+ menu "Metz sent me here.",s_Metz,"^0000FF" + strcharinfo(0) + "^000000",s_Name,"Who are you then?",-;
+
+ mes "[Arian]";
+ mes "...";
+ mes "......";
+ next;
+ percentheal -50,0;
+ mes "[Arian]";
+ mes "...";
+ mes "......";
+ mes "Your mom.";
+ mes "Now get the";
+ mes "hell outta here!";
+ close;
+
+s_Metz:
+
+ mes "[Arian]";
+ mes "Oh yeah...?";
+ mes "Well, I'm sending you";
+ mes "back! No way I'm fallin'";
+ mes "for that trick, chump!";
+ close2;
+ warp "morocc.gat",279,173;
+ end;
+
+s_Name:
+
+ mes "[Arian]";
+ mes "Wha...?";
+ mes "^0000FF" + strcharinfo(0) + "^000000.";
+ mes "Yeah, okay. Metz did";
+ mes "mention something about";
+ mes "you. You're here for";
+ mes "the test, right?";
+ next;
+ mes "[Arian]";
+ mes "Aliright, this";
+ mes "test is simple.";
+ mes "I tell you to bring me";
+ mes "a bunch of items and";
+ mes "you go get them.";
+ next;
+ mes "[Arian]";
+ mes "I know you jerkward adventurers";
+ mes "are always talking and you share";
+ mes "the answers for any test some dude";
+ mes "is givin' out. 'Course, it doesn't";
+ mes "help that I use the same test";
+ mes "every frickin' time...";
+ next;
+ mes "[Arian]";
+ mes "Now, you gotta bring and only";
+ mes "have the item I ask you for when";
+ mes "you come to me. If you know that";
+ mes "I'll be asking for something later";
+ mes "and you happen to have it, I'll";
+ mes "straight up ^FF0000jack it^000000.";
+ next;
+ mes "[Arian]";
+ mes "The first item?";
+ mes "Gimme ^FF0000100 Fluff^000000.";
+ mes "Bring that and I'll";
+ mes "tell you what to";
+ mes "bring next.";
+ set signquest,4;
+ set arianstest,1;
+ close;
+}
+ else if(signquest == 4)
+{
+
+ if(arianstest == 1)
+{
+ if(countitem(914) < 100)goto s_Bringfluff;
+ delitem 914,100;
+ mes "[Arian]";
+ mes "What the hell took you so";
+ mes "long? Now bring me ^FF000050 Poison Spores^000000";
+ mes "or I'll kick your ass.";
+ set arianstest,2;
+ close2;
+ goto Verifyitems;
+
+s_Bringfluff:
+ mes "[Arian]";
+ mes "...";
+ mes "Hey. What the hell's wrong";
+ mes "with you? Hurry and get me";
+ mes "^FF0000100 Fluff^000000, ya slacker.";
+ close;
+}
+
+ else if(arianstest == 2)
+{
+ if(countitem(7033) < 50)goto s_Bringspore;
+ delitem 7033,50;
+ mes "[Arian]";
+ mes "...";
+ mes "It's about time you";
+ mes "got here with those";
+ mes "Poison Spores. Now, go";
+ mes "and get ^FF000030 Scorpion Tails";
+ set arianstest,3;
+ close2;
+ goto Verifyitems;
+
+s_Bringspore:
+ mes "[Arian]";
+ mes "...";
+ mes "Hey. What part of 'Get me";
+ mes "^FF000050 Poison Spores^000000 or I'll";
+ mes "kick your ass, don't";
+ mes "you understand?";
+ close;
+}
+ else if(arianstest == 3)
+{
+ if(countitem(904) < 30)goto s_Bringtails;
+ delitem 904,30;
+ mes "[Arian]";
+ mes "...";
+ mes "Damn, you sure took your";
+ mes "sweet time bringing over this";
+ mes "crap. Okay, now bring";
+ mes "^FF000020 Rotten Bandages^000000.";
+ set arianstest,4;
+ close2;
+ goto Verifyitems;
+
+s_Bringtails:
+ mes "[Arian]";
+ mes "...";
+ mes "What, your mom drop you on the";
+ mes "head right after you were born?";
+ mes "Stop bein' stupid and get me";
+ mes "^FF000030 Scorpion Tails^000000, nimrod.";
+ close;
+}
+ else if(arianstest == 4)
+{
+ if(countitem(930) < 20)goto s_Bringbandages;
+ delitem 930,20;
+ mes "[Arian]";
+ mes "...";
+ mes "You brought the bandages.";
+ mes "Okay short stuff, go and get";
+ mes "me ^FF000015 Little Evil Horn^000000. What";
+ mes "are you waiting for, a memo?";
+ mes "Get outta here~!";
+ set arianstest,5;
+ close2;
+ goto Verifyitems;
+
+s_Bringbandages:
+ mes "[Arian]";
+ mes "...";
+ mes "Is it really that hard to get";
+ mes "^FF000020 Rotten Bandages^000000? Cuz if it";
+ mes "is, then you must really blow.";
+ mes "How hustle it up, punk!";
+ close;
+}
+ else if(arianstest == 5)
+{
+ if(countitem(1038) < 15)goto s_Bringhorns;
+ delitem 1038,15;
+ mes "[Arian]";
+ mes "...";
+ mes "My grandma coulda grown";
+ mes "out her beard in the time";
+ mes "it took you to come back.";
+ mes "Now hurry it up and get";
+ mes "me ^FF000010 Coral Reefs^000000!";
+ set arianstest,6;
+ close2;
+ goto Verifyitems;
+
+s_Bringhorns:
+ mes "[Arian]";
+ mes "...";
+ mes "I don't get it.";
+ mes "You don't have the";
+ mes "^FF000015 Little Evil Horn";
+ mes "I told you to get.";
+ next;
+ mes "[Arian]";
+ mes "I see, so it's my";
+ mes "fault for not telling you";
+ mes "not to bring your crap face";
+ mes "back without 'em. ^222222*A-hem*";
+ mes "Don't bring your crap face here";
+ mes "without 15 Little Evil Horns!!";
+ close;
+}
+ else if(arianstest == 6)
+{
+ if(countitem(7013) < 10)goto s_Bringcorals;
+ delitem 7013,10;
+ mes "[Arian]";
+ mes "Finally you're back";
+ mes "Gimme a sec to count";
+ mes "all this stuff so I can make";
+ mes "sure you're not trying to";
+ mes "cheat. God help you if you";
+ mes "try to pull a fast one on me...!";
+ set arianstest,7;
+ close;
+
+s_Bringcorals:
+ mes "[Arian]";
+ mes "I don't care how pretty";
+ mes "they are or if you're ruining";
+ mes "the ecosystem! When I say";
+ mes "'bring ^FF000010 Coral Reefs^000000',you";
+ mes "better have them! All the";
+ mes "fish can die for all I care.";
+ close;
+}
+ else if(arianstest == 7)
+{
+ mes "[Arian]";
+ mes "...";
+ mes "Alright. Go talk";
+ mes "to the guy to my left.";
+ mes "The dude at the counter.";
+ mes "What's-his-face, Ganaan.";
+ set arianstest,8;
+ close;
+}
+ else if(arianstest == 8)
+{
+ if(gaanantest == 1)
+{
+ if(gaananpoint < 3)goto s_Suck;
+ mes "[Arian]";
+ mes "Alright. The answers";
+ mes "you have Ganaan tell me";
+ mes "you're not a total dumbass.";
+ mes "Now you're supposed to go see";
+ mes "Daewoon in Payon. And don't forget";
+ mes "to show him this Star thingiee.";
+ getitem 7177,1;
+ set signquest,5;
+ close;
+s_Suck:
+ mes "[Arian]";
+ mes "Let's see...";
+ mes "I'm looking at your";
+ mes "answers and they totally";
+ mes "suck. Take the test again";
+ mes "and do it right this time!";
+ next;
+ mes "[Arian]";
+ mes "Geez...";
+ mes "You're givin' Ganaan";
+ mes "a hard time. You hear";
+ mes "me? That's my job!";
+ set gaananpoint,0;
+ set gaanantest,0;
+ close;
+}
+ mes "[Arian]";
+ mes "You wanna leave me";
+ mes "alone now and gimme";
+ mes "a little personal space?!";
+ mes "I need a break from looking";
+ mes "at your ugly mug, you know?";
+ close;
+}
+
+}
+
+Verifyitems:
+
+ if(arianstest == 2 && countitem(7033) > 49)
+{
+ delitem 7033,countitem(7033);
+ mes "[Arian]";
+ mes "Hey! What did I tell you";
+ mes "about bringing stuff before";
+ mes "I asked you about it";
+ next;
+ mes "[Arian]";
+ mes "I'll confiscate those Poison Spores.";
+ close2;
+}
+ else if(arianstest == 3 && countitem(904) > 29)
+{
+ delitem 904,countitem(904);
+ mes "[Arian]";
+ mes "Hey! What did I tell you";
+ mes "about bringing stuff before";
+ mes "I asked you about it";
+ next;
+ mes "[Arian]";
+ mes "I'll take those Scorpion Tails.";
+ close2;
+}
+ else if(arianstest == 4 && countitem(930) > 19)
+{
+ delitem 930,countitem(930);
+ mes "[Arian]";
+ mes "Hey! What did I tell you";
+ mes "about bringing stuff before";
+ mes "I asked you about it";
+ next;
+ mes "[Arian]";
+ mes "I'll take those Rotten Bandages.";
+ close2;
+}
+ else if(arianstest == 5 && countitem(1038) > 14)
+{
+ delitem 1038,countitem(1038);
+ mes "[Arian]";
+ mes "Hey! What did I tell you";
+ mes "about bringing stuff before";
+ mes "I asked you about it";
+ next;
+ mes "[Arian]";
+ mes "I'll confiscate those Little Evil Horns.";
+ close2;
+}
+ else if(arianstest == 6 && countitem(7013) > 9)
+{
+ delitem 7013,countitem(7013);
+ mes "[Arian]";
+ mes "Hey! What did I tell you";
+ mes "about bringing stuff before";
+ mes "I asked you about it";
+ next;
+ mes "[Arian]";
+ mes "I'll confiscate those Coral Reefs.";
+ close2;
+}
+ end;
+}
+
+payon_in03.gat,81,16,8 script Maid::Sohee 1170,{
+
+end;
+
+}
+
+payon_in03.gat,78,16,8 script Maid::Miyabi 1404,{
+
+end;
+
+}
+
+payon_in03.gat,13,31,4 script Maid::Nymph 1416,{
+
+end;
+
+}
+
+payon_in03.gat,81,21,4 duplicate(Sohee) Maid 1170
+payon_in03.gat,78,21,4 duplicate(Miyabi) Maid 1404
+payon_in03.gat,8,31,4 duplicate(Nymph) Maid 1416
+
+payon_in03.gat,11,31,4 script Daewoon 808,{
+
+
+
+ mes "[Daewoon]";
+ mes "Mwah ah hah!";
+ mes "Feasting and merriment,";
+ mes "wine, women and song!";
+ mes "I could ask for nothing more!";
+ next;
+ mes "[Daewoon]";
+ mes "The most scumptious";
+ mes "delicacies are all mine to";
+ mes "taste! And I'm not just talking";
+ mes "about the food. Mwah ah hah!";
+ mes "I'm the king of the world!";
+ next;
+
+ if(signquest < 4 || signquest > 6)
+{
+ mes "[Daewoon]";
+ mes "Mwah ah hah~!";
+ mes "I couldn't be happier!";
+ mes "What more do I need?";
+ mes "Gourmet food, find wine";
+ mes "nubile women...!";
+ close;
+}
+ else if(signquest == 5)
+{
+ mes "[Daewoon]";
+ mes "Oh, a visitor?";
+ mes "I'm sorry, but I believe";
+ mes "you're an uninvited guest~";
+ mes "You'll have to forgive me";
+ mes "if I wish to spend my time with";
+ mes "maidens as opposed to men";
+ next;
+ mes "[" + strcharinfo(0) + "]";
+ mes "Sure...";
+ mes "But first, would you";
+ mes "take a look at this?";
+ next;
+ mes "^3131FFYou carefully take";
+ mes "out the small, lucid";
+ mes "jewel that Arian gave";
+ mes "you and reveal it to";
+ mes "Daewoon's roving eyes.";
+ next;
+ emotion 0;
+ mes "[Daewoon]";
+ mes "Eh? Why that's...";
+ mes "I see now, Arian must";
+ mes "have sent you! Oh you";
+ mes "should have said so";
+ mes "at the very beginning~";
+ next;
+ mes "[Daewoon]";
+ mes "My apologies~";
+ mes "Lately I've been attracting";
+ mes "all sorts of strange attention like";
+ mes "some kind of teen celebrity. I've";
+ mes "gotten used to being too careful in";
+ mes "screening out the dangerous sort.";
+ next;
+ mes "[Daewoon]";
+ mes "Now then.";
+ mes "Do you have any";
+ mes "idea what that jewel";
+ mes "you're holding actually is?";
+ next;
+ menu "Kind of?",-,"How the hell would I know?",s_How,"No, but would you tell me?",s_Tell;
+
+ mes "[Daewoon]";
+ mes "Oh...!";
+ mes "You must be much";
+ mes "smarter than I expected.";
+ mes "So tell me, what do you";
+ mes "understand about this jewel?";
+ next;
+ menu "It's handy.",-,"I actually don't know...",s_Honest;
+
+ emotion 9;
+ mes "[Daewoon]";
+ mes "Mmm...?";
+ mes "Handy? If you truly";
+ mes "understood, I don't";
+ mes "think you'd describe this";
+ mes "jewel as merely 'handy'.";
+ next;
+ goto s_Cont;
+s_Honest:
+ emotion 32;
+ mes "[Daewoon]";
+ mes "Really?";
+ mes "Mm. At least you";
+ mes "admit it ^000200*Sigh*";
+ next;
+ goto s_Cont;
+s_How:
+ emotion 9;
+ mes "[Daewoon]";
+ mes "...";
+ mes "A rather crass way";
+ mes "of speaking, but perhaps";
+ mes "you picked it up from Arian.";
+ mes "In any case, let me explain.";
+ next;
+ goto s_Cont;
+s_Tell:
+ mes "[Daewoon]";
+ mes "Didn't Arian tell you";
+ mes "anything? I appreciate";
+ mes "your honesty. And I don't";
+ mes "mind chatting a while, I much";
+ mes "prefer speaking to honest people";
+ mes "rather than foolish know-it-alls.";
+ next;
+s_Cont:
+ mes "[Daewoon]";
+ mes "That ^301A8ASobbing Starlight^000000";
+ mes "is no mere jewel. It is a key";
+ mes "item for unlocking some incredible";
+ mes "power. I believe Metz happened to";
+ mes "obtain a piece, though I am";
+ mes "unsure how...";
+ next;
+ mes "[Daewoon]";
+ mes "Metz has asked me and";
+ mes "some other friends who";
+ mes "hold the fragments of the";
+ mes "Sobbing Starlight to entrust";
+ mes "them to someone worthy of";
+ mes "finding the power it leads to.";
+ next;
+ mes "[Daewoon]";
+ mes "Of course, we all agreed";
+ mes "and now you're here for me";
+ mes "to judge whether or not you're";
+ mes "qualified for this task. Now,";
+ mes "are you ready for my test?";
+ next;
+ menu "I'M READY! YEEAH!",-,"I'll do my best!",s_Best,"To hell with this!",s_Rude,"Fine. Let's get it over with",s_GetOver;
+
+ mes "[Daewoon]";
+ mes "Ooh~";
+ mes "Such unbridled";
+ mes "enthusiasm usually";
+ mes "goes more good than harm.";
+ next;
+ goto s_Question;
+
+s_Best:
+ emotion 33;
+ mes "[Daewoon]";
+ mes "Mwah ah hah";
+ mes "That's exactly what";
+ mes "I wanted to hear! That";
+ mes "kind of quiet and careful";
+ mes "confidence will help you";
+ mes "in the future, you'll see~";
+ next;
+ goto s_Question;
+s_Rude:
+
+ mes "[Daewoon]";
+ mes "E...";
+ mes "Excuse me?";
+ next;
+ mes "[Daewoon]";
+ mes "How can you be";
+ mes "so ridiculous at";
+ mes "a time like this?";
+ mes "Either mind your manners";
+ mes "or don't take this test at";
+ mes "all! ^000200*SLAP--!!*";
+ next;
+ goto s_Question;
+
+s_GetOver:
+ emotion 9;
+ mes "[Daewoon]";
+ mes "Hmm. That kind of half-hearted";
+ mes "attitude won't get you very far on";
+ mes "your adventures. Still, so long as";
+ mes "you don't get overly negative, you";
+ mes "should have a decent chance of";
+ mes "surviving your challenges.";
+ next;
+s_Question:
+ emotion 20;
+ set @DaewoonTest,0;
+ mes "[Daewoon]";
+ mes "Now, metz expects me to ask";
+ mes "some rather serious questions,";
+ mes "but that really isn't my style. For";
+ mes "this test, why don't we just talk?";
+ mes "Just answer me honestly and";
+ mes "light heartedly, alright?";
+ next;
+ mes "[Daewoon]";
+ mes "So...";
+ mes "Do you have a lot";
+ mes "of friends that you can";
+ mes "constantly party with?";
+ next;
+ menu "Yes, I do",-,"I prefer soloing.",s_Solo,"I am lonely.",s_Lonely;
+
+ set @DaewoonTest,1;
+ emotion 23;
+ mes "[Daewoon]";
+ mes "Oh, that's great~!";
+ mes "To have many friends";
+ mes "is a priceless blessing.";
+ mes "Friends bring us joy and";
+ mes "aid when we find ourselves";
+ mes "suffering from difficulties.";
+ next;
+ mes "[Daewoon]";
+ mes "Wouldn't you";
+ mes "agree that being";
+ mes "really close friends";
+ mes "with someone can be";
+ mes "a life long benefit?";
+ next;
+ goto s_Mobtrain;
+
+s_Solo:
+
+ mes "[Daewoon]";
+ mes "Well, everybody";
+ mes "needs to be alone once";
+ mes "in a while. And there are";
+ mes "some battles you must";
+ mes "fight all on your own.";
+ next;
+ mes "[Daewoon]";
+ mes "Also, if you never";
+ mes "deal with other people,";
+ mes "you may grow selfish or";
+ mes "needy. It's better to go";
+ mes "out and meet people,";
+ mes "don't you think?";
+ next;
+ goto s_Mobtrain;
+
+s_Lonely:
+
+ mes "[Daewoon]";
+ mes "You don't have any";
+ mes "friends at all? Well,";
+ mes "you better learn how";
+ mes "to get along with others";
+ mes "as soon as you can...!";
+ next;
+s_Mobtrain:
+ mes "[Daewoon]";
+ mes "Now, what's your opinion";
+ mes "on purposely getting lots";
+ mes "of monsters to follow you";
+ mes "around. I believe this is";
+ mes "called 'Mob Training...'";
+ next;
+ menu "Awesome~!",-,"I hate people who do that.",s_Hate,"I do it sometime...",s_Sometimes;
+
+ emotion 32;
+ mes "[Daewoon]";
+ mes "But...";
+ mes "Wouldn't that be really";
+ mes "rude to anyone else hunting";
+ mes "on that same map? I think";
+ mes "it would even interfer with";
+ mes "someone else's gameplay...";
+ next;
+ mes "[Daewoon]";
+ mes "Pherhaps you should try";
+ mes "to consider other people's";
+ mes "feelings. Mob training seems";
+ mes "to only be good at getting other";
+ mes "people angry with you...";
+ next;
+ goto s_Woe;
+s_Hate:
+ set @DaewoonTest,@DaewoonTest + 1;
+ mes "[Daewoon]";
+ mes "Really?";
+ mes "I do too!";
+ next;
+ mes "[Daewoon]";
+ mes "Just the other day, I've";
+ mes "heard some ruffians boasting";
+ mes "of their mob training activities.";
+ mes "But personally, I feel they were";
+ mes "compensating for their own";
+ mes "shortcomings.";
+ next;
+ mes "[Daewoon]";
+ mes "Such behaviour truly";
+ mes "bothers me. Although I have";
+ mes "spent years in developing an";
+ mes "unflappable personality, I find";
+ mes "myself irked when encountering";
+ mes "such troublemakers.";
+ next;
+ emotion 21;
+ mes "[Daewoon]";
+ mes "When you face obstacles";
+ mes "in your own training, never give in";
+ mes "to weakness. Assert yourself and";
+ mes "find the determination to overcome";
+ mes "your tribulations with honor!";
+ next;
+ goto s_Woe;
+s_Sometimes:
+ mes "[Daewoon]";
+ mes "At least you're honest.";
+ mes "But let me say that I cannot";
+ mes "condone that sort of weak willed";
+ mes "behavior. True strength can only";
+ mes "be found through honor.";
+ mes "Remember that.";
+ next;
+ mes "[Daewoon]";
+ mes "In the face of overwhelming";
+ mes "odds, do not despair. After all,";
+ mes "what is achievment if it is not";
+ mes "earned without difficulty? The";
+ mes "greater the challenge, the";
+ mes "greater the glory.";
+ next;
+ mes "[Daewoon]";
+ mes "Even if you are having a hard time,";
+ mes "try to take a firm stand.";
+ mes "One day, you will realize how";
+ mes "strong you have become.";
+ next;
+ mes "[Daewoon]";
+ mes "And...";
+ mes "Don't ever partake in";
+ mes "mob training again, okay?";
+ next;
+s_Woe:
+ mes "[Daewoon]";
+ mes "Anyway, I'm sure you're";
+ mes "aware of the War of Emperium";
+ mes "in which might guilds all across";
+ mes "Rune-Midgard battle for guild";
+ mes "castle dominion. It's actually";
+ mes "quite popular, really.";
+ next;
+ mes "[Daewoon]";
+ mes "Now imagine that both of us";
+ mes "are in the midst of a heated guild";
+ mes "war. The sounds of explosions and";
+ mes "earth shaking magic spells are all";
+ mes "we can hear. At any time, we can";
+ mes "be lost in that mindless chaos.";
+ next;
+ mes "[Daewoon]";
+ mes "Finally, through incredibly";
+ mes "good fortune, we manage to";
+ mes "infiltrate the enemy guild castle";
+ mes "and reach their Emperium. If we";
+ mes "destroy that Emperium, that castle";
+ mes "will belong to our guild.";
+ next;
+ mes "[Daewoon]";
+ mes "However...! This is";
+ mes "no ordinary Emperium!";
+ mes "It is a masterful sculpture";
+ mes "of a gorgeous Priestess!";
+ mes "Answer me, adventurer!";
+ mes "Would you still destroy it?!";
+ next;
+ menu "Destroy it!",-,"I can't destroy such beauty...",s_Beauty,"I'd close my eyes, then destroy it.",s_Eyes;
+
+ mes "[Daewoon]";
+ mes "Hmm. You have a truly";
+ mes "strong will. Then again,";
+ mes "perhaps you lack a try";
+ mes "appreciation for beauty.";
+ mes "Even in Emperium form, how";
+ mes "could you harm a Priestess?";
+ next;
+ goto s_Guild2;
+s_Beauty:
+
+ set @DaewoonTest,@DaewoonTest + 1;
+ mes "[Daewoon]";
+ mes "Ah yes! I felt you would answer";
+ mes "that way! We must cherish and";
+ mes "protect what is beautiful in this";
+ mes "world. I would never be able to";
+ mes "harm a Priestess, even in";
+ mes "statue form...";
+ next;
+ goto s_Guild;
+s_Eyes:
+
+ mes "[Daewoon]";
+ mes "Interesting...!";
+ mes "Although you cherish";
+ mes "the beauty of the Priestess,";
+ mes "your loyalty to your guild";
+ mes "proves stronger. A most";
+ mes "admirable attitude!";
+ next;
+s_Guild2:
+ mes "[Daewoon]";
+ mes "But yes, if it was";
+ mes "me, I would protect that";
+ mes "Priestess-shaped Emperium";
+ mes "until the end of the guild war.";
+ mes "Mwah ah hah~!";
+s_Guild:
+ mes "[Daewoon]";
+ mes "While we're on the topic";
+ mes "of guilds, let me present";
+ mes "another guild related scenario.";
+ mes "Let's say that you joined a very";
+ mes "popular guild with many allies,";
+ mes "as well as formidable enemies.";
+ next;
+ mes "[Daewoon]";
+ mes "Now, during one of your";
+ mes "hunts, you happen to meet";
+ mes "a member of one of your enemy";
+ mes "guilds. The two of you are the only";
+ mes "people on that map. Suddenly, he";
+ mes "finds himself in mortal danger!";
+ next;
+ mes "[Daewoon]";
+ mes "This enemy gulid member";
+ mes "begins to yell for help. Now,";
+ mes "would you give your enemy";
+ mes "the help that he needs?";
+ next;
+ menu "Yes of course!",-,"I'd pretend not to hear anything.",s_Hear,"I'd make fun of him, then run off.",s_Fun;
+
+ set @DaewoonTest,@DaewoonTest + 1;
+ mes "[Daewoon]";
+ mes "Ah, you would help him!";
+ mes "Good, good. I'm glad to see";
+ mes "that you understand such";
+ mes "pettiness should not get in the way";
+ mes "of doing what is good and right.";
+ next;
+ goto s_Life;
+s_Hear:
+ set @DaewoonTest,@DaewoonTest + 1;
+ mes "[Daewoon]";
+ mes "True, you're not really";
+ mes "obligated to help your";
+ mes "enemy. Besides, you may";
+ mes "hurt his feelings once he";
+ mes "realizes that he's had to";
+ mes "depend on his rival for help.";
+ next;
+ goto s_Life;
+s_Fun:
+ mes "[Daewoon]";
+ mes "Even though he is";
+ mes "your enemy, I still";
+ mes "believe it's important";
+ mes "that you treat him with";
+ mes "respect. Where is your honor?";
+ next;
+s_Life:
+ mes "[Daewoon]";
+ mes "Well, there's one";
+ mes "last thing I want to";
+ mes "know about you. It's the";
+ mes "most important question";
+ mes "in the world once you";
+ mes "think about it.";
+ next;
+ mes "[Daewoon]";
+ mes "...";
+ mes "......";
+ mes "Do you enjoy life?";
+ next;
+ menu "Yes",-,"No",s_No;
+
+ set @DaewoonTest,@DaewoonTest + 1;
+ emotion 18;
+ mes "[Daewoon]";
+ mes "I'm glad.";
+ mes "When you don't live";
+ mes "with zeal, it's easy to";
+ mes "forget your goals and your";
+ mes "purpose for living. Don't have";
+ mes "any? Then make some up.";
+ next;
+ mes "[Daewoon]";
+ mes "I hope you always enjoy";
+ mes "life as much as you can.";
+ mes "As for me, I'm always happy";
+ mes "with my wine, women and song~";
+ mes "Mwah ah hah~!";
+ next;
+ goto s_Last;
+
+s_No:
+ mes "[Daewoon]";
+ mes "I understand.";
+ mes "People cannot be happy";
+ mes "all the time. Sometimes";
+ mes "it's easy to forget your";
+ mes "goals and purpose in life.";
+ next;
+ mes "[Daewoon]";
+ mes "But you know what? If you";
+ mes "have just one dream, one goal";
+ mes "to strive towards, things shall get";
+ mes "better. If you think you don't have";
+ mes "dreams, look back to your past.";
+ mes "What you remember may suprise";
+ mes "you.";
+ next;
+ mes "[Daewoon]";
+ mes "It's important to look forward,";
+ mes "but first you must find what is";
+ mes "truly precious to you before you";
+ mes "can define your happiness. That's";
+ mes "why I think it's good to experience";
+ mes "new things as well as reflect.";
+ next;
+ emotion 21;
+ mes "[Daewoon]";
+ mes "Now, what's precious to me?";
+ mes "Three things, actually...";
+ mes "Wine. Women. And song!";
+ mes "Though if I had to rank them,";
+ mes "women would top that list.";
+ mes "Mwah ah hah~!";
+ next;
+s_Last:
+ if(@DaewoonTest == 5)
+{
+ getitem 7177,1;
+ mes "[Daewoon]";
+ mes "You know, after talking with";
+ mes "you for a while, I now feel fairly";
+ mes "comfortable with leaving you this";
+ mes "piece of the Sobbing Starlight.";
+ mes "Somehow, I think you're strong";
+ mes "enough to get all the pieces.";
+ next;
+ mes "[Daewoon]";
+ mes "I hope you will pass the rest of";
+ mes "the tests and acquire the power.";
+ next;
+ mes "[Daewoon]";
+ mes "Oh yes! Your next test";
+ mes "examiner is ^FF0000Sir Jore^000000, also";
+ mes "known as the Ghost of Al de Baran.";
+ mes "Although he's always sick, he has";
+ mes "great passion for his research.";
+ next;
+ mes "[Daewoon]";
+ mes "Alright, then.";
+ mes "Good luck in";
+ mes "Al de Baran~!";
+ set signquest,6;
+ close;
+}
+ else
+{
+ mes "[Daewoon]";
+ mes "It pains me to say this,";
+ mes "but I do not think you're";
+ mes "worthy of holding my fragment";
+ mes "of the Sobbing Starlight. But";
+ mes "I am willing to give you";
+ mes "another chance~";
+ close;
+}
+
+}
+
+ else if(signquest == 6)
+{
+ mes "[Daewoon]";
+ mes "Mwah ah hah!";
+ mes "Feasting and merriment,";
+ mes "wine, women and song!";
+ mes "I could ask for nothing more!";
+ next;
+ mes "[Daewoon]";
+ mes "The most scrumptious";
+ mes "delicacies are all mine to";
+ mes "taste! And I'm not just talking";
+ mes "about the food. Mwah ah hah!";
+ mes "I'm the king of the world!";
+ next;
+ mes "[Daewoon]";
+ mes "Hm...?";
+ mes "Weren't you on";
+ mes "your way to find";
+ mes "^FF0000Sir Jore^000000 in Al de Baran?";
+ next;
+ mes "[Daewoon]";
+ mes "Oh, having trouble";
+ mes "finding him, are you?";
+ mes "Well, he's fairly shy, but";
+ mes "I'm sure he's hiding some";
+ mes "place in that town.";
+ close;
+}
+
+}
+
+aldebaran.gat,225,54,4 script #aldesignwarp 45,1,1,{
+OnTouch:
+ set @aldesigncheck,0;
+ warp "aldeba_in.gat",149,120;
+ end;
+
+}
+
+aldeba_in.gat,149,123,4 script #aldesignwarp2 45,1,1,{
+OnTouch:
+ set @aldesigncheck,0;
+ warp "aldebaran.gat",223,56;
+ end;
+
+}
+
+}
+
+aldeba_in.gat,147,104,1 script PotionActivator 139,3,0,{
+OnTouch:
+ if(@aldesigncheck == 0)
+{
+ donpcevent "Jore#SignAldeNpc::OnPotion";
+ set @aldesigncheck,1;
+}
+ end;
+}
+
+aldeba_in.gat,156,118,4 script Piru Piru 700,{
+
+ emotion 28;
+ mes "[Piru Piru]";
+ mes "Oh, I'm sooo tired~";
+ mes "But we can't sleep yet.";
+ mes "^000200*Sob*^000000 Master, can't we";
+ mes "just call it a day already?";
+ next;
+ if(signquest != 7)
+{
+ menu "What do you do in here?",-;
+}
+ else
+{
+ menu "What do you do in here?",-,"About vanished Alchemists",s_Vanish,"What is the Stone of Sage?",s_SageStone;
+}
+ mes "[Piru Piru]";
+ mes "My master, Sir Jore,";
+ mes "is researching a way to";
+ mes "create artificial life! Still,";
+ mes "it's not easy and we haven't";
+ mes "accomplished anything yet...";
+ next;
+ mes "[Piru Piru]";
+ mes "It doesn't help that my";
+ mes "master spends all of his";
+ mes "time on research. He hasn't";
+ mes "been taking care of himself";
+ mes "and is losing a lot of weight.";
+ mes "I'm really worried about him.";
+ close;
+
+s_Vanish:
+ mes "[Piru Piru]";
+ mes "Oh, the father and daughter";
+ mes "who were both Alchemists, right?";
+ mes "Did you know they vanished because";
+ mes "they invented the monster potion";
+ mes "summoning skill?";
+ next;
+ mes "[Piru Piru]";
+ mes "Their discovery caused";
+ mes "such great hysteria in the";
+ mes "scientific community. In the";
+ mes "end they had no choice but";
+ mes "to live in seclusion deep";
+ mes "in the ^FF0000forsest to the south^000000.";
+ next;
+s_SageStone:
+ mes "[Piru Piru]";
+ mes "Hmm? Well, I wouldn't";
+ mes "know anything about that.";
+ mes "In fact, I'm always staying";
+ mes "in this lab, so I never hear";
+ mes "any rumors or news outside.";
+ close;
+
+}
+
+aldeba_in.gat,155,101,2 script Jore#SignAldeNpc 805,{
+
+ if(gettime(3) == 17 || gettime(3) == 18 || gettime(3) == 19 || gettime(3) == 20 || gettime(3) == 21)
+{
+ if(signquest == 7)
+{
+ mes "[Sir Jore]";
+ mes "I want you to find two";
+ mes "Alchemists, a father and";
+ mes "daughter, who have gone into";
+ mes "seclusion deep in some forest";
+ mes "so that I can learn more about";
+ mes "the Stone of Sage.";
+ next;
+ mes "[Sir Jore]";
+ mes "Of course, this will";
+ mes "possibly further my";
+ mes "research, but it's also";
+ mes "how I'll judge whether or";
+ mes "not you're qualified for my";
+ mes "piece of the Sobbing Starlight.";
+ close;
+}
+ if(SignJore == 1)
+{
+
+ if(countitem(1092) < 10 || countitem(511) < 10 || countitem(610) < 2)
+{
+ mes "[Sir Jore]";
+ mes "Please bring m-me";
+ mes "10 Empty Test Tube,";
+ mes "10 Green Herb and";
+ mes "2 Yggdrasil Leaf.";
+ mes "so that I can make a";
+ mes "new research sample.";
+ close;
+}
+ else
+{
+ delitem 1092,10;
+ delitem 511,10;
+ delitem 610,2;
+ set signquest,7;
+ emotion 15;
+ mes "[Sir Jore]";
+ mes "Ah! Th-thank you for";
+ mes "bringing what I need.";
+ mes "Now I can continue my";
+ mes "research. Oh, and see if";
+ mes "you're worthy of obtaining";
+ mes "the Sobbing Starlight";
+ next;
+ mes "[Sir Jore]";
+ mes "Now, for your assignment.";
+ mes "Have you ever heard about";
+ mes "the ^FF0000Stone of Sage^000000? Rumors about";
+ mes "it have been spreading around, but";
+ mes "no one has confirmed the truth";
+ mes "about it, " + strcharinfo(0) + ".";
+ next;
+ mes "[Sir Jore]";
+ mes "Although I have no clue";
+ mes "what the Stone of S-S-age";
+ mes "may actually be, I have a gut";
+ mes "feeling that I need it to bring";
+ mes "my Biology research to the next";
+ mes "step. This is how you'll help me.";
+ next;
+ mes "[Sir Jore]";
+ mes "I need you to investigate";
+ mes "this Stone of Sage by finding";
+ mes "a father and daughter who were";
+ mes "famous for being great Alchemists.";
+ mes "They vanished deep into a forest,";
+ mes "but I believe they know something.";
+ close;
+}
+
+}
+ mes "[" + strcharinfo(0) + "]";
+ mes "Excuse me...";
+ next;
+ emotion 23;
+ mes "^3131FF*Clink*";
+ next;
+ mes "[Sir Jore]";
+ mes "...";
+ mes "......";
+ next;
+ mes "[Sir Jore]";
+ mes "...";
+ mes "......";
+ mes "...No!";
+ mes "Look what you";
+ mes "made me do!";
+ next;
+ emotion 28;
+ mes "[Sir Jore]";
+ mes "I've been fiddling";
+ mes "with this sample for";
+ mes "five hours. And now";
+ mes "it's ruined ^000200*Sob*";
+ if(signquest != 6)close;
+ next;
+ mes "[Sir Jore]";
+ mes "^000200*Sob*^000000";
+ mes "I came to this town";
+ mes "so I could focus on";
+ mes "my research without";
+ mes "any interuptions. So";
+ mes "why are you here?";
+ next;
+ menu "Daewoon sent me.",s_Daewoon,"Oops, sorry. Later~",-;
+
+ mes "[Sir Jore]";
+ mes "I spent five hours";
+ mes "observing the changes";
+ mes "in that research sample.";
+ mes "All of that hard work lost!";
+ mes "^000200*Wah~!*";
+ close;
+
+s_Daewoon:
+ emotion 4;
+ mes "[Sir Jore]";
+ mes "O-oh!";
+ mes "That's right.";
+ mes "You're here to be";
+ mes "tested for the piece";
+ mes "of the Sobbing Starlight.";
+ next;
+ mes "[Sir Jore]";
+ mes "So...";
+ mes "Er. Then, what...";
+ mes "W-what's your name?";
+ next;
+ menu strcharinfo(0) + ", thanks.",-;
+ mes "[Sir Jore]";
+ mes "N-nice to meet you.";
+ mes "My name is Jore. Just";
+ mes "a normal person who loves";
+ mes "research. S-sorry if I seem";
+ mes "a little nervous! I'm actually";
+ mes "quite... shy around people.";
+ next;
+ mes "[Sir Jore]";
+ mes "Oh no...!";
+ mes "if you were able to";
+ mes "find me, there will be";
+ mes "others! When would I get";
+ mes "the time to do my research?!";
+ mes "N-no! I h-h-hate people!!";
+ next;
+ mes "[Sir Jore]";
+ mes "Still, I did promise";
+ mes "M-M-Metz and he is my";
+ mes "friend. So I must accept";
+ mes "some guests. Even if hundreds";
+ mes "of them knock on my door...";
+ next;
+ mes "[Sir Jore]";
+ mes "But first of all,";
+ mes "I'm going to need";
+ mes "a new research sample.";
+ mes "I think it's only fair that";
+ mes "you get it for me since you";
+ mes "made me ruin the last one.";
+ next;
+ mes "[Sir Jore]";
+ mes "N-now, d-don't worry.";
+ mes "The items are actually";
+ mes "quite easy to get. It's";
+ mes "the five hours part that's";
+ mes "hard. Now, let's see...";
+ next;
+ mes "[Sir Jore]";
+ mes "Just bring";
+ mes "10 Empty Test Tube,";
+ mes "10 Green Herb and";
+ mes "2 Yggdrasil Leaf.";
+ next;
+ mes "[Sir Jore]";
+ mes "You see, l-lately I've";
+ mes "been studying Biology.";
+ mes "I think the secret to life";
+ mes "can be found in the Leaf of";
+ mes "Yggdrasil. They can be used";
+ mes "to revive the dead, after all.";
+ next;
+ emotion 4;
+ mes "[Sir Jore]";
+ mes "Oh, and make sure to";
+ mes "bring those things to me";
+ mes "before I go to bed at";
+ mes "precisely 10:00 PM " + $timezonestring$ + ".";
+ mes "I do have a regular sleeping";
+ mes "schedule, you know.";
+ set SignJore,1;
+ close;
+
+}
+ else
+{
+ mes "^3131FFYou find a tense man";
+ mes "holding test tubes between";
+ mes "his fingers, standing in a pile";
+ mes "of books. He seems to be in";
+ mes "agony for some reason.";
+ next;
+ menu "Speak to him.",s_Speak,"Ignore him.",-;
+
+ mes "^3131FFYou decided to leave";
+ mes "him alone and let him";
+ mes "continue mumbling to";
+ mes "himself and playing";
+ mes "with his test tubes.";
+ close;
+
+s_Speak:
+ mes "[" + strcharinfo(0) + "]";
+ mes "Excuse me...";
+ next;
+ mes "[Sire Jore]";
+ mes "...";
+ mes "......";
+ next;
+ mes "^3131FFToo preoccupied with";
+ mes "his thoughtsm this strange";
+ mes "man is unable to hear you.";
+ next;
+ menu "Try again.",s_Again,"Ignore him.",-;
+
+ mes "^3131FFYou decided to leave";
+ mes "him alone and let him";
+ mes "continue mumbling to";
+ mes "himself and playing";
+ mes "with his test tubes.";
+ close;
+
+s_Again:
+ mes "[" + strcharinfo(0) + "]";
+ mes "EXCUSE ME!";
+ next;
+ mes "[Sire Jore]";
+ mes "...!";
+ mes "Oh, h-h-hello.";
+ mes "Sorry, but I'm kind of";
+ mes "busy right now. Yes, yes,";
+ mes "would you come back at";
+ mes "precisely 5:00 PM " + $timezonestring$ + "?";
+ next;
+ mes "[Sire Jore]";
+ mes "Let's see...";
+ mes "Now if I recalibrated";
+ mes "the faust exhaust, then";
+ mes "the bioneutron analyzer";
+ mes "would need to be adjusted";
+ mes "for cytoplasmic balance...";
+ close;
+}
+
+OnPotion:
+ if(rand(0,1) == 1)
+{
+ emotion 5;
+ misceffect 305;
+}
+else
+{
+ emotion 23;
+ misceffect 306;
+}
+ end;
+}
+
+prt_maze02.gat,57,152,1 script Girl 91,{
+
+ mes "^3131FFYou catch a glimpse";
+ mes "of a girl headin directly";
+ mes "into a deep forest. You decide";
+ if(signquest != 7)goto s_No;
+ mes "to follow her and see if you can";
+ mes "learn more.";
+ close2;
+ warp "prt_maze02.gat",11,146;
+ end;
+s_No:
+ mes "to not follow her since you're";
+ mes "not interested where she's going.";
+ close;
+}
+
+function Sign_Alch_Summon,{
+
+Loopback:
+if($signmazemonster == 0)
+{
+ set $signmazemonster,5;
+ monster "prt_maze02.gat",14,177,"Flora",1118,1,"Sign_Alch_Summon::OnMonsterDeadSign";
+ monster "prt_maze02.gat",17,171,"Flora",1118,1,"Sign_Alch_Summon::OnMonsterDeadSign";
+ monster "prt_maze02.gat",24,173,"Flora",1118,1,"Sign_Alch_Summon::OnMonsterDeadSign";
+ monster "prt_maze02.gat",17,175,"Marine Sphere",1142,1,"Sign_Alch_Summon::OnMonsterDeadSign";
+ monster "prt_maze02.gat",17,168,"Marine Sphere",1142,1,"Sign_Alch_Summon::OnMonsterDeadSign";
+}
+else
+{
+ killmonster "prt_maze02.gat","OnMonsterDeadSign";
+ set $signmazemonster,0;
+ goto Loopback;
+}
+OnMonsterDead:
+ set $signmazemonster,$signmazemonster - 1;
+
+}
+
+prt_maze02.gat,16,183,3 script Pleur 91,{
+
+ if(signquest == 7 || signquest == 8)
+{
+ mes "[Pleur]";
+ mes "La la la~";
+ mes "La la la~";
+ close;
+}
+else
+{
+ mes "[Pleur]";
+ mes "Oh, you're lost?";
+ mes "I'll help you find";
+ mes "your way back...";
+ close2;
+ warp "prt_maze02.gat",61,149;
+ end;
+}
+OnHo:
+ emotion 2;
+ end;
+OnKis2:
+ emotion 31;
+ end;
+OnExclamation:
+ emotion 0;
+ end;
+OnOmg:
+ emotion 23;
+ end;
+}
+
+prt_maze02.gat,14,183,3 script Gordon 51,{
+
+ if(signquest == 7 || signquest == 8)
+{
+ if(ScareAlchSign == 1)goto s_Scared;
+ mes "[Gordon]";
+ mes "Hello darling.";
+ mes "What did you do today?";
+ next;
+ donpcevent "Pleur::OnHo";
+ mes "[Pleur]";
+ mes "I played Hide-and-Seek";
+ mes "with a white bear and a";
+ mes "blue bear, father.";
+ next;
+ emotion 2;
+ mes "[Gordon]";
+ mes "Darling...";
+ mes "Aren't you tired";
+ mes "of playing with the";
+ mes "animals? We've live";
+ mes "in this forest for so long...";
+ next;
+ donpcevent "Pleur::OnKis2";
+ mes "[Pleur]";
+ mes "Don't worry father, I understand.";
+ mes "For now, this is the only place";
+ mes "where we can relax and live";
+ mes "in peace. I think we deserve to rest";
+ mes "after accomplishing our goals...";
+ next;
+ emotion 28;
+ mes "[Gordon]";
+ mes "Thank you, Pluer.";
+ mes "I have no regrets about";
+ mes "our work, but sometimes";
+ mes "I do wish for a more";
+ mes "carefree life for you...";
+ next;
+ menu "Roar~!",-,"Excuse me.",s_Excuse;
+
+ callfunc "Sign_Alch_Summon";
+ emotion 23;
+ donpcevent "Pleur::OnOmg";
+ set ScareAlchSign,1;
+ mes "[Pleur]";
+ mes "No no no!";
+ mes "Summon Flora!";
+ next;
+ mes "[Gordon]";
+ mes "Great Schott!";
+ mes "Summon... Marine Sphere!";
+ close;
+
+s_Excuse:
+ emotion 0;
+ donpcevent "Pleur::OnExclamation";
+ mes "[Gordon]";
+ mes "Eh?! Don't you know";
+ mes "how dangerous this place";
+ mes "is? What are you doing";
+ mes "here in the middle of";
+ mes "this forest?";
+ next;
+s_Back:
+ mes "[" + strcharinfo(0) + "]";
+ mes "Actually, I think";
+ mes "I've been looking for";
+ mes "you. I've been sent on";
+ mes "an errand to find these";
+ mes "two famous Alchemists.";
+ next;
+ mes "[Gordon]";
+ mes "Mm...?";
+ mes "Well, we're retired";
+ mes "now, but I suppose it'd";
+ mes "do no harm if you had";
+ mes "something to ask us...";
+ next;
+ menu "Ask about Stone of Sage",s_Sage,"Ask about Alchemy",s_Alch,"Quit",-;
+
+ mes "[Gordon]";
+ mes "Hah hah hah~";
+ mes "Did you forget";
+ mes "what you were";
+ mes "going to ask me?";
+ close;
+
+s_Sage:
+
+ mes "[Gordon]";
+ mes "Stone of Sage?";
+ mes "Huh. To be honest,";
+ mes "I don't know anything";
+ mes "about it at all. I guess";
+ mes "its existence is pretty";
+ mes "much just a rumor, really.";
+ next;
+ mes "[Gordon]";
+ mes "All I've heard is that";
+ mes "the Stone of Sage might";
+ mes "be a catalyst to transmute";
+ mes "materials into gold. If it";
+ mes "really existed, it would be";
+ mes "the ultimate alchemic item.";
+ next;
+ mes "[Pleur]";
+ mes "However I've also heard";
+ mes "it's red, can make humans";
+ mes "immortal and can cure any";
+ mes "sort of disease or ailment";
+ mes "Just where do these rumors";
+ mes "come from? It's crazy...";
+ next;
+ mes "[Gordon]";
+ mes "Now, I even heard that some";
+ mes "people are working on trying";
+ mes "to create the stone themselves.";
+ mes "If they succeed, it'll have a huge";
+ mes "effect on the entire world!";
+ next;
+ mes "[Gordon]";
+ mes "I'm sorry that you've gone";
+ mes "through the trouble of finding";
+ mes "us for this kind of information.";
+ mes "We're retired after all, so we";
+ mes "may be out of the loop.";
+ next;
+ mes "[Pleur]";
+ mes "Although we're retired, we";
+ mes "would be much interested in";
+ mes "knowing if someone does manage";
+ mes "to create such a stone. If that";
+ mes "happens, would you tell us?";
+ next;
+ mes "[Gordon]";
+ mes "Now let me guide you";
+ mes "on a safe path back out";
+ mes "of this maze. I've lived here";
+ mes "quite a while, so I can find";
+ mes "the exit with my eyes close.";
+ mes "Farewell, adventurer~";
+ close2;
+ warp "mjolnir_12",44,23;
+ end;
+s_Alch:
+
+ mes "[Pleur]";
+ mes "I hope you understand that";
+ mes "my father and I devoted and";
+ mes "sacrificed so much for our work.";
+ mes "Finally, we discovered a way to";
+ mes "summon monsters using potions.";
+ next;
+ mes "[Pleur]";
+ mes "However, too many Alchemists";
+ mes "hounded us for our information";
+ mes "once we announced the results";
+ mes "of our research. Ir was more";
+ mes "than we could handle...";
+ next;
+ mes "[Gordon]";
+ mes "I'm sorry, but if you have any";
+ mes "questions about Alchemy, there";
+ mes "are many qualified researchers and";
+ mes "practitioners out there. We came to";
+ mes "this forest to find peace...";
+ close;
+
+s_Scared:
+ mes "[Gordon]";
+ mes "Oh...!";
+ mes "You scared us!";
+ mes "Roaring like some";
+ mes "animal! What do you";
+ mes "think you were doing?";
+ next;
+ goto s_Back;
+
+}
+ else
+{
+ mes "[Gordon]";
+ mes "Can't find your way back?";
+ mes "Don't worry... I'll help";
+ mes "you.";
+ close2;
+ warp "prt_maze02.gat",61,149;
+ end;
+}
+
+}
diff --git a/npc/quests/bongunsword.txt b/npc/quests/bongunsword.txt new file mode 100644 index 000000000..70517b468 --- /dev/null +++ b/npc/quests/bongunsword.txt @@ -0,0 +1,153 @@ +//===== eAthena Script =======================================
+//= Munak and Bongun accessory / Taming items Quest
+//===== By: ==================================================
+//= eAthena Team
+//===== Current Version: =====================================
+//= 1.0
+//===== Compatible With: =====================================
+//= eAthena 1.0
+//===== Description: =========================================
+//= Quest itms:Sword o'Chinese Exorcist,No Recipient,Her Heart
+//===== Additional Comments: =================================
+//= 1.0. merged 3 sep. files, fixed exploits [Lupus]
+//============================================================
+
+
+comodo.gat,135,227,5 script Sherri 93,{
+ mes "[Sherri]";
+ mes " ";
+ mes "*sighs*";
+ next;
+ mes "[Sherri]";
+ mes "Oh? Whats the matter? ...Well, I have finally managed to encase the soul of a handsome boy ...";
+ next;
+ mes "[Sherri]";
+ mes "...so why am I sad?";
+ mes " ";
+ mes "It's because I don't even know how his personality is... say, if you can find me a 'Girl's Diary' about him, I'll give you his diary!";
+ next;
+ mes "[Sherri]";
+ mes "Can you please help me?";
+
+ menu "What do I need again?",-,"Here! I got what you need!",ExCreate,"Sorry, I can't help you.",ExEnd;
+
+ mes "[Sherri]";
+ mes "What I desire is...";
+ mes " ";
+ mes "A 'Girl's Diary' about him...";
+ close;
+
+ExCreate:
+ mes "[Sherri]";
+ mes "Really!! You'll help me!";
+ next;
+
+ if(countitem(1558)<1) goto L_NoItem;//Items: Girl's_Diary,
+ delitem 1558,1;//Items: Girl's_Diary,
+ getitem 659,1;//Items: Her_Heart,
+ mes "[Sherri]";
+ mes "YES! I am forever in your debt!";
+ mes " ";
+ mes "Here is his diary as promised! Again - Thank you!";
+ next;
+ mes "[Sherri]";
+ mes "Wait! Here's his sword, I found it next to him. But it's broken... I know of a old man just west of Geffen who can fix such a sword!";
+ getitem 7110,1;//Items: Broken_Sword,
+ close;
+
+L_NoItem:
+ mes "[Sherri]";
+ mes "Waahhhh, stop playing with my feelings!";
+ mes " ";
+ mes "Go away!";
+ close;
+ExEnd:
+ mes "[Sherri]";
+ mes "*sighs*";
+ close;
+}
+
+izlude_in.gat,115,76,5 script Evan 47,{
+ mes "[Evan]";
+ mes " ";
+ mes "*sighs*";
+ next;
+ mes "[Evan]";
+ mes "Oh? Whats the matter? ...Well, I have finally managed to encase the soul of a pretty girl ...";
+ next;
+ mes "[Evan]";
+ mes "...so why am I sad?";
+ mes " ";
+ mes "It's because I don't even know how she looks like...say, if you can find me and 'Old Portrait' of her, I'll give you her lover's lost letter!";
+ next;
+ mes "[Evan]";
+ mes "Whaddaya say? ..pal?";
+
+ menu "What do I need again?",-,"Here! I got what you need!",ExCreate,"Sorry, I can't help you.",ExEnd;
+
+ mes "[Evan]";
+ mes "A picture of her lovely face...";
+ mes " ";
+ mes "An 'Old Portrait' preferrably...";
+ close;
+
+ExCreate:
+ mes "[Evan]";
+ mes "Really!! You'll help me!";
+ next;
+ if(countitem(7014)<1) goto L_NoItem;//Items: Old_Portrait,
+ delitem 7014,1;//Items: Old_Portrait,
+ getitem 636,1;//Items: No_Recipient,
+ mes "[Evan]";
+ mes "YES! I am forever in your debt!";
+ mes " ";
+ mes "Here is lover's lost letter as promised! Again - Thank you!";
+ close;
+
+L_NoItem:
+ mes "[Evan]";
+ mes "Waahhhh, stop playing with my feelings!";
+ mes " ";
+ mes "Go away!";
+ close;
+
+ExEnd:
+ mes "[Evan]";
+ mes "*sighs*";
+ close;
+}
+
+gef_fild07.gat,183,239,5 script Old Smith 120,{
+ mes "[Old Smith]";
+ mes "Ah, isn't it peaceful up here - I used to be one of the legendary Blacksmiths of midgard...sadly my skills have faded.";
+ next;
+ if(countitem(7110)<1) goto L_NoItemS;//Items: Broken_Sword,
+ mes "[Old Smith]";
+ mes "Hmm, it seems as if you need something. What would that be?";
+
+ menu "Can you fix this broken sword?",-,"Nothing really...",ExEnd;
+
+ mes "[Old Smith]";
+ mes "Ahhh, this is a very old sword and yes I can fix it, I'll need an 'Oridecon' to mend the breaks though.";
+ next;
+ if(countitem(7110)<1 || countitem(984)<1) goto L_NoItem;//Items: Broken_Sword, Oridecon,
+ delitem 7110,1;//Items: Broken_Sword,
+ delitem 984,1;//Items: Oridecon,
+ getitem 10020,1;//Items: Sword_of_Chinese_Exorcist,
+ mes "[Old Smith]";
+ mes "Ah yes here we go!";
+ mes " ";
+ mes "Haha! Gramps still has that old magic touch, Here you go!";
+ close;
+
+L_NoItem:
+ mes "[Old Smith]";
+ mes "Hmm, you seem to be missing something... probably that 'Oridecon'.";
+ close;
+
+L_NoItemS:
+ExEnd:
+ mes "[Old Smith]";
+ mes "...ah well, go out and live life young one. Time never stops!";
+ close;
+}
diff --git a/npc/quests/bunnyband.txt b/npc/quests/bunnyband.txt new file mode 100644 index 000000000..bfe97e689 --- /dev/null +++ b/npc/quests/bunnyband.txt @@ -0,0 +1,97 @@ +//===== eAthena Script =======================================
+//= Bunny Band Quest
+//===== By: ==================================================
+//= eAthena Dev Team
+//===== Current Version: =====================================
+//= v1.3
+//===== Compatible With: =====================================
+//= eAthena 7.15 +
+//===== Description: =========================================
+//=
+//===== Additional Comments: =================================
+//= v1.1 using duplicate command
+//= 1.2 Fixed NPC location, removed NPC dupes [Lupus]
+//= 1.3 RE-Fixed exploit V_V, also cleared used VAR [Lupus]
+//============================================================
+
+
+// Alberta ------------------------------------------------------------------------------------------------------------------------------------------
+alberta.gat,23,232,1 script Kafra Corp. Rep.#1::KCRep 83,{
+ mes "[Kafra Corp. Rep.]";
+ if (BUNYBND) goto L_Check;
+ mes "^529DFFSpecial Event, ^FF0000Bunny Band ^529DFFQuest!!^000000";
+ next;
+ menu "Information",-, "Join",M_Join, "Cancel",M_End;
+
+ mes "[Kafra Corp. Rep.]";
+ mes "To thank our customers for using the Kafra Corp. services, we have prepapred a small event for them...";
+ next;
+ mes "[Kafra Corp. Rep.]";
+ mes "The ^FF0000Bunny Band ^529DFFquest!!!^000000. (Sponsered by: The Alberta Merchant Association.)";
+ mes "This quest allows players to obtain the ultra-rare ^FF0000Bunny Band^000000!";
+ next;
+ mes "[Kafra Corp. Rep.]";
+ mes "All you have to do is collect a number of items and bring them to a Kafra Corp. representative such as myself.";
+ mes "We will then carefully handmake a Bunny Band for you on the spot!";
+ next;
+ mes "[Kafra Corp. Rep.]";
+ mes "Here are the items that you will need for the Bunny Band.";
+ mes "^5555FF100 Feather^000000,";
+ mes "^5555FF1 Four Leaf Clover^000000,";
+ mes "^5555FF1 Pearl^000000,";
+ mes "^5555FF1 Kitty Band^000000.";
+ next;
+ mes "[Kafra Corp. Rep.]";
+ mes "When you've collected all of the items, just speak with any Kafra Corp. representative like myself.";
+ mes "We can be found in every town across Rune Midgard.";
+ close;
+
+ M_Join:
+
+ mes "[Kafra Corp. Rep.]";
+ mes "Thank you for participating in the event. Please come back when you have gathered all of the items.";
+ set BUNYBND, 1;
+ close;
+
+ M_End:
+ mes "[Kafra Corp. Rep.]";
+ mes "Have a nice day.";
+ close;
+
+ L_Check:
+ if(countitem(949)<100 || countitem(706)<1 || countitem(722)<1 || countitem(2213)<1) goto sL_NoItems;
+ delitem 949,100;
+ delitem 706,1;
+ delitem 722,1;
+ delitem 2213,1;
+ mes "Wow! Well-done, well-done! You've got every single item! I will make the Bunny Band for you right away...";
+ emotion 21;
+ next;
+ mes "[Kafra Corp. Rep.]";
+ mes "Tah dah!!! Here is your ^FF0000Bunny Band^000000... Please take it!";
+ getitem 2214,1;
+ set BUNYBND,0;
+ next;
+ mes "[Kafra Corp. Rep.]";
+ mes "We appreciate your participation in this special event. Thank you and enjoy your Bunny Band!";
+ close;
+
+ sL_NoItems:
+ mes "Here are the items that you will need for the Bunny Band.";
+ mes "^5555FF100 Feather^000000,";
+ mes "^5555FF1 Four Leaf Clover^000000,";
+ mes "^5555FF1 Pearl^000000,";
+ mes "^5555FF1 Kitty Band^000000.";
+ close;
+
+}
+
+
+// Geffen ------------------------------------------------------------------------------------------------------------------------------------------
+//geffen.gat,116,62,2 duplicate(KCRep) Kafra Corp. Rep.#2 83,
+// Morroc ------------------------------------------------------------------------------------------------------------------------------------------
+//morocc.gat,154,97,4 duplicate(KCRep) Kafra Corp. Rep.#3 83,
+// Payon ------------------------------------------------------------------------------------------------------------------------------------------
+//payon.gat,184,104,4 duplicate(KCRep) Kafra Corp. Rep.#4 83,
+// Prontera ------------------------------------------------------------------------------------------------------------------------------------------
+//prontera.gat,146,87,6 duplicate(KCRep) Kafra Corp. Rep.#5 83,
diff --git a/npc/quests/cooking_quest.txt b/npc/quests/cooking_quest.txt new file mode 100644 index 000000000..3716c2f52 --- /dev/null +++ b/npc/quests/cooking_quest.txt @@ -0,0 +1,600 @@ +//===== eAthena Script =======================================
+//= Cooking Quest
+//===== By: ==================================================
+//= Reddozen
+//===== Current Version: =====================================
+//= 1.5
+//===== Compatible With: =====================================
+//= eAthena 1.0+
+//===== Description: =========================================
+//= Official Cooking Quest
+//===== Additional Comments: =================================
+//= 1.1 Fixed wrong item ID, added missing ";, optimized [Lupus]
+//= 1.1a minor bugfix, thx 2 Irmin [Lupus]
+//= 1.2 Fixed exploit, some typos [Lupus]
+//= 1.3 Fixed wrong label [Lupus] 1.3a updated to Reddozen's changes
+//= 1.3b Fixed wrong id, fixed Puch quest, added more Pouch Quest
+//= dialogues [Lupus]
+//= 1.4 Fixed spelling, added some dialoguesm optimized
+//= fixed bugs. Tested, fully working [Lupus]
+//= 1.5 More fixes [Lupus]
+//============================================================
+
+prt_castle.gat,43,30,6 script Chef Apprentice 878,{
+
+ mes "[Chef's Apprentice]";
+
+ if(cooking == 1) goto L_Remind;
+
+ if(cooking == 2){
+ mes "I see you passed the test.";
+ mes "Good job!";
+ next;
+ mes "[Chef's Apprentice]";
+ mes "This book would be quite helpful for a novice chef.";
+ getitem 7472, 1;//Items: Lv1 Cookbook,
+ set cook_book, 7472;
+ set cooking, 3;
+ close;
+ }
+
+ if(cooking == 3){
+ mes "Hi there. Is there something";
+ mes "that I can help you with?";
+ next;
+ menu "Buy Supplies",M_BuySupply, "Talk about cooking",L_Cook_Talk, "Leave",L_No_Talk;
+
+ M_BuySupply:
+ mes "[Chef's Apprentice]";
+ mes "Outdoor Cooking Set - 500z each";
+ mes " How many?";
+ input @amount;
+ if(@amount < 1) goto ER_Invalid;
+ if(@amount > 100) goto ER_TooMuch;
+ if(@amount*500 > Zeny) goto ER_Zeny;
+ set Zeny, Zeny-(@amount*500);
+ getitem 12125, @amount;//Items: Outdoor Cooker,
+ next;
+ mes "[Chef's Apprentice]";
+ mes "Enjoy!";
+ close;
+
+ L_Cook_Talk:
+ mes "[Chef's Apprentice]";
+ mes "You passed the test,";
+ mes "but were your results";
+ mes "worth while?";
+ next;
+ menu "Taste my food",-, "No, it was horrible",L_Taste_End;
+
+ mes "[Chef's Apprentice]";
+ mes "I don't know about that.";
+ mes "It may not be safe...";
+ next;
+ menu "Please taste it",-, "You're probably right",L_Taste_End;
+
+ mes "[Chef's Apprentice]";
+ mes "Why would I want to try";
+ mes "the food of a novice chef?";
+ next;
+ menu "Please try",-, "Yeah, I'm too new at this",L_Taste_End;
+
+ mes "[Chef's Apprentice]";
+ mes "I'll make a deal with you.";
+ mes "if you cook me one of every";
+ mes "Lv 1 food, then I'll try";
+ mes "your Cooking...";
+ next;
+ menu "Agree",-, "Refuse",L_Taste_End;
+
+ mes "[Chef's Apprentice]";
+ mes "You'll need to make all";
+ mes "six foods. Let me know";
+ mes "when you're finished.";
+ set cooking, 4;
+ close;
+
+ L_Taste_End:
+ mes "[Chef's Apprentice]";
+ mes "Come back when you feel";
+ mes "more confident.";
+ close;
+
+ L_No_Talk:
+ mes "[Chef's Apprentice]";
+ mes "Come back to vist anytime!";
+ mes "Have a good day.";
+ close;
+ }
+
+ if(cooking == 4){
+ if(countitem(12056)
+ && countitem(12061)
+ && countitem(12046)
+ && countitem(12066)
+ && countitem(12041)
+ && countitem(12051)) {//Items: Frog Spawn Soup, Grape Juice with Honey, Grape Juice and Tea, Fried Monkey Tail, Boiled Locust, Steamed Crab Pincer,
+
+ delitem 12056, 1;//Items: Frog Spawn Soup,
+ delitem 12061, 1;//Items: Grape Juice with Honey,
+ delitem 12046, 1;//Items: Grape Juice and Tea,
+ delitem 12066, 1;//Items: Fried Monkey Tail,
+ delitem 12041, 1;//Items: Boiled Locust,
+ delitem 12051, 1;//Items: Steamed Crab Pincer,
+
+ mes "What!? Through already?";
+ mes "Let me see what you've made";
+ next;
+
+ mes "[Chef's Apprentice]";
+ mes "Great job, but there's";
+ mes "still one thing that I need";
+ mes "you to do. Talk to a friend";
+ mes "of mine in Payon. We used";
+ mes "to study together.";
+ next;
+ mes "[Chef's Apprentice]";
+ mes "Take him this ^000080Leather Pouch^000000,";
+ mes "and I'll put in a good word";
+ mes "for you with my teacher.";
+
+ getitem 7432, 1;//Items: Leather Pouch,
+ set cooking, 5;
+ } else {
+ mes "Please come back when you've cooked";
+ mes "all the Lv 1 foods.";
+ next;
+ menu "Buy Supplies",M_BuySupply, "Leave",L_No_Talk;
+ }
+ close;
+ }
+
+ if(cooking == 5){
+ mes "Please, don't forget to";
+ mes "hand my ^000080Leather Pouch^000000";
+ mes "to my friend in Payon.";
+ next;
+ mes "[Chef's Apprentice]";
+ mes "Well... Is there something";
+ mes "that I can help you with?";
+ next;
+ menu "Buy Supplies",-, "Leave",L_No_Talk2;
+
+ mes "[Chef's Apprentice]";
+ mes "Outdoor Cooking Set - 500z each.";
+ mes " How many?";
+ input @amount;
+ if(@amount < 1) goto ER_Invalid;
+ if(@amount > 100) goto ER_TooMuch;
+ if(@amount*500 > Zeny) goto ER_Zeny;
+ set Zeny, Zeny-(@amount*500);
+ getitem 12125, @amount;//Items: Outdoor Cooker,
+
+ next;
+ mes "[Chef's Apprentice]";
+ mes "Enjoy!";
+ close;
+
+ L_No_Talk2:
+ mes "[Chef's Apprentice]";
+ mes "Come back to vist anytime!";
+ mes "Have a good day.";
+ close;
+ }
+
+ if(cooking == 6){
+ mes "Thank you for taking that";
+ mes "pouch to my friend! Take";
+ mes "this as a gift.";
+ set cooking, 7;
+ getitem 12126, 10;//Items: Home Cooking Set,
+ next;
+ mes "[Chef's Apprentice]";
+ mes "Come back later if you";
+ mes "need anything else!";
+ close;
+ }
+
+ if(cooking == 7){
+ mes "Welcome back. What";
+ mes "would you like to do?";
+ next;
+ menu "Buy Supplies",-, "Just visiting",L_Leave3;
+
+ mes "[Chef's Apprentice]";
+ mes "What would you like?";
+ next;
+ menu "Outdoor Cooking Set - 500z each",-, "Home Cooking Set - 1,000z",L_HomeCooking, "Never Mind",L_Leave3;
+
+ set @price, 500;
+ set @tool, 12125;
+ goto L_Cooking_Tools4;
+
+ L_HomeCooking:
+ set @price, 1000;
+ set @tool, 12126;
+
+ L_Cooking_Tools4:
+ mes "[Chef's Apprentice]";
+ mes " How many?";
+ input @amount;
+ if(@amount < 1) goto ER_Invalid;
+ if(@amount > 100) goto ER_TooMuch;
+ if(@amount*@price > Zeny) goto ER_Zeny;
+ set Zeny, Zeny-(@amount*@price);
+ getitem @tool, @amount;
+
+ next;
+ mes "[Chef's Apprentice]";
+ mes "Enjoy!";
+ close;
+
+ L_Leave3:
+ mes "[Chef's Apprentice]";
+ mes "Come back to vist anytime!";
+ mes "Have a good day.";
+ close;
+ }
+
+ mes "Hi there. What can I";
+ mes "do for you?";
+ next;
+ menu "Just looking around",-, "I want to learn to cook",ap_2;
+
+ mes "[Chef's Apprentice]";
+ mes "Feel free to look around";
+ mes "as much as you like.";
+ mes "Just don't disturb my";
+ mes "teacher.";
+ close;
+
+ ap_2:
+ if(baseLevel < 50){
+ mes "[Chef's Apprentice]";
+ mes "You should train a little";
+ mes "more before trying something";
+ mes "as hard as cooking";
+ close;
+ }
+
+ set cooking, 1;
+ mes "[Chef's Apprentice]";
+ L_Remind:
+ mes "So you want to learn to";
+ mes "cook huh? Well, if you";
+ mes "think you can handle it,";
+ mes "just talk to my teacher.";
+ next;
+ mes "[Chef's Apprentice]";
+ mes "Just don't forget your";
+ mes "^000080Chef's Hat^000000 or Sharle";
+ mes "will yell at you.";
+ close;
+
+ ER_Zeny:
+ next;
+ mes "[Chef's Apprentice]";
+ mes "You don't have enough zeny.";
+ close;
+
+ ER_TooMuch:
+ next;
+ mes "[Chef's Apprentice]";
+ mes "You can't by that much at a time!.";
+ mes "You don't have to buy it all at once.";
+ close;
+ ER_Invalid:
+ next;
+ mes "[Chef's Apprentice]";
+ mes "You can't buy negative amounts of cooking";
+ mes "equipment. Please buy a valid amount.";
+ close;
+}
+
+
+payon.gat,209,127,4 script Cooking Friend 88,{
+ mes "[Cooking Friend]";
+ if(cooking == 5){
+ if(countitem(7432)) {
+ delitem 7432, 1;//Items: Leather Pouch,
+ mes "I see my friend sent you";
+ mes "to give me something.";
+ set cooking, 6;
+ emotion e_thx;
+ } else {
+ mes "What? My friend sent you";
+ mes "just to say Hello?";
+ emotion e_hmm;
+ }
+ mes "Thank you for your";
+ mes "trouble. Tell him I said,";
+ mes "Hello.";
+ close;
+ }
+ mes "Hello, how are you?";
+ close;
+}
+
+
+prt_castle.gat,45,35,4 script Sharle 886,{
+ mes "[Sharle]";
+ if(cooking && getequipid(1) != 5026) goto L_No_Uniform; //Item: Chef's Hat
+ if(cooking == 7)goto L_Cooking_7;
+ if(first_cooking)goto L_First_Cooking;
+
+ if(cooking == 1){
+ mes "So you want to learn how to cook?";
+ next;
+ menu "Yes",M_GetQuest, "No",M_End;
+ }
+
+ mes "What a great day to bake some";
+ mes "wonderfull treats!";
+ close;
+
+ M_GetQuest:
+ mes "[Sharle]";
+ mes "Ok. Let's try to cook something together.";
+ set first_cooking,rand(1,6);
+
+ L_First_Cooking:
+ mes "I'm lack of special ingredients,";
+ mes "bring me:";
+ if(first_cooking == 1){
+ set @item1, 577;
+ set @item1a, 1;
+ set @item2, 908;
+ set @item2a, 10;
+ set @item3, 1024;
+ set @item3a, 1;
+ set @food1, 12056;
+
+ mes "1 Grain, 10 Spawn, and";
+ mes "1 Squid Ink.";
+ }
+
+ if(first_cooking == 2){
+ set @item1, 518;
+ set @item1a, 1;
+ set @item2, 514;
+ set @item2a, 2;
+ set @item3, 501;
+ set @item3a, 1;
+ set @food1, 12061;
+
+ mes "1 Honey, 2 Grapes, and";
+ mes "1 Red Potion.";
+ }
+
+ if(first_cooking == 3){
+ set @item1, 514;
+ set @item1a, 3;
+ set @item2, 501;
+ set @item2a, 2;
+ set @item3, 0;
+ set @item3a, 0;
+ set @food1, 12046;
+
+ mes "3 Grapes and 2 Red Potions.";
+ }
+
+ if(first_cooking == 4){
+ set @item1, 942;
+ set @item1a, 5;
+ set @item2, 7031;
+ set @item2a, 1;
+ set @item3, 7457;
+ set @item3a, 1;
+ set @food1, 12066;
+
+ mes "5 Yoyo Tails, 1 Old Frying Pan, and";
+ mes "1 Cooking Oil.";
+ }
+
+ if(first_cooking == 5){
+ set @item1, 940;
+ set @item1a, 5;
+ set @item2, 7031;
+ set @item2a, 1;
+ set @item3, 7457;
+ set @item3a, 1;
+ set @food1, 12041;
+
+ mes "5 Grasshopper Legs, 1 Old Frying Pan, and";
+ mes "1 Cooking Oil.";
+ }
+
+ if(first_cooking == 6){
+ set @item1, 960;
+ set @item1a, 10;
+ set @item2, 511;
+ set @item2a, 10;
+ set @item3, 503;
+ set @item3a, 1;
+ set @food1, 12051;
+
+ mes "10 Nippers, 10 Green Herbs, and";
+ mes "1 Yellow Potion.";
+ }
+
+ if(countitem(@item1) < @item1a || countitem(@item2) < @item2a || countitem(@item3) < @item3a) close;
+
+ delitem @item1, @item1a;
+ delitem @item2, @item2a;
+ delitem @item3, @item3a;
+ next;
+ set cooking, 2;
+
+ mes "[Sharle]";
+ mes "Great Job!";
+ mes "You can now purchase";
+ mes "Outdoor Cooking Sets.";
+ getitem @food1, 1;
+ set first_cooking, 0;
+ close;
+
+ L_Cooking_7:
+ mes "Would you like to check";
+ mes "out my ^800000Cookbooks^000000?";
+ next;
+ menu "Yes",-, "No", M_End2, "Return Book", M_ReturnBook;
+
+ mes "[Sharle]";
+ if(cook_book){
+ mes "You'll have to give me back the";
+ mes "first book I loaned you if you";
+ mes "would like to check out a new book.";
+ mes "Would you like to trade books?";
+ next;
+ menu "Yes",-, "No",M_End2;
+
+ if(countitem(cook_book)==0){
+ mes "What? You don't have the book I loaned you?";
+ mes "It was a ^800000"+getitemname(cook_book)+"^000000.";
+ emotion e_sry;
+ close;
+ }
+ }
+ mes "[Sharle]";
+ mes "Which book would you like?";
+ next;
+ menu "^800000Lv 1 Cookbook",b_1, "Lv 2 Cookbook",b_2, "Lv 3 Cookbook",b_3, "Lv 4 Cookbook",b_4, "Lv 5 Cookbook",b_5, "^000000Leave",M_End2;
+
+ b_1:
+ mes "[Sharle]";
+ mes "You will need:";
+ mes "10 Pumpkins";
+ next;
+ if(countitem(535) < 10) goto L_No_Items;//Items: Pumpkin,
+ delitem 535, 10;//Items: Pumpkin,
+ set @checkout, 7472;
+ mes "And I see you have";
+ mes "what you need!";
+ next;
+ goto b_trade;
+
+ b_2:
+ mes "[Sharle]";
+ mes "You will need:";
+ mes "5 well-baked cookies";
+ next;
+ if(countitem(538) < 5) goto L_No_Items;//Items: Well-baked Cookie,
+ delitem 538, 5;//Items: Well-baked Cookie,
+ set @checkout, 7473;
+ mes "And I see you have";
+ mes "what you need!";
+ next;
+ goto b_trade;
+
+ b_3:
+ mes "[Sharle]";
+ mes "You will need:";
+ mes "5 Sushi";
+ next;
+ if(countitem(551) < 5) goto L_No_Items;//Items: Sushi,
+ delitem 551, 5;//Items: Sushi,
+ set @checkout, 7474;
+ mes "And I see you have";
+ mes "what you need!";
+ next;
+ goto b_trade;
+
+ b_4:
+ mes "[Sharle]";
+ mes "You will need:";
+ mes "5 Dumplings";
+ next;
+ if(countitem(553) < 5) goto L_No_Items;//Items: Dumpling,
+ delitem 553, 5;//Items: Dumpling,
+ set @checkout, 7475;
+ mes "And I see you have";
+ mes "what you need!";
+ next;
+ goto b_trade;
+
+ b_5:
+ mes "[Sharle]";
+ mes "You will need:";
+ mes "10 shoots";
+ next;
+ if(countitem(711) < 10) goto L_No_Items;//Items: Shoot,
+ delitem 711, 10;//Items: Shoot,
+ set @checkout, 7476;
+ mes "And I see you have";
+ mes "what you need!";
+ next;
+ goto b_trade;
+
+ b_trade:
+ mes "[Sharle]";
+ mes "If you find you need a new book,";
+ mes "you're welcome to come back and";
+ mes "trade.";
+
+ if(cook_book){
+ if(countitem(cook_book)==0){
+ mes "What? You don't have the book I loaned you?";
+ mes "It was a ^800000"+getitemname(cook_book)+"^000000.";
+ emotion e_sry;
+ close;
+ }
+ delitem cook_book,1;
+ mes "Have fun, and good luck!";
+ } else {
+ mes "Good luck! I hope you learn a lot!";
+ }
+ getitem @checkout,1;
+ set cook_book, @checkout;
+ close;
+
+ M_End:
+ mes "[Sharle]";
+ mes "That's fine with me, come back";
+ mes "when you want to cook.";
+ close;
+
+ M_End2:
+ mes "[Sharle]";
+ mes "Well, I'm here whenever you'd like";
+ mes "to learn. Just make sure you're";
+ mes "ready.";
+ close;
+
+ M_ReturnBook:
+ if(cook_book == 0){
+ mes "[Sharle]";
+ mes "You haven't borrowed any books.";
+ emotion e_hmm;
+ close;
+ }
+
+ if(countitem(cook_book)==0){
+ mes "What? You don't have the book I loaned you?";
+ mes "It was a ^800000"+getitemname(cook_book)+"^000000.";
+ emotion e_sry;
+ close;
+ }
+ delitem cook_book,1;
+ set cook_book, 0;
+ mes "[Sharle]";
+ mes "Returning the book already?";
+ mes "did you learn what you wanted";
+ mes "to know?";
+ emotion e_what;
+ close;
+
+ L_No_Items:
+ mes "[Sharle]";
+ mes "So come back when";
+ mes "you have the items";
+ mes "that you need.";
+ close;
+
+ L_No_Uniform:
+ mes "How dare you disrespect me";
+ mes "by showing up out of uniform.";
+ mes "Come back when you have your";
+ mes "uniform on.";
+ emotion e_bzz;
+ close;
+}
diff --git a/npc/quests/counteragent_mixture.txt b/npc/quests/counteragent_mixture.txt new file mode 100644 index 000000000..80ae7ad78 --- /dev/null +++ b/npc/quests/counteragent_mixture.txt @@ -0,0 +1,267 @@ +//===== eAthena Script =======================================
+//= Counteragent and Mixture Quest(Morgenstein)
+//===== By: ==================================================
+//= kobra_k88
+//= added some dialogs for Morgenstein by Komurka
+//===== Current Version: =====================================
+//= 1.7
+//===== Compatible With: =====================================
+//= eAthena 7.15 +
+//===== Description: =========================================
+//= Counteragent and Mixtures for making dyes & Alchemist Job Quest
+//===== Additional Comments: =================================
+//= Fully working
+//= Update for Alchemist Quest.
+//= 1.2 added check for Empty Bottle [Lupus]
+//= Fixed some lil thingys [Darkchild]
+//= More li'l thing, added comments for items IDs [Lupus]
+//= 1.5 Fixed Spelling mistakes. [Nexon]
+//= 1.6 Fixed some bugs, also related to Alch Job quest [Lupus]
+//= 1,7 Fixed exploit [Lupus]
+//============================================================
+
+
+// Merchant Louitz -----------------------------------------------------------
+alberta_in.gat,130,54,2 script Merchant Louitz 84,{
+ mes "[Louitz]";
+ mes "What's going on?";
+ if(countitem(970) && countitem(971) && countitem(972)) goto M_Menu2;//Items: Alcohol, Detrimindexta, Karvodailnirol,
+M_Menu:
+ next;
+ menu "Talk",M_Talk,"Cancel",M_Cancel;
+M_Menu2:
+ next;
+ menu "Talk",M_Talk,"More about solutions",M_Solut,"Cancel",M_Cancel;
+
+ M_Talk:
+ mes "[Merchant Louitz]";
+ mes "I was in Geffen for a while trying to find magic tools when I heard some rumors about a Mad Scientist.";
+ mes "I became very interested in the man and tried to meet with him on several occasions.";
+ next;
+ mes "[Merchant Louitz]";
+ mes "After many attempts, I finally got to meet him. Unfortunately he was too immersed in his work and didn't even take notice of me.";
+ next;
+ mes "[Merchant Louitz]";
+ mes "He kept on mumbling to himself ^0000FF'Karvodainirol... Detrimindexta... Alcohol^000000...'";
+ next;
+ mes "[Merchant Louitz]";
+ mes "I had know idea what he was talking about at first, but I later learned that those were names for some unique and rare solutions.";
+ if(countitem(970) && countitem(971) && countitem(972)) goto M_Menu2;//Items: Alcohol, Detrimindexta, Karvodailnirol,
+ mes "I wish ^0000FFI could see them^000000 with my own eyes...";
+ emotion e_slur;
+ goto M_Menu;
+
+ M_Solut:
+ if(MORGEN==0)set MORGEN,1;
+ mes "[Merchant Louitz]";
+ mes "Apparently that scientist uses those solutions to make other agents and mixtures.";
+ mes "You should speak with ^0000ddAure Dupon^000000 in Geffen to find out more about it. ";
+ next;
+ mes "[Merchant Louitz]";
+ mes "You can find him near the ^0000ddEast end^000000 of town. Ask him about ^0000ddMorgenstein^000000. That's the mad scientists' name.";
+ goto M_Menu2;
+
+ M_Cancel:
+ mes "[Louitz]";
+ mes "Um... Now I've seen everything.";
+ close;
+}
+
+// Aure Dupon ------------------------------------------------------------------------
+geffen.gat,181,114,4 script Aure Dupon 55,{
+ mes "[Aure Dupon]";
+ mes "TIME never WAITS for you!! Even MAGIC cannot SLOW it down! I can feel it passing me by even as we speak!!....";
+ emotion 0;
+ next;
+ mes "[Aure Dupon]";
+ mes "So... why did you stop me??";
+ emotion 20;
+ if(MORGEN >= 1) goto M_Menu2;
+M_Menu:
+ next;
+ menu "Talk",M_Talk,"Cancel",M_Cancel;
+M_Menu2:
+ next;
+ menu "Talk",M_Talk,"More about Morgenstein",M_Morgen,"Cancel",M_Cancel;
+
+ M_Talk:
+ mes "[Aure Dupon]";
+ mes "It's true that I'm a little eccentric because of my quest to gain the power of magic, but I assure that there are others out there that are even stranger than myself.";
+ next;
+ mes "[Aure Dupon]";
+ mes "Like that mad scientist ^0000ddMorgenstein^000000. Anyway, if it were up to you, would you be able to devote your ENTIRE life to one single purpose?";
+ next;
+ mes "[Aure Dupon]";
+ mes "Would you be able to give up everything else in your life to achieve that goal? Even if it meant risking insanity??";
+ if(MORGEN>=1) goto M_Menu2;
+ goto M_Menu;
+
+ M_Morgen:
+ if(MORGEN==1) set MORGEN,2;
+ mes "[Aure Dupon]";
+ mes "Morgenstein? Now that man definatley has a few screws loose. He's always in the ^0000ddBlasksmith Guild Building^000000 making crazy potions.";
+ mes "He calls them ^ff0000Mixtures^000000 and ^ff0000Counteragents^000000. I'm not sure what there used for though.";
+ next;
+ mes "[Aure Dupon]";
+ mes "You should go speak with him if your that curious about his work.";
+ goto M_Menu2;
+
+ M_Cancel:
+ mes "[Aure Dupon]";
+ mes "Human beings are just a small part of Nature.... therefore the human will is that of Natures will.....";
+ close;
+}
+
+// Chemist Morgenstein -----------------------------------------------------------
+geffen_in.gat,141,140,2 script Morgenstein 121,{
+ if(MORGEN == 2) goto L_0;
+ if(MORGEN == 3) goto L_1;
+
+ mes "[Chemist Morgenstein]";
+ mes "Heheheheheh... Sniff Sniff... I can smell something appetizing here.";
+ mes "It is a Human Being... living one... umm yummy... Heheheheheh";
+ emotion 38;
+ close;
+
+L_0:
+ mes "[Chemist Morgenstein]";
+ mes "So you've been asking about me huh? What is it that you want to know?";
+M_Menu:
+ next;
+ menu "Ask about research",M_Rsrch,"Nothing",M_End;
+
+ M_Rsrch:
+ mes "[Chemist Morgenstein]";
+ mes "Heheheheheh... You probably already heard about what I do ...";
+ mes "Okay.. I will tell you everything... there is nothing left for me to hide.... Heheheheheh...";
+ emotion 29;
+ next;
+ mes "[Chemist Morgenstein]";
+ mes "As far as I'm concerned my research has already been completed.....";
+ mes "I am a genius you know, and I can make anything!! Heheheheh... it's only a matter how long it will take...";
+ next;
+ mes "[Chemist Morgenstein]";
+ mes "You know what I mean..... time?.... Hehehehehehehya....";
+ emotion 29;
+ next;
+ mes "[Chemist Morgenstein]";
+ mes "Um.... did you say you want to know about my Research?... Oh it's all very simple.... I'm just trying to find ways to combine different materials...";
+ next;
+ mes "[Chemist Morgenstein]";
+ mes "Isn't it interesting? I'm perfecting a method that melts materials, such as iron and stone, and then mixes them into a new substance!!!";
+ mes "Once it is perfected, I will be able to turn anything in the word into a new substance.....";
+ next;
+ mes "[Chemist Morgenstein]";
+ mes "~~~~ !! Hehe!!!...Heheheheheh!!!...squash squash!!!..Kekekekekelll!!!!";
+ emotion 43;
+ next;
+ mes "[Chemist Morgenstein]";
+ mes "Ack!~cough~cough~ Ahem.... Though it is not yet possible, I did figure out something else incredible.";
+ mes "Through my research I found out how to make different types of liquids. I call them ^5533FF'counteragents and mixtures'^000000.";
+ next;
+ mes "[Chemist Morgenstein]";
+ mes "I can make one for you right now,if you want?? Ahhh... Talking about my experiments and research makes me.... 'excited'.......";
+ mes "You too can feel my 'excitement' if you wish..... Ahhhhh.... I can make you feel...";
+ set MORGEN,3;
+ if(ALCH_Q == 4) set al_morgen,1;
+ close;
+
+L_1:
+ mes "[Chemist Morgenstein]";
+ mes "What do you want now?";
+M_Menu2:
+ next;
+ menu "Ask about research",M_Rsrch,"Make a new one",-, "Nothing",M_End;
+
+ mes "[Chemist Morgenstein]";
+ mes "Heheheheheheh.... So I see you are interested in my creations?..... Who woudn't.... Kekekekekekeke!!!";
+ mes "So what do you want me to make for you?? Huh? Heheheheheh.............";
+ emotion 29;
+ next;
+ menu "-Counteragent",-, "-Mixture",sM_Mixture, "-Forget it",M_End;
+
+ mes "[Chemist Morgenstein]";
+ mes "Oh... You said Counteragent... Kekekekekekeke... Let's see.... I'll need some items.......";
+ mes "... Let me check... Oh... Oh...... Ahhhh..... Hmmm.....";
+ next;
+ mes "[Chemist Morgenstein]";
+ mes "Oh.... As I recall I need....:";
+ mes "^5533FF1 Alcohol";
+ mes "1 Detrimindexta^000000......";
+ mes "and ^5533FF1 Empty Bottle^000000....";
+ next;
+ mes "[Chemist Morgenstein]";
+ mes "With these 3 things I'll be able to make you a counter agent. It won't be a big deal to make..... Kekekekekekeke....";
+ mes "Oh, and there will be a fee of ^5533FF3000 zeny^000000 okay? Heheheheheh..... Oh, surely you don't think it's rip-off?...";
+ next;
+ mes "[Chemist Morgenstein]";
+ mes "Alright?....";
+ next;
+ menu "Make",-,"Cancel",M_End;
+
+ mes "[Chemist Morgenstein]";
+ if(countitem(970) && countitem(971) && countitem(713) && Zeny>=3000) goto sl_GetCounter;//Items: Alcohol, Detrimindexta, Empty Bottle,
+ mes "I'm sorry but you need 1 Empty Bottle, 1 Alcohol, 1 Detrimindexta, and 3000 Zeny for me to make a Counteragent.";
+ emotion e_sry;
+ close;
+
+ sl_GetCounter:
+ delitem 970,1;//Items: Alcohol,
+ delitem 713,1;//Items: Empty Bottle,
+ delitem 971,1;//Items: Detrimindexta,
+ set Zeny, Zeny-3000;
+ mes "OhOhOhOh...... Heheheheheh...... Fine... Like this..... Fine... Keep... More........ Heheheheheh";
+ mes ".... Ahhhh.... ..... OhOh.... OhOh!..... OhOhOhOhOhOh!!!...!!!!!!";
+ next;
+ getitem 973,1;//Items: Counteragent,
+ mes "[Chemist Morgenstein]";
+ mes ".... Hmmm......";
+ emotion e_hmm;
+ close;
+
+ sM_Mixture:
+ mes "[Chemist Morgenstein]";
+ mes "Oh... You said Mixture?... Kekekekekekeke... Let's see... I'll need some items.......";
+ mes "... Let me check... Oh... Oh...... Ahhhh..... Hmmm.....";
+ next;
+ mes "[Chemist Morgenstein]";
+ mes "Oh.... As I recall I need....:";
+ mes "^5533FF1 Alcohol";
+ mes "1 Karvodailnirol^000000.....";
+ mes "and ^5533FF1 Empty Bottle^000000...........";
+ next;
+ mes "[Chemist Morgenstein]";
+ mes "With these 3 things I'll be able to make you a mixture. It won't be a big deal to make..... Kekekekekekeke....";
+ mes "Oh, and there will be a fee of ^5533FF4000 zeny^000000 okay? Heheheheheh..... Oh, surely you don't think it's rip-off?...";
+ next;
+ mes "[Chemist Morgenstein]";
+ mes "Alright??...";
+ next;
+ menu "Make",-,"Cancel",M_End;
+
+ mes "[Chemist Morgenstein]";
+ if(countitem(970) && countitem(972) && countitem(713) && Zeny>=4000) goto sl_GetMix;//Items: Alcohol, Karvodailnirol, Empty Bottle,
+ mes "I'm sorry but you need 1 Empty Bottle, 1 Alcohol, 1 Karvodainirol, and 4000 Zeny for me to make a Mixture.";
+ emotion e_sry;
+ close;
+
+ sl_GetMix:
+ delitem 970,1;//Items: Alcohol,
+ delitem 713,1;//Items: Empty Bottle,
+ delitem 972,1;//Items: Karvodailnirol,
+ set Zeny, Zeny-4000;
+ mes "OhOhOhOh...... Heheheheheh...... Fine... Like this..... Fine... Keep... More........ Heheheheheh";
+ mes ".... Ahhhh.... ..... OhOh.... OhOh!..... OhOhOhOhOhOh!!!...!!!!!!";
+ next;
+ getitem 974,1;//Items: Mixture,
+ mes "[Chemist Morgenstein]";
+ mes ".... Hmmm......";
+ emotion e_hmm;
+ close;
+
+ M_End:
+ mes "[Chemist Morgenstein]";
+ mes "... Kekekekekekeke....";
+ emotion e_heh;
+ close;
+}
\ No newline at end of file diff --git a/npc/quests/doomed_swords.txt b/npc/quests/doomed_swords.txt new file mode 100644 index 000000000..de03dee9d --- /dev/null +++ b/npc/quests/doomed_swords.txt @@ -0,0 +1,682 @@ +//===== eAthena Script =======================================
+//= Doomed Swords Quest
+//===== By: ==================================================
+//= kobra_k88
+//===== Current Version: =====================================
+//= 1.3
+//===== Compatible With: =====================================
+//= eAthena 7.15 +
+//===== Description: =========================================
+//= Quest for Doomed Swords, Grimtooth, Mysteltain, Executioner.
+//= Based off mRO version. Part 1 and 2 of the quest can be
+//= found in cities\comodo.txt. Message text for Part 6 and 7
+//= is made up.
+//===== Additional Comments: =================================
+//=95% done
+//= 1.1 Fixed items count check. For all 3 swords... [Lupus]
+//= 1.3 Fixed exploit [Lupus]
+//============================================================
+
+
+//=============================================================================
+// Doomed Swords Part 3
+//=============================================================================
+// Moet Leng Good: Tablet Of Power
+aldebaran.gat,44,53,4 script Wizard in Training 64,{
+ if(dmdswrd_Q == 15) goto L_1;
+ if(dmdswrd_Q == 16) goto L_2;
+ if(dmdswrd_Q == 17) goto L_3;
+ if(dmdswrd_Q == 18) goto L_4;
+ mes "[Moet Leng Good]";
+ mes "Did you know that some people signed contract in shadows with the Dark Lord with the";
+ mes "^3355FF`Tablet of Power'^000000?!";
+ next;
+ mes "[Moet Leng Good]";
+ mes "As a result of their greed for power, it brought disasters for the entire world.";
+ mes "So please, be happy with what you already have and do not give in to the dark side.";
+ close;
+
+L_1:
+ mes "[Moet Leng Good]";
+ mes "I guess you are the possessor of the 'Stone of Awakening' and also the one seeking for the 'Tablet of Power'.";
+ next;
+ mes "[Moet Leng Good]";
+ mes "Very well then, I will help you to make a 'Tablet of Power'.";
+ mes "However, it is not a simple task, I will need a number of materials in order to succeed.";
+ next;
+ mes "[Moet Leng Good]";
+ mes "I will need one of these stones, gems, and ores.";
+ mes "^3355FF`Blue Gemstone'^000000";
+ mes "^3355FF`Sapphire'^000000";
+ mes "^3355FF`Aquarmarine'^000000";
+ mes "^3355FF`Shining Stone'^000000";
+ mes "and ^3355FF`Rough Elunium'^000000";
+ next;
+ mes "[Moet Leng Good]";
+ mes "In other words, the 'Tablet of Power' is very valuable, and might take you a while to gather the resources for it.";
+ set dmdswrd_Q,16;
+ close;
+L_2:
+ if((countitem(717) < 1) || (countitem(726) < 1) || (countitem(720) < 1) || (countitem(640) < 1) || (countitem(757) < 1)) goto L_1;
+ mes "[Moet Leng Good]";
+ mes ". . . . . ! !";
+ mes "I can hardly believe that you actually gathered all the resources for the 'Tablet of Power'";
+ mes "Because you have worked so hard, let me make the tablet for you now.";
+ next;
+ delitem 717,1;
+ delitem 726,1;
+ delitem 720,1;
+ delitem 640,1;
+ delitem 757,1;
+ mes "^3355FF- Gives him all the stones -^000000";
+ set dmdswrd_Q,17;
+ next;
+ mes "[Moet Leng Good]";
+ mes "Now, I'll just need you to gather a few ingredients for the fininshing touch of the tablet.";
+ next;
+ mes "[Moet Leng Good]";
+ mes "I will need just one ^3355FF`Cobweb'^000000";
+ mes "You could easily obtain them through argos in Mt. Mjolnir";
+ next;
+ mes "^3355FF- Moet Leng Good's-^000000";
+ mes "^3355FF- working hard on the tablet -^000000";
+ close;
+L_3:
+ if(countitem(1025) > 0) goto sL_3;
+ mes "[Moet Leng Good]";
+ mes "The tablet will be done when I finish!";
+ mes "Please do not bother me for now, I need to concentrate";
+ next;
+ mes "[Moet Leng Good]";
+ mes "Meanwhile, please go find a cobweb so I could use it to provide some finishing touches to the tablet, thanks.";
+ close;
+
+ sL_3:
+ mes "[Moet Leng Good]";
+ mes "Ah, very good, you got a cobweb, please just leave it over there.";
+ next;
+ mes "^3355FF- Gives cobweb to him-^000000";
+ delitem 1025,1;
+ next;
+ mes "[Moet Leng Good]";
+ mes "Alright, here we go !!";
+ next;
+ mes "^3355FF- Clang ! Clang ! Clunk ! -^000000";
+ mes "^3355FF- Boom ! ! -^000000";
+ next;
+ mes "^3355FF- `Tablet of Power'-^000000";
+ mes "^3355FF- is forged -^000000";
+ next;
+ mes "^3355FF- Received 'Tablet of Power'-^000000";
+ set dmdswrd_Q,18;
+ next;
+ mes "[Moet Leng Good]";
+ mes "Even though you possess the 'Tablet of Power' now, the tablet would not be effective without";
+ mes "the ^3355FF` Book of the Tiresome Sheep'^000000??";
+ next;
+ mes "[Moet Leng Good]";
+ mes "^3355FF`Book of the Tiresome Sheep'^000000";
+ mes "was originally crafted by demons located in the desert and now the crafting skill have been passed down to a few wanderers near Morroc.";
+ next;
+ mes "[Moet Leng Good]";
+ mes "So if you wish to obatin the 'Book of the Tiresome Sheep', Morroc would be a smart place to look";
+ close;
+L_4:
+ mes "[Moet Leng Good]";
+ mes "Head to Morroc then! There's someone there that will tell you about";
+ mes "the 'Book of the Tiresome Sheep'. I do not remember his name, but";
+ mes "now that you have the 'Tablet of Power', I'm sure you'll find him.";
+ close;
+}
+
+
+//=============================================================================
+// Doomed Swords Part 4
+//=============================================================================
+// Zaka: Book of Tiresome Sheep
+morocc.gat,202,33,4 script ZAKA 99,{
+ if(dmdswrd_Q == 18) goto L_1;
+ if(dmdswrd_Q == 19) goto L_2;
+ if(dmdswrd_Q == 20) goto L_3;
+ if(dmdswrd_Q == 21) goto L_4;
+ if(dmdswrd_Q == 22) goto L_5;
+ if(dmdswrd_Q == 23) goto L_6;
+
+ mes "[ZAKA]";
+ mes "...... The sun sets over another day. The moon rises to take it's nightly place.";
+ mes "As darkness creeps across the desert, the people of Morroc huddle together.";
+ mes "The never ending well is the life blood of the wandering nomads..... This is Morroc....";
+ next;
+ mes "[ZAKA]";
+ mes "Eh hem.... Say... Have you ever heard of the ^FF4444Doomed Swords^000000, or ^5555FFSwords of Power^000000?";
+ mes "It is believed that these swords are so powerful that whoever weilds them could rule the world!";
+ next;
+ mes "[ZAKA]";
+ mes "The three swords I speak of are the ^5555FFMysteltainn, Ogre Tooth, and Executioner^000000.";
+ next;
+ mes "[ZAKA]";
+ mes "These swords are hidden somewhere in this world.... have you seen any?";
+ close;
+
+L_1:
+ mes "[ZAKA]";
+ mes ". . . . .";
+ next;
+ mes "[ZAKA]";
+ mes "! ! ! ! ! ! !";
+ next;
+ mes "[ZAKA]";
+ mes "Isn't that ?! That tablet?!";
+ mes "^3355FF`Tablet of Power'^000000";
+ mes "Right?! Wha ! !";
+ next;
+ mes "[ZAKA]";
+ mes "Who are you? Why do you possess the 'Tablet of Power'?";
+ mes "Bah, nevermind, it doesn't matter who you are.";
+ mes "Whoever possesses the 'Tablet of Power' is a natural-born leader.";
+ next;
+ mes "[ZAKA]";
+ mes "Well, we are one of the wanderers of Morroc.";
+ mes "It is tradition and duty to make the possessor of^3355FF` Tablet of Power '^000000";
+ mes "a ^3355FF`Book of the Tiresome Sheep'^000000";
+ next;
+ mes "[ZAKA]";
+ mes "I will craft you a 'Book of the Tiresome Sheep', only for your personal use.";
+ mes "As you might have expected, I will need various ingredients to make you the book.";
+ next;
+ mes "[ZAKA]";
+ mes "The first thing will need are two ^3355FF`Snake Scale'^000000 , please bring them to me.";
+ set dmdswrd_Q,19;
+ close;
+L_2:
+ if(countitem(926) > 1) goto sL_2;
+ mes "[ZAKA]";
+ mes "If you want the 'Book of the Tiresome Sheep', I will need^3355FF 2 'Snake Scales'^000000.";
+ close;
+
+ sL_2:
+ mes "Gives Zaka two^3355FF'Snake Scales'^000000";
+ delitem 926,2;
+ set dmdswrd_Q,20;
+ next;
+ mes "[ZAKA]";
+ mes "Now I can construct the basic layout of the book witht the snake scales, but I now need 1 piece of";
+ mes "^3355FF'Scale Shell'^000000 in order to block only negative energies from the book.";
+ close;
+L_3:
+ if(countitem(936) > 0) goto sL_3;
+ mes "[ZAKA]";
+ mes "Please bring me the next ingredient needed for the 'Book of the Tiresome Sheep', I will need one";
+ mes "^3355FF'Scale Shell'^000000 ??";
+ mes ". . . . .";
+ close;
+
+ sL_3:
+ mes "Gives^3355FF'Scale Shell^000000";
+ mes "to Zaka";
+ delitem 936,1;
+ set dmdswrd_Q,21;
+ next;
+ mes "[ZAKA]";
+ mes "Alright, good.";
+ mes "Next, I will need one piece of ^3355FF'Shining Scale'^000000 in order to distribute the magical power equally throughout the book.";
+ next;
+ mes "[ZAKA]";
+ mes "While you are getting the scale, I will continue to the next phase of crafting, good luck.";
+ close;
+L_4:
+ if(countitem(954) > 0) goto sL_4;
+ mes "[ZAKA]";
+ mes "In order to finish crafting the 'Book of the Tiresome Sheep', I will need you to gather me one piece of ^3355FF'Shining Scale'^000000, okay?";
+ close;
+
+ sL_4:
+ mes "Gives^3355FF'Shining Scale'^000000";
+ mes "to Zaka";
+ delitem 954,1;
+ set dmdswrd_Q,22;
+ next;
+ mes "[ZAKA]";
+ mes "Great job!";
+ mes "Finally, the last ingredient I need is one ^3355FF'Stinky Scale'^000000 to complete the book, please bring it to me";
+ close;
+L_5:
+ if(countitem(959) > 0) goto sL_5;
+ mes "[ZAKA]";
+ mes "All I need to craft the 'Book of the Tiresome Sheep' is one piece of ^3355FF'Stinky Scale'^000000 now, please bring one to me.";
+ close;
+
+ sL_5:
+ mes "Gives^3355FF'Stinky Scale'^000000";
+ mes "to Zaka";
+ delitem 959,1;
+ next;
+ mes "[ZAKA]";
+ mes "Ooo. this is all I need to finish up the book, thank you.";
+ next;
+ mes "^3355FF-Zaka is working hard in-^000000";
+ mes "^3355FF-finalizing the book-^000000";
+ next;
+ mes "^3355FF- You receive the Book of-^000000";
+ mes "^3355FF- the Tiresome Sheep from Zaka-^000000";
+ set dmdswrd_Q,23;
+ next;
+ mes "[ZAKA]";
+ mes "There, that's for you..";
+ mes "I guess you have the required items to summon and use the Doomed Swords.";
+ mes "But if you are really going to use the Doomed Swords please go talk to ^5533FFWon^000000, a wandering swordsman, he might have some important advice.";
+ next;
+ mes "[ZAKA]";
+ mes "Legend has it that Won's sword fighting skills is already at god-like level, and he is also one of the ten most influential people in the world.";
+ next;
+ mes "[Zaka]";
+ mes "Right now, he might be training inside Comodo Town, so you might be able to find him there.";
+ close;
+L_6:
+ mes "[ZAKA]";
+ mes "The wandering swordsman ^3355FF`Won'^000000";
+ mes "should be training somwhere in Comodo, look for him very carefully.";
+ close;
+}
+
+
+//=============================================================================
+// Doomed Swords Part 5
+//=============================================================================
+// Won: Voucher of Power
+comodo.gat,232,87,4 script Wandering Swordsman WON 106,{
+ if(dmdswrd_Q == 23) goto L_1;
+ if(dmdswrd_Q == 24) goto L_2;
+ if(dmdswrd_Q == 25) goto L_3;
+
+ mes "[WON]";
+ mes "My name is ^3355FF'Won'^000000. I have searched far and wide, across the oceans and the mountains, to find one who is worthy.......";
+ next;
+ mes "[WON]";
+ mes "It has been many years since the Evil Witch was defeated in that legendary battle..... It is now a story of the past.......";
+ mes "Still, the quest must continue! This is what the heavens desire of me.....";
+ next;
+ mes "[Won]";
+ mes "I must stay here in Comodo..... It is my fate.... I must stay here and wait.........";
+ mes ". . . . . . . . . . . . . . . . . . . .";
+ mes ". . . . . . . . . . . . . . .";
+ mes ". . . . . . . . . .";
+ mes ". . . . .";
+ close;
+
+L_1:
+ mes "^3355FF- The swordsman examines you -^000000";
+ mes "^3355FF- for a few seconds -^000000";
+ next;
+ mes "[Swordsman]";
+ mes "Heh, you're just a normal fella.";
+ mes "I am a wandering swordsman,";
+ mes "^3355FF`WON'^000000";
+ next;
+ mes "[WON]";
+ mes "What? You say you are gonna summon the Doomed Swords?";
+ mes "Psh, I don't care what you say, I will be the judge on whether or not you are worthy.";
+ mes "Let me explain...";
+ next;
+ mes "[WON]";
+ mes "Even though you do have all the required materials to summon the Doomed Swords but that does not mean that you could withstand the energy drained during one summoning.";
+ next;
+ mes "[WON]";
+ mes "Without careful control of energy transfer from the normal world to the Dark World, many disasters could arise upon the world or even unforeseen consequences.";
+ next;
+ mes "[WON]";
+ mes "I am sure that you have heard that the three different Doomed Swords are:";
+ mes "^3355FF` Mysteltain '^000000";
+ mes "^3355FF` Grimtooth '^000000";
+ mes "and ^3355FF` Executioner '^000000.";
+ mes "Each of them with very distinct specialties.";
+ next;
+ mes "[WON]";
+ mes "Now that you understand these, let us start the summoning then.";
+ next;
+ mes "- `Won'-";
+ mes "- draws his sword -";
+ mes "- and starts to swing it around -";
+ next;
+ mes "- You notice something -";
+ mes "- a blue light descending -";
+ mes "- from the sky -";
+ next;
+ mes "^3355FF-You got-^000000";
+ mes "^3355FF-Voucher of Power-^000000";
+ set dmdswrd_Q,24;
+ next;
+ mes "[WON]";
+ mes ". . . . .";
+ next;
+L_2:
+ mes "[WON]";
+ mes "Hmm, it seems like the Dark World is not ready to give you the Doomed Sword just yet...even though you have what it takes to be the master of the swords.";
+ next;
+ mes "[WON]";
+ mes "However, when the day is as long as the night, when the sunlight is as bright as solar sword.";
+ mes "Only during that time, you will have the opportunity to receive the Doomed Swords.";
+ next;
+ mes "[WON]";
+ mes "Head to Morocc and look for a man by the name of ^5533FFCetsu^000000. He has information about one of the swords.";
+// mes "When that time comes, visit the East for a quiet city name Payon, and you shall find yourself in a new journey for the Doomed Swords.";
+ close;
+L_3:
+ mes "123456789101112131415";
+ close;
+}
+
+
+//==============================================================================
+// Doomed Swords Part 6
+//==============================================================================
+
+// Cetsu --------------------------------------------
+morocc.gat,281,178,8 script Cetsu 97,{
+ if(dmdswrd_Q == 25) goto M_Yes;
+ if(dmdswrd_Q > 25) goto L_1;
+
+ mes "[Cetsu]";
+ mes "It is rumored that there was once a dagger made out of the tooth of an ogre. This made the dagger much stronger than those made out of steel.";
+ next;
+ mes "[Cetsu]";
+ mes "It became known as the ^ff0000Grimtooth^000000. What made the Grimtooth truly special was the fact that it was enchanted with a magic spell.";
+ next;
+ mes "[Cetsu]";
+ mes "Many have tried to re-create the Grimtooth but have faild. Only one blacksmith, who once lived in Prontera, knows how to do this.";
+ next;
+ mes "[Cetsu]";
+ mes "Unfortunalety he left Prontera long ago and has not been seen since...";
+ if(dmdswrd_Q == 24) goto L_0;
+ close;
+
+L_0:
+ next;
+ mes"[Cetsu]";
+ mes "Say,.... are you really interested in this dagger?";
+ next;
+ menu "Yes",M_Yes,"Not really",M_No;
+
+ M_Yes:
+ mes "[Cetsu]";
+ mes "You should speak with ^5533FFVeeyop^000000 then. He seems to know alot about the ^00aa00Legendary Blacksmith^000000.";
+ mes "You can find him in Prontera. With his help you may even be able to track down the Legendary Blacksmith. Good luck.";
+ set dmdswrd_Q, 25;
+ close;
+ M_No:
+ mes "[Cetsu]";
+ mes "Oh, I see.";
+ close;
+
+L_1:
+ mes "[Cetsu]";
+ mes "Wow! So you're gonna try to re-create the legendary, doomed dagger Grimtooth? You should becarefull though, that's one powerfull dagger.";
+ close;
+}
+
+// Veeyop --------------------------------------------------
+prontera.gat,197,188,4 script Veeyop 50,{
+ if(dmdswrd_Q == 26) goto M_Yes;
+ if(dmdswrd_Q > 26) goto L_1;
+
+ mes "[Veeyop]";
+ mes "Have you ever heard of a doomed sword, ^ff0000Mysteltain^000000? It's named after ^0000bba legendary Young Twig^000000 that was used to murder Balder, the God of Light...";
+ next;
+ mes "[Veeyop]";
+ mes "According to the legend, it was a weak, little twig. Other than that I know nothing more of the sword.";
+ next;
+ mes "[Veeyop]";
+ mes "Whatever the legend may be, people say there is a way to re-construct the legendary sword.";
+ mes "I've heard that there was once a Blacksmith who had the knowledge to re-create the legendary sword living in Prontera.";
+ next;
+ mes "[Veeyop]";
+ mes "Unfortunately he's disapeared from this town. Anywho its just heresay.";
+ if(dmdswrd_Q == 25) goto L_0;
+ close;
+
+L_0:
+ next;
+ mes"[Veeyop]";
+ mes "Say,.... are you really interested in this sword?";
+ next;
+ menu "Yes",M_Yes,"Not really",M_No;
+
+ M_Yes:
+ mes "[Veeyop]";
+ mes "You should speak with ^FF5533Nain^000000 then. She seems to know alot about the ^00aa00Legendary Blacksmith^000000.";
+ mes "You can find her in Izlude. With her help you may even be able to track down the Legendary Blacksmith. Good luck.";
+ set dmdswrd_Q, 26;
+ close;
+ M_No:
+ mes "[Veeyop]";
+ mes "Oh, I see.";
+ close;
+
+L_1:
+ mes "[Veeyop]";
+ mes "Wow! So you're gonna try to re-create the legendary, doomed sword Mysteltain? You should becarefull though, that's one powerfull sword.";
+ close;
+}
+
+// Nain -------------------------------------------------------------
+izlude_in.gat,173,88,2 script Nain 102,{
+ if(dmdswrd_Q == 27) goto M_Yes;
+ if(dmdswrd_Q > 27) goto L_1;
+
+ mes "[Nain]";
+ mes "I was once told a legend about a powerfull sword that was used only for executions.";
+ next;
+ mes "[Nain]";
+ mes "For years and years, this mighty sword was used to be-head heinous criminals, but it also took the lives of great warriors as well.";
+ mes "It is said that the overtime the government became corrupt and hence innocent lives fell victim to the sword.";
+ next;
+ mes "[Nain]";
+ mes "This caused the sword to become corrupted with an emense evil power making it almost impossible to weild.";
+ mes "Those who did try to weild it became possed with an dark aura that drove them to blood lust.";
+ next;
+ mes "[Nain]";
+ mes "This ancient civilization eventually collapsed and faded away. The powerfull sword also vanished.";
+ mes "The sword would later be named the ^ff0000Executioner^000000. An appropriate name considering its history.";
+ next;
+ mes "[Nain]";
+ mes "Recently there have been rumors of a Legendary Blacksmith that has the skill to re-create the lost sword.";
+ next;
+ mes "[Nain]";
+ mes "Just thinking about it sends shivers down my spine.";
+ mes "No matter how powerfull a sword it is, to think that it is possessed with thousands and thousands of angry ghosts...";
+ mes "I would rather see the Doomed sword stay lost to history.";
+ if(dmdswrd_Q == 26) goto L_0;
+ close;
+
+L_0:
+ next;
+ mes"[Nain]";
+ mes "Say,.... are you really interested in this sword?";
+ next;
+ menu "Yes",M_Yes,"Not really",M_No;
+
+ M_Yes:
+ mes "[Nain]";
+ mes "You should speak with ^aa00aaRupeto^000000 then. He seems to know alot about the ^00aa00Legendary Blacksmith^000000.";
+ mes "You can find him inside the Pub in Prontera. With his help you may even be able to track down the Legendary Blacksmith. Good luck.";
+ set dmdswrd_Q, 27;
+ close;
+
+ M_No:
+ mes "[Nain]";
+ mes "Oh, I see.";
+ close;
+
+L_1:
+ mes "[Nain]";
+ mes "Wow! So you're gonna try to re-create the legendary, doomed sword Executioner? You should becarefull though, that's one powerfull sword.";
+ close;
+}
+
+// Rupeto ---------------------------------------------------------
+prt_in.gat,169,16,3 script Rupeto 86,{
+ if(dmdswrd_Q == 27) goto L_0;
+ mes "[Rupeto]";
+ mes "Hello.";
+ close;
+
+L_0:
+ mes "[Rupeto]";
+ mes "Looking for the Legendary Blacksmith? Go to the payon field just east of the town of Payon.";
+ mes "It's said that the field looks alot like an Elder Willow....";
+ close;
+}
+
+
+//=============================================================================
+// Doomed Swords Final Part
+//=============================================================================
+
+// Legendary Blacksmith ----------------------------------------------
+pay_fild08.gat,217,273,4 script Legendary Blacksmith 63,{
+
+ if(dmdswrd_Q == 27) goto L_Start;
+ if(dmdswrd_Q == 28) goto L_Forge;
+ mes "[Legendary Blacksmith]";
+ mes "I wonder what's going on in ^ff0000Prontera^000000? It's been so long since I've been there.";
+ close;
+
+L_Start:
+ mes "[Legendary Blacksmith]";
+ mes "Hmm... what's this about Doomed Swords?? I have no idea what you're";
+ mes "talking about.....";
+ next;
+ mes "[Legendary Blacksmith]";
+ mes "..... I see... so you've spoken to everyone who was involved with in";
+ mes "the war with the witch... you've also gathered all of the items of";
+ mes "power......";
+ next;
+ mes "[Legendary Blacksmith]";
+ mes "I never thought the day would come when I would make one of these";
+ mes "dreadfull swords again... but you have proven yourself so I can not";
+ mes "turn you down.";
+ next;
+ L_Forge:
+ mes "[Legendary Blacksmith]";
+ mes "What sword do you want me to forge?";
+ set dmdswrd_Q, 28;
+ next;
+ menu "Executioner",M_Exec, "Grimtooth",M_Grim, "Mysteltain",M_Myst;
+
+ M_Exec: //1169
+ if(countitem(7017)>=2 && countitem(7024)>=10 && countitem(1008)>=3 && countitem(609)>=50 && countitem(714)>=1) goto L_GetExec;
+ mes "[Legendary Blacksmith]";
+ mes "So you're interested in making the legendary Executioner Sword heh?.....";
+ next;
+ mes "[Legendary Blacksmith]";
+ mes "It's been sometime since I've forged any weapons,... but since it";
+ mes "is a special challenge for me to make this sword.....";
+ next;
+ mes "[Legendary Blacksmith]";
+ mes "I'll do it! I will re-create the Executioner Sword! I must warn you";
+ mes "however, this is a very powerfull and dangerous sword. Be carefull.";
+ next;
+ mes "[Legendary Blacksmith]";
+ mes "For the Executioner Sword I will need the following items:";
+ mes "- ^0000ff2 Executioners Mitten^000000"; //7017
+ mes "- ^0000ff10 Bloody Edge^000000"; //7024
+ mes "- ^0000ff3 Necklace of Oblivion^000000"; //1008
+ mes "- ^0000ff50 Amulet^000000"; //609
+ mes "- and ^0000ff1 Emperium^000000"; //714
+ close;
+
+ L_GetExec:
+ delitem 7017,2;
+ delitem 7024,10;
+ delitem 1008,3;
+ delitem 609,50;
+ delitem 714,1;
+ mes "[Legendary Blacksmith]";
+ mes "Good! You have brought me all the necessary items.";
+ mes "Please wait a moment while I forge the Executioner Sword.";
+ next;
+ mes "(cling-clang!~ klonk!~ klank!~ cling-clang!)";
+ next;
+ mes "[Legendary Blacksmith]";
+ mes "Phew! Once again a perfect sword! Hahaha! Here you are my friend, enjoy.";
+ getitem 1169,1;
+ close;
+
+ M_Grim: //1237
+ if(countitem(7023)>=10 && countitem(724)>=5 && countitem(7002)>=100 && countitem(7022)>=1 && countitem(714)>=1) goto L_GetGrim;
+ mes "[Legendary Blacksmith]";
+ mes "So you're interested in making the legendary Grimtooth Dagger heh?.....";
+ next;
+ mes "[Legendary Blacksmith]";
+ mes "It's been sometime since I've forged any weapons,... but since it";
+ mes "is a special challenge for me to make this dagger.....";
+ next;
+ mes "[Legendary Blacksmith]";
+ mes "I'll do it! I will re-create the Grimtooth Dagger! I must warn you";
+ mes "however, this is a very powerfull and dangerous dagger. Be carefull.";
+ next;
+ mes "[Legendary Blacksmith]";
+ mes "For the Grimtooth Dagger I will need the following items:";
+ mes "- ^0000ff10 Blade Lost in Darkness^000000"; //7023
+ mes "- ^0000ff5 Cursed Ruby^000000"; //724
+ mes "- ^0000ff100 Ogre Tooth^000000"; //7002
+ mes "- ^0000ff1 Old Hilt^000000"; //7022
+ mes "- and ^0000ff1 Emperium^000000";
+ close;
+
+ L_GetGrim:
+ delitem 7023,10;
+ delitem 724,5;
+ delitem 7002,100;
+ delitem 7022,1;
+ delitem 714,1;
+ mes "[Legendary Blacksmith]";
+ mes "Good! You have brought me all the necessary items.";
+ mes "Please wait a moment while I forge the Grimtooth Dagger.";
+ next;
+ mes "(cling-clang!~ klonk!~ klank!~ cling-clang!)";
+ next;
+ mes "[Legendary Blacksmith]";
+ mes "Phew! Once again a perfect dagger! Hahaha! Here you are my friend, enjoy.";
+ getitem 1237,1;
+ close;
+
+ M_Myst: //1138
+ if(countitem(7021)>=1 && countitem(7019)>=1 && countitem(7020)>=1 && countitem(7018)>=1 && countitem(714)>=1) goto L_GetMyst;
+ mes "[Legendary Blacksmith]";
+ mes "So you're interested in making the legendary Mysteltain Sword heh?.....";
+ next;
+ mes "[Legendary Blacksmith]";
+ mes "It's been sometime since I've forged any weapons,... but since it";
+ mes "is a special challenge for me to make this sword.....";
+ next;
+ mes "[Legendary Blacksmith]";
+ mes "I'll do it! I will re-create the Mysteltain Sword! I must warn you";
+ mes "however, this is a very powerfull and dangerous sword. Be carefull.";
+ next;
+ mes "[Legendary Blacksmith]";
+ mes "For the Mysteltain Sword I will need the following items:";
+ mes "- ^0000ff1 Foolishness of the Blind^000000"; //7021
+ mes "- ^0000ff1 Loki's Whispers^000000"; //7019
+ mes "- ^0000ff1 Mother's Nightmare^000000"; //7020
+ mes "- ^0000ff1 Young Twig^000000"; //7018
+ mes "- and ^0000ff1 Emperium^000000";
+ close;
+
+ L_GetMyst:
+ delitem 7021,1;
+ delitem 7019,1;
+ delitem 7020,1;
+ delitem 7018,1;
+ delitem 714,1;
+ mes "[Legendary Blacksmith]";
+ mes "Good! You have brought me all the necessary items.";
+ mes " Please wait a moment while I forge the Mysteltain Sword.";
+ next;
+ mes "(cling-clang!~ klonk!~ klank!~ cling-clang!)";
+ next;
+ mes "[Legendary Blacksmith]";
+ mes "Phew! Once again a perfect sword! Hahaha! Here you are my friend, enjoy.";
+ getitem 1138,1;
+ close;
+}
diff --git a/npc/quests/juice_maker.txt b/npc/quests/juice_maker.txt new file mode 100644 index 000000000..a47b8acb6 --- /dev/null +++ b/npc/quests/juice_maker.txt @@ -0,0 +1,306 @@ +//===== eAthena Script =======================================
+//= Juice Maker Quest
+//===== By: ==================================================
+//= kobra_k88
+//===== Current Version: =====================================
+//= 1.6
+//===== Compatible With: =====================================
+//= eAthena 7.15 +
+//===== Description: =========================================
+//=
+//===== Additional Comments: =================================
+//= Fully working
+//= 1.1 fixed input number check [Lupus]
+//= 1.2 fixed misplaced Grape<->Carrot juices [Lupus]
+//= 1.3 added a loopless menu 'as many as possible' [Lupus]
+//= 1.3a Turned the juice making part of the Juicer npc into a
+//= subfunc. Changed fruit amount needed to 1.[kobra_k88]
+//= Fixed exploits [Lupus]
+//= 1.6 fixed typo (where did @ipnut came from?) [Lance]
+//============================================================
+
+
+// Morrison ------------------------------------------------
+prt_in.gat,47,173,2 script Morrison 97,{
+ mes "[Little Morrison]";
+ if(MEAT > 10) goto L_Candy;
+ if(MARIANNE == 1) goto L_GoAway;
+
+ mes "Wahhhhh!!! Wahh... NO more! NO more!";
+ mes "I won't... eat anymore stupid ^0000ffFruit^000000 things!!";
+ emotion 28;
+ next;
+ menu "Talk",M_Talk,"Cancel",M_End;
+
+ M_Talk:
+ if(countitem(517) > 0) goto L_Meat; //Meat
+
+ mes "[Little Morrison]";
+ mes "Arhhggg!! I'VE HAD ENOUGH!!! I can't eat anymore ^0000ffFruits^000000! They";
+ mes "taste so SOUR..... I have to PEEL them before I can eat them.....";
+ mes "they feel sticky and squishy...... it's really ANNOYING!!!!";
+ emotion 16;
+ next;
+ mes "[LIttle Morrison]";
+ mes "I just HATE FRUIT! I can't even get full off of the stuff.(~sigh~)";
+ mes "Give me something more edible..... give me some...... ^ff0000MEAT^000000!!!";
+ close;
+
+ L_Meat:
+ mes "[Little Morrison]";
+ mes "...(sniff)....(sniff)(sniff).... Oh! Is that ^ff0000Meat^000000???";
+ emotion 5;
+ next;
+ mes "[Little Morrison]";
+ mes "Do you have some ^ff0000Meat^000000?!!!~(drools)~";
+ mes "Umm... that yummy smell is making me SOOO HUNGRYYYY!!!l";
+ emotion 37;
+ next;
+ mes "[Little Morrison]";
+ mes "... Umm... excuse me..... could you give me some of that meat PLEEAASSSE?";
+ emotion 28;
+ next;
+ menu "Give him some",sM_Give,"Ignore him",sM_Ignore;
+
+ sM_Give:
+ if(countitem(517) == 0) goto L_GoAway; //Meat
+ delitem 517,1; //Meat
+ set MORRISON,1;
+ set MEAT,MEAT + 1;
+ mes "[Little Morrison]";
+ mes "Whoah~!!! It's real Meat, Meat!";
+ mes "Mmmm! It makes my mouth water.";
+ mes "Oh thank you. Now I feel happy. Yum Yum...";
+ emotion 38;
+ close;
+
+ sM_Ignore:
+ set MORRISON,2;
+ mes "[Little Morrison]";
+ mes "Boo...";
+ mes "Boo... Fine... Alright, Alright~!!! Selfish meanie!";
+ emotion 36;
+ close;
+ M_End:
+ mes "[Little Morrison]";
+ mes "Wahhhh!!! No matter how hard I try, I just can't eat Vegetables";
+ mes "or ^0000ffFruit^000000! They're plain disgusting!!";
+ emotion 28;
+ close;
+
+L_GoAway:
+ mes "Pffff... Leave me alone! You DON'T CARE about me! I'm gonna DIE";
+ mes "because of these stupid Veggies and Fuits so MIND your own business!";
+ emotion 32;
+ close;
+
+L_Candy:
+ mes "Ah..I am full now. You don't have to feed me any more. I think I";
+ mes "am gonna BURST if I keep eating more.";
+ next;
+ mes "[Little Morrison]";
+ mes "And... um... Take this.";
+ next;
+ getitem 529,3;
+ getitem 530,1;
+ set MEAT,0;
+ mes "[Little Morrison]";
+ mes "It is from my secret stash of Candy that I hide from my Mom. Since";
+ mes "you gave me some Meat, I will give you some candy." ;
+ close;
+
+}
+
+// Housewife Marianne ---------------------------------------------------
+prt_in.gat,49,172,2 script Housewife Marianne 53,{
+ mes "[Housewife Marianne]";
+ if(MORRISON == 1) goto L_GaveMeat;
+ if(MORRISON == 2) goto L_Juice;
+
+ mes "Morrison!! Please eat some fruit will ya? Fruit~!";
+ mes "*Sob*~!! Like father like son...";
+ emotion 28;
+ next;
+ menu "Talk",M_Talk,"Cancel",M_Cancel;
+ close;
+
+ M_Talk:
+ mes "[Housewife Marianne]";
+ mes "(~Sigh~)...This is Morrison... My one and only son. He's going";
+ mes "through some kinda faze and doesn't want to eat any ^0000ffFruits^000000 or";
+ mes "vegetables.";
+ emotion 40;
+ next;
+ mes "[Housewife Marianne]";
+ mes "Look at his face..., it turns sour just hearing about ^0000ffFruit^000000...";
+ next;
+ mes "[Housewife Marianne]";
+ mes "All he wants to eat is but ^ff0000Meat^000000... (sigh)...he needs";
+ mes "^0000ffFruits^000000 and vegetables for a proper diet.";
+ next;
+
+ M_Cancel:
+ mes "[Housewife Marianne]";
+ mes "Morrison!! I will get mad at you if you keep doing this!";
+ emotion 36;
+ close;
+
+L_GaveMeat:
+ set MORRISON,0;
+ mes "Oh MY GOD!!... Oh lord...";
+ emotion 23;
+ next;
+ mes "[Housewife Marianne]";
+ mes "WHAT ARE YOU DOING!! HOW DARE YOU feed my son!! And ^ff0000MEAT^000000 of all things!!!";
+ next;
+ mes "[Housewife Marianne]";
+ mes "Arrrgh~~!! Get Lost right now!!!!!!";
+ emotion 32;
+ close;
+
+L_Juice:
+ set MORRISON,0;
+ set MARIANNE,1;
+ mes "Thank you for not giving my son any meat. I'm trying to feed him";
+ mes "^0000ffFruits^000000 and vegetables, but this child doesn't want to eat";
+ mes "anything except Meat...";
+ next;
+ mes "[Housewife Marianne]";
+ mes "What if I could turn ^0000ffFruits^000000 into a ^0000ffJuice^000000... for example...Orange";
+ mes "juice... Would my child like it?";
+ emotion 20;
+ next;
+ mes "[Housewife Marianne]";
+ mes "Ah! Now I remember..There is a town where you can get a variety of";
+ mes "^0000ffFruit^000000 turned into ^0000ffFruit Juices^000000.";
+ emotion 5;
+ next;
+ mes "[Housewife Marianne]";
+ mes "... Was is it...^ff0000Payon^000000...or ^ff0000Morroc^000000...?";
+ emotion 20;
+ next;
+ close;
+
+}
+
+// Juicer Marx Hansen ---------------------------------------------------------
+payon_in03.gat,188,146,5 script Juicer Marx Hansen 86,{
+ mes "[Juicer Marx Hansen]";
+ if(MARIANNE == 1) goto L_Juice;
+ mes "Welcome to my shop. What brings you here?";
+ next;
+ menu "Conversation",-,"I am just looking around",M_End;
+
+ mes "[Juicer Marx Hansen]";
+ mes "In the earliest years of humanity, fruits were the only substanace availble for people to eat.";
+ mes "Fruits were vital for survival and without them people faced certain death.";
+ mes "During that time Mother Nature was worshiped for her generous offerering.";
+ next;
+ mes "[Juicer Marx Hansen]";
+ mes "Nowadays food is plentifull and it comes in a variety of flavors and forms.";
+ mes "With so many other things to eat, fruits aren't consumed as much as they used to be.";
+ mes "This is especially true among kids who'd rather eat pizza and candy.";
+ next;
+ mes "[Juicer Marx Hansen]";
+ mes "Because of this I wanted to find a way to make young people realize the importance of fuit.";
+ mes "I found that when fruits were turned into juices, they became more digestive and even tasty enough for kids.";
+ close;
+ M_End:
+ mes "[Juicer Marx Hansen]";
+ mes "Ok then.";
+ close;
+
+//--------------
+L_Juice:
+//---------
+ mes "Welcome to my shop. Are you here to process Fruits like everyone else?";
+ next;
+ menu "Yes, I am.",M_1a, "How do you make fruit juice?",M_1b, "Nope.",M_1End;
+
+ M_1a:
+ mes "[Juicer Marx Hansen]";
+ mes "So what kind of fruit juice would you like to process?";
+ next;
+ menu "Apple Juice",sM_1a,"Banana Juice",sM_1b,"Grape Juice",sM_1c,"Carrot Juice",sM_1d,"None.",M_1End;
+
+ sM_1a:
+ callsub sF_Make, 512, "apples", 531;
+ goto M_1a;
+ sM_1b:
+ callsub sF_Make, 513, "bananas", 532;
+ goto M_1a;
+ sM_1c:
+ callsub sF_Make, 514, "grapes", 533;
+ goto M_1a;
+ sM_1d:
+ callsub sF_Make, 515, "carrots", 534;
+ goto M_1a;
+ M_1b:
+ mes "[Juicer Marx Hansen]";
+ mes "# Fruit Juice Info #";
+ mes "- ^FF3355Apple^000000 Juice - Apple x 1 ea, Empty Bottle x 1 ea, 3 zeny.";
+ mes "- ^D5A500Banana^000000 Juice - Banana x 1 ea, Empty Bottle x 1 ea, 3 zeny.";
+ mes "- ^FF8800Carrot^000000 Juice - Carrot x 1 ea, Empty Bottle x 1 ea, 3 zeny.";
+ mes "- ^AA00AAGrape^000000 Juice - Grape x 1 ea, Empty Bottle x 1 ea, 3 zeny.";
+ close;
+ M_1End:
+ mes "[Juicer Marx Hansen]";
+ mes "Oh well... see you next time.";
+ close;
+
+// Subfunction for making juice
+//----------------------------------
+sF_Make:
+ mes "[Juicer Marx Hansen]";
+ mes "How many bottles would you like?";
+ next;
+ menu "I'll tell you.",M_Tell, "As many as possible",-, "I've changed my mind.",M_1End;
+
+ set @amount,1000; //max possible amount of Juice
+ //calc max possible # juices
+ if(Zeny/3 < @amount) set @amount, Zeny/3;
+ if(countitem(getarg(0)) < @amount) set @amount, countitem(getarg(0));
+ if(countitem(713) < @amount) set @amount, countitem(713);
+ if(@amount > 0) goto L_Make;
+ mes "[Juicer Marx Hansen]";
+ mes "Doh! You don't have enough ingredients for a single bottle of juice.";
+ emotion 0;
+ close;
+
+ M_Tell:
+ mes "[Juicer Marx Hansen]";
+ mes "Very well then. Enter 0 if you don't want any. Also you cannot";
+ mes "buy more than 1000 at a time.";
+ next;
+ input @amount;
+ if(@amount < 1 || @amount > 1000) return;
+ if(countitem(getarg(0)) < @amount) goto sL_NoFruits;
+ if(countitem(713) < @amount) goto sL_NoBottles;
+ if(Zeny < @amount * 3) goto sL_NoZeny;
+
+ L_Make:
+ delitem getarg(0), @amount; //del Fruit
+ delitem 713, @amount; //del Empty Bottle
+ set Zeny, Zeny - @amount * 3;
+ getitem getarg(2), @amount; //get Juice
+ mes "[Juicer Marx Hansen]";
+ mes "Here you are. Take it.";
+ close;
+
+ sL_NoFruits:
+ mes "[Juicer Marx Hansen]";
+ mes "You don't have enough fruit.";
+ mes "You need " +@amount+ " " +getarg(1)+ " to make that much juice.";
+ next;
+ return;
+ sL_NoBottles:
+ mes "[Juicer Marx Hansen]";
+ mes "You don't have enough bottles. You need "+@amount+" empty bottle(s) to make that many juice drinks.";
+ next;
+ return;
+ sL_NoZeny:
+ mes "[Juicer Marx Hansen]";
+ mes "You don't have enough zeny. You need " +(@amount*3)+ " zeny, to make that many juice drinks.";
+ next;
+ return;
+}
diff --git a/npc/quests/monstertamers.txt b/npc/quests/monstertamers.txt new file mode 100644 index 000000000..024762784 --- /dev/null +++ b/npc/quests/monstertamers.txt @@ -0,0 +1,439 @@ +//===== eAthena Script =======================================
+//= Monster Tamers
+//===== By: ==================================================
+//= kobra_k88, Darkchild, x[tsk]
+//===== Current Version: =====================================
+//= 1.1
+//===== Compatible With: =====================================
+//= eAthena 1.0
+//===== Description: =========================================
+//= Cute pet quest items
+//===== Additional Comments: =================================
+//= May not have all of the Monster Tamers, but the ones here are fully working.
+//= 1.1 Fixed exploits [Lupus]
+//============================================================
+
+
+//<================================================= Alberta ===============================================>\\
+alberta_in.gat,173,77,3 script Monster Tamer 125,{
+ mes "[Monster Tamer Iwado]";
+ mes "Monster taming has never been more popular than it is now! Why not join in on all of the excitement?....";
+M_Menu:
+ next;
+ menu "^5555FFMonster Taming^000000",M_0,
+ "^5555FF'Monster Juice'^000000",M_1,
+ "^5555FF'Singing Flower'^000000",M_2,
+ "^5555FF'Wild Flower'^000000",M_3,
+ "Please make one for me",M_Make,
+ "Cancel",M_End;
+ M_0:
+ mes "[Monster Tamer Iwado]";
+ mes "Monster Taming is the way in which players can get certain monsters to become their pets.";
+ mes "By using a ^5555FF'Taming Item'^000000 a player can lure a monster into becoming a pet.";
+ next;
+ mes "[Monster Tamer Iwado]";
+ mes "These Taming Items are very hard to come by, but Monster Tamer Guild members such as myself can get them to you without any hassle.";
+ next;
+ mes "[Monster Tamer Iwado]";
+ mes "Here the Taming Items that I offer:";
+ mes "^5555FF'Monster Juice'^000000";
+ mes "^5555FF'Singing Flower'^000000";
+ mes "^5555FF'Wild Flower'^000000";
+ next;
+ mes "[Monster Tamer Iwado]";
+ mes "These are fantastic items! You should really give them a try!";
+ goto M_Menu;
+ M_1:
+ mes "[Monster Tamer Iwado]";
+ mes "It is a drink made from animal blood. It's nothing a person would want to drink, but for the monster '^FF5555'Hunter Fly'^000000, it's a delicacy.";
+ next;
+ mes "[Monster Tamer Iwado]";
+ mes "I can give you a ^5555FF'Monster Juice'^000000 in exchange for:";
+ mes "-^FF5555'1 Animal Gore'";
+ mes "-'2 Apples'^000000";
+ next;
+ mes "[Monster Tamer Iwado]";
+ mes "Once you bring me these items I will make this Taming item with the uttmost pride!";
+ goto M_Menu;
+ M_2:
+ mes "[Monster Tamer Iwado]";
+ mes "The flower of a Singing Plant. It is a very unique and unusual item that seems to attract ^FF5555'Rockers'^000000.";
+ next;
+ mes "[Monster Tamer Iwado]";
+ mes "I can give you a ^5555FF'Singing Flower'^000000 in exchange for:";
+ mes "-^FF5555'1 Singing Plant'^000000";
+ next;
+ mes "[Monster Tamer Iwado]";
+ mes "Once you bring me these items I will make this Taming item with the uttmost pride!";
+ goto M_Menu;
+ M_3:
+ mes "[Monster Tamer Iwado]";
+ mes "This flower blooms naturally here in Rune-Midgard. It can be used as armor for your ^FF5555Orc Warrior^000000 pet.";
+ mes "I can give you a ^5555FF'Wild Flower'^000000 in exchange for:";
+ mes "-^FF5555'1 Fancy Flower'";
+ mes "-'1 Clover'^000000";
+ next;
+ mes "[Monster Tamer Iwado]";
+ mes "Once you bring me these items I will make this Taming item with the uttmost pride!";
+ goto M_Menu;
+ M_Make:
+ mes "[Monster Tamer Iwado]";
+ mes "Which Taming Item would you like?";
+ next;
+ menu "^5555FF'Monster Juice'^000000",sM_1, "^5555FF'Singing Flower'^000000",sM_2, "^5555FF'Wild Flower'^000000",sM_3, "Cancel",M_End;
+
+ sM_1:
+ if(countitem(702)<1 || countitem(512)<2) goto sL_NoItems;
+ delitem 702,1;
+ delitem 512,2;
+ mes "[Monster Tamer Iwado]";
+ mes "Alright, just a minute while I prepare the tame......";
+ next;
+ mes "[Monster Tamer Iwado]";
+ mes "Here you are! A Monster Juice! Enjoy and feel free to come back anytime.";
+ getitem 626,1;
+ close;
+ sM_2:
+ if(countitem(707)<1) goto sL_NoItems;
+ delitem 707,1;
+ mes "[Monster Tamer Iwado]";
+ mes "Alright, just a minute while I prepare the tame......";
+ next;
+ mes "[Monster Tamer Iwado]";
+ mes "Here you are! A Singing Flower! Enjoy and feel free to come back anytime.";
+ getitem 629,1;
+ close;
+ sM_3:
+ if(countitem(2207)<1 || countitem(705)<1) goto sL_NoItems;
+ delitem 2207,1;
+ delitem 705,1;
+ mes "[Monster Tamer Iwado]";
+ mes "Alright, just a minute while I prepare the tame......";
+ next;
+ mes "[Monster Tamer Iwado]";
+ mes "Here you are! A Wild Flower! Enjoy and feel free to come back anytime.";
+ getitem 10009,1;
+ close;
+
+ sL_NoItems:
+ mes "[Monster Tamer Iwado]";
+ mes "It looks like you don't have enough items to exchange for this tame. Please come back when you do.";
+ close;
+ M_End:
+ mes "[Monster Tamer Iwado]";
+ mes "Oh... I see. You probably haven't decided on what monster to raise as a pet yet. It's a very important decision, so please, take your time.";
+ close;
+
+}
+
+
+//<================================================= Al De Baran ===============================================>\\
+aldeba_in.gat,167,177,3 script Monster Tamer 125,{
+ mes "[Monster Tamer YuU]";
+ mes "You must be looking for some Taming Items.... When it comes to making Taming Items there is no one better than me here in Rune Midgard.";
+M_Menu:
+ next;
+ menu "^5555FF'Monster Taming'^000000",M_0,
+ "^5555FF'Skull Helm'^000000",M_1,
+ "^5555FF'Monster Oxygen Mask'^000000",M_2,
+ "^5555FF'Silk Ribbon'^000000",M_3,
+ "^5555FF'Stellar Hairpin'^000000",M_4,
+ "^5555FF'Tiny Egg Shell'^000000",M_5,
+ "^5555FF'Rocker Glasses'^000000",M_6,
+ "Please make one for me",M_Make,
+ "Cancel",M_End;
+ M_0:
+ mes "[Monster Tamer YuU]";
+ mes "Monster Taming is the way in which players can get certain monsters to become their pets.";
+ mes "By using a ^5555FF'Taming Item'^000000 a player can lure a monster into becoming a pet.";
+ next;
+ mes "[Monster Tamer YuU]";
+ mes "Once you obtain a pet, you must show it love and appreciation. This is the most important part of monster taming.";
+ next;
+ mes "[Monster Tamer YuU]";
+ mes "The best way to show your new pet you care, is to get it an 'Accessory' to make it stand out from the rest of the monsters in Rune Midgard.";
+ next;
+ mes "[Monster Tamer YuU]";
+ mes "These ^5555FF'Cute Pet Accessories'^000000 are very hard to come by, but Monster Tamer Guild members such as myself can get them to you without any hassle.";
+ next;
+ mes "[Monster Tamer YuU]";
+ mes "Here the Taming Items that I offer:";
+ mes "^5555FF'Skull Helm'";
+ mes "'Monster Oxygen Mask'";
+ mes "'Silk Ribbon'";
+ mes "'Stellar Hairpin'";
+ mes "'Tiny Egg Shell'";
+ mes "'Rocker Glasses'^000000";
+ next;
+ mes "[Monster Tamer YuU]";
+ mes "These are fantastic items! You should really give them a try!";
+ goto M_Menu;
+ M_1:
+ mes "[Monster Tamer YuU]";
+ mes "It may be disgusting, but it has a mysterious power that has the potential to make its wearer go crazy!";
+ mes "This item will look great on your '^FF5555'Baphomet Jr.'^000000 pet.";
+ next;
+ mes "[Monster Tamer YuU]";
+ mes "I can give you a ^5555FF'Skull Helm'^000000 in exchange for:";
+ mes "-^FF5555'1 Bone Helm'^000000";
+ next;
+ mes "[Monster Tamer YuU]";
+ mes "Once you bring me these items I will make this Taming item with the uttmost pride!";
+ goto M_Menu;
+ M_2:
+ mes "[Monster Tamer YuU]";
+ mes "Once worn it makes it difficult to tell whether or not the wearer is a monster or a human.";
+ mes "A great gift for your ^FF5555'Choncon', 'Steel Choncon', or 'Hunter Fly'^000000.";
+ next;
+ mes "[Monster Tamer YuU]";
+ mes "I can give you a ^5555FF'Monster Oxygen Mask'^000000 in exchange for:";
+ mes "-^FF5555'1 Oxygen Mask'^000000";
+ next;
+ mes "[Monster Tamer YuU]";
+ mes "Once you bring me these items I will make this Taming item with the uttmost pride!";
+ goto M_Menu;
+ M_3:
+ mes "[Monster Tamer YuU]";
+ mes "It's a high quality ribbon knitted out of smooth silk. It will make your pet ^FF5555'Lunatic'^000000 look even cuter!.";
+ next;
+ mes "[Monster Tamer YuU]";
+ mes "I can give you a ^5555FF'Silk Ribbon'^000000 in exchange for:";
+ mes "-^FF5555'1 Ribbon (0 Slotts)'^000000";
+ next;
+ mes "[Monster Tamer YuU]";
+ mes "Once you bring me these items I will make this Taming item with the uttmost pride!";
+ goto M_Menu;
+ M_4:
+ mes "[Monster Tamer YuU]";
+ mes "It is extremely sharp and possesses a mysterious power that makes monsters want to wear it.";
+ mes "Your ^FF5555'Green Petite'^000000 will love wearing this!";
+ next;
+ mes "[Monster Tamer YuU]";
+ mes "I can give you a ^5555FF'Stellar Hairpin'^000000 in exchange for:";
+ mes "-^FF5555'1 Stellar'^000000";
+ next;
+ mes "[Monster Tamer YuU]";
+ mes "Once you bring me these items I will make this Taming item with the uttmost pride!";
+ goto M_Menu;
+ M_5:
+ mes "[Monster Tamer YuU]";
+ mes "This seems to have a peculiar scent and a magnificent shine! It can be used as armor for your ^FF5555'Picky'^000000.";
+ mes "I can give you a ^5555FF'Tiny Egg Shell'^000000 in exchange for:";
+ mes "-^FF5555'1 Egg Shell'^000000";
+ next;
+ mes "[Monster Tamer YuU]";
+ mes "Once you bring me these items I will make this Taming item with the uttmost pride!";
+ goto M_Menu;
+ M_6:
+ mes "[Monster Tamer YuU]";
+ mes "Mysterious pair of eye glasses which make its wearer look like a geek. It's perfect for your ^FF5555Rocker^000000 pet.";
+ next;
+ mes "[Monster Tamer YuU]";
+ mes "I can give you a pair of ^5555FF'Rocker Glasses'^000000 in exchange for:";
+ mes "-^FF5555'1 Ribbon (0 Slotts)'";
+ mes "-'2 Zargon'";
+ mes "-'400 Zeny'^000000";
+ next;
+ mes "[Monster Tamer YuU]";
+ mes "Once you bring me these items I will make this Taming item with the uttmost pride!";
+ goto M_Menu;
+ M_Make:
+ mes "[Monster Tamer YuU]";
+ mes "Which Taming Item would you like?";
+ next;
+ menu "^5555FF'Skull Helm'^000000",sM_1,
+ "^5555FF'Monster Oxygen Mask'^000000",sM_2,
+ "^5555FF'Silk Ribbon'^000000",sM_3,
+ "^5555FF'Stellar Hairpin'^000000",sM_4,
+ "^5555FF'Tiny Egg Shell'^000000",sM_5,
+ "^5555FF'Rocker Glasses'^000000",sM_6,
+ "Cancel",M_End;
+
+ sM_1:
+ if(countitem(5017)<1) goto sL_NoItems;
+ delitem 5017,1;
+ mes "[Monster Tamer YuU]";
+ mes "Alright, just a minute while I prepare the tame......";
+ next;
+ mes "[Monster Tamer YuU]";
+ mes "Here you are! A Skull Helm! Enjoy and feel free to come back anytime.";
+ getitem 10001,1;
+ close;
+ sM_2:
+ if(countitem(5004)<1) goto sL_NoItems;
+ delitem 5004,1;
+ mes "[Monster Tamer YuU]";
+ mes "Alright, just a minute while I prepare the tame......";
+ next;
+ mes "[Monster Tamer YuU]";
+ mes "Here you are! A Monster Oxygen Mask! Enjoy and feel free to come back anytime.";
+ getitem 10002,1;
+ close;
+ sM_3:
+ if(countitem(2208)<1) goto sL_NoItems;
+ delitem 2208,1;
+ mes "[Monster Tamer YuU]";
+ mes "Alright, just a minute while I prepare the tame......";
+ next;
+ mes "[Monster Tamer YuU]";
+ mes "Here you are! A Silk Ribbon! Enjoy and feel free to come back anytime.";
+ getitem 10007,1;
+ close;
+ sM_4:
+ if(countitem(2294)<1) goto sL_NoItems;
+ delitem 2294,1;
+ mes "[Monster Tamer YuU]";
+ mes "Alright, just a minute while I prepare the tame......";
+ next;
+ mes "[Monster Tamer YuU]";
+ mes "Here you are! Stellar Hairpin! Enjoy and feel free to come back anytime.";
+ getitem 10011,1;
+ close;
+ sM_5:
+ if(countitem(5015)<1) goto sL_NoItems;
+ delitem 5015,1;
+ mes "[Monster Tamer YuU]";
+ mes "Alright, just a minute while I prepare the tame......";
+ next;
+ mes "[Monster Tamer YuU]";
+ mes "Here you are! A Tiny Egg Shell! Enjoy and feel free to come back anytime.";
+ getitem 10012,1;
+ close;
+ sM_6:
+ if(countitem(2208)<1 || countitem(912)<2 || Zeny<400) goto sL_NoItems;
+ delitem 2208,1;
+ delitem 912,2;
+ set Zeny, Zeny-400;
+ mes "[Monster Tamer YuU]";
+ mes "Alright, just a minute while I prepare the tame......";
+ next;
+ mes "[Monster Tamer YuU]";
+ mes "Here you are! A pair of Rocker Glasses! Enjoy and feel free to come back anytime.";
+ getitem 10014,1;
+ close;
+
+ sL_NoItems:
+ mes "[Monster Tamer YuU]";
+ mes "It looks like you don't have enough items to exchange for this tame. Please come back when you do.";
+ close;
+ M_End:
+ mes "[Monster Tamer YuU]";
+ mes "Oh... I see. You probably haven't decided on what monster to raise as a pet yet. It's a very important decision, so please, take your time.";
+ close;
+
+}
+
+
+//<================================================= Izlude ===============================================>\\
+izlude_in.gat,128,64,3 script Monster Tamer 125,{
+ mes "[Monster Tamer Shogo]";
+ mes "Are you pre-occupied with gathering items for your cute pets, and want a break? Then let us find those items for you.....";
+M_Menu:
+ next;
+ menu "^5555FFMonster Taming^000000",M_0,
+ "^5555FF'Book of Devil'^000000",M_1,
+ "^5555FF'No Recipient'^000000",M_2,
+ "^5555FF'Horror of Tribe'^000000",M_3,
+ "Please make one for me",M_Make,
+ "Cancel",M_End;
+ M_0:
+ mes "[Monster Tamer Shogo]";
+ mes "Monster Taming is the way in which players can get certain monsters to become their pets.";
+ mes "By using a ^5555FF'Taming Item'^000000 a player can lure a monster into becoming a pet.";
+ next;
+ mes "[Monster Tamer Shogo]";
+ mes "These Taming Items are very hard to come by, but Monster Tamer Guild members such as myself can get them to you without any hassle.";
+ next;
+ mes "[Monster Tamer Shogo]";
+ mes "Here the Taming Items that I offer:";
+ mes "^5555FF'Book of Devil'^000000,";
+ mes "^5555FF'No Recipient'^000000,";
+ mes "^5555FF'Horror of Tribe'^000000.";
+ next;
+ mes "[Monster Tamer Shogo]";
+ mes "These are fantastic items! You should really give them a try!";
+ goto M_Menu;
+ M_1:
+ mes "[Monster Tamer Shogo]";
+ mes "This book is far too powerfull for any mere mortal to read and contains the secret method of summoning a devil!";
+ mes "Use it to lure the monster ^FF5555'Baphomet Jr.'^000000.";
+ next;
+ mes "[Monster Tamer Shogo]";
+ mes "I can give you a ^5555FF'Book of Devil'^000000 in exchange for:";
+ mes "-^FF5555'1 Old Magic Book'";
+ mes "-'2 Horrendous Mouth'^000000";
+ next;
+ mes "[Monster Tamer Shogo]";
+ mes "Once you bring me these items I will make this Taming item with the uttmost pride!";
+ goto M_Menu;
+ M_2:
+ mes "[Monster Tamer Shogo]";
+ mes "An old letter which wasn't delivered because of an unkown recipient.";
+ mes "It has no meaning to any living human, but ^FF5555'Munaks'^000000 seem to be very fond of it.";
+ next;
+ mes "[Monster Tamer Shogo]";
+ mes "I can give you a ^5555FF'No Recipient'^000000 in exchange for:";
+ mes "-^FF5555'1 Old Portrait'^000000";
+ next;
+ mes "[Monster Tamer Shogo]";
+ mes "Once you bring me these items I will make this Taming item with the uttmost pride!";
+ goto M_Menu;
+ M_3:
+ mes "[Monster Tamer Shogo]";
+ mes "This trophy is an ^FF5555'Orc Warrior's'^000000 favorite item.";
+ mes "I can give you a ^5555FF'Horror of Tribe'^000000 in exchange for:";
+ mes "-^FF5555'1 Chivalry Emblem'";
+ mes "-'1 Scorpion Tail'^000000";
+ next;
+ mes "[Monster Tamer Shogo]";
+ mes "Once you bring me these items I will make this Taming item with the uttmost pride!";
+ goto M_Menu;
+ M_Make:
+ mes "[Monster Tamer Shogo]";
+ mes "Which Taming Item would you like?";
+ next;
+ menu "^5555FF'Book of Devil'^000000",sM_1, "^5555FF'No Recipient'^000000",sM_2, "^5555FF'Horror of Tribe'^000000",sM_3, "Cancel",M_End;
+
+ sM_1:
+ if(countitem(1006)<1 || countitem(958)<2) goto sL_NoItems;
+ delitem 1006,1;
+ delitem 958,2;
+ mes "[Monster Tamer Shogo]";
+ mes "Alright, just a minute while I prepare the tame......";
+ next;
+ mes "[Monster Tamer Shogo]";
+ mes "Here you are! A Book of Devil! Enjoy and feel free to come back anytime.";
+ getitem 642,1;
+ close;
+ sM_2:
+ if(countitem(7014)<1) goto sL_NoItems;
+ delitem 7014,1;
+ mes "[Monster Tamer Shogo]";
+ mes "Alright, just a minute while I prepare the tame......";
+ next;
+ mes "[Monster Tamer Shogo]";
+ mes "Here you are! A No Recipient! Enjoy and feel free to come back anytime.";
+ getitem 636,1;
+ close;
+ sM_3:
+ if(countitem(1004)<1 || countitem(904)<1) goto sL_NoItems;
+ delitem 1004,1;
+ delitem 904,1;
+ mes "[Monster Tamer Shogo]";
+ mes "Alright, just a minute while I prepare the tame......";
+ next;
+ mes "[Monster Tamer Shogo]";
+ mes "Here you are! A Horror of Tribe! Enjoy and feel free to come back anytime.";
+ getitem 635,1;
+ close;
+
+ sL_NoItems:
+ mes "[Monster Tamer Shogo]";
+ mes "It looks like you don't have enough items to exchange for this tame. Please come back when you do.";
+ close;
+ M_End:
+ mes "[Monster Tamer Shogo]";
+ mes "Oh... I see. You probably haven't decided on what monster to raise as a pet yet. It's a very important decision, so please, take your time.";
+ close;
+
+}
diff --git a/npc/quests/mrsmile.txt b/npc/quests/mrsmile.txt new file mode 100644 index 000000000..1672ff57e --- /dev/null +++ b/npc/quests/mrsmile.txt @@ -0,0 +1,92 @@ +//===== eAthena Script =======================================
+//= Mr. Smile Quest
+//===== By: ==================================================
+//= kobra_k88, Akaru
+//===== Current Version: =====================================
+//= 1.3
+//===== Compatible With: =====================================
+//= eAthena 7.15 +
+//===== Description: =========================================
+//=
+//===== Additional Comments: =================================
+//= Fully working. 1.1 Optimized
+//= 1.2 updated Payon coords [Lupus]
+//= 1.3 fixed exploit [Lupus]
+//============================================================
+
+
+
+// Alberta ------------------------------------------------------------------------------------------
+alberta.gat,113,53,3 script Smile Assistance::SmileAT 92,{
+ mes "[Smile Assistant]";
+ mes "Hi, I'm a Smile Assistance. How may I help you?";
+ next;
+ menu "^0099FFMr. Smile^000000?",M_0, "Construct a ^0099FFMr. Smile^000000",M_1, "Quit",M_End;
+
+ M_0:
+ mes "[Smile Assistant]";
+ mes "Oh, the Mr. Smile Event is a nationwide event that is being sponsered by ^0099FFHis Majesty Tristram the 3rd^000000.";
+ mes "The goal of the event is to get the citizens of Rune Midgard to put on happy looking Mr. Smile masks.";
+ next;
+ mes "[Smile Assistance]";
+ mes "By having this event, His Majesty wishes to encourage the people of Rune Midgard to have more fun and enjoy themselves!";
+ mes "As you may have guessed, the Mr. Smile mask is simply a smiley face.";
+ next;
+ mes "[Smile Assistance]";
+ mes "Although it may be simple, no one can argue the power of a smile! And if everybody in the kingdom were to wear one....";
+ mes "just imagine how much joy and cheer the world would see!";
+ next;
+ mes "[Smile Assistant]";
+ mes "As a Smile Assistant, it is my job to make a Mr. Smile mask for all of those who want one.";
+ mes "All I need to make the mask are some little items, namely:";
+ mes "^5555FF10 Jellopy^000000";
+ mes "^5555FF10 Fluff^000000";
+ mes "^5555FF10 Clover^000000";
+ next;
+ mes "[Smile Girl]";
+ mes "The world could use more smiles so get those items and come back soon. I'll be waiting right here.";
+ close;
+ M_1:
+ mes "[Smile Assistant]";
+ if(countitem(705) < 10 || countitem(909) < 10 || countitem(914) < 10) goto sL_NoItems;
+ delitem 705,10;
+ delitem 909,10;
+ delitem 914,10;
+ mes "Oh, great! You've brought back all of the items needed. Wait just a sec while I get your Mr. Smile ready.....";
+ next;
+ mes "~!shook!~!shook!~!clack!~!clack!~!tok!~!tok!~";
+ next;
+ mes "[Smile Assistant]";
+ mes "Here ya go, your very own Mr. Smile!";
+ getitem 2278,1;
+ next;
+ mes "[Smile Assistant]";
+ mes "The Mr. Smile Event is just one of the many ways His Majesty Tristam the 3rd is trying to make life more enjoyable here in Rune Midgard.";
+ next;
+ mes "[Smile Assistant]";
+ mes "Hopefully you will be reminded of that fact everytime you put on your Mr. Smile.";
+ close;
+
+ sL_NoItems:
+ mes "Oh... Unfortunately you don't have enough items for a Mr. Smile. What you need are:";
+ mes "^5555FF10 Jellopy^000000,";
+ mes "^5555FF10 Fluff^000000,";
+ mes "^5555FF10 Clover^000000,";
+ mes "I'll be waiting here so hurry back.";
+ close;
+ M_End:
+ close;
+}
+
+// Aldebaran --------------------------------------------------------------------------------
+aldebaran.gat,136,135,4 duplicate(SmileAT) Smile Assistance#2 92
+// Geffen -----------------------------------------------------------------------------------
+geffen.gat,119,107,4 duplicate(SmileAT) Smile Assistance#3 92
+// Izlude -----------------------------------------------------------------------------------
+izlude.gat,129,118,4 duplicate(SmileAT) Smile Assistance#4 92
+// Morroc -----------------------------------------------------------------------------------
+morocc.gat,158,97,4 duplicate(SmileAT) Smile Assistance#5 92
+// Payon ------------------------------------------------------------------------------------
+payon.gat,168,225,4 duplicate(SmileAT) Smile Assistance#6 92
+// Prontera ---------------------------------------------------------------------------------
+prontera.gat,157,187,4 duplicate(SmileAT) Smile Assistance#7 92
diff --git a/npc/quests/newgears/arjen.txt b/npc/quests/newgears/arjen.txt new file mode 100644 index 000000000..7a2aaa0b9 --- /dev/null +++ b/npc/quests/newgears/arjen.txt @@ -0,0 +1,149 @@ +//===== eAthena Script =======================================
+//= X-Shaped Hairpin, Bandage & Flower Hairpin Quests
+//===== By: ==================================================
+//= Halca (1.0)
+//= Mass Zero (1.1)
+//===== Current Version: =====================================
+//= 1.4
+//===== Compatible With: =====================================
+//= Any eAthena Version.
+//===== Description: =========================================
+//= Seperate quests for these items.
+//===== Additional Comments: =================================
+//= 1.2 Fixed wrong labels, wrong items ID. [Lupus]
+//= 1.3 Fixed possible exploit [Lupus]
+//= 1.4 Stel.Hairpin->Stellar item ID fix,thx2 Komurka [Lupus]
+//============================================================
+
+
+geffen.gat,128,148,6 script Arjen 807,{
+ mes "[Arjen]";
+ mes "What item information do you require?";
+ next;
+ menu "X-Shaped Hairpin.",-,"Bandage",M_2,"Flower Hairpin.",M_3,"Quit.",M_EXIT;
+
+ mes "[Arjen]";
+ mes "Hyaaaaaaaa!";
+ next;
+ mes "[Arjen]";
+ mes "Ooops, sorry. I was practicing my balance.";
+ mes "Good that I have my hairpin to stop my hair getting in my eyes.";
+ next;
+ mes "[Arjen]";
+ mes "Im not much of a craftsman, but if you bring me some items I can make you";
+ mes "my ^660000X-Shaped Hairpin^000000.";
+ next;
+ menu "Make me the hairpin.",-,"What are the requirements?",M_REQ1,"No, thanks.",M_EXIT;
+
+ if(countitem(2294) < 1 || countitem(7220) < 400) GOTO L_NOITEM1;//Items: Stellar Hairpin, Ectoplasm,
+ delitem 2294,1;//Items: Stellar,
+ delitem 7220,400;//Items: Ectoplasm,
+ mes "[Arjen]";
+ mes "Yes, that's just what I require!";
+ mes "Nayayayaaaaaa!";
+ next;
+ mes "[Arjen]";
+ mes "Hmm... okay, thanks for the items.";
+ mes "Let me make it for you.";
+ next;
+ getitem 5079,1;//Items: X Hairpin,
+ mes "[Arjen]";
+ mes "Thanks very much, you look cool now.";
+ close;
+
+L_NOITEM1:
+ mes "[Arjen]";
+ mes "Come on man, gimme a break.";
+ mes "This is hot property!";
+ next;
+
+M_REQ1:
+ mes "[Arjen]";
+ mes "Hmm, it's a very rare Item.";
+ mes "I need 1 Stellar for its special properties.";
+ mes "And I need 400 Ectoiplasms to give it their special powers.";
+ next;
+ mes "[Arjen]";
+ mes "You need to have travelled well to get these items...";
+ close;
+
+M_2:
+ mes "[Arjen]";
+ mes "Ouch, have you ever gotten an injury after doing too much exercise?";
+ mes "It sucks, especially when you excercise so much.";
+ next;
+ mes "[Arjen]";
+ mes "What is that you say? you have just the problem?";
+ mes "Well, I can make you a ^660000Bandage^000000 to heal your wounds!";
+ next;
+ menu "Yes, please make me one!",-,"What are the requirements?",M_REQ2,"No, thanks.",M_EXIT;
+
+ if(countitem(930) < 500 || countitem(970) < 1) GOTO L_NOITEM2;//Items: Rotten Bandage, Alcohol,
+ delitem 930,500;//Items: Rotten Bandage,
+ delitem 970,1;//Items: Alcohol,
+ mes "[Arjen]";
+ mes "Wow! You have the stuff I need! Thanks!";
+ mes "Lemme do a swap, your stuff for the bandage.";
+ next;
+ getitem 5063,1;//Items: Bandage,
+ mes "[Arjen]";
+ mes "Thanks! Hope that cures your aches!";
+ close;
+
+L_NOITEM2:
+ mes "[Arjen]";
+ mes "Argh, please, if you want the item, bring me what I asked for.";
+ next;
+
+M_REQ2:
+ mes "[Arjen]";
+ mes "I need 500 Rotten Bandages to make the actual cast.";
+ mes "Then I need 1 Alcohol so I can get the stains out of the bandages.";
+ close;
+
+M_3:
+ mes "[Arjen]";
+ mes "Ahh, don't you love the romance in the air?";
+ mes "Isn't it great to look good, and also, keep your girl or boy pretty?";
+ next;
+ menu "Yes, of course!",-,"No, not quite.",M_EXIT;
+
+ mes "[Arjen]";
+ mes "Well, I'm sure you would like me to make you a ^660000Flower Hairpin^000000.";
+ next;
+ menu "Yes, please.",-,"No, thanks.",M_EXIT;
+
+ mes "[Arjen]";
+ mes "Well, I need...";
+ mes "1 Romantic Flower, for the element of love,";
+ mes "10 Steels for the pin part,";
+ mes "And 20,000 Zeny for the forging costs.";
+ next;
+ mes "[Arjen]";
+ mes "Would you like to make this item?";
+ next;
+ menu "Yes.",-,"No.",M_EXIT;
+
+ if(countitem(2269) < 1 || countitem(999) < 10 || Zeny < 20000) GOTO L_NOITEM3;//Items: Romantic Flower, Steel,
+ delitem 2269,1;//Items: Romantic Flower,
+ delitem 999,10;//Items: Steel,
+ set Zeny,Zeny-20000;
+ mes "[Arjen]";
+ mes "Thanks!";
+ next;
+ getitem 5061,1;//Items: Flower Hairpin,
+ mes "[Arjen]";
+ mes "Enjoy!";
+ close;
+
+L_NOITEM3:
+ mes "[Arjen]";
+ mes "Sorry, but you don't have the correct items.";
+ next;
+
+M_EXIT:
+ mes "[Arjen]";
+ mes "Okay, have a nice day!";
+ close;
+
+}
diff --git a/npc/quests/newgears/back_ribbon.txt b/npc/quests/newgears/back_ribbon.txt new file mode 100644 index 000000000..c5cda43f5 --- /dev/null +++ b/npc/quests/newgears/back_ribbon.txt @@ -0,0 +1,62 @@ +//===== eAthena Script =======================================
+//= Back Ribbon Quest
+//===== By: ==================================================
+//= Halca (1.0)
+//= Mass Zero (1.1)
+//===== Current Version: =====================================
+//= 1.3
+//===== Compatible With: =====================================
+//= Any eAthena Version.
+//===== Description: =========================================
+//= Seperate Back Ribbon quest.
+//===== Additional Comments: =================================
+//= 1.2 Fixed wrong labels, added missing text [Lupus]
+//= 1.3 Fixed possible exploit [Lupus]
+//============================================================
+
+prontera.gat,164,232,5 script Netpia 815,{
+ mes "[Netpia]";
+ mes "Wheee! Don't you just love making youself look pretty!?";
+ mes "I love glamourising myself with all the best accessories!";
+ next;
+ mes "[Netpia]";
+ mes "Ever heard of a ^560000Back Ribbon^000000?";
+ mes "I can make you one, and you too can be fashionable!";
+ next;
+ menu "Make me a ^670000Back ribbon^000000.",-,"What are the requirements?",M_REQ,"No, I dont want one.",M_EXIT;
+
+ if(countitem(2244) < 1 || countitem(2209) < 1 || countitem(10007) < 1) GOTO L_NOITEM;//Items: Big Ribbon, Ribbon, Silk Ribbon,
+ delitem 2244,1;//Items: Big Ribbon,
+ delitem 2209,1;//Items: Ribbon,
+ delitem 10007,1;//Items: Silk Ribbon,
+ mes "[Netpia]";
+ mes "Wow, thank you! Let me just take your items.";
+ next;
+ getitem 5083,1;//Items: Back Ribbon,
+ mes "[Netpia]";
+ mes "Okay, now here is your item.";
+ next;
+ mes "[Netpia]";
+ mes "Enjoy being pretty!";
+ close;
+
+L_NOITEM:
+ mes "[Netpia]";
+ mes "Aww... sorry, but I cant make it if you don't bring me the materials.";
+ next;
+
+M_REQ:
+ mes "[Netpia]";
+ mes "Well, for me to make you my BEAUTIFUL Back Ribbon...";
+ mes "I require these materials:";
+ mes "1 Big Ribbon.";
+ mes "1 Ribbon (Slotted).";
+ mes "1 Silk Ribbon.";
+ close;
+
+M_EXIT:
+ mes "[Netpia]";
+ mes "Aww, well, okay then!";
+ mes "Be pretty some other time";
+ close;
+}
diff --git a/npc/quests/newgears/bear_hat.txt b/npc/quests/newgears/bear_hat.txt new file mode 100644 index 000000000..a2c0aece1 --- /dev/null +++ b/npc/quests/newgears/bear_hat.txt @@ -0,0 +1,69 @@ +//===== eAthena Script =======================================
+//= Bear Hat Quest
+//===== By: ==================================================
+//= Halca (1.0)
+//= Mass Zero (1.1)
+//===== Current Version: =====================================
+//= 1.4a
+//===== Compatible With: =====================================
+//= Any eAthena Version.
+//===== Description: =========================================
+//= Seperate Bear hat quest.
+//===== Additional Comments: =================================
+//= 1.2 Fixed wrong labels, added missing text, added missing
+//= items check [Lupus]
+//= 1.3 Fixed possible exploit [Lupus]
+//= 1.4 Changed ingredients (Zipper>Bear Skin) [Lupus]
+//============================================================
+
+xmas.gat,152,176,3 script Bora 826,{
+ mes "[Bora]";
+ mes "Don't bears have such a cute expression on their faces?";
+ mes "And I bet you wouldn't mind one of those cute expressions yourself!";
+ next;
+ mes "[Bora]";
+ mes "Well, I can make you a Bear Hat!";
+ next;
+ menu "Yes, make me one now!",-,"What are the requirements?",M_REQ,"No, thanks.",M_EXIT;
+
+ if(countitem(5030) < 1 || countitem(7213) < 100 || countitem(7217) < 100 || countitem(7161) < 300) GOTO L_NOITEM;//Items: Panda Hat, Needle Packet, Spool of Thread, Bear Skin,
+ delitem 5030,1;//Items: Panda Hat,
+ delitem 7213,100;//Items: Needle Packet,
+ delitem 7217,100;//Items: Spool of Thread,
+ delitem 7161,300;//Items: Bear Skin,
+ mes "[Bora]";
+ mes "Yay! now I can make my famous Bear Hat!";
+ mes "Now, give me your items!";
+ next;
+ mes "[Bora]";
+ mes "Now I will give you the hat!";
+ next;
+ getitem 5059,1;//Items: Bear Hat,
+ mes "[Bora]";
+ mes "Thanks, and bye!";
+ close;
+
+M_REQ:
+ mes "[Bora]";
+ mes "Bring me...";
+ mes "1 Panda Hat,";
+ mes "100 Needle Packet,";
+ mes "100 Spool of Thread,";
+ mes "300 Bear Skins.";
+ next;
+ mes "[Bora]";
+ mes "For the Pin Cushion and Spool of Thread,";
+ mes "Hyzoloists in Niflheim drop those, I believe.";
+ close;
+
+L_NOITEM:
+ mes "[Bora]";
+ mes "Sorry, I want all the items I asked.";
+ mes "Please dont try to cheat me.";
+ close;
+
+M_EXIT:
+ mes "[Bora]";
+ mes "Okay, well, byebye!";
+ close;
+}
diff --git a/npc/quests/newgears/burning_blood_bandana.txt b/npc/quests/newgears/burning_blood_bandana.txt new file mode 100644 index 000000000..138734b45 --- /dev/null +++ b/npc/quests/newgears/burning_blood_bandana.txt @@ -0,0 +1,66 @@ +//===== eAthena Script =======================================
+//= Burning Blood Bandana Quest
+//===== By: ==================================================
+//= Halca (1.0)
+//= Mass Zero (1.1)
+//===== Current Version: =====================================
+//= 1.3b
+//===== Compatible With: =====================================
+//= Any eAthena Version.
+//===== Description: =========================================
+//= Seperate Burning Blood Bandana quest.
+//===== Additional Comments: =================================
+//= 1.2 Fixed wrong labels, added missing text, wrong ID [Lupus]
+//= 1.3 Fixed possible exploit, 1.3a coords fixed [Lupus]
+//= 1.3b Fixed NPC dialouge [Kayla]
+//============================================================
+
+
+yuno.gat,300,188,6 script Genbolt 826,{
+ mes "[Genbolt]";
+ mes "Why, don't you think looking badass is most important?";
+ mes "After all, we all have to fend for ourselves in this world!";
+ next;
+ mes "[Genbolt]";
+ mes "I am the only one who can make you look the coolest,";
+ mes "as I can craft a ^000090Burning Blood Bandana^000000.";
+ mes "You can wear this, and you clench your fist without knowing";
+ mes "because of the raw power you feel!";
+ next;
+ menu "Wow! Make me one!",-,"What do I need?",M_REQ,"Naw, bye",M_EXIT;
+
+ if(countitem(7216) < 300 || countitem(7097) < 300 || countitem(982) < 1 || countitem(2211) < 1) GOTO L_NOITEM;//Items: Red Muffler, Burning Heart, White Dyestuff, Bandana,
+ delitem 7216,300;//Items: Red Muffler,
+ delitem 7097,300;//Items: Burning Heart,
+ delitem 982,1;//Items: White Dyestuff,
+ delitem 2211,1;//Items: Bandana,
+ mes "[Genbolt]";
+ mes "Very well, here you go.";
+ next;
+ mes "[Genbolt]";
+ mes "Now I can make it...";
+ next;
+ getitem 5070,1;//Items: Burning Blood Bandana,
+ mes "[Genbolt]";
+ mes "Enjoy.";
+ close;
+
+L_NOITEM:
+ mes "[Genbolt]";
+ mes "Where are the items? Ok, I list them for you again...";
+ next;
+
+M_REQ:
+ mes "[Genbolt]";
+ mes "Bring me:";
+ mes "300 Red Mufflers,";
+ mes "300 Burning Hearts,";
+ mes "1 White Dyestuff,";
+ mes "and 1 Bandana.";
+ close;
+
+M_EXIT:
+ mes "[Genbolt]";
+ mes "Bye then.";
+ close;
+}
diff --git a/npc/quests/newgears/cat_hairband.txt b/npc/quests/newgears/cat_hairband.txt new file mode 100644 index 000000000..6aade4dcc --- /dev/null +++ b/npc/quests/newgears/cat_hairband.txt @@ -0,0 +1,74 @@ +//===== eAthena Script =======================================1
+//= Cat Hairband Quest
+//===== By: ==================================================
+//= Halca (1.0)
+//= Mass Zero (1.1)
+//===== Current Version: =====================================
+//= 1.4
+//===== Compatible With: =====================================
+//= Any eAthena Version.
+//===== Description: =========================================
+//= Seperate Cat Hairband quest.
+//===== Additional Comments: =================================
+//= 1.2 Fixed wrong labels, added missing text,
+//= fixed zeny amount [Lupus]
+//= 1.3 Fixed possible exploit [Lupus]
+//= 1.4 Soft Feather -> Fluff
+//============================================================
+
+
+payon_in03.gat,110,160,4 script KoneKone 819,{
+ mes "[KoneKone]";
+ mes "Don't you just love cats? the way they have the pointy,";
+ mes "sticky ears and stuff, they're just so cute!";
+ next;
+ mes "[KoneKone]";
+ mes "Hehe... well, I decided, I would make a Cat Hairband!";
+ mes "It is modeled on my most favourite of cat... BLACK!";
+ mes "Of course, I got the idea from Hwikebain!";
+ next;
+ mes "[KoneKone]";
+ mes "I can make it for you, but it requires the correct materials.";
+ next;
+ menu "Please make me this item.",-,"What are the materials needed?",M_REQ,"Bye.",M_EXIT;
+
+ if(countitem(2213) < 1 || countitem(914) < 200 || countitem(983) < 1 || Zeny < 10000) GOTO L_NOITEM;//Items: Kitty Band, Fluff, Black Dyestuff,
+ delitem 2213,1;//Items: Kitty Band,
+ delitem 914,200;//Items: Fluff,
+ delitem 983,1;//Items: Black Dyestuff,
+ set Zeny,Zeny-10000;
+ mes "[KoneKone]";
+ mes "Wow! thankies! I will now take your items!";
+ next;
+ mes "[KoneKone]";
+ mes "Mew mew! thanks! Now for your ears!";
+ next;
+ getitem 5057,1;//Items: Black Cat Ears,
+ mes "[KoneKone]";
+ mes "Mew! thanks! It was a pleasure to make them for you!";
+ close;
+
+L_NOITEM:
+ mes "[KoneKone]";
+ mes "Sorry, but you dont have what I asked for...";
+ close;
+
+M_REQ:
+ mes "[KoneKone]";
+ mes "For the ^670000Cat Hairband^000000, the following items are needed:";
+ next;
+ mes "[KoneKone]";
+ mes "1 Kitty Band,";
+ mes "200 Fluff,";
+ mes "Some Black Dye,";
+ mes "And of course 10,000z for labour costs.";
+ next;
+ mes "[KoneKone]";
+ mes "Bring me these items and the money and I will make it for you.";
+ close;
+
+M_EXIT:
+ mes "[KoneKone]";
+ mes "Okay, *meow* have a nice day!";
+ close;
+}
diff --git a/npc/quests/newgears/fox_mask.txt b/npc/quests/newgears/fox_mask.txt new file mode 100644 index 000000000..41295899d --- /dev/null +++ b/npc/quests/newgears/fox_mask.txt @@ -0,0 +1,56 @@ +//===== eAthena Script =======================================
+//= Fox Mask Quest
+//===== By: ==================================================
+//= KitsuneStarWind (1.0)
+//= Mass Zero (1.1)
+//===== Current Version: =====================================
+//= 1.2a
+//===== Compatible With: =====================================
+//= Any eAthena version.
+//===== Description: =========================================
+// Seperate quest for the Fox Mask.
+//===== Additional Comments: =================================
+// 1.2a optimized [Lupus]
+//============================================================
+
+pay_dun04.gat,204,152,2 script Nine Tail 1180,{
+ mes "[Nine Tail]";
+ mes "What do you want?";
+ next;
+ mes "[Nine Tail]";
+ mes "Have you come here for a ^FF3300 Fox Mask^000000?";
+ next;
+ menu "Yeah, Sure.",-,"No",M_EXIT;
+
+ mes "[Nine Tail]";
+ mes "Fine then. If I make one for you, will you go away?";
+ mes "You realize that it requires 999 Nine Tails to make, do you?";
+ next;
+ menu "Sure.",M_MAKE,"Nah.",-;
+
+ mes "[Nine Tail]";
+ mes "Grrrr... I'll make one anyway but I hope my master gets you.";
+ next;
+M_MAKE:
+ mes "[Nine Tail]";
+ mes "Ok then, I shall make one for you.";
+ next;
+
+ if(countitem(1022) < 999) goto L_NOITEM;//Items: Nine Tails,
+ delitem 1022,999;//Items: Nine Tails,
+ getitem 5069,1;//Items: Fox Mask,
+ mes "[Nine Tails]";
+ mes "Have fun.";
+ close;
+
+L_NOITEM:
+ mes "[Nine Tail]";
+ mes "You do not have have enough Nine Tails.";
+ mes "You need 999 of them.";
+ close;
+
+M_EXIT:
+ mes "[Nine Tail]";
+ mes "Then leave me alone... I am waiting for my master.";
+ close;
+}
diff --git a/npc/quests/newgears/hat_seller.txt b/npc/quests/newgears/hat_seller.txt new file mode 100644 index 000000000..0e0ba52d5 --- /dev/null +++ b/npc/quests/newgears/hat_seller.txt @@ -0,0 +1,144 @@ +//===== eAthena Script =======================================1
+//= Hat Seller (New Hat Quests)
+//===== By: ==================================================
+//= Halca (1.0)
+//= Mass Zero (1.1)
+//===== Current Version: =====================================
+//= 1.4
+//===== Compatible With: =====================================
+//= Any eAthena Version.
+//===== Description: =========================================
+//= New Hat quests:
+//= Pointy Cap,Straw Hat,Cowboy Hat,Sombrero,Furry Hat
+//===== Additional Comments: =================================
+//= 1.2 Fixed wrong labels, added missing text
+//= added missing delitem, fixed names, item amount [Lupus]
+//= 1.3 Fixed Straw Hat items by dshome [Lupus]
+//= 1.4 Fixed Wool Hat items [Lupus]
+//============================================================
+
+xmas_in.gat,36,25,4 script Hat Seller 806,{
+ mes "[Hat Seller]";
+ mes "What hat would you like information on?";
+ mes "I can make all the hats I mention here";
+ next;
+ menu "Party Hat",-,"Straw Hat",M_2,"Cowboy Hat",M_3,"Sombrero",M_4,"Wool Hat",M_5,"Quit",M_EXIT;
+
+ mes "[Hat Seller]";
+ mes "Okay well, for this item I require:";
+ mes "1 Santa's Hat,";
+ mes "100 Slick Paper,";
+ mes "100 Oiled Paper.";
+ next;
+ mes "[Hat Seller]";
+ mes "You got these items?";
+ next;
+ menu "Yes.",-,"No.",M_EXIT;
+
+ if(countitem(2236) < 1 || countitem(7111) < 100 || countitem(7151) < 100) GOTO L_NOITEM;//Items: Santa's Hat, Slick Paper, Oiled Paper,
+ delitem 2236,1;//Items: Santa's Hat,
+ delitem 7111,100;//Items: Slick Paper,
+ delitem 7151,100;//Items: Oiled Paper,
+ getitem 5060,1;//Items: Pointy Cap,
+ mes "[Hat Seller]";
+ mes "Thanks! Bye.";
+ close;
+
+L_NOITEM:
+ mes "[Hat Seller]";
+ mes "Not enough items, bye.";
+ close;
+
+M_EXIT:
+ mes "[Hat Seller]";
+ mes "Bye!";
+ close;
+
+M_2:
+ mes "[Hat Seller]";
+ mes "For this item I require:";
+ mes "1 Sakkat,";
+ mes "300 Tough Vines,";
+ mes "300 Bamboo Trunks.";
+ next;
+ mes "[Hat Seller]";
+ mes "Bring those, and we got a deal.";
+ mes "You got them?";
+ next;
+ menu "Yes.",-,"No.",M_EXIT;
+
+ if(countitem(2280) < 1 || countitem(7197) < 300 || countitem(7150) < 300) GOTO L_NOITEM;//Items: Sakkat, Healthy Branch, Bamboo Trunk,
+ delitem 2280,1;//Items: Sakkat,
+ delitem 7197,300;//Items: Tough Vine,
+ delitem 7150,300;//Items: Bamboo Trunk,
+ getitem 5062,1;//Items: Straw Hat,
+ mes "[Hat Seller]";
+ mes "There you go... bye.";
+ close;
+
+M_3:
+ mes "[Hat Seller]";
+ mes "For this item I require:";
+ mes "1 Western Grace,";
+ mes "108 Claw of Desert Wolf,";
+ mes "108 Soft Grass Leaf,";
+ mes "and 4 Burning Horseshoes.";
+ next;
+ mes "[Hat Seller]";
+ mes "Bring those, and we got a deal.";
+ mes "You got them?";
+ next;
+ menu "Yes.",-,"No.",M_EXIT;
+
+ if(countitem(2248) < 1 || countitem(7030) < 108 || countitem(7194) < 108 || countitem(7120) < 4) GOTO L_NOITEM;//Items: Western Grace, Claw of Desert Wolf, Soft Grass Leaf, Burning Horseshoe,
+ delitem 2248,1;//Items: Western Grace,
+ delitem 7030,108;//Items: Claw of Desert Wolf,
+ delitem 7194,108;//Items: Soft Grass Leaf,
+ delitem 7120,4;//Items: Burning Horseshoe,
+ getitem 5075,1;//Items: Cowboy Hat,
+ mes "[Hat Seller]";
+ mes "There you go... bye.";
+ close;
+
+M_4:
+ mes "[Hat Seller]";
+ mes "For this item I require:";
+ mes "1 Straw Hat,";
+ mes "1 Guitar,";
+ mes "50 Cactus Needle.";
+ next;
+ mes "[Hat Seller]";
+ mes "Bring those, and we got a deal.";
+ mes "You got them?";
+ next;
+ menu "Yes.",-,"No.",M_EXIT;
+
+ if(countitem(5062) < 1 || countitem(1907) < 1 || countitem(952) < 50) GOTO L_NOITEM;//Items: Straw Hat, Guitar, Cactus Needle,
+ delitem 5062,1;//Items: Straw Hat,
+ delitem 1907,1;//Items: Guitar,
+ delitem 952,50;//Items: Cactus Needle,
+ getitem 5067,1;//Items: Sombrero,
+ mes "[Hat Seller]";
+ mes "There you go... bye.";
+ close;
+
+M_5:
+ mes "[Hat Seller]";
+ mes "For this item I require:";
+ mes "1 Cap,";
+ mes "500 Yarn.";
+ next;
+ mes "[Hat Seller]";
+ mes "Bring those, and we got a deal.";
+ mes "You got them?";
+ next;
+ menu "Yes.",-,"No.",M_EXIT;
+
+ if(countitem(2226) < 1 || countitem(7038) < 500) GOTO L_NOITEM;//Items: Cap, Yarn,
+ delitem 2226,1;//Items: Cap,
+ delitem 7038,500;//Items: Yarn,
+ getitem 5076,1;//Items: Wool Hat,
+ mes "[Hat Seller]";
+ mes "There you go... bye.";
+ close;
+}
diff --git a/npc/quests/newgears/indian_headband.txt b/npc/quests/newgears/indian_headband.txt new file mode 100644 index 000000000..b3bfe817b --- /dev/null +++ b/npc/quests/newgears/indian_headband.txt @@ -0,0 +1,58 @@ +//===== eAthena Script =======================================
+//= Indian Headband Quest
+//===== By: ==================================================
+//= Halca (1.0), Mass Zero (1.1)
+//= Lupus (1.2)
+//===== Current Version: =====================================
+//= 1.4
+//===== Compatible With: =====================================
+//= Any eAthena Version.
+//===== Description: =========================================
+//= Seperate Indian Headband quest.
+//===== Additional Comments: =================================
+//= 1.2 Fixed wrong labels, added missing text, fixed
+//= items count [Lupus]
+//= 1.3 Fixed ingredients according to kRO [Lupus]
+//= 1.4 Fixed ingredients again. [Kayla]
+//============================================================
+
+comodo.gat,238,217,5 script Merunte 832,{
+ mes "[Merunte]";
+ mes "Well, umbaga umbumbaga.";
+ mes "I like to do stuff like that!";
+ mes "And I love Indian Headbands too!";
+ next;
+ menu "Make me an Indian Headband!",-,"Bye!",M_EXIT;
+
+ mes "[Merunte]";
+ mes "Ok. Gimme:";
+ mes "1 Indian Fillet,";
+ mes "1 Striped Bandana,";
+ mes "10 Peco Feathers,";
+ mes "and 10,000 Zeny.";
+ next;
+ mes "[Merunte]";
+ mes "Got these items?";
+ next;
+ menu "Yep!",-,"Nope!",M_EXIT;
+
+ if(countitem(7101) < 10 || countitem(5049) < 1 || countitem(5010) < 1 || Zeny < 10000) GOTO L_NOITEM;//Items: Peco Feather, Striped Bandana, Hair Band,
+ delitem 5010,1;//Items: Indian Fillet,
+ delitem 5049,1;//Items: Striped Bandana,
+ delitem 7101,10;//Items: Peco Feather,
+ set Zeny,Zeny-10000;
+ getitem 5071,1;//Items: Indian Headband,
+ mes "[Merunte]";
+ mes "Thanks! Bye.";
+ close;
+
+L_NOITEM:
+ mes "[Merunte]";
+ mes "Ya miss some items or zeny.";
+ close;
+
+M_EXIT:
+ mes "[Merunte]";
+ mes "Kay bye.";
+ close;
+}
diff --git a/npc/quests/newgears/mask_of_alarm.txt b/npc/quests/newgears/mask_of_alarm.txt new file mode 100644 index 000000000..d461d2dd5 --- /dev/null +++ b/npc/quests/newgears/mask_of_alarm.txt @@ -0,0 +1,55 @@ +//===== eAthena Script =======================================
+//= Mask of Alarm Quest
+//===== By: ==================================================
+//= Halca (1.0)
+//= Mass Zero (1.1)
+//===== Current Version: =====================================
+//= 1.4a
+//===== Compatible With: =====================================
+//= Any eAthena Version.
+//===== Description: =========================================
+//= Seperate Alarm Mask quest.
+//===== Additional Comments: =================================
+//= 1.2 Fixed wrong labels, added missing text and labels,
+//= changed Zeny amount, fixed wrong item ID [Lupus]
+//= 1.3 Fixed possible exploit [Lupus]
+//= 1.4 Added correct item list. [shadow] & [Lupus]
+//= 1.4a fixed coords [Lupus]
+//============================================================
+
+alde_alche.gat,104,171,3 script Muslam 819,{
+ mes "[Muslam]";
+ mes "I love Alarms, so evil, just like me.";
+ mes "Touch me and I will rip your arm off!";
+ next;
+ mes "[Muslam]";
+ mes "Anyways... If you want an Alarm Mask, bring me";
+ mes "3,000 Clock Hands,";
+ mes "and 1 Mr. Scream.";
+ next;
+ mes "[Muslam]";
+ mes "Got these?";
+ next;
+ menu "Yep!",-,"Nope!",M_EXIT;
+
+ if(countitem(1095) < 3000 || countitem(2288) < 1) GOTO L_NOITEM;//Items: Mr Scream,
+ delitem 1095,3000;//Items: Clock Hand
+ delitem 2288,1;//Items: Mr Scream
+ mes "[Muslam]";
+ mes "Great!";
+ next;
+ getitem 5086,1;//Items: Alarm Mask,
+ mes "[Muslam]";
+ mes "Enjoy your item!";
+ close;
+
+L_NOITEM:
+ mes "[Muslam]";
+ mes "Where are 3,000 Clock Hands and 1 Mr. Scream?";
+ close;
+
+M_EXIT:
+ mes "[Muslam]";
+ mes "Mkay! byeee.";
+ close;
+}
\ No newline at end of file diff --git a/npc/quests/newgears/mushroom_hairband.txt b/npc/quests/newgears/mushroom_hairband.txt new file mode 100644 index 000000000..8be76f800 --- /dev/null +++ b/npc/quests/newgears/mushroom_hairband.txt @@ -0,0 +1,59 @@ +//===== eAthena Script =======================================
+//= Mushroom Hairband Quest
+//===== By: ==================================================
+//= Halca (1.0)
+//= Mass Zero (1.1)
+//===== Current Version: =====================================
+//= 1.3
+//===== Compatible With: =====================================
+//= Any eAthena Version.
+//===== Description: =========================================
+//= Seperate Mushroom Hairband quest.
+//===== Additional Comments: =================================
+//= 1.2 Fixed wrong labels, added missing text [Lupus]
+//= 1.3 Fixed possible exploit [Lupus]
+//============================================================
+
+geffen.gat,66,87,6 script Aipo 819,{
+ mes "[Aipo]";
+ if(BaseJob == Job_Novice) GOTO L_NOVICE;
+ mes "Heeeeee.";
+ next;
+ mes "[Aipo]";
+ mes "Have you ever wondered what you would look like with a ^000080Mushroom Hairband^000000?";
+ mes "Well, I can make you one if you like, just give me 300 Mushroom Spores!";
+ next;
+ mes "[Aipo]";
+ mes "This wondrous item grew in the depths of a gave and needs the spores for the final";
+ mes "materials neededm";
+ mes "Want me to make it for you?";
+ next;
+ menu "Yes! Now make me the item!",-,"No, thanks!",M_EXIT;
+
+ if(countitem(921) < 300) GOTO L_NOITEM;//Items: Mushroom Spore,
+ delitem 921,300;//Items: Mushroom Spore,
+ mes "[Aipo]";
+ mes "Wow! Thanks! Lemme make the item then.";
+ next;
+ mes "[Aipo]";
+ mes "Okay, thanks for the items, now yours in return!";
+ next;
+ getitem 5082,1;//Items: Mushroom Hairband,
+ mes "[Aipo]";
+ mes "Thanks again! Bye!";
+ close;
+
+L_NOITEM:
+ mes "[Aipo]";
+ mes "You don't have enough Mushroom Spores... sorry!";
+ close;
+
+L_NOVICE:
+ mes "I love musrooms. I wanna be their master one day...";
+ close;
+
+M_EXIT:
+ mes "[Aipo]";
+ mes "Well, I'm always here if you change your mind!";
+ close;
+}
diff --git a/npc/quests/newgears/neris.txt b/npc/quests/newgears/neris.txt new file mode 100644 index 000000000..f6a7384aa --- /dev/null +++ b/npc/quests/newgears/neris.txt @@ -0,0 +1,128 @@ +//===== eAthena Script =======================================1
+//= Neris (New Hat Quests)
+//===== By: ==================================================
+//= Halca (1.0)
+//= Mass Zero (1.1)
+//===== Current Version: =====================================
+//= 1.3a
+//===== Compatible With: =====================================
+//= Any eAthena Version.
+//===== Description: =========================================
+//= Seperate New Hat quests.
+//===== Additional Comments: =================================
+//= 1.2 Fixed wrong labels, added missing text [Lupus]
+//= 1.3 Fixed possible exploit, 1.3a fixed coords [Lupus]
+//= 1.3b Corrected the fixed coords [Zephiris]
+//============================================================
+
+yuno_in03.gat,20,18,7 script Neris 806,{
+ mes "[Neris]";
+ mes "So, whatcha want then?";
+ next;
+ menu "Golden Bells.",-,"Crown of Mistress.",M_COM,"Crown of Ancient Queen.",M_COAQ,"Nothing, thanks.",M_EXIT;
+
+ mes "[Neris]";
+ mes "Hehe, so you are a fan of Sohee's eh?";
+ mes "Yeah, I guess I like the bell they carry too!";
+ next;
+ mes "[Neris]";
+ mes "Looks pretty cute when you wear it.";
+ mes "So... what can I do for you?";
+ next;
+ menu "Make me Golden Bells!",-,"What do I need to make it?",M_REQL,"Nothing, thanks.",M_EXIT;
+
+ if(countitem(10016) < 1 || countitem(714) < 1 || countitem(969) < 3 || Zeny < 1000) GOTO L_NOITEM;//Items: Golden Bell, Emperium, Gold,
+ delitem 10016,1;//Items: Golden Bell,
+ delitem 714,1;//Items: Emperium,
+ delitem 969,3;//Items: Gold,
+ set Zeny,Zeny-1000;
+ mes "[Neris]";
+ mes "Now, lets swap your items.";
+ next;
+ getitem 5091,1;//Items: Golden Bells,
+ mes "[Neris]";
+ mes "Thanks, and bye!";
+ close;
+
+M_REQL:
+ mes "[Neris]";
+ mes "Okay all these are gold related:";
+ mes "1 Golden Bell,";
+ mes "1 Emperium,";
+ mes "3 Gold,";
+ mes "1000 Zeny for the labor.";
+ close;
+
+M_COM:
+ mes "[Neris]";
+ mes "You like mistresses?";
+ next;
+ mes "[Neris]";
+ mes "So... what can I do for you?";
+ next;
+ menu "Make me the item.",-,"What do I need to make it?",M_REQC,"Nothing, thanks.",M_EXIT;
+
+ if(countitem(2249) < 1 || countitem(714) < 1 || countitem(969) < 3 || Zeny < 1000) GOTO L_NOITEM;//Items: Coronet, Emperium, Gold,
+ delitem 2249,1;//Items: Coronet,
+ delitem 714,1;//Items: Emperium,
+ delitem 969,3;//Items: Gold,
+ set Zeny,Zeny-1000;
+ mes "[Neris]";
+ mes "Now, lets swap your items.";
+ next;
+ getitem 5081,1;//Items: Crown of Mistress,
+ mes "[Neris]";
+ mes "Thanks, and bye!";
+ close;
+
+M_REQC:
+ mes "[Neris]";
+ mes "Okay all these are gold related:";
+ mes "1 Coronet,";
+ mes "1 Emperium,";
+ mes "3 Gold,";
+ mes "1000 Zeny for the labor.";
+ close;
+
+M_COAQ:
+ mes "[Neris]";
+ mes "You like ancient queens?";
+ next;
+ mes "[Neris]";
+ mes "So.. what can I do for you?";
+ next;
+ menu "Make me the item.",-,"What do I need to make it?",M_REQC2,"Nothing, thanks.",M_EXIT;
+
+ if(countitem(10006) < 1 || countitem(714) < 1 || countitem(969) < 3 || Zeny < 1000) GOTO L_NOITEM;//Items: Queen's Hair Ornament, Emperium, Gold,
+ delitem 10006,1;//Items: Queen's Hair Ornament,
+ delitem 714,1;//Items: Emperium,
+ delitem 969,3;//Items: Gold,
+ set Zeny,Zeny-1000;
+ mes "[Neris]";
+ mes "Now, lets swap your items";
+ next;
+ getitem 5080,1;//Items: Crown of The Ancient Queen,
+ mes "[Neris]";
+ mes "Thanks, and bye!";
+ close;
+
+M_REQC2:
+ mes "[Neris]";
+ mes "Okay all these are gold related:";
+ mes "1 Queen's Hair Ornament,";
+ mes "1 Emperium,";
+ mes "3 Gold,";
+ mes "1000 Zeny for the labor.";
+ close;
+
+L_NOITEM:
+ mes "[Neris]";
+ mes "Don't take me for a fool!";
+ mes "No items, no deal!";
+ close;
+
+M_EXIT:
+ mes "[Neris]";
+ mes "Bye! Come again.";
+ close;
+}
diff --git a/npc/quests/newgears/new_hats_0625.txt b/npc/quests/newgears/new_hats_0625.txt new file mode 100644 index 000000000..e3ae3a3dd --- /dev/null +++ b/npc/quests/newgears/new_hats_0625.txt @@ -0,0 +1,314 @@ +//===== eAthena Script ============
+//= New hats from kRO Sakray on 2005-05-31
+//===== By: =========================
+//= Lorky, Lupus
+//===== Current Version: ===================
+//= 0.6
+//===== Compatible With: =====================
+//= eAthena 1.0
+//===== Description: ============================================
+//Hats lists:
+// Hat of the Investigator
+// Baby Suckle (Baby Rubber Nipple)
+// Mystic rose
+// Red Bonnet
+// Well-Baked Toast
+// Mask of Zealotus
+// Fashionable Warm Hat
+// n/a Soldier's Felt Hat (no info)
+//===== Additional Comments: ==========================================
+// 03.06.2005 :: Lorky :: First release 0.1a
+// 0.1b Fixed some missing things with temp IDs. [Lupus]
+// Could someone correct wrong info, names, coords, etc? ^___-
+// 0.1c Fixed hats shop. It shouldn't sell slotted hats.
+// 0.2 Fixed Detective Hat items (by Ishizu-chan) [Lupus]
+// 0.3 Added Zealotus mask quest with correct items [Lupus]
+// 0.4 Fixed some sprites, npc names and coords [Lupus]
+// 0.5 Removed temp shops, Black Clothes -> Piece of Black Quartz, thx to vicious_Pucca for note [Lupus]
+// 0.5a Updated detective hat to ask for the correct items [Kayla]
+// 0.6 Fixed possible exploits. Update yuor servers! [Lupus]
+//=====================================================================
+
+//Links (some info related to these headgears)
+//http://translate.google.com/translate?hl=en&sl=ja&u=http://www11.big.or.jp/~top/2005/0625/head.htm
+//http://eathena.deltaanime.net/board/index.php?showtopic=34214
+//http://www.ragnainfo.net/forums/viewtopic.php?t=79677&start=0&postdays=0&postorder=asc&highlight=
+
+
+//Quest Hats
+//-------------------------------------------------------------------------------------------------
+//Baby Suckle ID 5110
+lighthalzen.gat,360,310,4 script Boy 818,{
+ mes "[Boy]";
+ mes "...MA...Ma..ma...";
+ emotion 43;
+ next;
+ menu "Wow! Give me Baby Suckle!",-,"Nice Boy!",L_EXIT;
+
+ mes "[Boy]";
+ mes "Rrr..Rrr.. (^FF3300Royal jelly^000000)"; //526
+ mes "Bu.. Ba...Ba-Bu-bi (^FF3300Baby Bottle^000000)"; //7270 (nursing bottle of baby )
+ mes "Pa-Pa..Paxfi.. (^FF3300Pacifier^000000)"; //10004
+ mes "Nu..Noos rie.. (^FF3300Nose Ring^000000)"; //941 (Nose Wheel)
+ next;
+
+ if(countitem(526)<1 || countitem(7270)<1 || countitem(10004)<1 || countitem(941)<1) goto L_EXIT;//Items: Royal_Jelly, Baby_Bottle, Pacifier, Nose_Ring,
+ delitem 526,1;//Items: Royal_Jelly,
+ delitem 7270,1;//Items: Baby_Bottle,
+ delitem 10004,1;//Items: Pacifier,
+ delitem 941,1;//Items: Nose_Ring,
+ mes "[Boy]";
+ mes "Th-anke...";
+ emotion 43;
+ getitem 5110,1;//Items: Baby_Rubber_Nipple,
+ next;
+
+L_EXIT:
+ mes "[Boy]";
+ mes "...B...Bye...";
+ emotion 28;
+ close;
+
+}
+
+//-------------------------------------------------------------------------------------------------
+//Detective hat (Hat_of_the_Investigator) ID 5108
+lighthalzen.gat,140,68,4 script Morris 818,{
+ mes "[Morris]";
+ mes "Do you want a ^FF3300Hat of the Investigator^000000?";
+ next;
+ menu "Of course, I do",-,"No, thanks",L_EXIT;
+
+ mes "[Morris]";
+ mes "Ok then, I shall make one for you.";
+
+ if(countitem(611)<10 || countitem(7301)<1887 || countitem(5120)<1 || Zeny<50000) goto L_NOITEM;//Items: Magnifier, Tassel, Wide_Bunker_Hat_,
+ delitem 611,10; //Items: Magnifier,
+ delitem 7301,1887; //Tassel//Items: Tassel,
+ delitem 5120,1; //Items: Wide_Bunker_Hat_,
+ set Zeny,Zeny-50000;
+ mes "[Morris]";
+ mes "Very well. Now I can make it...";
+ next;
+ mes "[Morris]";
+ mes "Enjoy.";
+ getitem 5108,1;//Items: Detective_Hat,
+ close;
+
+L_NOITEM:
+ mes "[Morris]";
+ mes "Bring me:";
+ mes "^FF3300 10 Magnifiers^000000,";
+ mes "^FF3300 1887 Tassel^000000,";
+ mes "^FF3300 1 Wide Bunker Hat [1]^000000,";
+ mes "and ^FF3300 50,000 zeny.^000000";
+ close;
+
+L_EXIT:
+ mes "[Morris]";
+ mes "Bye.";
+ close;
+}
+
+//-------------------------------------------------------------------------------------------------
+//Mystic rose ID 5117
+lhz_in02.gat,103,31,4 script Margaret Mary 818,{
+ mes "[Margaret Mary]";
+ mes "Wheee! Don't you just love making youself look pretty!?";
+ mes "I love glamourising myself with all the best accessories!";
+ next;
+
+ mes "[Margaret Mary]";
+ mes "Have you ever heard of a ^FF3300Mystic Rose^000000?";
+ mes "I can make you one, and you could be fashionable and mysticly, too!";
+ next;
+ menu "Make me a ^670000Mystic rose^000000.",-,"No, I dont want one.",L_EXIT;
+
+ if(countitem(731) < 10 || countitem(748) < 3 || countitem(982) < 1 || Zeny<50000) goto L_NOITEM;//Items: 2_Carat_Diamond, Witherless_Rose, White_Dyestuff,
+ delitem 731,10;//Items: 2_Carat_Diamond,
+ delitem 748,3;//Items: Witherless_Rose,
+ delitem 982,1;//Items: White_Dyestuff,
+ set Zeny,Zeny-50000;
+ mes "[Margaret Mary]";
+ mes "Wow, thank you! Hand me your items, please.";
+ next;
+ mes "[Margaret Mary]";
+ mes "Enjoy being pretty and mystic!";
+ getitem 5117,1;//Items: Mystic_Rose,
+ close;
+L_NOITEM:
+ mes "[Margaret Mary]";
+ mes "Well, for me to make you my Mystic rose...";
+ mes "I need these materials:";
+ mes "^FF3300 10 2-Carat Diamonds^000000,";
+ mes "^FF3300 3 Witherless Roses^000000,";
+ mes "^FF3300 1 White Dyestuff^000000,";
+ mes "and ^FF3300 50,000 zeny.^000000";
+ close;
+L_EXIT:
+ mes "[Margaret Mary]";
+ mes "Aww... well, OK then!";
+ mes "Be pretty some other time";
+ close;
+}
+
+//-------------------------------------------------------------------------------------------------
+//Red hood (Red Bonnet) ID 5109
+lighthalzen.gat,180,88,4 script Rich Girl 818,{
+ mes "[Rich Girl]";
+ mes "Hello there! Please, answer my questions.";
+ next;
+ mes "[Rich Girl]";
+ mes "Do you have a grandma?";
+ emotion 20;
+ next;
+ mes "[Rich Girl]";
+ mes "Really? I'm sorry. Do you like wolves?";
+ next;
+ mes "[Rich Girl]";
+ mes "Ha! I knew it! And... my last question. Would you like to put on something reddish?";
+ emotion 1;
+ next;
+ mes "[Rich Girl]";
+ mes "Just kidding, Have you ever read 'Red-Hood'? I can make to you the very same ^FF3300Red Bonnet^000000.";
+ next;
+ menu "Please, make it!",-,"No, thanks",L_EXIT;
+ if(countitem(10015) < 1 || countitem(975) < 1 || countitem(10007) < 1 || countitem(5032)<1 || Zeny<50000) goto L_NOITEM;//Items: Green_Lace, Scarlet_Dyestuffs, Silk_Ribbon, Sunday_Hat,
+ delitem 10015,1;//Items: Green_Lace,
+ delitem 975,1;//Items: Scarlet_Dyestuffs,
+ delitem 10007,1;//Items: Silk_Ribbon,
+ delitem 5032,1;//Items: Sunday_Hat,
+ set Zeny,Zeny-50000;
+ mes "[Rich Girl]";
+ mes "Ok then, I shall make one for you.";
+ next;
+ mes "[Rich Girl]";
+ mes "Now you can drink tea with your grannie and have fun with wolves.";
+ getitem 5109,1;//Items: Red_Bonnet,
+ close;
+
+L_NOITEM:
+ mes "[Rich Girl]";
+ mes "Give me:";
+ mes "^FF3300 Green Lace^000000,";
+ mes "^FF3300 Scarlet Dyestuff ^000000,";
+ mes "^FF3300 Silk Ribbon^000000,";
+ mes "^FF3300 Sunday Hat ^000000,";
+ mes "and ^FF3300 50,000 zeny.^000000";
+ close;
+
+L_EXIT:
+ mes "[Rich Girl]";
+ mes "Well done. Bye.";
+ close;
+}
+
+//-------------------------------------------------------------------------------------------------
+//Well-Baked Toast ID 5107
+yuno.gat,224,116,4 script Kacis 818,{
+ mes "[Kacis]";
+ mes "Do you want a ^FF3300 Well-Baked Toast ^000000?";
+ next;
+ menu "Please, make one for me",-,"No, thanks. I'm so full",L_EXIT;
+
+ if(countitem(519) < 50 || countitem(548) < 50 || countitem(539) < 50 || countitem(7031)<50) goto L_NOITEM;//Items: Milk, Cheese, Piece_of_Cake, Old_Frying_Pan,
+ delitem 519,50;//Items: Milk,
+ delitem 548,50;//Items: Cheese,
+ delitem 539,50;//Items: Piece_of_Cake,
+ delitem 7031,50;//Items: Old_Frying_Pan,
+ mes "[Kacis]";
+ mes "Good, thank you! Let me just take your items.";
+ next;
+ mes "[Kacis]";
+ mes "Well done. Be careful, it's hot.";
+ getitem 5107,1;//Items: Well_Done_Toast,
+ close;
+
+L_NOITEM:
+ mes "[Kacis]";
+ mes "Well, for me to make you ^FF3300 Well-Baked Toast ^000000...";
+ mes "I require these materials:";
+ mes "^FF3300 50 Milk, ^000000";
+ mes "^FF3300 50 Cheese, ^000000";
+ mes "^FF3300 50 Piece of Cake, ^000000";
+ mes "^FF3300 50 Old Frying Pan. ^000000";
+ close;
+L_EXIT:
+ mes "[Kacis]";
+ mes "Ok. I more to get tasty toasts.";
+ close;
+}
+
+//-------------------------------------------------------------------------------------------------
+// Mask_of_Zealotus id 5121
+gl_prison1.gat,138,141,4 script Zealotus 1200,{
+ mes "[Gill Tass]";
+ mes "Do you want an unique ^FF3300Mask of Zealotus^000000 ?";
+ next;
+ menu "Yes, I do!",-,"No, thanks",L_EXIT;
+
+ if(countitem(7315) < 369//Items: Black Quartz Piece
+ || countitem(660) < 1//Items: Forbidden_Red_Candle,
+ || countitem(7263) < 1//Items: Cat's_Eye,
+ || countitem(7099) < 30) goto L_NOITEM;//Items: Worn-out_Magic_Scroll,
+
+ delitem 7315,369;//Items: Black Quartz Piece,
+ delitem 660,1;//Items: Forbidden_Red_Candle,
+ delitem 7263,1;//Items: Cat's_Eye,
+ delitem 7099,30;//Items: Worn-out_Magic_Scroll,
+ getnameditem 5121,strcharinfo(0);
+ logmes "Quest: Got Zealotus Mask";
+
+ mes "[Gill Tass]";
+ mes "Just let me sign your unique Zealotus Mask.";
+ mes "So all masks should be signed...";
+ close;
+
+L_NOITEM:
+ mes "[Gill Tass]";
+ mes "All right. Bring me these items:";
+ mes "^FF3300 369 Pieces of Black Quartz^000000,";
+ mes "^FF3300 1 Forbidden Red Candle^000000,";
+ mes "^FF3300 1 Cat's Eye^000000";
+ mes "and ^FF3300 30 Worn-out Magic scrolls.^000000";
+ close;
+
+L_EXIT:
+ mes "[Gill Tass]";
+ mes "As you wish...";
+ close;
+}
+//-------------------------------------------------------------------------------------------------
+//Fashionable Warm Hat ID 5115
+einbech.gat,70,200,7 script Mater 818,{
+ mes "[Mater]";
+ mes "Aren't you cold?";
+ mes "I can make you a ^FF3300Winter Hat^000000";
+ next;
+ menu "Please, make one for me",-,"No, thanks",L_EXIT;
+
+ if(countitem(7267) < 999 || countitem(983) < 1 || countitem(749) < 1 || Zeny<50000) goto L_NOITEM;//Items: Tigerskin_Underwear, Black_Dyestuff, Frozen_Rose,
+ delitem 7267,999;//Items: Tigerskin_Underwear,
+ delitem 983,1;//Items: Black_Dyestuff,
+ delitem 749,1;//Items: Frozen_Rose,
+ set Zeny,Zeny-50000;
+ mes "[Mater]";
+ mes "Exellent! Now give me the items.";
+ next;
+ mes "[Mater]";
+ mes "Here you are.";
+ getitem 5115,1;//Items: Fashionable_Fur_Hat,
+ close;
+L_NOITEM:
+ mes "[Mater]";
+ mes "Please, correct these materials:";
+ mes "^FF3300 999 Tigerskin Underwears^000000,";
+ mes "^FF3300 Black Dyestuff^000000,";
+ mes "^FF3300 Frozen Rose^000000,";
+ mes "and ^FF3300 50,000 zeny.^000000";
+ close;
+L_EXIT:
+ mes "[Mater]";
+ mes "Azzz youu wishhhh... Brr-r.";
+ close;
+}
diff --git a/npc/quests/newgears/old_blacksmith.txt b/npc/quests/newgears/old_blacksmith.txt new file mode 100644 index 000000000..122bad676 --- /dev/null +++ b/npc/quests/newgears/old_blacksmith.txt @@ -0,0 +1,99 @@ +//===== eAthena Script =======================================
+//= Angel & Devil Ears Quests
+//===== By: ==================================================
+//= Halca (1.0)
+//= Mass Zero (1.1)
+//===== Current Version: =====================================
+//= 1.3b
+//===== Compatible With: =====================================
+//= Any eAthena Version.
+//===== Description: =========================================
+//= Seperate Ears Of Angel & Ears Of Demon quests.
+//===== Additional Comments: =================================
+//= 1.2 Fixed wrong labels, added missing text, wrong ID! [Lupus]
+//= 1.3 Fixed possible exploit, 1.3a coords fixed [Lupus]
+//============================================================
+
+yuno.gat,240,52,4 script Old Blacksmith 813,{
+ mes "[Old Blacksmith]";
+ mes "Well then my good man!";
+ mes "What can I do for you?";
+ next;
+ menu "Give me the Ears of Devil!",M_EOD,"Give me the Ears of Angel!",M_EOA,"Nothing, thanks",M_EXIT;
+
+M_EOD:
+ mes "[Old Blacksmith]";
+ mes "Well, this item sure makes you look like a evil bastard.";
+ mes "It makes me crap in my pants when I see these.";
+ next;
+ menu "Dont care, make me the Item!",-,"What are the requirements?",M_EODREQ,"Nothing",M_EXIT;
+
+ if(countitem(2255) < 1 || countitem(2286) < 1 || Zeny < 20000) GOTO L_NOITEM_EOD;//Items: Evil Wing, Elven Ears,
+ delitem 2255,1;//Items: Evil Wing,
+ delitem 2286,1;//Items: Elven Ears,
+ set Zeny,Zeny-20000;
+ mes "[Old Blacksmith]";
+ mes "Wow, never thought a little fella like you could get tha.t";
+ mes "Bwahaha, ok.";
+ next;
+ getitem 5068,1;//Items: Ears Of Demon,
+ mes "[Old Blacksmith]";
+ mes "Well, enjoy your item!";
+ close;
+
+L_NOITEM_EOD:
+ mes "[Old Blacksmith]";
+ mes "Well sorry, but you dont have enough items!";
+ next;
+
+M_EODREQ:
+ mes "[Old Blacksmith]";
+ mes "Well, let's see...";
+ mes "I need something for the evil, that be an Evil Wing,";
+ mes "I also need the ears for the base of it, Elven Ears would be OK,";
+ mes "Last of all, I need 20,000 Zeny for me troubles.";
+ next;
+ mes "[Old Blacksmith]";
+ mes "Hey, I have to make a living!";
+ close;
+
+M_EOA:
+ mes "[Old Blacksmith]";
+ mes "Well, this item sure makes you look like a holy bastard.";
+ next;
+ menu "Dont care, make me the Item!",-,"What are the requirements?",M_EOAREQ,"Nothing",M_EXIT;
+
+ if(countitem(2286) < 1 || countitem(2254) < 1 || Zeny < 20000) GOTO L_NOITEM_EOA;//Items: Elven Ears, Angel Wing,
+ delitem 2286,1;//Items: Elven Ears,
+ delitem 2254,1;//Items: Angel Wing,
+ set Zeny,Zeny-20000;
+ mes "[Old Blacksmith]";
+ mes "Well well well! Someone who has the spirit!";
+ mes "Okay, gimme the items.";
+ next;
+ mes "[Old Blacksmith]";
+ mes "Okay, and here you go.";
+ next;
+ getitem 5074,1;//Items: Ears of Angel,
+ mes "[Old Blacksmith]";
+ mes "Enjoy it!";
+ close;
+
+L_NOITEM_EOA:
+ mes "[Old Blacksmith]";
+ mes "Well sorry, but you dont have enough items!";
+ next;
+
+M_EOAREQ:
+ mes "[Old Blacksmith]";
+ mes "Well, this item is very holy, so I will need:";
+ mes "1 Angel Wing (Angel Headband),";
+ mes "1 Elven Ears for the ears,";
+ mes "and 20,000z for the labour costs!";
+ close;
+
+M_EXIT:
+ mes "[Old Blacksmith]";
+ mes "Fair yee well!";
+ close;
+}
diff --git a/npc/quests/newgears/orc_hero_helm.txt b/npc/quests/newgears/orc_hero_helm.txt new file mode 100644 index 000000000..f059de6ca --- /dev/null +++ b/npc/quests/newgears/orc_hero_helm.txt @@ -0,0 +1,123 @@ +//===== eAthena Script =======================================
+//= Orc Hero Helm Quest
+//===== By: ==================================================
+//= DracoRPG (1.0)
+//===== Current Version: =====================================
+//= 1.1
+//===== Compatible With: =====================================
+//= Any eAthena Version with gmcommand function
+//===== Description: =========================================
+//= Orc Hero Helm quest
+//===== Additional Comments: =================================
+//= Only needed items and sprite/name are official
+//= 1.1 fixed items exploit [Lupus]
+//============================================================
+
+gef_fild10.gat,131,274,4 script Orc Warrior 1023,{
+ if(ORC_HERO_HELM_Q==1) goto Q1;
+ if(ORC_HERO_HELM_Q==2) goto Q2;
+ if(ORC_HERO_HELM_Q==3) goto Q3;
+ if(ORC_HERO_HELM_Q==4) goto Q4;
+ emotion 6;
+ mes "[Orc Warrior]";
+ mes "What does an human here? Cheeit!";
+ mes "Here are only true Orc Warriors! Get out of our village!";
+ next;
+ menu "Hey, I'm as strong as you are!",Q0,"Leave before he gets angry...",-;
+ close;
+Q0:
+ mes "[Orc Warrior]";
+ mes "Humph! As strong as an orc? I dun think so!";
+ mes "If you're able to prove it to me... I'll reward ya with the hat of the true warriors...";
+ mes "The ^ff0000Orc Hero Helm^000000! Cheeit!";
+ next;
+ mes "[Orc Warrior]";
+ mes "But you'll need to show me your strength and courage before.";
+ mes "First bring me back 10,000 Jellopies to prove your determination! Cheeit!";
+ set ORC_HERO_HELM_Q,1;
+ set ORC_HERO_HELM_Q2,0;
+ close;
+Q1:
+ mes "[Orc Warrior]";
+ mes "Then, ya're back! Let's see whether you've got what I asked ya to find!";
+ next;
+ mes "[Orc Warrior]";
+ set @temp,countitem(909);
+ if(ORC_HERO_HELM_Q2+@temp>10000) set @temp,10000-ORC_HERO_HELM_Q2;
+ set ORC_HERO_HELM_Q2,ORC_HERO_HELM_Q2+@temp;
+ delitem 909,@temp;
+ if(ORC_HERO_HELM_Q2==0) goto Q1_noitem;
+ if(ORC_HERO_HELM_Q2==10000) goto Q1_allitem;
+ mes "Ya've brought me " + @temp + " Jellopies this time. This makes a total of " + ORC_HERO_HELM_Q2 + " Jellopies. Remember, I want 10,000 of 'em!";
+ close;
+Q1_allitem:
+ mes "I see that ya've more courage that I imagined. Cheeit!";
+ mes "But it's not finished! Now I want to test your strength. Go and fight our warriors, and get 100 Orcish Vouchers from 'em!";
+ set ORC_HERO_HELM_Q,2;
+ set ORC_HERO_HELM_Q2,0;
+ close;
+Q1_noitem:
+ emotion 6;
+ mes "Cheeit! I told ya to bring me back 10,000 Jellopies, and you don't have even one!";
+ close;
+Q2:
+ mes "[Orc Warrior]";
+ if(countitem(931)<100) goto Q2_noitem;
+ delitem 931,100;
+ mes "Ya managed to get those Orcish Vouchers? Cheeit! Maybe I didn't ask ya to bring me enough of 'em!";
+ mes "Go and find 10,000 more Orcish Vouchers!";
+ set ORC_HERO_HELM_Q,3;
+ set ORC_HERO_HELM_Q2,0;
+ close;
+Q2_noitem:
+ emotion 6;
+ mes "Ya couldn't win against my brother warriors ? Stay away until ya find those 100 Orcish Vouchers! Cheeit!";
+ close;
+Q3:
+ mes "[Orc Warrior]";
+ set @temp,countitem(931);
+ if(ORC_HERO_HELM_Q2+@temp>10000) set @temp,10000-ORC_HERO_HELM_Q2;
+ set ORC_HERO_HELM_Q2,ORC_HERO_HELM_Q2+@temp;
+ delitem 931,@temp;
+ if(ORC_HERO_HELM_Q2==0) goto Q3_noitem;
+ if(ORC_HERO_HELM_Q2==10000) goto Q3_allitem;
+ mes "Good, ya've come with " + @temp + " Orcish Vouchers. With all those ya brought previously, it goes up to " + ORC_HERO_HELM_Q2 + " Orcish Vouchers on the 10,000 I want!";
+ close;
+Q3_allitem:
+ mes "Humph! Ya're really a powerful warrior! Maybe ya deserve to wear the Orc Hero Helm.";
+ mes "For the moment, take those items. Keep 'em well, ya'll need 'em to make your helm!";
+ set ORC_HERO_HELM_Q,4;
+ set ORC_HERO_HELM_Q2,0;
+ getitem 2299,1;
+ getitem 968,1;
+ next;
+ mes "[Orc Warrior]";
+ mes "Now, ya'll have to fight our best warlords and heroes! Bring me 100 Heroic Emblems and I'll give ya your helm.";
+ close;
+Q3_noitem:
+ emotion 6;
+ mes "Bringing me back at least one of those 10,000 Orcish Vouchers is too hard for ya, poor human? Go out of there, then! Cheeit!";
+ close;
+Q4:
+ mes "[Orc Warrior]";
+ mes "Have ya fighted the best warriors among us, and brought me 100 Heroic Emblems as a token?";
+ mes "And don't forget the Orc Helm I gave ya, I need it too. Cheeit!";
+ next;
+ mes "[Orc Warrior]";
+ if(countitem(968)<100 || countitem(2299)<1) goto Q4_noitem;
+ delitem 968,100;
+ delitem 2299,1;
+ mes "Ya got all of them! Cheeit! Ya're a true warrior, one of our heroes!";
+ mes "I'll make your Orc Hero Helm to prove your strength and valour!";
+ next;
+ mes "[Orc Warrior]";
+ getnameditem 5094,strcharinfo(0);
+ set ORC_HERO_HELM_Q,0;
+ logmes "Quest: Got Orc Hero Helm";
+ mes "Here ya are! Wear it and be proud to be one of the mightiest Orc Heroes! Cheeit!";
+ close;
+Q4_noitem:
+ emotion 6;
+ mes "No? Ya miss items... I was sure that ya weren't really a hero!";
+ close;
+}
\ No newline at end of file diff --git a/npc/quests/newgears/posture_fix_hat.txt b/npc/quests/newgears/posture_fix_hat.txt new file mode 100644 index 000000000..520fadfee --- /dev/null +++ b/npc/quests/newgears/posture_fix_hat.txt @@ -0,0 +1,69 @@ +//===== eAthena Script =======================================
+//= Posture Fix Hat Quest
+//===== By: ==================================================
+//= Halca (1.0)
+//= Mass Zero (1.1)
+//===== Current Version: =====================================
+//= 1.3
+//===== Compatible With: =====================================
+//= Any eAthena Version.
+//===== Description: =========================================
+//= Posture Fix Hat quest.
+//===== Additional Comments: =================================
+//= 1.2 Fixed wrong labels, added missing text
+//= fixed wrong items ID [Lupus]
+//= 1.3 Fixed possible exploit [Lupus]
+//============================================================
+
+payon_in01.gat,143,8,5 script Nan Hyang 814,{
+ if(getequipisequiped(5073)) GOTO L_GOOD;
+ if(BaseJob == 0) GOTO L_NOVICE;
+ mes "[Nan Hyang]";
+ mes "Tut tut! you have terrible posture!";
+ mes "You need to correct it immediately!";
+ next;
+ mes "[Nan Hyang]";
+ mes "I could correct it for you if you brought me some materials to make you a Posture Fix Hat.";
+ next;
+ menu "Please, make me one.",-,"What do I need to get?",M_REQ,"No thanks!",M_EXIT;
+
+ if(countitem(1550) < 1 || countitem(2285) < 1) GOTO L_NOITEM;//Items: Book, Apple o' Archer,
+ delitem 1550,1;//Items: Book,
+ delitem 2285,1;//Items: Apple o' Archer,
+ mes "[Nan Hyang]";
+ mes "Ahh at last, someone who is serious!";
+ next;
+ getitem 5073,1;//Items: Posture Fix Hat,
+ mes "[Nan Hyang]";
+ mes "Hehe, well, maybe you will become more careful, or your sense will become balanced.";
+ close;
+
+M_REQ:
+ mes "[Nan Hyang]";
+ mes "What I require is very simple...";
+ next;
+ mes "[Nan Hyang]";
+ mes "1 Book.";
+ mes "And 1 Apple o' Archer to balance on it.";
+ close;
+
+L_NOITEM:
+ mes "[Nan Hyang]";
+ mes "At least be serious, you dont have enough items!";
+ mes "Come back when you wish to learn posture.";
+ close;
+
+L_GOOD:
+ mes "[Nan Hyang]";
+ mes "Ah, that's it! good to see you are willing to learn!";
+ close;
+
+L_NOVICE:
+ mes "Hi! Could you visit me next week?";
+ next;
+
+M_EXIT:
+ mes "[Nan Hyang]";
+ mes "Good day to you.";
+ close;
+}
diff --git a/npc/quests/newgears/sea_otter_hat.txt b/npc/quests/newgears/sea_otter_hat.txt new file mode 100644 index 000000000..244b9d564 --- /dev/null +++ b/npc/quests/newgears/sea_otter_hat.txt @@ -0,0 +1,56 @@ +//===== eAthena Script =======================================
+//= Sea Otter Hat Quest
+//===== By: ==================================================
+//= Halca (1.0)
+//= Mass Zero (1.1)
+//===== Current Version: =====================================
+//= 1.4
+//===== Compatible With: =====================================
+//= Any eAthena Version.
+//===== Description: =========================================
+//= Seperate Sea Otter Hat quest.
+//===== Additional Comments: =================================
+//= 1.2 Fixed wrong labels, added missing text [Lupus]
+//= 1.3 Fixed possible exploit [Lupus]
+//= 1.4 Fixed required item (Lazy Racoon Hat -> Racoon Hat),
+//= thanks to frugal [DracoRPG]
+//============================================================
+
+xmas.gat,184,267,4 script Pretty Rency 818,{
+ mes "[Pretty Rency]";
+ mes "Wow! you heard of a Sea Otter Hat?";
+ next;
+ mes "[Pretty Rency]";
+ mes "The requirements for this item, are very simple:";
+ mes "1 Raccoon Hat,";
+ mes "1 Transformation Leaf";
+ next;
+ mes "[Pretty Rency]";
+ mes "Do you have these items?";
+ next;
+ menu "Yes.",-,"No.",M_EXIT;
+
+ if(countitem(5033) < 1 || countitem(5064) < 1) GOTO L_NOITEM;//Items: Raccoon Hat, Transformation Leaf,
+ delitem 5033,1;//Items: Raccoon Hat,
+ delitem 5064,1;//Items: Transformation Leaf,
+ mes "[Pretty Rency]";
+ mes "Congratulations!";
+ next;
+ mes "[Pretty Rency]";
+ mes "Thanks for your items! Now I will make yours for you!";
+ next;
+ getitem 5078,1;//Items: Sea Otter Hat,
+ mes "[Pretty Rency]";
+ mes "Thanks! Byeeeeeee!";
+ close;
+
+L_NOITEM:
+ mes "[Pretty Rency]";
+ mes "Sorry, not enough items.";
+ close;
+
+M_EXIT:
+ mes "[Pretty Rency]";
+ mes "Byebye! Have a nice time in the world of Ragnarok!";
+ close;
+}
\ No newline at end of file diff --git a/npc/quests/newgears/traveler.txt b/npc/quests/newgears/traveler.txt new file mode 100644 index 000000000..24e9fd20a --- /dev/null +++ b/npc/quests/newgears/traveler.txt @@ -0,0 +1,132 @@ +//===== eAthena Script =======================================
+//= Traveler (New Hat Quests)
+//===== By: ==================================================
+//= Halca (1.0)
+//= Mass Zero (1.1)
+//===== Current Version: =====================================
+//= 1.4b
+//===== Compatible With: =====================================
+//= Any eAthena Version.
+//===== Description: =========================================
+//= Seperate New Hat quests.
+//===== Additional Comments: =================================
+//= 1.2 Fixed wrong labels, added missing text
+//= added missing delitem, fixed names, item amount [Lupus]
+//= 1.3 Fixed possible exploit [Lupus]
+//= 1.4 Fixed ingredients: Sashimi knife->Raw Fish (Sashimi) [Lupus]
+//= 1.4a fixed coords [Lupus]
+//============================================================
+
+morocc.gat,273,78,6 script Traveler 807,{
+ mes "[Traveler]";
+ if(BaseJob == Job_Novice) GOTO L_NOVICE;
+ mes "What kind of hat do you want from me?";
+ next;
+ menu "Lazy Racoon Hat.",-,"Fresh Bluish Fish",M_N2,"Drooping Cat",M_N3,"Transformation Leaf",M_N4,"Nothing.",M_EXIT;
+
+ mes "[Traveler]";
+ mes "Gimme 1000 Acorns,";
+ mes "100 Sea Otter Skins,";
+ mes "and 10 Raccoon Leaf";
+ next;
+ mes "[Traveler]";
+ mes "Got these items?";
+ next;
+ menu "Yep.",-,"No!",M_EXIT;
+
+ if(countitem(1026) < 1000 || countitem(7065) < 100 || countitem(945) < 10) GOTO L_NOITEM;//Items: Acorn, Sea Otter Fur, Raccoon Leaf,
+ delitem 1026,1000;//Items: Acorn,
+ delitem 7065,100;//Items: Sea Otter Fur,
+ delitem 945,10;//Items: Raccoon Leaf,
+ mes "[Traveler]";
+ mes "Well, then here is your item";
+ next;
+ getitem 5084,1;//Items: Lazy Racoon Hat,
+ mes "[Traveler]";
+ mes "Enjoy.";
+ close;
+
+M_N2:
+ mes "[Traveler]";
+ mes "Gimme 1 Rotten Fish,";
+ mes "300 Rotten Scales,";
+ mes "50 Raw Fish (Sashimi, not a knife),";
+ mes "1 Fish Tail,";
+ mes "and 100 Sticky Mucus";
+ next;
+ mes "[Traveler]";
+ mes "Got these items?";
+ menu "Yes",-,"No.",M_EXIT;
+
+ if(countitem(624) < 1 || countitem(959) < 300 || countitem(544) < 50 || countitem(1023) < 1 || countitem(938) < 100) GOTO L_NOITEM; //Items: Rotten Fish, Stinky Scale, Sashimi, Fish Tail, Sticky Mucus,
+ delitem 624,1;//Items: Rotten Fish,
+ delitem 959,300;//Items: Stinky Scale,
+ delitem 544,50;//Items: Raw Fish,
+ delitem 1023,1;//Items: Fish Tail,
+ delitem 938,100;//Items: Sticky Mucus,
+ mes "[Traveler]";
+ mes "Okay, thanks.";
+ next;
+ getitem 5065,1;//Items: Fresh Blueish Fish,
+ mes "[Traveler]";
+ mes "Thanks. Bye.";
+ close;
+
+M_N3:
+ mes "[Traveler]";
+ mes "Give me 1 Slotted Circlet,";
+ mes "1 Black Dyestuff,";
+ mes "and 300 Black Cat Dolls.";
+ mes "Loli Ruri drops the last one.";
+ next;
+ mes "[Traveler]";
+ mes "Have you these items?";
+ next;
+ menu "Yes",-,"No.",M_EXIT;
+
+ if(countitem(2233) < 1 || countitem(983) < 1 || countitem(7206) < 300) GOTO L_NOITEM;//Items: Circlet, Black Dyestuff, Black Cat Doll,
+ delitem 2233,1;//Items: Circlet,
+ delitem 983,1;//Items: Black Dyestuff,
+ delitem 7206,300;//Items: Black Cat Doll,
+ mes "[Traveler]";
+ mes "Okay, here you are.";
+ next;
+ getitem 5058,1;//Items: Resting Cat,
+ mes "[Traveler]";
+ mes "Good luck.";
+ close;
+
+M_N4:
+ mes "[Traveler]";
+ mes "Bring me 600 Raccoon Dog's Leaves (Raccoon Leaf).";
+ next;
+ mes "[Traveler]";
+ mes "You have these?";
+ next;
+ menu "Yes!",-,"Nope.",M_EXIT;
+
+ if(countitem(945) < 600) GOTO L_NOITEM;//Items: Raccoon Leaf,
+ delitem 945,600;//Items: Raccoon Leaf,
+ mes "[Traveler]";
+ mes "Thanks. here's your leaf.";
+ next;
+ getitem 5064,1;//Items: Transformation Leaf,
+ mes "[Traveler]";
+ mes "Enjoy your Item.";
+ close;
+
+L_NOITEM:
+ mes "[Traveler]";
+ mes "No stuff, no item!";
+ mes "When you have it, come back.";
+ close;
+
+L_NOVICE:
+ mes "It's damn hot today...";
+ close;
+
+M_EXIT:
+ mes "[Traveler]";
+ mes "Bye.";
+ close;
+}
diff --git a/npc/quests/newgears/tulip_hairpin.txt b/npc/quests/newgears/tulip_hairpin.txt new file mode 100644 index 000000000..b3b4c2840 --- /dev/null +++ b/npc/quests/newgears/tulip_hairpin.txt @@ -0,0 +1,65 @@ +//===== eAthena Script =======================================
+//= Tulip Hairpin Quest
+//===== By: ==================================================
+//= Halca (1.0)
+//= Mass Zero (1.1)
+//===== Current Version: =====================================
+//= 1.3
+//===== Compatible With: =====================================
+//= Any eAthena Version.
+//===== Description: =========================================
+//= Seperate Tulip Hairpin quest.
+//===== Additional Comments: =================================
+//= 1.2 Fixed wrong labels, added missing text [Lupus]
+//= 1.3 Fixed possible exploit and added missing close; [Lupus]
+//============================================================
+
+geffen.gat,84,189,6 script Ses 815,{
+ mes "[Ses]";
+ if(BaseJob == Job_Novice) GOTO L_NOVICE;
+ mes "Woo, hello! Fruit fruit!";
+ mes "Sorry, I just love flowers, fruits and everything that makes me";
+ mes "look more FRUITY!";
+ next;
+ menu "Make me a Tulip Hairpin!",-,"What do I need?",M_REQ,"Bye!",M_EXIT;
+
+ mes "[Ses]";
+ mes "You have the items?";
+ next;
+ menu "Yes!",-,"No!",M_EXIT;
+
+ if(countitem(2278) < 1 || countitem(975) < 1) GOTO L_NOITEM;//Items: Mr. Smile, Scarlet Dyestuffs,
+ delitem 2278,1;//Items: Mr. Smile,
+ delitem 975,1;//Items: Scarlet Dyestuffs,
+ mes "[Ses]";
+ mes "Yay! thanks! Pineapple!";
+ mes "Here you go!";
+ next;
+ getitem 5077,1;//Items: Tulip Hairpin,
+ mes "[Ses]";
+ mes "Enjoy being pretty!";
+ close;
+
+L_NOITEM:
+ mes "[Ses]";
+ mes "You don't have enough items for a Tulip Hairpin!";
+ next;
+
+M_REQ:
+ mes "[Ses]";
+ mes "Well, I need...";
+ mes "1 Mr. Smile for the substance";
+ mes "and 1 scarlet Dyestuff!";
+ mes "Bring these to me for your item!";
+ close;
+
+L_NOVICE:
+ mes "I love flowers... Do you love flowers, too?";
+ close;
+
+M_EXIT:
+ mes "[Ses]";
+ mes "Okay!";
+ mes "Byeeeee!";
+ close;
+}
diff --git a/npc/quests/obb_quest.txt b/npc/quests/obb_quest.txt new file mode 100644 index 000000000..498cc1b25 --- /dev/null +++ b/npc/quests/obb_quest.txt @@ -0,0 +1,197 @@ +//===== Athena Script =======================================
+//= Old Blue Box Quest
+//===== By ================================================
+//= Celesta, Lupus
+//===== Version ===========================================
+//= 1.6a
+//===== Compatible With ===================================
+//= SVN3000+
+//===== Description =======================================
+//= Official OBB Quest. You can pass it any times you want.
+//= 1.6 Updated, fixed, optimized and translated into English [Lupus]
+//= 1.6a Halved the required items to make an obb, thanks to marquis007 [MasterOfMuppets]
+//===== Description =======================================
+
+alberta.gat,115,204,5 script Tourist 97,{
+ mes "[Tourist]";
+ if(obb_quest == 1 ) goto L_YES;
+ if(obb_quest == 2 ) goto L_DONE;
+
+ mes "Hello, stranger!";
+ mes "Could you help me with kinda problem... Then I'd tell you something valuable.";
+ next;
+ mes "[Tourist]";
+ mes "I'm starving. I haven't had an apple since the morning...";
+ mes "Feed me and I'll tell you a secret.";
+ next;
+
+L_MENU:
+ menu "What do you like?",-,"I've got food.",L_FOOD, "See you later.", L_END;
+
+ mes "[Tourist]";
+ mes "Me.. I.. Today I'd like:";
+ mes "20 ^0000FFMeat^000000";
+ mes "20 ^0000FFWell-Baked Cookie^000000";
+ next;
+ goto L_MENU;
+
+L_NO_MEAT:
+ delitem 517,20;//Items: Meat,
+ mes "You know, you're lack of meat...";
+ mes "Please, bring me more...";
+ close;
+
+L_NO_COOK:
+ delitem 538,20;//Items: Well-baked_Cookie,
+ mes "Awww... I just wanna more sweeties!";
+ mes "Please, get me more cookies...";
+ close;
+
+L_FOOD:
+ mes "[Tourist]";
+ mes "Wha?! You brought all the food?";
+ mes "At last!";
+ next;
+ mes "[Tourist]";
+ if(countitem(517)<20) goto L_NO_MEAT;//Items: Meat,
+ delitem 517,20;//Items: Meat,
+ if(countitem(538)<20) goto L_NO_COOK;//Items: Well-baked_Cookie,
+ delitem 538,20;//Items: Well-baked_Cookie,
+ if(rand(10)<7) goto L_HUNGRY;
+ mes "Well... I'm sorta full.";
+ mes "Now listen to me. It's important.";
+ next;
+ mes "[Tourist]";
+ mes "A friend of mine who lives in Morroc, know one old man from Comodo...";
+ next;
+ mes "[Tourist]";
+ mes "That old man might know a secret of strange ancient blue boxes.";
+ set obb_quest, 1;
+ close;
+
+L_HUNGRY:
+ mes "I'm still hungry!";
+ mes "Is it all you got?";
+ close;
+
+L_YES:
+ mes "OK, go to Morroc and find my old pal Jacob,";
+ mes "he'll help you to trace an old man, who might keep a knowledge how to make some blue boxes...";
+ next;
+ mes "[Tourist]";
+ mes "Good luck, my friend.";
+ close;
+
+L_DONE:
+ mes "Have you made any Blue Boxes yet?";
+ next;
+ mes "[Tourist]";
+ mes "Oh... yeah, you've met that Old Greek from Comodo...";
+ close;
+
+L_END:
+ mes "[Tourist]";
+ mes "Well... farewell then.";
+ close;
+}
+
+//second part Jacob
+morocc.gat,267,142,5 script Jacob 807,{
+ mes "[Jacob]";
+ if(obb_quest == 1 ) goto L_YES;
+ if(obb_quest == 2 ) goto L_DONE;
+ mes "Get off! I'm busy!";
+ if(rand(2))mes "And it's none of your business!";
+ if(rand(2))mes "What Alberta? Huh?! Have I said it aloud? Forget it.";
+ close;
+
+L_YES:
+ mes "Aha! You say you know my old friend from Alberta?";
+ next;
+ mes "[Jacob]";
+ mes "Well, I'm gladly tell you about that weird old man if you bring me";
+ mes "2 ^0000FFNo Recipient^000000";
+ next;
+ menu "Here you are!",-,"I've changed my plans.",L_END;
+
+ mes "[Jacob]";
+ mes "Let me see...";
+ if(countitem(636)<2) goto L_NOITM;//Items: No_Recipient,
+ delitem 636,2;//Items: No_Recipient,
+ mes "Thank you, that's all I need.";
+ emotion 15;
+ next;
+ mes "[Jacob]";
+ set obb_quest, 2;
+L_DONE:
+ mes "Go to Comodo. Somewhere on the beach you'll find Old Greek.";
+ mes "Tell me that you know me and he'll help you.";
+ close;
+
+L_NOITM:
+ mes "Pardon, but I do really need these two ^0000FFNo Recipients^000000.";
+ emotion 20;
+ close;
+
+L_END:
+ mes "[Jacob]";
+ mes "Well, good luck.";
+ close;
+}
+
+//third part
+comodo.gat,41,209,5 script Old Greek 120,{
+ mes "[Old Greek]";
+ if(obb_quest == 2 ) goto L_YES;
+ if(obb_quest < 2 ) goto L_LOST;
+
+L_LOST:
+ mes "The KNOWLEDGE! That's the key, my child...";
+ if(rand(2))mes "Wealth doesn't matter.";
+ close;
+
+L_YES:
+ mes "Huh? Jacob send you?";
+ mes "OK, OK... It's true, I still can use old blue prints to make";
+ mes "an ^0000FF Old Blue Box^000000";
+ next;
+
+L_MENU:
+ menu "Make me one.",L_CREATE,"What do you need?",-,"Gooodbye.",L_END;
+
+ mes "[Old Greek]";
+ mes "For an Old Blue Box I need:";
+ mes "50 ^0000FFCyfars^000000";
+ mes "10 ^0000FFBrigans^000000";
+ mes "10 ^0000FFClam Shells^000000";
+ mes "15 ^0000FFCrab Shells^000000";
+ next;
+ goto L_MENU;
+
+L_CREATE:
+ mes "[Old Greek]";
+ mes "Let's see... What have you got...";
+ next;
+L_CREATE2:
+ if(countitem(7053)<50 || countitem(7054)<10 || countitem(965)<10 || countitem(964)<15) goto L_NO;//Items: Cyfar, Brigan, Clam_Shell, Crab_Shell,
+ delitem 7053,50;//Items: Cyfar,
+ delitem 7054,10;//Items: Brigan,
+ delitem 965,10;//Items: Clam_Shell,
+ delitem 964,15;//Items: Crab_Shell,
+ getitem 603,1;//Items: Old_Blue_Box,
+ mes "[Old Greek]";
+ mes "Here's your Box!";
+ emotion 21;
+ next;
+ menu "Make another!",L_CREATE2, "It's enough.",-;
+
+L_END:
+ mes "[Old Greek]";
+ mes "I wish you happy journey, my child.";
+ close;
+
+L_NO:
+ mes "[Old Greek]";
+ mes "Alas, my child. You haven't brought enough materials...";
+ close;
+}
diff --git a/npc/quests/quests_alberta.txt b/npc/quests/quests_alberta.txt new file mode 100644 index 000000000..42b339598 --- /dev/null +++ b/npc/quests/quests_alberta.txt @@ -0,0 +1,673 @@ +//===== eAthena Script =======================================
+//= Items Quest NPC's located in Alberta
+//===== By: ==================================================
+//= kobra_k88
+//===== Current Version: =====================================
+//= 1.4
+//===== Compatible With: =====================================
+//= eAthena 1.0
+//===== Description: =========================================
+//= Dolls Quest
+//= Boy's Cap Quest
+//= Antlers Quest
+//= Bao Bao, Cresent Hairpin, Fashionbale Glasses, Heart Hairpin Quests
+//= Hat of Sun God, Sunday Hat, Mage Hat, Magician Hat Quests
+//===== Additional Comments: =================================
+//= Fully working
+//= 1.1 Fixed Spore Doll exploit [Lupus], 1.2 Gramp's Tiger skin label bug
+//= 1.3 Fixed item ID 7031 -> 7013
+//= 1.4 Fixed a bug, Fixed Exploits, Optimized [Lupus]
+//============================================================
+
+
+
+//=======================================================================================================//
+// Doll Quest
+//=======================================================================================================//
+alberta.gat,117,134,8 script Elin 96,{
+ mes "[Elin]";
+ if(Sex == 0) mes "Hello, miss. Since you're a girl, you must like dolls, don't you?";
+ if(Sex == 1) mes "Hello, mister. Hmm, since you're a boy, you don't like dolls, do you?";
+ next;
+ mes "[Elin]";
+ mes "I LOVE dolls!!";
+ emotion 14;
+ next;
+ mes "[Elin]";
+ mes "Ya know..... I REALLY, REALLY, want a new doll. I hope daddy is going to buy me one for my birthday.....";
+ next;
+ menu "Aww, you must be happy...",-,"How about I give you one now?",M_2;
+
+ mes "[Elin]";
+ mes "Yeah, this time I'm hoping for a Yoyo doll. Hehe, they're so cute! They're my FAVORITE!";
+ emotion 33;
+ close;
+ M_2:
+ mes "[Elin]";
+ mes "Oh my goodness! Really?? You're such a sweetie.... gimme, gimme!!";
+ mes "What kinda doll are you going to give me? Are you really gonna give me one?";
+ emotion 0;
+ next;
+ menu "Puppet",-,"Poring doll",sM_2,"Chonchon doll",sM_3,"Rocker doll",sM_4, "Spore doll",sM_5,
+ "Osiris doll",sM_6,"Baphomet doll",sM_7,"Racoon doll",sM_8,"Yoyo doll",sM_9, "I am as adorable as a doll!",sM_10;
+
+ if(countitem(740) < 1) goto L_Liar;
+ delitem 740,1;
+ mes "[Elin]";
+ mes "Wow--! It's a rabbit! It's SOOOO cute!! Thank you SOOO much!";
+ emotion 14;
+ next;
+ mes "[Elin]";
+ mes "It's SOOO fluffy... Oh yeah! Let me give you a present too!";
+ next;
+ mes "(diggs around in her pockets)";
+ next;
+ mes "[Elin]";
+ mes "Ummm ... found it! Here take this!";
+ next;
+ getitem 530,1;
+ mes "[Elin]";
+ mes "I got this from Santa. It's a candy cane~";
+ next;
+ mes "[Elin]";
+ mes "Thanks again for the rabbit doll! I'm gonna HUG this to sleep EVERY night~";
+ emotion 15;
+ close;
+
+ sM_2:
+ if(countitem(741) < 1) goto L_Liar;
+ delitem 741,1;
+ mes "[Elin]";
+ mes "Yay! It's a poring doll! It's SOOOO cute! Since you gave me a doll I'll give you this....";
+ emotion 14;
+ next;
+ getitem 529,1;
+ mes "[Elin]";
+ mes "Thank you for the doll!";
+ emotion 15;
+ close;
+
+ sM_3:
+ if(countitem(742) < 1) goto L_Liar;
+ delitem 742,1;
+ mes "[Elin]";
+ mes "Ew whats this?.... a Chonchon ... doll? ...";
+ emotion 16;
+ next;
+ mes "[Elin]";
+ mes "Oh well, since you're giving it to me, I guess it's ok ....";
+ next;
+ mes "[Elin]";
+ mes "Well here's a little something for giving me the doll. Don't eat too much or you'll get cavities.";
+ getitem 530,1;
+ next;
+ mes "[Elin]";
+ mes ".... chonchon.... (~grumble, grumble~)";
+ emotion 7;
+ close;
+
+ sM_4:
+ if(countitem(752) < 1) goto L_Liar;
+ delitem 752,1;
+ mes "[Elin]";
+ mes "Oh! a Rocker doll. I hate hopping things but this doll's kinda cute.";
+ next;
+ mes "[Elin]";
+ mes "Thank you. Let me give you something too.";
+ next;
+ mes "[Elin]";
+ mes "Hmm, didn't I get some stuff from my uncle ...";
+ next;
+ mes "[Elin]";
+ mes "Here it is. We've got tons of it at home so I'll share some with you~";
+ getitem 532,7;
+ next;
+ mes "[Elin]";
+ mes "Thanks again for the doll!";
+ emotion 15;
+ close;
+
+ sM_5:
+ if(countitem(743) < 1) goto L_Liar;
+ delitem 743,1;
+ mes "[Elin]";
+ mes "Blehh .... It's a mushroom... Mom's always scolding me for not eating mushrooms ...";
+ emotion 4;
+ next;
+ mes "[Elin]";
+ mes "I'll take it anyway, since the doll looks cute. But I still won't eat mushrooms though ...";
+ next;
+ mes "[Elin]";
+ mes "Hmm, I'll need to give you a present too.";
+ next;
+ mes "[Elin]";
+ mes "My mom made this so please take it.";
+ getitem 538,5;
+ next;
+ mes "[Litte Kid]";
+ mes "Thank you for the doll~";
+ emotion 15;
+ close;
+
+ sM_6:
+ if(countitem(751) < 1) goto L_Liar;
+ delitem 751,1;
+ mes "[Elin]";
+ mes "Yay! It's an Osiris doll!";
+ next;
+ mes "[Elin]";
+ mes "Here's something for you too.";
+ getitem 522,2;
+ mes "[Elin]";
+ mes "Thank you for the doll!";
+ close;
+
+ sM_7:
+ if(countitem(750) < 1) goto L_Liar;
+ delitem 750,1;
+ mes "[Elin]";
+ mes "Yay! It's a Baphomet doll!";
+ next;
+ mes "[Elin]";
+ mes "Here's something for you too.";
+ getitem 525,5;
+ mes "[Elin]";
+ mes "Thank you for the doll!";
+ emotion 15;
+ close;
+
+ sM_8:
+ if(countitem(754) < 1) goto L_Liar;
+ delitem 754,1;
+ mes "[Elin]";
+ mes "Ah, it's a Smokie doll. I hate Smokies, but the doll's really cute! Thank you!";
+ emotion 33;
+ next;
+ mes "[Elin]";
+ mes "Let me give you some of Grandma's home-made cake!";
+ getitem 539,3;
+ next;
+ mes "[Elin]";
+ mes "They're really good so make sure you eat them ok.";
+ next;
+ mes "[Elin]";
+ mes "Thanks again for this cute doll!";
+ emotion 15;
+ close;
+
+ sM_9:
+ if(countitem(753) < 1) goto L_Liar;
+ delitem 753,1;
+ mes "[Elin]";
+ mes "WOW--!!! OH MY GOSH! It's a Yoyo doll! This is what I REALLY wanted!! It's SOOOO cute......";
+ emotion 14;
+ next;
+ mes "[Elin]";
+ mes "As a thank you, I'll give you this.";
+ getitem 608,1;
+ next;
+ mes "[Elin]";
+ mes "Dad picked them up during his travels. It's a seed of some kind.";
+ mes "We tried planting them at home, but it doesn't seem to grow.";
+ next;
+ mes "[Elin]";
+ mes "Anyway, thank you SOOO MUCH for the Yoyo doll!!!!";
+ emotion 15;
+ close;
+
+ sM_10:
+ mes "[Elin]";
+ mes "BLAAAAAAAAHHH!! Don't make fun of me cuz I'm young!";
+ emotion 32;
+ next;
+ mes "[Elin]";
+ mes "(mumbles) .....'stupid'.....";
+ close;
+
+ L_Liar:
+ mes "[Elin]";
+ mes "HEY!! You don't have any dolls... I can't believe you would lie to a little kid!!!";
+ emotion 0;
+ next;
+ mes "[Elin]";
+ mes "You're a MEANIE!! I HATE YOU!!!..... sniff... sniff.... Waaaaaaaaaaaaaaaaaaaahhhhhh!!";
+ emotion 28;
+ close;
+}
+
+
+//=======================================================================================================//
+// Boy's Cap' Quest
+//=======================================================================================================//
+alberta_in.gat,28,145,4 script Grampa 120,{
+ mes "[Grampa]";
+ mes "Gasp ..Gasp";
+ next;
+ mes "[Grampa]";
+ mes "When I look back on my younger days... I regret not making better use of my time...";
+ next;
+ mes "[Grampa]";
+ mes "Even so I STILL feel young at heart..... unfortunately my body is very old and is in poor condtion...... Cough !! Cough .. !!";
+ next;
+ if(countitem(1030) >= 10) menu "Talk.",M_Talk, "Show him Tiger's Footskin.",M_Show, "Cancel.",M_End;
+ menu "Talk",M_Talk, "Cancel",M_End;
+
+ M_Talk:
+ mes "[Grampa]";
+ mes "Listen to me..... You must take care of your body as best you can....";
+ mes "If you aren't serious about staying healthy now..... you will surely regret it as you get older.";
+ next;
+ mes "[Grampa]";
+ mes "I've tried to restore my body to its youthful, healthy state with all of the best herbs and medicines that money can buy....";
+ next;
+ mes "[Grampa]";
+ mes "Not only have none of them worked, but their emense cost have made me bankurpt!";
+ next;
+ mes "[Grampa]";
+ mes "I have all but given up on trying to restore my youth.... there IS still one last thing I have not yet tried.....";
+ next;
+ mes "[Grampa]";
+ mes "It is the ^3355FFTiger's Footskin^000000, the legendary king of rejuvination!!";
+ emotion 0;
+ next;
+ mes "[Grampa]";
+ mes "Have you heard of the Tiger's Footskin???.....";
+ emotion 1;
+ next;
+ mes "[Grampa]";
+ mes "Just by LOOKING at it, your white hair turns Black again! By SMELLING it, your reflexes become 10x faster!";
+ mes "And just a single TASTE can turn and 80 year old man.... INTO AN 18 BOY!!!!";
+ next;
+ mes "[Grampa]";
+ mes "It truely is amazing! Ah, if I could only get my hands on some Tiger's Footskin.... my wishes would at last come true.....";
+ next;
+ mes "[Grampa]";
+ mes "For whoever brings me ^5555FF10 Tiger's Footskins^000000, I would gladly give that person my precious ^3355FFBoys Cap^000000.";
+ close;
+
+ M_Show:
+ mes "[Grampa]";
+ mes "Ohhh !! Th-This is the... this is the legendary.... TIGERS FOOTSKIN!!";
+ next;
+ mes "[Grampa]";
+ mes "Just by LOOKING at it, your white hair turns Black again! By SMELLING it, your reflexes become 10x faster!";
+ mes "And just a single TASTE can turn and 80 year old man.... INTO AN 18 BOY!!!!";
+ next;
+ mes "[Grampa]";
+ mes "It is the real Tiger's Footskin !! In my wildest dreams I never thought...... P-P-Please.... I beg you.... let me have it.....";
+ next;
+ menu "-Give him the Tiger's Footskin.",-, "Walk away.", sM_End;
+
+ mes "[Grampa]";
+ if(countitem(1030) < 10) goto L_NoItems;
+ delitem 1030,10;
+ getitem 5016,1;
+ mes "T-Thank YOU!! Thank you SO VERY MUCH!!";
+ emotion 15;
+ next;
+ mes "[Grampa]";
+ mes "Now my body can be reinvigorated!!! I will eat it right away!";
+ close;
+
+ L_NoItems:
+ mes "Get off damn cheater!!!";
+ emotion e_bzz;
+ close;
+
+ sM_End:
+ mes "[Grampa]";
+ mes "H-He-Hey!! Young one!! W-Wa-it! Please.... come back... I beg you.... come... back.... ooohh... foot.... sk... i... n....";
+ close;
+
+ M_End:
+ mes "[Grampa]";
+ mes "Cough Cough !! .. Tiger ....Tiger's ..... Foot ..... skin .....Cough Cough !!";
+ close;
+
+
+}
+
+
+//=======================================================================================================//
+// Antlers Quest
+//=======================================================================================================//
+alberta_in.gat,122,53,4 script Cherokee 47,{
+ mes "[Cherokee]";
+ mes "Hey there, I am a Horn Collector. Sounds great, huh?";
+ next;
+ mes "[Cherokee]";
+ mes "What do you think about Animal horns? I think they are very valuable and are well worth collecting.";
+ mes "You can wear them on your head, or even decorate your house with them.";
+ next;
+ mes "[Cherokee]";
+ mes "You know.... there has been a particular horn that I have not been able to find. It is the ^5555FF'Evil Horn '^000000..";
+ next;
+ mes "[Cherokee]";
+ mes "Some say that an Evil Horn is really not an animal's horn, but one that comes from a Devil!";
+ mes "Even so, I really wish I could get my hands on one.";
+ next;
+ mes "[Cherokee]";
+ mes "Say.... do you have any ^5555FF'Evil Horns'^000000?";
+ mes "If you offer me ^5533FF20 Evil Horns^000000, I will give you my precious and famed, ^FF3355'Antlers'^000000. Is it a deal?";
+ next;
+ menu "You got it!",-, "Shut up Dumbo.",M_End;
+
+ mes "[Cherokee]";
+ if(countitem(923) < 20) goto L_NotEnuf;
+ delitem 923,20;
+ mes "Whoah~! This is the first time I've ever seen a real ^3355FF'Evil Horn'^000000!!";
+ emotion 5;
+ next;
+ mes "[Cherokee]";
+ mes "Thank you! Here are the Antlers just as I promised you!";
+ emotion 15;
+ getitem 2284,1;
+ next;
+ mes "[Cherokee]";
+ mes "With your great help I was finally able to realize my long time dream. I appreciate what you have done! God Bless You ..";
+ close;
+
+ L_NotEnuf:
+ mes "Hmm.... like I said, I need ^FF5533'20 Evil Horns'^000000.";
+ close;
+
+ M_End:
+ mes "[Cherokee]";
+ mes "Well aren't you a rude person.... I will forgive you however, seeing as we will meet again, I'm sure....";
+ close;
+}
+
+
+//=======================================================================================================//
+// Bao Bao, Cresent Hairpin, Fashionbale Glasses, Heart Hairpin
+//=======================================================================================================//
+alberta.gat,120,53,3 script Zic 51,{
+ mes "[Zic]";
+ mes "Yay! A cool breeze! That's why I love the sea!!";
+ emotion 2;
+ next;
+ mes "[Zic]";
+ mes "Huh?... Do you have any business with me? You came to me because I'm a merchant right?";
+ emotion 20;
+ next;
+ mes "[Zic]";
+ mes "~Sigh!~ I get tired of my reputation.... I can't get any peace or quite around here.....";
+ next;
+ mes "[Zic]";
+ mes "So what do you wanna get? Tell me, tell me! It's so easy to guess what you want.....";
+ next;
+ menu "-Bao Bao",-, "-Cresent Hairpin",M_1, "-Fashionable Glasses",M_2, "-Heart Hairpin",M_3;
+
+ mes "[Zic]";
+ mes "To make a Bao Bao I will need:"; //5042
+ mes "- ^5555FF1 Silk Ribbon^000000,"; //10007
+ mes "- ^5555FF50 Herioc Emblems^000000."; //968
+ next;
+ mes "[Zic]";
+ mes "Would you like me to make you one?";
+ next;
+ menu "Sure.",-, "No thanks.",M_End;
+
+ if (countitem(10007)<1 || countitem(968)<50) goto sL_NotEnuf;
+ delitem 10007, 1;
+ delitem 968, 50;
+ mes "[Zic]";
+ mes "Please wait while I make your Bao Bao......";
+ next;
+ mes "[Zic]";
+ mes "There you are, one Bao Bao. Enjoy.";
+ getitem 5042, 1;
+ close;
+ M_1:
+ mes "[Zic]";
+ mes "To make a Cresent Hairpin I will need:"; //5048
+ mes "- ^5555FF1 Heart Hair Pin^000000,"; //5041
+ mes "- ^5555FF10 Steel^000000."; //999
+ next;
+ mes "[Zic]";
+ mes "Would you like me to make you one?";
+ next;
+ menu "Sure.",-, "No thanks.",M_End;
+
+ if (countitem(5041)<1 || countitem(999)<10) goto sL_NotEnuf;
+ delitem 5041, 1;
+ delitem 999, 10;
+ mes "[Zic]";
+ mes "Please wait while I make your Cresent Hairpin......";
+ next;
+ mes "[Zic]";
+ mes "There you are, one Cresent Hairpin. Enjoy.";
+ getitem 5048, 1;
+ close;
+ M_2:
+ mes "[Zic]";
+ mes "To make a pair of Fashionable Glasses I will need:"; //5047
+ mes "- ^5555FF1 Jack a Dandy^000000,"; //2271
+ mes "- ^5555FF1 Scarlet Dyestuffs^000000."; //975
+ next;
+ mes "[Zic]";
+ mes "Would you like me to make you one?";
+ next;
+ menu "Sure.",-, "No thanks.",M_End;
+
+ if (countitem(2271)<1 || countitem(975)<1) goto sL_NotEnuf;
+ delitem 2271, 1;
+ delitem 975, 1;
+ mes "[Zic]";
+ mes "Please wait while I make your Fashionable Glasses......";
+ next;
+ mes "[Zic]";
+ mes "There you are, one Fashionable Glasses. Enjoy.";
+ getitem 5047, 1;
+ close;
+ M_3:
+ mes "[Zic]";
+ mes "Are you sure you want a simple item like this? Oh well... To make a Heart Hairpin I will need:"; //5041
+ mes "- ^5555FF1200 Coral Reefs^000000."; //7013
+ emotion 20;
+ next;
+ mes "[Zic]";
+ mes "Would you like me to make you one?";
+ next;
+ menu "Sure.",-, "No thanks.",M_End;
+
+ if (countitem(7013)<1200) goto sL_NotEnuf;
+ delitem 7013, 1200;
+ mes "[Zic]";
+ mes "Please wait while I make your Hear Hairpin......";
+ next;
+ mes "[Zic]";
+ mes "There you are, one Heart Hairpin. Enjoy.";
+ getitem 5041, 1;
+ close;
+
+ sL_NotEnuf:
+ mes "[Zic]";
+ mes "Hmm.... you don't have enough items for me to make it. Come back some other time.";
+ close;
+
+ M_End:
+ mes "[Zic]";
+ mes "See ya around.";
+ close;
+}
+
+
+//=======================================================================================================//
+// Hat of Sun God, Sunday Hat, Mage Hat, Magician Hat
+//=======================================================================================================//
+alberta.gat,135,79,3 script Tempestra 71,{
+ mes "[Tempestra]";
+ mes "Ah...... Such a cool breeze. It's good to be next to the sea. I think it was the right choice for me to take a break from my business and come here.";
+ emotion 2;
+ if(TEMPESTRA == 1) goto sM_Menu;
+ next;
+ mes "[Tempestra]";
+ mes "Oh the sun is so bright today. I'm glad I brought my hat. If my skin is exposed to the sun like this everyday, I'm sure to get a sunburn.";
+ next;
+ mes "[Tempestra]";
+ mes "Boy, the heat is making me thirsty. Nothing would be better right now, than sipping on a perfectly chilled yellow potion.....";
+ next;
+ menu "Here you go, my treat.",-, "Then go get one, sheesh....",M_1;
+
+ if(countitem(503) < 1) goto L_NoPot;
+ delitem 503, 1;
+ set TEMPESTRA, 1;
+ mes "[Tempestra]";
+ mes "Oooh! Thank you so much. I'm so glad to meet such a friendly person here....";
+ emotion 15;
+ next;
+ mes "[Tempestra]";
+ mes "(~gulp~gulp~)";
+ next;
+ mes "[Tempestra]";
+ mes "Hyaaaaaaa!! It's sooo cold!! Thank you.";
+ sM_Menu:
+ next;
+ menu "The weather is really hot, isn't it...",-, "You should wear a hat.",sM_1;
+
+ mes "[Tempestra]";
+ mes "Yes, it's very hot indeed.....";
+ next;
+ mes "[Tempestra]";
+ mes "Luckly I brought a lot of hats along. I have";
+ mes "a ^5555FF'Sunday Hat'^000000,";
+ mes "a ^5555FF'Mage Hat'^000000,";
+ mes "a ^5555FF'Magician Hat'^000000, and more in my room...";
+ next;
+ mes "[Tempestra]";
+ mes "I brought these hats with me so that I could sell them and use the money I made for my vacation expenses....";
+ mes "but now it looks like I'll have to wear one.....";
+ ssM_Menu:
+ next;
+ menu "Sunday Hat?",-, "Mage Hat?",ssM_0b, "Magician Hat?",ssM_0c, "End Conversation.",ssM_End;
+
+ mes "[Tempestra]";
+ mes "A Sunday Hat is made up of:";
+ mes "- ^5555FF250 Fabric^000000,";
+ mes "- ^5555FF1 Slotted Hat^000000,";
+ mes "- ^5555FF1 Slotted Cap^000000,";
+ mes "- ^5555FF600 Soft Feathers^000000.";
+ mes "If you want, I can make one for you. Just bring me all of those items.";
+ next;
+ menu "Make one for me.",-, "Cancel",ssM_End;
+
+ if (countitem(1059)<250 || countitem(2221)<1 || countitem(2227)<1 || countitem(7063)<600) goto ssM_Menu;
+ delitem 1059, 250;
+ delitem 2221, 1;
+ delitem 2227, 1;
+ delitem 7063, 600;
+ mes "[Tempestra]";
+ mes "Please wait just a moment while I make it........";
+ next;
+ getitem 5032, 1;
+ mes "[Tempestra]";
+ mes "All done... one Sunday Hat just for you. Thank you and come back any time.";
+ emotion 15;
+ close;
+ ssM_0b:
+ mes "[Tempestra]";
+ mes "A Mage Hat is made up of:";
+ mes "- ^5555FF1 Wizard Hat^000000,";
+ mes "- ^5555FF400 Dragon Scales^000000,";
+ mes "- ^5555FF50 Mould Powder^000000,";
+ mes "- ^5555FF1 Elder Wilow Card^000000.";
+ mes "If you want, I can make one for you. Just bring me all of those items.";
+ next;
+ menu "Make one for me.",-, "Cancel",ssM_End;
+
+ if (countitem(2252)<1 || countitem(1036)<400 || countitem(7001)<50 || countitem(4052)<1) goto ssM_Menu;
+ delitem 2252, 1;
+ delitem 1036, 400;
+ delitem 7001, 50;
+ delitem 4052, 1;
+ mes "[Tempestra]";
+ mes "Please wait just a moment while I make it........";
+ next;
+ getitem 5027, 1;
+ mes "[Tempestra]";
+ mes "All done... one Mage Hat just for you. Thank you and come back any time.";
+ emotion 15;
+ close;
+ ssM_0c:
+ mes "[Tempestra]";
+ mes "A Magician Hat is made up of:";
+ mes "- ^5555FF1 Wizard Hat^000000,";
+ mes "- ^5555FF450 Ancient Lips^000000,";
+ mes "- ^5555FF1200 Solid Shells^000000,";
+ mes "If you want, I can make one for you. Just bring me all of those items.";
+ next;
+ menu "Make one for me.",-, "Cancel",ssM_End;
+
+ if (countitem(2252)<1 || countitem(1054)<450 || countitem(943)<1200) goto ssM_Menu;
+ delitem 2252, 1;
+ delitem 1054, 450;
+ delitem 943, 1200;
+ mes "[Tempestra]";
+ mes "Please wait just a moment while I make it........";
+ next;
+ getitem 5045, 1;
+ mes "[Tempestra]";
+ mes "All done... one Magician just for you. Thank you and come back any time.";
+ emotion 15;
+ close;
+ ssM_End:
+ close;
+
+ sM_1:
+ mes "[Tempestra]";
+ mes "Oh but the hats I have are for sale.... if I use them for myself I won't be able to sell them to my customers.";
+ next;
+ mes "[Tempestra]";
+ mes "Because you gave me the potion, I would like to make something for you. Unfortuately I don't have any materials right now.";
+ next;
+ mes "[Tempestra]";
+ mes "Hmm... If you have:";
+ mes "^5555FF1 Amblem of the Sun God";
+ mes "10 Gold";
+ mes "40 Steel";
+ mes "50 Coal";
+ mes "and 2 Oridecon^000000..........";
+ next;
+ mes "[Tempestra]";
+ mes "I can make you a ^5555FF'Hat of the Sun God'^000000!! It's a fantastic piece of work! How's that sound?";
+ next;
+ menu "Alright.",-, "Not right now thanks.",ssM_1b;
+
+ if(countitem(7086)<1 || countitem(969)<10 || countitem(999)<40 || countitem(1003)<50 || countitem(984)<2) goto ssL_NotEnuf;
+ delitem 7086, 1;
+ delitem 969, 10;
+ delitem 999, 40;
+ delitem 1003, 50;
+ delitem 984, 2;
+ mes "[Tempestra]";
+ mes "Please wait just a moment while I make it........";
+ next;
+ getitem 5022, 1;
+ mes "[Tempestra]";
+ mes "All done... one Hat of the Sun God just for you. Thank you again for the potion, and please come back any time.";
+ emotion 15;
+ close;
+
+ ssL_NotEnuf:
+ mes "[Tempestra]";
+ mes "Um.... where are those items exactly???";
+ emotion 20;
+ close;
+ ssM_1b:
+ mes "[Tempestra]";
+ mes "Come back anytime when you've changed your mind.";
+ close;
+
+ L_NoPot:
+ mes "[Tempestra]";
+ mes "Umm... excuse me but.... where is the potion??";
+ emotion 20;
+ close;
+
+ M_1:
+ mes "[Tempestra]";
+ mes "..... How RUDE!!";
+ emotion 0;
+ close;
+}
diff --git a/npc/quests/quests_aldebaran.txt b/npc/quests/quests_aldebaran.txt new file mode 100644 index 000000000..95f6dcca0 --- /dev/null +++ b/npc/quests/quests_aldebaran.txt @@ -0,0 +1,92 @@ +//===== eAthena Script =======================================
+//= Item Quest NPCs located in Aldebaran
+//===== By: ==================================================
+//=
+//===== Current Version: =====================================
+//= 1.1
+//===== Compatible With: =====================================
+//= eAthena 7.15 +
+//===== Description: =========================================
+//= 'Doctor Band', 'Feather Bonnet', 'Opera Masque', 'Sakkat Hat' Quests.
+//===== Additional Comments: =================================
+//= Fully working
+//= 1.1 Fixed Doctor Band items [Lupus]
+//============================================================
+
+
+//=======================================================================================================//
+// 'Doctor Band', 'Feather Bonnet', 'Opera Masque', 'Sakkat Hat' Quest
+//=======================================================================================================//
+aldeba_in.gat,152,166,4 script Trader 86,{
+ mes "[Trader]";
+ mes "Muhahaha! I am the Very Famous Enigmatic Dealer! I am always hustling and bustling in and out of Rune Midgard!";
+ mes "Take a look at my RARE and UNIQUE items from ALL OVER the WORLD!!";
+ next;
+ mes "(1) · ^3355FFDoctor Band^000000 :";
+ mes "^FF55331 Red Bandana + 50 Iron + 1 Cracked Diamond + 3500 Zeny^000000.";
+ mes "(2) · ^3355FFFeather Bonnet^000000 :";
+ mes "^FF55331 Romantic Gent + 300 Feather of Birds + 500 Zeny^000000.";
+ mes "(3) · ^3355FFOpera Masque^000000 :";
+ mes "^FF553320 Iron + 1 Singing Plant + 5000 Zeny^000000.";
+ mes "(4) · ^3355FFSakkat Hat^000000 :";
+ mes "^FF5533120 Trunk + 10000 Zeny^000000.";
+ next;
+ menu "Doctor Band",-, "Feather Bonnet",M_1, "Opera Masque",M_2, "Sakkat",M_3;
+
+ mes "[Trader]";
+ if(countitem(2275) == 0 || countitem(998) < 50 || countitem(733) == 0 || Zeny < 3500) goto L_CantMake;
+ delitem 2275,1;//Items: Red Bandana,
+ delitem 998,50;//Items: Iron,
+ delitem 733,1;//Items: Cracked deamond
+ set Zeny,Zeny - 3500;
+ mes "Hmm.... Do you have a.... MEDICAL LICENSE?!";
+ emotion 1;
+ next;
+ mes "[Trader]";
+ mes "I've heard about a well-known unlicensed physician 'Cuwaki'... I hope you don't get caught....";
+ mes "Anyways it's your own buisness what you do... Take this.";
+ getitem 2273,1;//Items: Doctor Band,
+ close;
+ M_1:
+ mes "[Trader]";
+ if(countitem(2247) == 0 || countitem(916) < 300 || Zeny < 500) goto L_CantMake;//Items: Romantic Gent, Feather of Birds,
+ delitem 2247,1;//Items: Romantic Gent,
+ delitem 916,300;//Items: Feather of Birds,
+ set Zeny,Zeny - 500;
+ mes "Umhahaha. You have good fashion sense. I know you had a hard time collecting these items, but this bonnet is definately worth it. Take it.";
+ emotion 18;
+ getitem 5018,1;//Items: Feather Bonnet,
+ close;
+ M_2:
+ mes "[Trader]";
+ if(countitem(998) < 20 || countitem(707) == 0 || Zeny < 5000) goto L_CantMake;//Items: Iron, Singing Plant,
+ delitem 998,20;//Items: Iron,
+ delitem 707,1;//Items: Singing Plant,
+ set Zeny,Zeny - 5000;
+ mes "This is a pretty nice item. A little bit creepy looking though.... I think it gives off some kinda weird vibe. What do you think?";
+ next;
+ mes "[Trader]";
+ mes ".. You like it ..Alright.. Take it!";
+ getitem 2281,1;//Items: Opera Masque,
+ close;
+ M_3:
+ mes "[Trader]";
+ if(countitem(1019) < 120 || Zeny < 10000) goto L_CantMake;//Items: Trunk,
+ delitem 1019,120;//Items: Trunk,
+ set Zeny,Zeny - 10000;
+ mes "If you have a chance to visit the Village of Payon, please go meet the Sakkat Craftsman.";
+ mes "He's never sold a Sakkat to any other dealer but to me.";
+ next;
+ mes "[Trader]";
+ mes "Because only I can recognize a Sakkat hats' quality. Due to the fact that it's so rare, the Sakkat Hat has become a very popular item!";
+ next;
+ mes "[Trader]";
+ mes "OK! Take it!";
+ getitem 2280,1;//Items: Sakkat,
+ close;
+
+ L_CantMake:
+ mes "You, fool! Check the requirements again..... you're not some kinda idiot are you? C'mon..... give me a break.";
+ emotion 6;
+ close;
+}
diff --git a/npc/quests/quests_ayothaya.txt b/npc/quests/quests_ayothaya.txt new file mode 100644 index 000000000..bd749c177 --- /dev/null +++ b/npc/quests/quests_ayothaya.txt @@ -0,0 +1,320 @@ +//===== Athena Script =======================================
+//= Ayothaya Quests
+//===== By ================================================
+//= Fredzilla
+//===== Version ===========================================
+//= 1.4
+//===== Compatible With ===================================
+//= eAthena 1.0
+//===== Description =======================================
+//= 1 Quests with 2 parts for Ayothaya
+//===== Comments ==========================================
+//= List or Variables used
+//= @fishing - Checks for if you have caught a fish or not,
+//= 1/10 chance you will get the wedding ring if
+//= you have started that quest.
+//= weddingring - Signifies the start of the wedding ring
+//= quest, and used throughout to keep track of
+//= progress.
+//= recoveredring - Signifies you have retrieved the ring
+//= and therefore can't just drop the ring and
+//= get the same quest again.
+//= 1.0 - First Release, made with infomation from RagnaInfo
+//= 1.1 - added anti-novice protection [Lupus]
+//= 1.3 - Fixed exploit [Lupus]
+//= 1.4 Updated, more close to the official. Thanks to birkiczd
+//= Also optimized it again, remove unused global variable [Lupus]
+//=========================================================
+
+ayo_dun02.gat,277,178,1 script OBB 139,4,4,{
+ if(AyoOBB==1 || weddingring!=3) end;
+ mes "["+strcharinfo(0)+"]";
+ mes "Huh what is this?, not foot prints, this is an Old Blue coloured Box";
+ next;
+ set AyoOBB,1;
+ getitem 603,1;
+ logmes "Q_AYOTH1: got OBB";
+ mes "["+strcharinfo(0)+"]";
+ mes "I think I will keep it";
+ close;
+}
+//Dungeon 1 foot prints x 5
+ayo_dun01.gat,30,149,1 script Clue 139,5,5,{
+ if(weddingring!=3) end;
+ npctalk "There are some foot prints here, they head off to the East.";
+ set @footprints1,1;
+ close;
+}
+ayo_dun01.gat,70,149,1 script Clue 139,5,5,{
+ if(weddingring!=3) end;
+ npctalk "There are some more foot prints, they are heading off to the East too!";
+ set @footprints2,1;
+ close;
+}
+ayo_dun01.gat,100,149,1 script Clue 139,5,5,{
+ if(weddingring!=3) end;
+ npctalk "More foot prints heading to the East, who do they belong too?";
+ set @footprints3,1;
+ close;
+}
+ayo_dun01.gat,190,149,1 script Clue 139,5,5,{
+ if(weddingring!=3) end;
+ npctalk "More foot prints, but these are going North.";
+ set @footprints4,1;
+ close;
+}
+ayo_dun01.gat,261,263,1 script Clue 139,5,5,{
+ if(weddingring!=3) end;
+ npctalk "There are some foot prints, they seem to head into that hole there.";
+ set @footprints5,1;
+ close;
+}
+
+//Dungeon 2 foot prints x 4 + 1 fake
+ayo_dun02.gat,222,204,1 script Clue 139,5,5,{
+ if(weddingring!=3) end;
+ npctalk "Yet more foot prints, they are either going South or West.";
+ set @footprints6,1;
+ close;
+}
+ayo_dun02.gat,169,212,1 script Clue 139,5,5,{
+ if(weddingring!=3) end;
+ npctalk "Looks like there are foot print going to the West.";
+ set @footprints7,1;
+ close;
+}
+ayo_dun02.gat,129,212,1 script Clue 139,5,5,{
+ if(weddingring!=3) end;
+ npctalk "Ok these foot prints are either going to the North or West.";
+ set @footprints8,1;
+ close;
+}
+ayo_dun02.gat,79,212,1 script Clue 139,7,7,{
+ if(weddingring!=3) end;
+ npctalk "These are very new, they are going North.";
+ set @footprints9,1;
+ close;
+}
+//FAKE
+ayo_dun02.gat,245,166,1 script Clue 139,7,7,{
+ if(weddingring!=3) end;
+ npctalk "Seems something came by this way, to the East.";
+ close;
+}
+
+ayothaya.gat,233,105,7 script Shuda 838,{
+ mes "[Shuda]";
+ if(BaseLevel<50) {
+ mes "Where is my ring!?!";
+ close;
+ }
+ if(weddingring==2) goto L_Quest2;
+ if(weddingring==3) goto L_OnQ2;
+ if(weddingring==4) goto L_QuestComplete;
+ if(weddingring==5) goto L_QuestOver;
+ if(countitem(7288)>=1) goto L_RingFound;
+ mes "Oh please wont you help me, my partner has gone missing, but not before droping our ^FF0000Engagement Ring^000000 maybe there is a way of ^0000FFfishing^000000 it out of the sea.";
+ set weddingring,1;
+ close;
+L_RingFound:
+ mes "Oh is that my ring!?!";
+ next;
+ mes "[Shuda]";
+ mes "Can I please have it back?";
+ next;
+ menu "Yes, here you go",N_Yes,"No, I found it, it's mine",-;
+ mes "[Shuda]";
+ mes "Think what you want, but that ring is mine, and without it I can never marry my true love.";
+ mes "";
+ mes "Where ever he may be.";
+ close;
+N_Yes:
+ mes "[Shuda]";
+ if(countitem(7288)<1) {
+ mes "Go away, cheater!";
+ close;
+ }
+ delitem 7288,1;
+ mes "Thank you so much, now I have this back maybe my partner will return.";
+ set weddingring,2;
+ next;
+ mes "[Shuda]";
+ mes "Come back to me when you have time, I need you to do something else for me.";
+ close;
+L_Quest2:
+ mes "It seems even though I have my ring back my partner ^FF0000Annon^000000 doesn't seem to want to come back to me";
+ mes "Maybe he has gotten lost somewhere";
+ mes "";
+ mes "Will you please go and look for him";
+ next;
+ menu "Yes, I would be glad to",L_YesQ2,"No, he will come back on his own",-;
+ mes "[Shuda]";
+ mes "Well he might, but I still need someone to find him, I am afraid something might have happened to him.";
+ close;
+L_YesQ2:
+ set weddingring,3;
+ mes "[Shuda]";
+ mes "Oh thank you so much, I think someone in the town might have seen where he went, maybe he can give you a clue";
+ close;
+L_OnQ2:
+ mes "Have you been able to find my love yet?";
+ mes " ";
+ mes "Please hurry.";
+ mes "*tear*";
+ close;
+L_QuestComplete:
+ mes "You have found him ?!?";
+ mes "Then where is he???";
+ next;
+ mes "You explain the situation.";
+ next;
+ mes "[Shuda]";
+ mes "Well, I thought he was my one.";
+ mes "I don't think I will ever find another like him.";
+ mes "*tear*";
+ next;
+ set weddingring,5;
+ mes "[Shuda]";
+ mes "I can understand, but why not come and talk to me about it, we might have been able to talk it out.";
+ close;
+L_QuestOver:
+ mes "Nice to see you again "+strcharinfo(0)+". How have you been?";
+ close;
+}
+
+ayothaya.gat,253,99,3 script Fisherman 843,{
+ mes "[Dannai]";
+ mes "This place is known to be teeming with fish. The fish here tend to eat anything they find, so it's easy to catch them.";
+ next;
+ mes "[Dannai]";
+ mes "We are providing a fishing rod rental service. Every time you fish, you'll need ^4466771 Monster's Food^000000 to use as bait, and pay a rod rental fee of ^44667750 Zeny^000000.";
+ next;
+ mes "[Dannai]";
+ mes "Would you";
+ mes "like to try?";
+ next;
+ menu "Yes",-,"No",L_No;
+ if(countitem(528) < 1 || zeny < 50) goto L_Fail;
+ delitem 528,1;
+ set zeny,zeny-50;
+ mes "[Fisher Man]";
+ mes "Ok give it a good swing.";
+ mes "Lets see if you got anything.";
+ next;
+ set @fishing, rand(1,10);
+ mes "[Fisher Man]";
+ if(@fishing<5) goto L_Nothing;
+ if(@fishing<10) goto L_Fish;
+ if(@fishing==10) goto L_RingCheck;
+L_No:
+ mes "[Dannai]";
+ mes "Come back anytime.";
+ close;
+L_Fail:
+ mes "[Dannai]";
+ mes "Seems you don't have what I need";
+ mes "Come back when you have some Monster Feed, and 50 zeny.";
+ close;
+L_Nothing:
+ mes "Sorry it seems like you didn't get anything, try again anytime.";
+ close;
+L_Fish:
+ getitem 544,1;
+ mes "Look at this you got yourself a fish, well done.";
+ close;
+L_RingCheck:
+ if(weddingring!=1 || recoveredring==1) goto L_Fish;
+ mes "What is this, some sort of ring!!!";
+ mes "Well I guess since you fished it out you can keep it";
+ next;
+ getitem 7288,1;
+ mes "[Fisher Man]";
+ mes "Come back anytime";
+ set weddingring,0;
+ set recoveredring,1;
+ close;
+}
+
+ayothaya.gat,192,171,4 script Old Man 824,{
+ mes "[Tham]";
+ if(weddingring==3) goto L_OnQ2;
+ mes "What a nice day it is today, don't you agree?";
+ close;
+L_OnQ2:
+ mes "What! Annon is missing, I only saw him a few minutes ago.";
+ next;
+ mes "[Tham]";
+ mes "He was heading for Ayothaya's dungeon, I thought this kind of odd, and now you say he hasn't come back?!?";
+ mes "I think you should follow him in there, just in case something has happened to him";
+ next;
+ mes "[Tham]";
+ mes "Maybe he has left something inside the dungeon, something that can lead you to him";
+ mes "But thats just me";
+ next;
+ mes "[Tham]";
+ mes "You can get to the dungeon through the old temple, it is one map to the right of here, and down the hill.";
+ close;
+}
+
+ayo_dun02.gat,91,264,4 script Guy 822,{
+ if(weddingring==4) goto L_QuestComplete;
+ if(weddingring==5) goto L_TalkedShuda;
+ if(weddingring==3 && @footprints1==1 && @footprints2==1 && @footprints3==1 && @footprints4==1 && @footprints5==1 && @footprints6==1 && @footprints7==1 && @footprints8==1 && @footprints9==1) goto L_Groom;
+ mes "[Guy]";
+ mes "She won't find me here,she won't...";
+ close;
+L_Groom:
+
+ mes "[Annon]";
+ mes "Help me please...";
+ next;
+ mes "["+strcharinfo(0)+"]";
+ mes "^He seems to be injured very bad...";
+ next;
+ menu "Treat his wounds",-,"Leave him alone",L_Go;
+ if(countitem(504) < 1) goto L_Need;
+ delitem 504,1;
+ mes "[Annon]";
+ mes "Who are you";
+ mes "Have you been sent to follow me?";
+ next;
+ mes "[Annon]";
+ mes "So I see now, my ex-partner has sent you to see if I'm OK.";
+ mes " ";
+ mes "Can you go and tell her I'm ok, but I cant go through with the marriage.";
+ next;
+ mes "[Annon]";
+ mes "I cant really give a reason, just tell her that I love her, but not enough to spend the rest of my life with her.";
+ next;
+ mes "[Annon]";
+ mes "I hope she will understand.";
+ mes " ";
+ mes "I guess you will want something in return.";
+ next;
+ mes "[Annon]";
+ mes "I can train you, and make you gain some exp.";
+ mes " ";
+ mes "I will do this now.";
+ next;
+ set BaseExp,BaseExp+100000;
+ set weddingring,4;
+ mes "[Annon]";
+ mes "It is done, please make you way back to Shuda, and please try not to make her cry";
+ close;
+L_Need:
+ mes "["+strcharinfo(0)+"]";
+ mes "I need a White potion to be able to cure him.";
+ close;
+L_Go:
+ mes "["+strcharinfo(0)+"]";
+ mes "Someone else will probably find him.I have other things to do.";
+ close;
+L_QuestComplete:
+ mes "[Annon]";
+ mes "Have you seen Shuda yet?";
+ close;
+L_TalkedShuda:
+ mes "[Annon]";
+ mes "Did she take it OK?";
+ close;
+}
\ No newline at end of file diff --git a/npc/quests/quests_comodo.txt b/npc/quests/quests_comodo.txt new file mode 100644 index 000000000..31f542856 --- /dev/null +++ b/npc/quests/quests_comodo.txt @@ -0,0 +1,277 @@ +//===== eAthena Script =======================================
+//= Item Quest NPCs located in Comodo
+//===== By: ==================================================
+//= kobra_k88
+//===== Current Version: =====================================
+//= 1.1
+//===== Compatible With: =====================================
+//= eAthena 7.15 +
+//===== Description: =========================================
+//= 'Cross Hat', 'Bulb Hairband', 'Striped Hairband', 'Blue Hairband' Quests.
+//= 'Mine Helmet', 'Parcel Hat', 'Money Loser's Grief',
+//= 'Phantom of the Opera Mask' Quests.
+//===== Additional Comments: =================================
+//= 1.1 Fixed exploits [Lupus]
+//============================================================
+
+
+
+//============================================================================================//
+// Hair Ornament Girl
+//============================================================================================//
+// Cross Hat, Bulb Hairband, Striped Hairband, Blue Hairband
+//==================================================
+comodo.gat,227,158,4 script Hair Ornament Girl 700,{
+ mes "[Hair Ornament Girl]";
+ if(sex==1)mes "Oh, hi. Do you need to buy a present for a friend, your mother, or maybe your girl friend? Then get her a Hair Band! It's the best gift you can get her.";
+ if(sex==0)mes "Oh, hi. Do you need to buy a present for a friend, your mother, or maybe yourself? Then get a Hair Band! It's the best gift you can give, or get.";
+ next;
+ mes "[Hair Ornament Girl]";
+ mes "Just by bringing me a few simple items, I can make you a gorgeous Hair Band! Here, take a look at these....";
+M_Menu:
+ next;
+ menu "-Crosss Hat Hairband",-, "-Bulb Hairband",M_Bulb, "-Striped Hairband",M_Striped, "-Blue Hairband",M_Blue, "-End Conversation",M_End;
+
+ set @BAND$, "Cross Hat Hairband";
+ set @ITEMS$, " ^5555FF1 Rosary^000000 and ^5555FF500 Destroyed Armors^000000.";
+ if(countitem(2608)>=1 && countitem(7069)>=500) set @GETBAND, 1;
+ goto sL_0;
+
+ M_Bulb:
+ set @BAND$, "Bulb Hairband";
+ set @ITEMS$, "^5555FF1 Slotted Circlet^000000 and ^5555FF20 Glass Beads^000000.";
+ if(countitem(2233)>=1 && countitem(746)>=20) set @GETBAND, 2;
+ goto sL_0;
+
+ M_Striped:
+ set @BAND$, "Striped Hairband";
+ set @ITEMS$, "^5555FF1500 Worn-out Prison Uniforms^000000.";
+ if(countitem(1099)>=1500) set @GETBAND, 3;
+ goto sL_0;
+
+ M_Blue:
+ set @BAND$, "Blue Hairband";
+ set @ITEMS$, "^5555FF1 Bandana^000000, ^5555FF1 Cobaltblue Dyestuffs^000000, and ^5555FF300 Anolian Skins^000000.";
+ if(countitem(2211)>=1 && countitem(978)>=1 && countitem(7003)>=300) set @GETBAND, 4;
+
+ sL_0:
+ mes "[Hair Ornament Girl]";
+ mes "So you're interested in the "+@BAND$+" huh? Here are the items you'll need for the "+@BAND$+":";
+ mes @ITEMS$;
+ next;
+ if(@GETBAND > 0) goto sL_GetBand;
+
+ mes "[Hair Ornament Girl]";
+ mes "Bring me all of these items and I will be able to make you a "+@BAND$+".";
+ goto M_Menu;
+
+ sL_GetBand:
+ mes "[Hair Ornament Girl]";
+ mes "I see that you have enough items for a "+@BAND$+". Would you like me to make you one?";
+ next;
+ menu "Yes, I would.",-, "No thank you.",M_End;
+
+ if(@GETBAND == 1) goto ssL_Cross;
+ if(@GETBAND == 2) goto ssL_Bulb;
+ if(@GETBAND == 3) goto ssL_Striped;
+ if(@GETBAND == 4) goto ssL_Blue;
+
+ ssL_Cross:
+ if(countitem(2608)<1 || countitem(7069)<500) goto L_Cheater;
+ delitem 2608,1;
+ delitem 7069,500;
+ getitem 5036,1;
+ goto ssL_End;
+ ssL_Bulb:
+ if(countitem(2233)<1 || countitem(746)<20) goto L_Cheater;
+ delitem 2233,1;
+ delitem 746,20;
+ getitem 5034,1;
+ goto ssL_End;
+ ssL_Striped:
+ if(countitem(1099)<1500) goto L_Cheater;
+ delitem 1099,1500;
+ getitem 5049,1;
+ goto ssL_End;
+ ssL_Blue:
+ if(countitem(2211)<1 || countitem(978)<1 || countitem(7003)<300) goto L_Cheater;
+ delitem 2211,1;
+ delitem 978,1;
+ delitem 7003,300;
+ getitem 5052,1;
+ ssL_End:
+ mes "[Hair Ornament Girl]";
+ mes "Here is your "+@BAND$+". Thank you.";
+ set @GETBAND, 0;
+ close;
+ L_Cheater:
+ mes "[Hair Ornament Girl]";
+ mes "Ooops... Where are these items?";
+ close;
+
+ M_End:
+ mes "[Hair Ornament Girl]";
+ mes "Hope to see you again soon.";
+ close;
+}
+
+
+//===================================================================================================//
+// Mari Isac
+//===================================================================================================//
+// 'Mine Helmet', 'Parcel Hat', 'Money Loser's Grief', 'Phantom of the Opera Mask'
+//===============================================================//
+comodo.gat,274,137,5 script Mari Isac 702,{
+ mes "[Mari Isac]";
+ mes "I travel all over the world and get to hear many interesting stories from the people I meet.";
+ mes "Sometimes they even teach me how to make special items";
+ next;
+ mes "[Mari Isac]";
+ mes "Would you be interested in some of the items I've learned to make?";
+M_Menu:
+ next;
+ menu "Tell me about them.",M_0, "Make me one.",M_1;
+
+ M_0:
+ menu "-Mine Helmet",-, "-Parcel Hat",sM_Parcel, "-Money Loser's Grief",sM_Money, "-Phantom of the Opera Mask",sM_Phantom;
+
+ mes "[Mari Isac]";
+ mes "I learned how to make the Mine Helmet when I traveled to the old coal mines near Geffen.";
+ next;
+ mes "[Mari Isac]";
+ mes "The 2 most important things a miner needs are light, and head protection.";
+ mes "A very inventive miner was able to create something that dealt with both issues.";
+ next;
+ mes "[Mari Isac]";
+ mes "He attached a light to his safety helmet and called it a Mine Helmet.";
+ mes "This meant that miners no longer had to worry about carrying around lamps and could work more efficiently.";
+ next;
+ mes "[Mari Isac]";
+ mes "Anyways, if you want me to make you a Mine Helmet you'll need to bring me these items:";
+ mes "^5555FF1 Safety Helmet^000000,";
+ mes "^5555FF1 Candle^000000,";
+ mes "^5555FF1 Crystal Mirror^000000,";
+ mes "^5555FF25 Steel^000000.";
+ next;
+ goto M_0;
+ sM_Parcel:
+ mes "[Mari Isac]";
+ mes "I learned how to make the Parcel Hat when I traveled to Alberta. There they have a unique way of distributing mail and goods.";
+ next;
+ mes "[Mari Isac]";
+ mes "Instead of using a pouch or a sack to carry items for delivery, they use a special kind of hat, called a Parcel Hat.";
+ mes "This hat allows the delivery personel to carry numerous items on their heads. Of course they have to have good balance to use it.";
+ next;
+ mes "[Mari Isac]";
+ mes "Anyways, if you want me to make you a Parcel Hat, you'll need to bring me these items.";
+ mes "^5555FF150 Fabric^000000,";
+ mes "^5555FF100 Resin^000000,";
+ mes "^5555FF1 Cobaltblue Dyestuffs^000000.";
+ next;
+ goto M_0;
+ sM_Money:
+ mes "[Mari Isac]";
+ mes "I learned how to make the Money Loser's Grief when I traveled to Morroc.";
+ next;
+ mes "[Mari Isac]";
+ mes "A long time ago an honest merchant got into a conflict with a crooked guild.";
+ mes "Unlike the dirty guild, the merchant did not scam or cheat people.";
+ next;
+ mes "[Mari Isac]";
+ mes "Because of this they attacked the merchants shop and took all of his goods.";
+ next;
+ mes "[Mari Isac]";
+ mes "The merchant was devastated by the loss of his shop.";
+ mes "In his sadness he used the bits and pieces that were left from his shop to create a new item.";
+ next;
+ mes "[Mari Isac]";
+ mes "He created the Money Loser's Grief, a symbol of his great sadness. When people see it, they can't help but feel sympathetic to the wearer.";
+ next;
+ mes "[Mari Isac]";
+ mes "Many merchants now wear it to help themselves get more business. Of course it is also a reminder of the honest merchants sad tale.";
+ next;
+ mes "[Mari Isac]";
+ mes "Anyways, if you want me to make you a Money Losers Grief, you'll need to bring me these items.";
+ mes "^5555FF1 Circlet with a single slott^000000,";
+ mes "^5555FF1 Gold^000000,";
+ mes "^5555FF20 Steel^000000,";
+ mes "^5555FF80 Feathers^000000,";
+ mes "^5555FF800 Sticky Mucus^000000.";
+ next;
+ goto M_0;
+ sM_Phantom:
+ mes "[Mari Isac]";
+ mes "I learned how to make the Phantom of the Opera Mask when I traveled to Al De Baran.";
+ mes "The story behind this item is that of a man's pure love........";
+ next;
+ mes "[Mari Isac]";
+ mes "There once was a man who was in love with a beautiful opera singer.";
+ mes "Unfortunately the man had a terribly disfigured face which forced to him to wear a mask.";
+ next;
+ mes "[Mari Isac]";
+ mes "He was ashamed of his appearance and could never bring himself to face the singer.";
+ mes "The man instead, watched her from a far, admiring every nuance of her beauty and grace.";
+ next;
+ mes "[Mari Isac]";
+ mes "He lurked in the bowles of the opera house and from time to time he would sing his sad love song.";
+ mes "Many people heard it and believed that there was a phantom haunting the opera house.";
+ next;
+ mes "[Mari Isac]";
+ mes "The singer also heard his song, and through it she was able to feel his pain and his love for her.";
+ mes "The two eventually met, and when they did she was able to look past his appereance and accept him for who he was.";
+ next;
+ mes "[Mari Isac]";
+ mes "Too this day, the tale of the masked 'phantom' is still romantacised.";
+ next;
+ mes "[Mari Isac]";
+ mes "Anyways, if you want me to make you a Phantom of the Opera Mask, you'll need to bring me these items.";
+ mes "^5555FF1 Opera Masque^000000,";
+ mes "^5555FF50 Horrendous Hairs^000000.";
+ goto M_0;
+
+ M_1:
+ menu "-Mine Helmet",-, "-Parcel Hat",sM_MakePar, "-Money Loser's Grief",sM_MakeMon, "-Phantom of the Opera Mask",sM_MakePhan;
+
+ if(countitem(5009)<1 || countitem(5028)<1 || countitem(747)<1 || countitem(999)<25) goto ssL_NoItems;
+ delitem 5009, 1;
+ delitem 5028, 1;
+ delitem 747, 1;
+ delitem 999, 25;
+ mes "[Mari Isac]";
+ mes "Here you go. Enjoy your Mine Helmet!";
+ getitem 5031,1;
+ close;
+ sM_MakePar:
+ if(countitem(1059)<150 || countitem(907)<100 || countitem(978)<1) goto ssL_NoItems;
+ delitem 1059, 150;
+ delitem 907, 100;
+ delitem 978, 1;
+ mes "[Mari Isac]";
+ mes "Here you go. Enjoy your Parcel Hat!";
+ getitem 5023,1;
+ close;
+ sM_MakeMon:
+ if(countitem(2233)<1 || countitem(969)<1 || countitem(999)<20 || countitem(949)<80 || countitem(938)<800) goto ssL_NoItems;
+ delitem 2233, 1;
+ delitem 969, 1;
+ delitem 999, 20;
+ delitem 949, 80;
+ delitem 938, 800;
+ mes "[Mari Isac]";
+ mes "Here you go. Enjoy your Money Loser's Grief!";
+ getitem 5021,1;
+ close;
+ sM_MakePhan:
+ if(countitem(2281)<1 || countitem(1048)<50) goto ssL_NoItems;
+ delitem 2281,1;
+ delitem 1048, 50;
+ mes "[Mari Isac]";
+ mes "Here you go. Enjoy your Phantom of the Opera Mask!";
+ getitem 5043, 1;
+ close;
+
+ ssL_NoItems:
+ mes "[Mari Isac]";
+ mes "You don't seem to have enough items for me to make that hat. Please come back when you do.";
+ close;
+}
diff --git a/npc/quests/quests_geffen.txt b/npc/quests/quests_geffen.txt new file mode 100644 index 000000000..fa5310926 --- /dev/null +++ b/npc/quests/quests_geffen.txt @@ -0,0 +1,183 @@ +//===== eAthena Script =======================================
+//= Item Quest NPCs located in Geffen
+//===== By: ==================================================
+//= kobra_k88
+//===== Current Version: =====================================
+//= 1.1
+//===== Compatible With: =====================================
+//= eAthena 7.15 +
+//===== Description: =========================================
+//= Welding Mask and Headset Quests.
+//===== Additional Comments: =================================
+//= 1.1 Fixed exploits [Lupus]
+//============================================================
+
+
+
+//==============================================================================================//
+// Blacksmith: 'Welding Mask' Quest
+//==============================================================================================//
+geffen_in.gat,144,166,4 script Blacksmith 63,{
+ mes "[Blacksmith]";
+ mes "Who am I?!........";
+ emotion 0;
+ next;
+ mes "[Blacksmith]";
+ mes "Iam the one and only Veteran Blacksmith here!! Haven't you heard???";
+ mes "I've been working for 30 years in this hot, bloody, Hellfire!";
+ emotion 21;
+ next;
+ mes "[Blacksmith]";
+ mes "Since I became a Blacksmith, I invented something really incredible..... wanna hear about it?";
+ next;
+ menu "I'd love to.",-, "Well, not really....",M_No;
+
+ mes "[Blacksmith]";
+ mes "Blacksmiths are always welding metals under the HOTEST and must grueling conditions!";
+ mes "The tremendous heat from the metals is so intense that it almost feels as if your face is going to burn off....";
+ emotion 23;
+ next;
+ mes "[Blacksmith]";
+ mes "But with my great invention, Blacksmiths no longer have to fear their faces catching on fire! I call it the ^3355FF' Welding Mask'^000000!!";
+ emotion 5;
+ next;
+ mes "[Blacksmith]";
+ mes "By wearing this over ones face, one will be fully protected from scorching heat and flying debirs.";
+ next;
+ mes "[Blacksmith]";
+ mes "So what do you think? For ^4455FF'50 Steels'^000000 and only ^4455FF2000 Zeny^000000, I can make you one.";
+ next;
+ menu "Hm.. Not bad. Alright.",-, "No thanks. I'd have no use for it.",sM_No;
+
+ mes "[Blacksmith]";
+ if(countitem(999) < 50 || Zeny < 2000) goto sL_NotEnuf;
+ delitem 999,50;
+ set Zeny, Zeny - 2000;
+ mes "Great! I'll make one right away.......";
+ next;
+ mes "~!clonk!~!clank!~!bang!~ ~!clonk!~!clank!~!bang!~";
+ next;
+ mes "[Blacksmith]";
+ mes "Here you are, your very own Welding Mask! It was a pleasure doing buisness with you!";
+ getitem 2292,1;
+ close;
+
+ sL_NotEnuf:
+ mes "Listen here.... I said I needed ^4455FF'50 Steels'^000000 and ^4455FF2000 Zeny^000000 to make you a Welding Mask.";
+ emotion 4;
+ close;
+
+ sM_No:
+ mes "[Blacksmith]";
+ mes "Oh man... Your gonna regret not getting one. Trust me sooner or later you're gonna need a ^5555FFWelding Mask^000000.";
+ mes "Everybody does.....";
+ close;
+
+ M_No:
+ mes "[Blacksmith]";
+ mes "Well then, stop wasting my time!";
+ emotion 32;
+ close;
+}
+
+
+//=============================================================================================//
+// Eric: Headset Quest
+//=============================================================================================//
+geffen_in.gat,30,71,4 script Eric 83,{
+ mes "[Eric]";
+ mes "Please listen to the story of my blessed grand father...";
+ emotion 28;
+ next;
+ menu "Listen.",-, "Ask about Items needed.",M_Ask, "Make.",M_Make, "End Conversation.",M_End;
+
+ mes "[Eric]";
+ mes "My grand father passed away few years ago.... he was very special to me.....";
+ next;
+ mes "[Eric]";
+ mes "For as long as I can remember, he was always there for me.";
+ mes "He even took better care of me than did my own father, who was always busy with work.";
+ next;
+ mes "[Eric]";
+ mes "To me, my grand father's library was always like a 'Fairyland'.";
+ mes "I spent most of my time there and I learned a lot of things from his vast collection of books";
+ next;
+ mes "[Eric]";
+ mes "Grand father was interested in alchemy and music, so his library was filled with many books on these subjects.";
+ next;
+ mes "[Eric]";
+ mes "One day while I was in grand fathers library, I discovered an interesting design sheet.....";
+ mes "It was a design for what look liked 'Ear Muffs'.... underneath the drawing was a description that read:";
+ next;
+ mes "[Eric]";
+ mes "'When worn on over the ears, anything from music to the faintest whispers can be heard.";
+ mes "The sounds are transmitted to the ears through a thin wire. Project Name: ^5555FFHeadset^000000";
+ next;
+ mes "[Eric]";
+ mes "It was a project that my grand father was working on before he passed away.... unfortunately he was never able to finish it.....";
+ next;
+ mes "[Eric]";
+ mes "That's why I made up my mind to pick up where he left off and finish his beloved project!";
+ mes "I met with a few Alchemists and asked them to create a working prototype based on his plans.";
+ next;
+ mes "[Eric]";
+ mes "But they were not able to understand my grand fathers concepts and therefore could not help me.";
+ next;
+ mes "[Eric]";
+ mes "Even so I did not give up and decided to make it myself. So I studied and researched for many years....";
+ mes "And now I have a full working knowledge of my grand fathers invention, the ^5555FFHeadset^000000!!";
+ next;
+ mes "[Eric]";
+ mes "Yet there is still one obsticale that is keeping me from making it.... I do not have the materials necessary to make my grand fathers invention!";
+ next;
+ mes "[Eric]";
+ mes "My only goal in life is to realize my grand fathers ideas and pay tribute to the man I hold so dear to my heart.......";
+ emotion 28;
+ next;
+ mes "[Eric]";
+ mes "If only I had those materials.... Hmm... would you be iterested in this project? All I ask is that you gather the right items for me....";
+ emotion 20;
+ close;
+
+ M_Ask:
+ mes "[Eric]";
+ mes "These are items needed for grand father's Headset:";
+ mes "^3355FFSteel^000000 ^FF555540^000000";
+ mes "^3355FFOridecon^000000 ^FF55551^000000";
+ mes "^3355FFAlcohol^000000 ^FF55551^000000";
+ mes "^3355FFCoal^000000 ^FF55551^000000";
+ close;
+
+ M_Make:
+ mes "[Eric]";
+ if(countitem(999) < 40 || countitem(984) < 1 || countitem(970)<1 || countitem(1003) < 1) goto L_NotEnuf;
+ delitem 999,40;
+ delitem 984,1;
+ delitem 970,1;
+ delitem 1003,1;
+ mes "Oh this is GREAT!! You have all of the materials I need to make my grandfather's Headset!";
+ emotion 5;
+ next;
+ mes "[Eric]";
+ mes "Give me a few minutes to assemble it...............";
+ next;
+ getitem 5001,1;
+ mes "[Eric]";
+ mes "FINALLY!! It's complete! My grand father's Headset! Please take them... without your help this wouldn't have been possible.";
+ emotion 0;
+ next;
+ mes "[Eric]";
+ mes "Thank so very much! Because of you, I could fullfill my grand father's wish. I just know he's smiling down on me from Heaven.....";
+ emotion 15;
+ close;
+
+ L_NotEnuf:
+ mes "Thank you for trying to help me but..... you don't seem to have all of the items I need.....";
+ emotion 4;
+ close;
+ M_End:
+ mes "[Eric]";
+ mes "Farewell..... boo hoo....";
+ emotion 28;
+ close;
+}
diff --git a/npc/quests/quests_lighthalzen.txt b/npc/quests/quests_lighthalzen.txt new file mode 100644 index 000000000..cf91e9171 --- /dev/null +++ b/npc/quests/quests_lighthalzen.txt @@ -0,0 +1,214 @@ +//===== eAthena Script =======================================
+//= Lighthalzen
+//===== By: ==================================================
+//= Persian, Vicious_Pucca, Completed by aoa00
+//===== Current Version: =====================================
+//= 1.1
+//===== Compatible With: =====================================
+//= eAthena SVN
+//===== Description: =========================================
+//= Event for the Mobster respawn
+//===== Additional Comments: =================================
+//= Grammar/script check please. This was a quick job.
+//= Things to add: Look at the thread "Lighthalzen Guard" in SVN script
+//= 0.3 Initial Release
+//= 0.5 Added mobsters spawn and Einbroch pollution. Alert lasts either 10 minutes or all mob killed.
+//= 0.6 small bug fixes
+//= 0.9 fix small bug. Added Bio-lab entrance Quest. Added Getting security-card Quest.
+//= 1.0 Patched "mobsters spawn & Alert" like Real-RO.
+//= 1.0a fixed rand(1,10) + comparision. There just can't be 'X < 1' [Lupus]
+//= 1.1 Changed the mobster spawn to g_mobster to prevent exploits [MasterOfMuppets]
+//============================================================
+//= aoa's comment
+//= In future, Need for new monsters. No-Drop, No-Exp, Weak "Mobster","VENOMOUS","NOXIOUS"
+//= In future, Teleport skill is impossible in Lighthalzen.
+//============================================================
+
+lighthalzen.gat,1,1,7 script sneakAddSuber -1,{
+OnInit:
+ set $@sneakchance, 3; // chance of successful sneak(0 = never, 10 = always)
+ set $@sneakguard, 0; // numbers of people who sneaked past guard
+ set $@threshold, 10; // numbers of sneakers before mob appears
+ set $@mob, 50; // Max respawn numbers of "mobsters"
+ set $@mobcount, 0; // current numbers of "mobsters"
+ set $@lhz_alert, 0; // Alert on Lighthalzen(0 = off, 1 = on)
+ set $@i, 0;
+
+ end;
+
+OnMinute00:
+OnMinute05:
+OnMinute10:
+OnMinute15:
+OnMinute20:
+OnMinute25:
+OnMinute30:
+OnMinute35:
+OnMinute40:
+OnMinute45:
+OnMinute50:
+OnMinute55:
+ if($@lhz_alert == 0) set $@sneakguard, $@sneakguard + rand(1,3);
+ if($@lhz_alert == 1) set $@sneakguard, $@sneakguard - 1; // Monsters will die after 5~10 min. (sneakAddSuber)
+ end;
+}
+
+lighthalzen.gat,1,1,7 script AlertChk -1,{
+OnInit:
+ initnpctimer;
+ end;
+
+OnTimer10000:
+ if($@sneakguard >= $@threshold) goto MakeMob;
+ if($@sneakguard == 0) goto ClearMob; // Monsters will die after 5~10 min. (sneakAddSuber)
+ setnpctimer 0;
+ end;
+
+MakeMob:
+ if($@lhz_alert == 1) goto ChkEnd;
+ set $@mobcount, $@mob;
+ mapannounce "lighthalzen.gat","Maintenance Organization of the Public Order: Currently the security of the city has been compromized, We ask the citizens to be more careful. I repeat. We ask the citizens to be more careful.", 1;
+
+ for( set $@i, 0; $@i < $@mob; set $@i, $@i + 1 ) {
+ monster "lighthalzen.gat",0,0,"Mobster",1592,1,"Mobs::MobKilled";
+ }
+
+ set $@lhz_alert, 1;
+ set $@sneakguard, 2; // Monsters will die after 5~10 min. (sneakAddSuber)
+ setnpctimer 0;
+ end;
+
+ClearMob:
+ if($@lhz_alert == 0) goto ChkEnd;
+ set $@mobcount, 0;
+ mapannounce "lighthalzen.gat","Maintenance organization of the Public Order: We were able to get rid of all the trouble makers in the city. You may relax now.", 1;
+ killmonster "lighthalzen.gat","Mobs::MobKilled";
+ set $@lhz_alert, 0;
+ set $@sneakguard, 0;
+ setnpctimer 0;
+ end;
+
+MobKilled:
+ set $@mobcount, $@mobcount - 1;
+ if($@mobcount == 0) goto ClearMob;
+ setnpctimer 0;
+ end;
+
+ChkEnd:
+ setnpctimer 0;
+ end;
+}
+
+lighthalzen.gat,267,200,3 script Security Guard 868,{
+
+ if(countitem(7350)>=1) goto Lhzpass1;
+ if($@lhz_alert == 1) goto Lhzstop;
+ if((gettime(2)>00 && gettime(2)<10)) goto LhzTalk2;
+ if((gettime(2)>30 && gettime(2)<40)) goto LhzTalk2;
+ set @LhzTalk,rand(1,10);
+ if(@LhzTalk < 2 ) goto LhzTalk1;
+
+LhzTalk:
+ mes "[Guard]";
+ mes "Hey! Where do you think you are going?";
+ mes "I can not send nobody to the slum district!";
+ mes "If we let suspecious people like you pass,";
+ mes "there is no point in piece keeping!";
+ close;
+
+LhzTalk1:
+ mes "-Looks like the guard is doing something else";
+ mes "Now is a good time to sneak by.-";
+ next;
+ warp "lighthalzen.gat",297,227;
+ set $@sneakguard, $@sneakguard + 1;
+ close;
+
+LhzTalk2:
+ set @LhzTalk,rand(1,10);
+ if(@LhzTalk < 2 ) goto LhzTalk;
+ mes "[Guard]";
+ mes "zzZ... zzZ... zzZ...";
+ mes "hmm. hmm... zzZ...";
+ next;
+ mes "-Looks like the guard is sleeping";
+ mes "Now is a good time to sneak by.-";
+ next;
+ warp "lighthalzen.gat",297,227;
+ close;
+
+Lhzpass1:
+ mes "[Guard]";
+ mes "Who are you! ...Hmm? You have a pass?";
+ mes "I'm sorry. You look like an adventurer,";
+ mes "but I guess you got the authority.";
+ mes "You may pass.";
+ next;
+ warp "lighthalzen.gat",297,227;
+ close;
+
+Lhzstop:
+ mes "[Guard]";
+ mes "Recently, there were too many people sneaking pass us,";
+ mes "so we raised the security level.";
+ mes "Who sneak past us anyway?";
+ mes "It's troublesome...";
+ close;
+}
+
+lighthalzen.gat,294,223,7 script Security Guard 868,{
+
+ if(countitem(7350)==1) goto Lhzpass1;
+ if($@lhz_alert == 1) goto Lhzstop;
+ if((gettime(2)>00 && gettime(2)<10)) goto LhzTalk2;
+ if((gettime(2)>30 && gettime(2)<40)) goto LhzTalk2;
+ set @LhzTalk,rand(1,10);
+ if(@LhzTalk < 2 ) goto LhzTalk1;
+
+LhzTalk:
+ mes "[Guard]";
+ mes "Hey! Where do you think you are going?";
+ mes "I can not send nobody to the slum district!";
+ mes "If we let suspecious people like you pass,";
+ mes "there is no point in piece keeping!";
+ close;
+
+LhzTalk1:
+ mes "-Looks like the guard is doing something else";
+ mes "Now is a good time to sneak by.-";
+ next;
+ warp "lighthalzen.gat",264,200;
+ set $@sneakguard, $@sneakguard + 1;
+ close;
+
+LhzTalk2:
+ set @LhzTalk,rand(1,10);
+ if(@LhzTalk < 2 ) goto LhzTalk;
+ mes "[Guard]";
+ mes "zzZ... zzZ... zzZ...";
+ mes "hmm. hmm... zzZ...";
+ next;
+ mes "-Looks like the guard is sleeping";
+ mes "Now is a good time to sneak by.-";
+ next;
+ warp "lighthalzen.gat",264,200;
+ close;
+
+Lhzpass1:
+ mes "[Guard]";
+ mes "Who are you! ...Hmm? You have a pass?";
+ mes "I'm sorry. You look like an adventurer,";
+ mes "but I guess you got the authority.";
+ mes "You may pass.";
+ next;
+ warp "lighthalzen.gat",264,200;
+ close;
+
+Lhzstop:
+ mes "[Guard]";
+ mes "Recently, there were too many people sneaking pass us,";
+ mes "so we raised the security level.";
+ mes "Who sneak past us anyway?";
+ mes "It's troublesome...";
+ close;
+}
diff --git a/npc/quests/quests_lutie.txt b/npc/quests/quests_lutie.txt new file mode 100644 index 000000000..d873240bf --- /dev/null +++ b/npc/quests/quests_lutie.txt @@ -0,0 +1,178 @@ +//===== eAthena Script =======================================
+//= Item Quest NPCs located in Lutie
+//===== By: ==================================================
+//= TonyMan
+//===== Current Version: =====================================
+//= 1.2
+//===== Compatible With: =====================================
+//= eAthena 1.0
+//===== Description: =========================================
+//= Blush, Cake Hat, Candle, Chef Hat, Raccoon Hat, Rainbow Eggshell,
+//= Spore Hat, Wonder Nutshell Quests
+//===== Additional Comments: =================================
+//= 1.1 Optimized [Lupus]
+//= 1.2 Fixed Chef Hat items [Lupus]
+//============================================================
+
+xmas.gat,117,295,3 script Titicupe 704,{
+ mes "[^469ED2Titicupe^000000]";
+ mes "I am the well known ^27BEB7Vending Machine Man Titicupe^000000, I am also a Wizard of the great ^9A3CA2Geffen Mage Guild^000000. I can use my special magic to make some rare items, but I need ingridients. Choose an item you want.";
+ next;
+ menu "Blush",-,"Cake Hat",cake_hat,"Candle",candle,"Chef Hat",chef_hat,"Raccoon Hat",raccoon_hat,"Rainbow Eggshell",rainbow_egg,"Spore Hat",spore_hat,"Wonder Nutshell",wonder_nut,"Cancel",M_Cancel;
+
+ mes "[^469ED2Titicupe^000000]";
+ mes "Hmm... spell ingridients are...";
+ mes "100 Alice's Apron";
+ next;
+ menu "Here. Now do your magic!",-,"Cancel",M_Cancel;
+
+ if(countitem(7047)<100) goto L_NoItem;
+ delitem 7047,100;
+ getitem 5040,1;
+ mes "[^469ED2Titicupe^000000]";
+ mes "^4599A3Abra ^66A73FKa ^C7A82EDabra, ^64826BSim ^E9239ESa ^B7EB01La ^8080C0Bim^000000!! ^45A8C9*poof*^000000 I succeeded! Here take this ^D6294BBlush^000000, it's yours.";
+ close;
+
+cake_hat:
+ mes "[^469ED2Titicupe^000000]";
+ mes "Hmm... spell ingridients are...";
+ mes "10 Candy";
+ mes "5 Candy Cane";
+ mes "20 Piece of Cake";
+ mes "10 Steel";
+ mes "15 Well-baked Cookie";
+ next;
+ menu "Here. Now do your magic!",-,"Cancel",M_Cancel;
+
+ if(countitem(529)<10 || countitem(530)<5 || countitem(539)<20 || countitem(999)<10 || countitem(538)<15) goto L_NoItem;
+ delitem 529,10;
+ delitem 530,5;
+ delitem 539,20;
+ delitem 999,10;
+ delitem 538,15;
+ getitem 5024,1;
+ mes "[^469ED2Titicupe^000000]";
+ mes "^4599A3Abra ^66A73FKa ^C7A82EDabra, ^64826BSim ^E9239ESa ^B7EB01La ^8080C0Bim^000000!! ^45A8C9*poof*^000000 I succeeded! Here take this ^BD3CBACake Hat^000000, it's yours.";
+ close;
+
+candle:
+ mes "[^469ED2Titicupe^000000]";
+ mes "Hmm... spell ingridients are...";
+ mes "1 Bomb Wick";
+ mes "50 Matchstick";
+ mes "100 Royal Jelly";
+ next;
+ menu "Here. Now do your magic!",-,"Cancel",M_Cancel;
+
+ if(countitem(2279)<1 || countitem(7035)<50 || countitem(526)<100) goto L_NoItem;
+ delitem 2279,1;
+ delitem 7035,50;
+ delitem 526,100;
+ getitem 5028,1;
+ mes "[^469ED2Titicupe^000000]";
+ mes "^4599A3Abra ^66A73FKa ^C7A82EDabra, ^64826BSim ^E9239ESa ^B7EB01La ^8080C0Bim^000000!! ^45A8C9*poof*^000000 I succeeded! Here take this ^BD3CBACandle^000000, it's yours.";
+ close;
+
+chef_hat:
+ mes "[^469ED2Titicupe^000000]";
+ mes "Hmm... spell ingridients are...";
+ mes "450 Dragon Scale";
+ mes "330 Feather";
+ mes "120 Piece of Cake";
+ mes " 1 White Dyestuffs";
+ next;
+ menu "Here. Now do your magic!",-,"Cancel",M_Cancel;
+
+ if(countitem(1036)<450 || countitem(949)<330 || countitem(539)<120 || countitem(982)<1) goto L_NoItem;
+ delitem 1036,450;
+ delitem 949,330;
+ delitem 539,120;
+ delitem 982,1;
+ getitem 5026,1;
+ mes "[^469ED2Titicupe^000000]";
+ mes "^4599A3Abra ^66A73FKa ^C7A82EDabra, ^64826BSim ^E9239ESa ^B7EB01La ^8080C0Bim^000000!! ^45A8C9*poof*^000000 I succeeded! Here take this ^BD3CBAChef Hat^000000, it's yours.";
+ close;
+
+raccoon_hat:
+ mes "[^469ED2Titicupe^000000]";
+ mes "Hmm... spell ingridients are...";
+ mes "20 Dragon Scale";
+ mes "1 Kitty Band";
+ mes "300 Sea-otter Fur";
+ mes "200 Tough Scalelike Stem";
+ next;
+ menu "Here. Now do your magic!",-,"Cancel",M_Cancel;
+
+ if(countitem(1036)<20 || countitem(2213)<1 || countitem(7065)<300 || countitem(7012)<200) goto L_NoItem;
+ delitem 1036,20;
+ delitem 2213,1;
+ delitem 7065,300;
+ delitem 7012,200;
+ getitem 5033,1;
+ mes "[^469ED2Titicupe^000000]";
+ mes "^4599A3Abra ^66A73FKa ^C7A82EDabra, ^64826BSim ^E9239ESa ^B7EB01La ^8080C0Bim^000000!! ^45A8C9*poof*^000000 I succeeded! Here take this ^7D4E31Raccoon Hat^000000, it's yours.";
+ close;
+
+rainbow_egg:
+ mes "[^469ED2Titicupe^000000]";
+ mes "Hmm... spell ingridients are...";
+ mes "50 Claw of Desert Wolf";
+ mes "1 Cobaltblue Dyestuffs";
+ mes "1 Egg Shell";
+ next;
+ menu "Here. Now do your magic!",-,"Cancel",M_Cancel;
+
+ if(countitem(7030)<50 || countitem(978)<1 || countitem(5015)<1) goto L_NoItem;
+ delitem 7030,50;
+ delitem 978,1;
+ delitem 5015,1;
+ getitem 5039,1;
+ mes "[^469ED2Titicupe^000000]";
+ mes "^4599A3Abra ^66A73FKa ^C7A82EDabra, ^64826BSim ^E9239ESa ^B7EB01La ^8080C0Bim^000000!! ^45A8C9*poof*^000000 I succeeded! Here take this ^8D4178Rainbow Egg^000000, it's yours.";
+ close;
+
+spore_hat:
+ mes "[^469ED2Titicupe^000000]";
+ mes "Hmm... spell ingridients are...";
+ mes "300 Burnt Tree";
+ mes "850 Poison Spore";
+ mes "1 Tongue";
+ next;
+ menu "Here. Now do your magic!",-,"Cancel",M_Cancel;
+
+ if(countitem(7068)<300 || countitem(7033)<850 || countitem(1015)<1) goto L_NoItem;
+ delitem 7068,300;
+ delitem 7033,850;
+ delitem 1015,1;
+ getitem 5029,1;
+ mes "[^469ED2Titicupe^000000]";
+ mes "^4599A3Abra ^66A73FKa ^C7A82EDabra, ^64826BSim ^E9239ESa ^B7EB01La ^8080C0Bim^000000!! ^45A8C9*poof*^000000 I succeeded! Here take this ^7D4E31Spore Hat^000000, it's yours.";
+ close;
+
+wonder_nut:
+ mes "[^469ED2Titicupe^000000]";
+ mes "Hmm... spell ingridients are...";
+ mes "1 Nut Shell";
+ mes "500 Wing of Dragonfly";
+
+ next;
+ menu "Here. Now do your magic!",-,"Cancel",M_Cancel;
+
+ if(countitem(5037)<1 || countitem(7064)<500) goto L_NoItem;
+ delitem 5037,1;
+ delitem 7064,500;
+ getitem 5050,1;
+ mes "[^469ED2Titicupe^000000]";
+ mes "^4599A3Abra ^66A73FKa ^C7A82EDabra, ^64826BSim ^E9239ESa ^B7EB01La ^8080C0Bim^000000!! ^45A8C9*poof*^000000 I succeeded! Here take this ^7D4E31Wonder Nutshell^000000, it's yours.";
+ close;
+
+M_Cancel:
+ mes "[^469ED2Titicupe^000000]";
+ mes "I bid you farewell, try not to catch a cold out here. It's ^5A9FD8freezing out here!^000000";
+ close;
+
+L_NoItem:
+ mes "[^469ED2Titicupe^000000]";
+ mes "I can't cast since you don't seem to have all I need...";
+ close;
+}
diff --git a/npc/quests/quests_morocc.txt b/npc/quests/quests_morocc.txt new file mode 100644 index 000000000..72de70064 --- /dev/null +++ b/npc/quests/quests_morocc.txt @@ -0,0 +1,123 @@ +//===== eAthena Script =======================================
+//= Item Quest NPCs located in Morroc
+//===== By: ==================================================
+//= kobra_k88
+//===== Current Version: =====================================
+//= 1.1
+//===== Compatible With: =====================================
+//= eAthena 7.15 +
+//===== Description: =========================================
+//= Stop Post and Binoculars Quest.
+//===== Additional Comments: =================================
+//= 1.1 Fixed exploits [Lupus]
+//============================================================
+
+
+
+//==================================================================================//
+// Stop Post Quest
+//==================================================================================//
+morocc_in.gat,142,100,4 script William 89,{
+ mes "[William]";
+ mes "Welcome to MacMillan's ^3355FF'Post'^000000 Workshop .";
+ next;
+ mes "[William]";
+ mes "My Clan, MacMillan, Has been producing professional grade Traffic Signal Posts for more than 250 years.";
+ mes "Nowadays we are taking special orders for our very unique, ^3355FF'Stop Post'^000000.";
+ next;
+ menu "Could I order a ^3355FF'Stop Post'^000000?",-, "I'm not interested.",M_End;
+
+ mes "[William]";
+ mes "MacMillan's one of a kind ^3355FF'Stop Post'^000000 fits comfortably on a persons head.";
+ mes "Not only does it make an interesting head accessory, but it can actually be used as a stop sign as well.";
+ next;
+ mes "[William]";
+ mes "I garauntee that our ^3355FF'Stop Post'^000000 will last for well over 100 years, or my name isn't MacMillan!!";
+ next;
+ mes "[William]";
+ mes "For us to make you a ^3355FF'Stop Post'^000000, we will need:";
+ mes "^3355FF91100 Zeny,";
+ mes "50 Trunks,";
+ mes "and 1 Black Dyestuff^000000.";
+ next;
+ if(countitem(1019) >= 50 && countitem(983) >= 1 && Zeny >= 91100) goto sL_GetPost;
+ mes "[William]";
+ mes "Come back when you have all of the items.";
+ close;
+
+ sL_GetPost:
+ delitem 1019,50;
+ delitem 983,1;
+ set Zeny, Zeny - 91100;
+ mes "[William]";
+ mes "Here you are! A hand made, one of a kind, ^3355FF'Stop Post '^000000! Thank you for your patronage!";
+ getitem 2272,1;
+ emotion 15;
+ close;
+
+ M_End:
+ mes "[William]";
+ mes "Thanks for stopping by the MacMillan's Workshop. I hope to see you soon.";
+ close;
+}
+
+
+//==================================================================================//
+// Binoculars Quest
+//==================================================================================//
+morocc_in.gat,76,163,4 script Alchemist 64,{
+ mes "[Marius]";
+ mes "Howdy! A new customer........ Wait!!! I know what you're here for....... You're interested in those magical goggles aren't you?";
+ next;
+ menu "What is that ?",-, "Make",M_Make, "Ignore him",M_End;
+
+ mes "[Marius]";
+ mes "It is actually called ^3355FF'Binoculars'^000000! It is an opitcal device that allows the wearer to see far away objects.";
+ next;
+ mes "[Marius]";
+ mes "You see, when two lens are placed next to each other in front of your eyes, your brain interperets this image........ blah blah...... blah....";
+ next;
+ mes "[Marius]";
+ mes "............... What's this? You don't seem interested in what I have to say?? I don't think you realize what I'm talking about!";
+ emotion 20;
+ next;
+ mes "[Marius]";
+ mes "For us to make you a ^3355FF'Binoculars'^000000, we will need:";
+ mes "^3355FF50,000 Zeny,";
+ mes "100 Steel,";
+ mes "and 1 Geek Glasses.^000000.";
+ next;
+ mes "[Marius]";
+ mes "Oh c'mon! Don't be a jerk! What I'm talking about is REALLY COOL!!";
+ close;
+
+ M_Make:
+ mes "[Marius]";
+ if(countitem(2243) < 1 || countitem(999) < 100 || Zeny < 50000) goto sL_NotEnuf;
+ delitem 2243,1;
+ delitem 999,100;
+ set Zeny, Zeny - 50000;
+ mes "Gr~~~~eat ! You'll definitely enjoy a pair of these!";
+ next;
+ mes "[Marius]";
+ mes "Here it is ! The Binoculars!";
+ getitem 2296,1;
+ next;
+ mes "[Marius]";
+ mes "But before you go out and use them I have to tell you......";
+ if(sex==0) mes "DON'T USE THEM TO BE A PEEPING TOM!!!";
+ if(sex==1) mes "Becarefull where you look..... you might see someting you didn't want to........";
+ close;
+
+ sL_NotEnuf:
+ mes "Argggghhhhhhh !! You didn't bring enough items!! You need:";
+ mes "^3355FF1 pair of Geek Glasses, 50,000 Zeny and 100 Steel^000000.";
+ emotion 6;
+ close;
+
+ M_End:
+ mes "[Marius]";
+ mes "Hey you! You DARE IGNORE ME!! I am MARIUS the alchemist of ALCHEMISTS!!!!!";
+ emotion 23;
+ close;
+}
diff --git a/npc/quests/quests_payon.txt b/npc/quests/quests_payon.txt new file mode 100644 index 000000000..fd6127544 --- /dev/null +++ b/npc/quests/quests_payon.txt @@ -0,0 +1,292 @@ +//===== eAthena Script =======================================
+//= Item Quest NPCs located in Payon
+//===== By: ==================================================
+//= kobra_k88
+//===== Current Version: =====================================
+//= 1.3
+//===== Compatible With: =====================================
+//= eAthena 7.15 +
+//===== Description: =========================================
+//= Pretend Murder, Ear Muffs, Oxygen, Derivuchi Cap, Helm of Angel Quests.
+//===== Additional Comments: =================================
+//= Fully working
+//= 1.1 Helm of Angel bug fixed [Lupus]
+//= 1.2 Fixed skirt of virgin [Lupus]
+//= 1.3 Fixed exploits [Lupus]
+//============================================================
+
+
+
+//==========================================================================================//
+// Pretend Murdered quest
+//==========================================================================================//
+payon.gat,154,170,4 script Granny 78,{
+ mes "[Granny]";
+ if(countitem(1049) >= 4) goto L_Get;
+
+ mes "Oh deary me. What to do... what to do........ You see I want to nitt some special clothes for my family but I don't have the right cloth to do so.";
+ next;
+ mes "[Granny]";
+ mes ".....sigggghhhhhh........";
+ next;
+ mes "[Granny]";
+ mes "Why what's this? Mushrooms? Oh yes I remember now, I pick these mushrooms on the Payon Mountain side.";
+ mes "Ho ho, I have such a hard time remembering things now.";
+ next;
+ mes "[Granny]";
+ mes "What was I saying before? Oh yes! I need some special cloth to make clothes for my family.";
+ mes "If you happen to come across some ^5555FF'Skirt of Virgin'^000000, please let me know.";
+ emotion 20;
+ next;
+ mes "[Granny]";
+ mes "I need ^5555FF'4 Skirt of Virgin'^000000 to make the clothes. I will be very greatfull if you could bring me some.";
+ close;
+
+L_Get:
+ mes "Oh! You have 4 Skirt of Virgin. Would you be willing to give them to me dear?";
+ next;
+ menu "Why of course granny",-,"Heck no ya old bag!",M_No;
+
+ if(countitem(1049) < 4) goto M_No;
+ mes "[Granny]";
+ mes "Bless your kind heart. Now I can make some special clothes for my family. Let me give you a reward for being so genrous dear.";
+ emotion 14;
+ next;
+ getitem 2293,1;
+ delitem 1049,4;
+ mes "[Granny]";
+ mes "There you are. It's something I kept from my younger days as an actress. I was quite fetching and very popular back then.";
+ mes "I've kept it as a reminder of my days as an actress, but with my memory as bad as it is, it's really of no use to me anymore.";
+ next;
+ mes "[Granny]";
+ mes "I'm sure you'll have fun using it at parties.";
+ close;
+
+ M_No:
+ mes "[Granny]";
+ mes "Well I never!!! Kids these days just have no respect or compasion for their elders!";
+ emotion 32;
+ close;
+
+}
+
+
+//========================================================================================//
+// Ear Muffs Quest
+//========================================================================================//
+payon_in01.gat,18,10,4 script Mystic Lady 75,{
+ mes "[Mystic Lady]";
+ mes "Hi there.";
+ next;
+ menu "Hello.",-,"Please make me a pair of Ear Muffs.",M_Muffs, "End",M_End;
+
+ mes "[Mystic Lady]";
+ mes "My family and I recently came to Payon.";
+ mes "Where we came from the weather was very cold so we started a business hand making a special type of ^5555FF'Ear Muffs'^000000";
+ next;
+ mes "[Mystic Lady]";
+ mes "I have tried to continue the family business here in Payon but it has proven to be difficult because of the warm whether.";
+ next;
+ mes "[Mystic Lady]";
+ mes "Although the 'Ear Muffs' aren't very usefull here, if you plan on going somewhere that's cold our 'Ear Muffs' are a must have.";
+ next;
+ mes "[Mystic Lady]";
+ mes "All I need are:";
+ mes "^5555FF1 Cursed Ruby,";
+ mes "1 Headset,";
+ mes "200 Feathers,";
+ mes "and a 5,000 zeny fee^000000 for my labor.";
+ next;
+ mes "[Mystic Lady]";
+ mes "With those items I can make you a pair of 'Ear Muffs'. Believe me, they are of the highest quality and look good on just about anybody!";
+ close;
+
+ M_Muffs:
+ if(countitem(724)<1 || countitem(5001)<1 || countitem(949)<200 || zeny<5000) goto sL_NotEnuf;
+ delitem 724,1;
+ delitem 5001,1;
+ delitem 949,200;
+ set Zeny, Zeny-5000;
+ mes "[Mystic Lady]";
+ mes "Oh, I see that you have brought all of the required items. Just a moment please...";
+ next;
+ mes "[Mystic Lady]";
+ mes "... this goes here... that goes there...... some glue here... a couple stitches over there..........";
+ next;
+ getitem 2283,1;
+ mes "[Mystic Lady]";
+ mes "Ah, there you are! One pair of my familys' specialty Ear Muffs. Enjoy!";
+ close;
+
+ sL_NotEnuf:
+ mes "[Mystic Lady]";
+ mes "I'm sorry but you don't have the required items for me to make you a pair of my familys' specialty Ear Muffs.";
+ close;
+ M_End:
+ close;
+
+}
+
+
+//========================================================================================//
+// Oxygen Mask Quest
+//========================================================================================//
+payon_in02.gat,25,71,4 script Young Man 86,{
+ mes "[Young Man]";
+ if(countitem(701) >= 5) goto L_GotOra;
+ mes "Blahhhhhh! I... I... I JUST CAN'T take it anymore!! You little stinky, filthy, BASTARDS!!!";
+ emotion 6;
+ next;
+ menu "Continue.",M_Cont, "End Conversation.",M_End;
+
+ M_Cont:
+ mes "[Young Man]";
+ mes "~Sigh~ I've had a rough life. You see, both my parents passed away when I was a kid, so I had to work to support myself at a young age.";
+ next;
+ mes "[Young Man]";
+ mes "It sure was rough. But after 10 years of hard work I was able to save up and finally buy myself a home!";
+ next;
+ mes "[Young Man]";
+ mes "Unfortunately I didn't have that much money, so I couldn't buy the home I really wanted.";
+ mes "Instead, I found this house..... It was big and cheap.... so I bought without really thinking my decision through.....";
+ next;
+ mes "[Young Man]";
+ mes "Jeez was that a mistake...... The house turned out to be a HAVEN for THIEF BUGS!!!";
+ emotion 23;
+ next;
+ mes "[Young Man]";
+ mes "I tried EVERYTHING to get rid of them! I sprayed them, I smashed them, I lured them out with food.........";
+ mes "Finally as a last resort.... I even tried to burn the house down!!";
+ next;
+ mes "[Young Man]";
+ mes "Grrr! What will it take to get rid of these vile creatures???";
+ emotion 32;
+ next;
+ mes "[Young Man]";
+ mes "I've heard there is something called ^3355FF'Ora Ora'^000000, that people in other countries use to fight bugs.....";
+ mes "But will it work for my situation?";
+ next;
+ mes "[Young Man]";
+ mes "I'm willing to give anything a try at this point. I don't have much money so I can only afford ^5555FF'5 Ora Oras'^000000.";
+ mes "If you happen to come across some 'Ora Ora' please let me know.";
+ close;
+
+ M_End:
+ mes "[Young Man]";
+ mes "I'm just so tired of fighting this never ending battle against these bugs...... those dirty scumbags!!";
+ emotion 32;
+ close;
+
+L_GotOra:
+ mes "ArrrGgghhh!! No!... It can't be!..... I think I'm going mad... they're starting to look so cute... ArrrGgghhh!!... Nooooooo!!";
+ emotion 23;
+ M_Menu:
+ next;
+ menu "Continue",M_Cont, "Show Ora Ora",-, "Give Ora Ora",M_Give, "Cancel",M_End2;
+
+ mes "[Young Man]";
+ mes "Oooooohhhh..... is.. is this... is this... Ora Ora...??? If you give it to me I'll give you my prized treasure in return!";
+ mes "What do you say?? Is it a deal?";
+ goto M_Menu;
+
+ M_Give:
+ if(countitem(701) < 5) goto L_Cheater;
+ delitem 701,5;
+ mes "[Young Man]";
+ mes "Muhahahahah!!! Finally, I have it.... Ora Ora! Stupid and distgusting Thief Bugs.... you'll pay for invading MY HOME!!!";
+ emotion 29;
+ next;
+ mes "[Young Man]";
+ mes "..... Eh em... sorry. I was a little outa control there.... Ah, let me give you my valuable treasure......";
+ emotion 4;
+ next;
+ getitem 5004,1;
+ mes "[Young Man]";
+ mes "By wearing this over your mouth, the air you breathe will be filltered so that you can breathe clean air.";
+ mes "I picked it up while I was a Sailor out at sea. I really have no need for it.";
+ next;
+ mes "[Young Man]";
+ mes "Hehehehe!! I can't wait to use this Ora Ora!!!";
+ close;
+
+ L_Cheater:
+ mes "Oh... Where is it?!";
+ next;
+
+ M_End2:
+ mes "[Young Man]";
+ mes "What if I CAN'T get rid of these thief bugs???... I guess the only other thing I could do is fall in love with them...... heh... heh... heh....";
+ emotion 4;
+ close;
+
+}
+
+
+//========================================================================================//
+// Derivuchi Cap(Hat of Petite Diablo), Helm of Angel
+//========================================================================================//
+payon_in01.gat,56,12,4 script Young Man 89,{
+ mes "[Young Man]";
+ mes "What is it?............";
+ next;
+ menu "Can you make me a special item?",-, "Nothing.",M_End;
+
+ mes "[Young Man]";
+ mes "I see.... so you know about me huh?.... Ok, tell me what you want.";
+ next;
+ menu "-Helm of Angel",-, "-Deviruchi Hat",sM_Devir, "-I'll come back later.",M_End;
+
+ mes "[Young Man]";
+ mes "For the Helm of Angel I will need:";
+ mes "- ^5555FF1 Helm (slotted)^000000.";
+ mes "- ^5555FF1 Angel Wing^000000.";
+ mes "- ^5555FF5 Fang of Garm^000000.";
+ set @HAT, 1;
+ next;
+ goto sL_GetHat;
+ sM_Devir:
+ mes "[Young Man]";
+ mes "For the Deviruchi Hat I will need:";
+ mes "- ^5555FF600 Little Evil Horn^000000.";
+ mes "- ^5555FF40 Talon of Griffon^000000.";
+ set @HAT, 2;
+
+ sL_GetHat:
+ mes "[Young Man]";
+ mes "Wait a moment! Be carefull about what items you give me.";
+ mes "I do not distinguish between equipment that has been forged or has cards attached to them.";
+ mes "If you don't want to loose a precious card or piece of equipment, make sure you don't have it equiped.";
+ next;
+ mes "[Young Man]";
+ mes "Do you have all of the items needed?";
+ menu "-Give him the items.",-, "Nevermind.",M_End;
+
+ if(@HAT == 2) goto ssL_Devir;
+
+ if(countitem(2229)<1 || countitem(2254)<1 || countitem(7036)<5) goto ssL_NotEnuf;
+ delitem 2229, 1;
+ delitem 2254, 1;
+ delitem 7036, 5;
+ mes "[Young Man]";
+ mes "Here is your Helm of Angel.";
+ getitem 5025, 1;
+ close;
+ ssL_Devir:
+ if(countitem(1038)<600 || countitem(7048)<40) goto ssL_NotEnuf;
+ delitem 1038, 600;
+ delitem 7048, 40;
+ mes "[Young Man]";
+ mes "Here is your Deviruchi Hat.";
+ getitem 5038, 1;
+ close;
+ ssL_NotEnuf:
+ mes "[Young Man]";
+ mes "You don't have enough items for me to make what you want.";
+ close;
+
+ M_End:
+ mes "[Young Man]";
+ mes "Fine then.....";
+ close;
+
+}
diff --git a/npc/quests/quests_prontera.txt b/npc/quests/quests_prontera.txt new file mode 100644 index 000000000..546635cfc --- /dev/null +++ b/npc/quests/quests_prontera.txt @@ -0,0 +1,97 @@ +//===== eAthena Script =======================================
+//= Item Quest NPCs located in Prontera
+//===== By: ==================================================
+//= kobra_k88
+//===== Current Version: =====================================
+//= 1.2
+//===== Compatible With: =====================================
+//= eAthena 7.15 +
+//===== Description: =========================================
+//= Ph.D Hat Quest
+//===== Additional Comments: =================================
+//= Fixed flower name Dreamy -> Illusion
+//= 1.2 Fixed exploit [Lupus]
+//============================================================
+
+
+// Ph.D Hat Quest-------------------------------------------------------
+prt_in.gat,38,108,4 script Teacher 53,{
+ if(countitem(710) >= 1 && countitem(703) >= 1 && countitem(704) >= 1 && countitem(708) >= 1) goto L_Start;//Items: Illusion Flower, Hinalle, Aloe, Ment,
+ mes "Don't you think.... ^4444FF'flowers'^000000 are pretty?";
+ next;
+ menu "Talk.",-, "End Conversation.",M_End;
+
+ mes "[Teacher]";
+ mes "When I was young, I didn't play with friends like the other children. Instead, I spent time studing by myself.";
+ next;
+ mes "[Teacher]";
+ mes "Sometimes I regret that decision.... but it doesn't really matter now. Through hard work, I was able to finish school earlier than my classmates.";
+ next;
+ mes "[Teacher]";
+ mes "I was very lonely however..... when things got rough I had no one to talk to about my feelings.";
+ next;
+ mes "[Teacher]";
+ mes "Then one day, I found my best friend.";
+ next;
+ mes "[Teacher]";
+ mes "It was when I saw this pretty flower blooming in an abandoned garden.... I realised that it was just like me and in it, I found my best friend.";
+ next;
+ mes "[Teacher]";
+ mes "Even though, to others it was just a common flower.... for me this flower meant much more. This flower gave me the strength to continue my studies.";
+ mes "I could achieve my goals because of her.";
+ next;
+ mes "[Teacher]";
+ mes "So.. now... I am trying to repay to her. I have started studying Flowers, and It is my goal to cover the whole world in Flowers!";
+ next;
+ mes "[Teacher]";
+ mes "To accomplish my work.. I need a great deal of flowers. Unfortunately because of my studies, I can rarely go outside.";
+ mes "It is really hard to find as many flowers as I need.";
+ next;
+ mes "[Teacher]";
+ mes "I need 1 ^3355FFIllusion Flower^000000 ,1 ^3355FFHinalle^000000,1 ^3355FFAloe^000000 and 1 ^3355FFMent^000000...";
+ mes "If you can bring these flowers to me, I would be willing to give you a special item...";
+ close;
+
+ M_End:
+ mes "[Teacher]";
+ mes "One of these days I will cover whole world in Flowers!.....";
+ close;
+
+L_Start:
+ mes "[Teacher]";
+ mes "Oh... Those Flowers in your hand are....";
+ M_Menu:
+ next;
+ menu "Show Flowers",-, "Give Flowers",M_Give, "Cancel",M_End;
+
+ mes "[Teacher]";
+ mes "Ah... How wonderful!! These are definately the 4 kinds of Flowers I was looking for ..";
+ mes "The ^3355FFIllusion Flower, Hinalle, Aloe, and Ment^000000. Would you give them to me?...";
+ next;
+ mes "[Teacher]";
+ mes "If you do I'd be willing to give you a special item.....";
+ goto M_Menu;
+
+ M_Give:
+ if(countitem(710) < 1 || countitem(703) < 1 || countitem(704) < 1 || countitem(708) < 1) goto L_Cheater;//Items: Illusion Flower, Hinalle, Aloe, Ment,
+ delitem 710,1;//Items: Illusion Flower,
+ delitem 703,1;//Items: Hinalle,
+ delitem 704,1;//Items: Aloe,
+ delitem 708,1;//Items: Ment,
+ mes "[Teacher]";
+ mes "I really, really appreciate what you've done for me!! I trully am grateful! I will give you a very special item as I promised.";
+ emotion 15;
+ next;
+ mes "[Teacher]";
+ mes "This is the hat I wore at my Graduation Ceremony. It is a reminder of my joyfull school days at the University.";
+ mes "Please take it...";
+ getitem 5012,1;//Items: Ph.D Hat,
+ close;
+
+ L_Cheater:
+ mes "[Teacher]";
+ mes "I won't give a special item to a cheater...";
+ mes "Now go away!";
+ emotion e_bzz;
+ close;
+}
diff --git a/npc/quests/quests_umbala.txt b/npc/quests/quests_umbala.txt new file mode 100644 index 000000000..a0ba5a4b2 --- /dev/null +++ b/npc/quests/quests_umbala.txt @@ -0,0 +1,354 @@ +//===== eAthena Script =======================================
+//= Quests NPCs related to Umbala City
+//===== By: ==================================================
+//= sabernet09 & eAthena Team
+//===== Current Version: =====================================
+//= 1.6
+//===== Compatible With: =====================================
+//= eAthena 7.15 +
+//===== Description: =========================================
+//= Umbalian Language Quest, +
+//===== Additional Comments: =================================
+//= fixed by x[tsk], Lupus, PoW
+//= Quest completion is now registered
+//= 1.1 fixed Poporing Egg ID -> Poring Egg, fixed condition
+//= 1.2-1.5 fixed some Umbalian Language quests:
+//= - Now if Umbalian Chief tell u about meaning of masks
+//= you can interact with activated Sphinx Mask Quest
+//= - with Wise Man Fabius you can learn Umbalian Language
+//= in alternative way.
+//= 1.6 Fixed bugs [Lupus]
+//= TODO: should I add a jRO Werewolf Quest? 8)
+//============================================================
+
+
+
+//===========================================================================
+//this quest is related to Umbalian Chief
+morocc.gat,140,156,5 script Turban Thief 58,{
+ if(mask_q == 0) goto AWAY;
+ if(mask_q == 2) goto NoBus;
+ mes "[Turban Thief]";
+ mes "E'llo mah frien, would I interesst tu with this rare mask? Its value I assure you is real mah frien. Tis manific!";
+ next;
+ mes "[Turban Thief]";
+ mes "Wah? O ho ho ho, so you know thaz I steal dis from those savages no? Well I won'tz give it back. But I will for a pricez... wat you say?";
+ next;
+ menu "Pay 1,000,000z",-,"No deal",NoGo;
+
+ if(Zeny < 1000000) goto NotEnough;
+ set Zeny,Zeny-1000000;
+ mes "[Turban Thief]";
+ mes "O ho ho, its a deal then!";
+ getitem 7114,1;//Items: Sphinx Mask,
+ set mask_q,2;
+ close;
+
+ NoGo:
+ mes "[Turban Thief]";
+ mes "Ahh a business man are you no? Fine, how about...";
+ next;
+ menu "Pay 750,000",-,"Nope lower",NoGoB;
+
+ if(Zeny < 750000) goto NotEnough;
+ set Zeny,Zeny-750000;
+ mes "[Turban Thief]";
+ mes "It is a done deal, no refunds!";
+ getitem 7114,1;//Items: Sphinx Mask,
+ set mask_q,2;
+ close;
+ NoGoB:
+ mes "[Turban Thief]";
+ mes "Hmmm... you drive a hard bargain, ok... my final offer...";
+ next;
+ menu "Pay 500,000",-,"It can go lower than that.",NoGoC;
+
+ if(Zeny < 500000) goto NotEnough;
+ set Zeny,Zeny-500000;
+ mes "[Turban Thief]";
+ mes "Alright, here you go then...";
+ getitem 7114,1;//Items: Sphinx Mask,
+ close;
+ NoGoC:
+ next;
+ mes "[Turban Thief]";
+ mes "Ack! Forgez it! I can do bettaz en elsez where!";
+ set mask_q,2;
+ close;
+ NoBus:
+ mes "[Turban Thief]";
+ mes "You have no more business with me, go away!";
+ close;
+ AWAY:
+ mes "[Turban Thief]";
+ mes "What do you wan te withz me? Be gone!";
+ close;
+ NotEnough:
+ mes "[Turban Thief]";
+ mes "Are youz playin wit me? You don't have ze money!";
+ close;
+}
+
+//======================================================================================//
+// Umbala Language Quest (optional)
+//======================================================================================//
+
+prontera.gat,145,290,5 script Mason 742,{
+ mes "[Mason]";
+ if(umb_lang==0) goto L_NOT_GOT_QUEST;
+ if(umb_lang==2 || umb_mason==1) goto L_AGAIN;
+
+ mes "Hey there, I came here to Prontera in search of an old lady who can remove cards from slots. Do you know where I can find her?";
+ menu "Yes",-, "No",M_NO;
+
+ mes "Oooo, could you please tell me where she's at? I'd be really appreciative.";
+ menu "Swordsman Association",-, "Sanctuary",M_Boo1,"Prontera Chivalry",M_Boo2,"Trading Post",M_Boo3,"Kit Shop",M_Boo4,"Inn",M_Boo5,"Armory",M_DONE,"Library",M_Boo6,"Job Agency",M_Boo7,"Prontera Castle",M_Boo8,"City Hall",M_Boo9;
+
+ next;
+ mes "[Mason]";
+ mes "Hmm... I dunno why she would be there... guess I'll take a look.";
+ close;
+M_Boo1:
+ next;
+ mes "[Mason]";
+ mes "Wow I never knew she was a religious person... I'll see to it thanks.";
+ close;
+M_Boo2:
+ next;
+ mes "[Mason]";
+ mes "Hmm.... are you sure about that?";
+ close;
+M_Boo3:
+ next;
+ mes "[Mason]";
+ mes "Why would she need to go there? I think you might be mistaken.";
+ close;
+M_Boo4:
+ next;
+ mes "[Mason]";
+ mes "The only thing she'd need at a Kit shop is medicine for her rheumatism. She's probably long gone from there by now.";
+ close;
+M_Boo5:
+ next;
+ mes "[Mason]";
+ mes "I don't think she needs to be there, she LIVES here in Prontera.";
+ close;
+M_Boo6:
+ next;
+ mes "[Mason]";
+ mes "Ah I see, if she's studying then I don't want to bother her. Thanks anyways.";
+ close;
+M_Boo7:
+ next;
+ mes "[Mason]";
+ mes "Job Agency? I don't think so. Don't lead me all around Prontera please! She's already a teacher here.";
+ close;
+M_Boo8:
+ next;
+ mes "[Mason]";
+ mes "The castle eh, I don't want to step in there... just doesn't feel like my style. I don't like that noble feeling of importance type of thing.";
+ close;
+M_Boo9:
+ next;
+ mes "[Mason]";
+ mes "O wow, did she become an important part of Prontera? I'd think she's too busy for me to visit. I'll try again later.";
+ close;
+M_DONE:
+ next;
+ mes "[Mason]";
+ mes "Ah, I heard that her class was somewhere around there... thanks a lot! Here's a lil something for your help.";
+ getitem 7117,1;//Items: Torn Spell Book,
+ set umb_mason,1;
+ close;
+
+L_AGAIN:
+ emotion 15;
+ mes "Yay, I found her! Thank you very much for you help!";
+ close;
+
+L_NOT_GOT_QUEST:
+ mes "Hi! I came here to Prontera in search of an old lady... But...";
+ close;
+M_NO:
+ mes "Oh.. Ok.. Thanks anyways.";
+ close;
+}
+
+aldebaran.gat,153,212,1 script Mojo 740,{
+ mes "[Mojo]";
+ if(umb_lang!=1) goto L_NOT_GOT_QUEST;
+ mes "Oh no! I lost my teacher's ^FF0000old magic book^000000!";
+ mes "What am I going to do... those dumb Bathory...";
+ if(umb_lang==1) set umb_mojo,1;
+ close;
+L_NOT_GOT_QUEST:
+ emotion 1;
+ mes "I lost my teacher's book! What am I going to do...";
+ close;
+}
+
+amatsu.gat,267,189,4 script Marie 744,{
+ mes "[Marie]";
+ if(umb_lang==0) goto L_NOT_GOT_QUEST;
+ if(umb_lang==2 || umb_marie==1) goto L_AGAIN;
+ if(countitem(9001)>0 && countitem(643)>0) goto L_DONE;//Items: Poring Egg, Pet Incubator,
+ mes "Hello, is there something you need?";
+ next;
+ menu "No nothing at all.",M_NO,"Your teacher sent me.",-;
+
+ mes "[Marie]";
+ mes "What does he want from me?";
+ emotion 1;
+ next;
+ mes "[Marie]";
+ mes "Oh wait, I see... he wants his reference scroll back am I right? Well, I'm kinda still using it buuut... I'll give it back if you can gimme a poring egg and an incubator. Those things are so cute!";
+ close;
+
+L_NOT_GOT_QUEST:
+ emotion 1;
+ mes "Hi! What do you want from me?";
+ close;
+
+M_NO:
+ mes "[Marie]";
+ mes "Hrrmm okay? Cya then..";
+ close;
+
+L_DONE:
+ mes "Heyyy there, you have a poring egg and the pet incubator to go with it! Are those for me?";
+ menu "Yep!",-, "Sorry, no.",M_DOH;
+
+ mes "[Marie]";
+ if(countitem(9001)==0 && countitem(643)==0) goto M_DOH;//Items: Poring Egg, Pet Incubator,
+ mes "Yatta! Here's a lil something in return.";
+ delitem 9001,1;//Items: Poring Egg,
+ delitem 643,1;//Items: Pet Incubator,
+ getitem 7118,1;//Items: Torn Scroll,
+ set umb_marie,1; //got Torn Scroll
+ close;
+
+M_DOH:
+ mes "Oh.. pooo... sigh...";
+ close;
+
+L_AGAIN:
+ emotion 15;
+ mes "Yay! I love Porings!";
+ close;
+}
+
+yuno.gat,157,366,2 script Wise Man Fabius 743,{
+ mes "[Fabius]";
+ if(event_umbala >= 3) set umb_lang,2; //You already learnt Umbalian language from Umbalian Chief. So this Quest is disabled
+ if(umb_lang<2) goto L_QUEST;
+ mes "You speak Umbalian fluently! So you will never forget the language of Umbalians!";
+ close;
+L_QUEST:
+ if((countitem(1006) < 1) || (countitem(7118) < 1) || (countitem(7117) < 1)) goto L_DONE;//Items: Old Magic Book, Torn Scroll, Torn Spell Book,
+ delitem 1006,1; //Items: Old Magic Book,
+ delitem 7118,1; //Items: Torn Scroll,
+ delitem 7117,1;//Items: Torn Spell Book,
+ emotion 15;
+ mes "Ah, you've done well in retrieving my references. These artifacts holds information about ruins around the world, from the burning hell of the Magma Dungeon, to the strange eerie Hidden Forest of Yggsadril.";
+ next;
+ mes "[Fabius]";
+ mes "But enough talk, you're just eager to get your reward aren't you? Well it may not sound much, but my reward for you is knowledge...";
+ next;
+ mes "[Fabius]";
+ mes "Actually it is knowledge of the Umbalian people. They are connected to this world of Midgard in some special way, we just can't confirm it yet. There is a theory that they may be like the elves and protect the ancient tree of Yggsadril.";
+ next;
+ mes "[Fabius]";
+ mes "And I, a great wise man of Yuno, will teach you their language!";
+ next;
+ mes "^0000FF Learned the language of Umbalians! ^000000";
+ set umb_lang,2;
+ //clear subquests
+ set umb_marie,0;
+ set umb_mason,0;
+ set umb_mojo,0;
+ //make you understand Umbalian people
+ //it's an alternative way to learn Umbalian Language
+ if(event_umbala < 3) set event_umbala,3;
+ close;
+L_DONE:
+ set umb_lang,1; //got Quest
+ mes "Argh! My three students ran off with my references! Hey you! Can you get them back for me? I'll gladly reward you.";
+ next;
+ mes "[Fabius]";
+ mes "From what I know, they're in different seperate towns making something out of themselves.";
+ if(umb_marie==0 && umb_mason==0 && umb_mojo==0) goto L_NOT_MET;
+ if(umb_marie==1) mes "Oh... You found Marie in Amatsu.";
+ if(umb_mojo==1) mes "You saw Mojo in Aldebaran?";
+ if(umb_mason==1) mes "So... Mason's in Prontera now... Well...";
+ if(umb_marie==0) mes "I wonder where is our sea girl Marie?";
+ if(umb_mojo==0) mes "Mojo should be somewhere near water...";
+ if(umb_mason==0) mes "Where'd Mason go then...";
+ mes "Oh yeah, tell them I sent you";
+ close;
+L_NOT_MET:
+ mes "Oh yeah, tell them I sent you, their names are Marie, Mason and Mojo.";
+ close;
+}
+
+//========================================================================================================================\\
+// Little Quest NPC to enter the dungeon
+// Fixed by Akaru
+//========================================================================================================================\\
+umbala.gat,65,253,4 script Tree Guardian 752,{
+ mes "[Tree Guardian]";
+ mes "Stop, stranger, here is the entrance to the ancient tree!";
+ next;
+ mes "[Tree Guardian]";
+ mes "I cannot allow you to enter, you look pretty weak!";
+ next;
+L_MENU:
+ menu "Talk about tree",-, "Talk about Umbala",M_TALKUMB, "Enter Dungeon",M_DUN, "Leave",M_Leave;
+
+ mes "[Tree Guardian]";
+ mes "The tree is an ancient relique of our culture!";
+ next;
+ mes "[Tree Guardian]";
+ mes "But recently some monsters overwhelmed the tree and are now";
+ mes "slowly killing the tree...like a poison...from inside..";
+ next;
+ goto L_MENU;
+M_TALKUMB:
+ mes "[Tree Guardian]";
+ mes "We don't have many visitors in our small town..";
+ next;
+ mes "[Tree Guardian]";
+ mes "Most people don't find us or are just afraid of us!";
+ next;
+ mes "[Tree Guardian]";
+ mes "And now, we are even more unpopular, because of that damn beast!";
+ next;
+ menu "What beast?",- ,"Leave",M_Leave;
+
+ mes "[Tree Guardian]";
+ mes "The Werewolf of course!!";
+ next;
+ mes "[Tree Guardian]";
+ mes "He is sneaking around our town and killing our soldiers at night!";
+ next;
+ mes "[Tree Guardian]";
+ mes "Hey...if you could get rid of that beast!";
+ next;
+ mes "[Tree Guardian]";
+ mes "I'll let you in!";
+ next;
+ mes "[Tree Guardian]";
+ mes "From now on we can live in peace again, thanks to you!";
+ next;
+ mes "[Tree Guardian]";
+ mes "You may enter the dungeon now!";
+ set umbdun,1;
+ close;
+M_DUN:
+ mes "[Tree Guardian]";
+ if(umbdun != 1) mes "We do not permit weak people to enter!";
+ if(umbdun != 1) close;
+ mes "Come on in, brave warrior!";
+ warp "um_dun01.gat",42,30;
+M_Leave:
+ close;
+}
diff --git a/npc/quests/quests_yuno.txt b/npc/quests/quests_yuno.txt new file mode 100644 index 000000000..aef5db4a9 --- /dev/null +++ b/npc/quests/quests_yuno.txt @@ -0,0 +1,128 @@ +//===== eAthena Script =======================================
+//= Quests NPCs located in Yuno City
+//===== By: ==================================================
+//= eAthena Dev Team
+//===== Current Version: =====================================
+//= 1.4
+//===== Compatible With: =====================================
+//= eAthena 7.15 +
+//===== Description: =========================================
+//= Help the bros and get some rubies or gold. This quest is
+//= also used in part of the Alchemist job quest.
+//===== Additional Comments: =================================
+//= v1.1 Re-did the text and re-organized the script. Corrected some items. [kobra_k88]
+//= v1.2 Added part to Bro's for alchemist quest [Darkchild]
+//= 1.3 fixed that part of Alch Job Quest. [Lupus]
+//= 1.4 Fixed exploit [Lupus]
+//============================================================
+
+
+//===========================================================================
+yuno_in01.gat,103,158,4 script Bain 98,{
+ set @name$, "[Bain]";
+
+OnStart:
+ mes @name$;
+ if(bros_q == 1) goto L_Check;
+ mes "We are going to invent a doll that can talk and communicate! Well, at least that's what I'm trying to do....";
+ mes "The idea came from an old tale about a doll that acted like a real person.";
+ next;
+ mes @name$;
+ mes "I figure if someone had the ability to make such a doll back then, then it should definitely be possible today.";
+ next;
+ mes @name$;
+ mes "Unfortunately I lack the proper supplies and parts to actually try and build the doll.";
+ mes "Although I can buy some of the things I need, many of these items can only be taken from monsters......";
+ next;
+ mes @name$;
+ mes "I am much to weak to defeat these monsters....... How will I be able to continue this project??.....";
+ next;
+ menu "I'll get the items for you.",-, "Good luck.",M_End;
+
+ mes @name$;
+ mes "Really? Such benevolence is rare in this day and age. We would be grateful for you assisstance.";
+ mes "Here are the items that we will be needing.......";
+ callsub sF_List;
+ set bros_q, 1;
+ close;
+
+ M_End:
+ mes @name$;
+ mes "We'll need a lot of luck if this is going to happen. If you know of anyone who can help us, please let us know.";
+ close;
+
+L_Check:
+ if(countitem(974) < 1 || countitem(612) < 5 || countitem(7068) < 5 || countitem(1003) < 5 || countitem(7043) < 5 ||
+ countitem(757) < 3 || countitem(756) < 3 || Zeny < 2000) goto L_NotEnuf;
+ delitem 974,1;
+ delitem 612,5;
+ delitem 7068,5;
+ delitem 1003,5;
+ delitem 7043,5;
+ delitem 757,3;
+ delitem 756,3;
+ set Zeny, Zeny-2000;
+ mes "Thank you very much! You found all of the items I needed. We could not have completed this project without your help";
+ next;
+ mes @name$;
+ mes "Okay, let's try this out!";
+ mes "Hold on for just a second!";
+ next;
+ mes "-Vrrrmrmrmrmrmrmrrmrmrmmrmrmrmrmmm";
+ next;
+ mes "-Pakakakakakakakakakakakakakak";
+ next;
+ mes "-Shakakakakakakakakakakaakakak";
+ next;
+ mes @name$;
+ mes "AHHH it is a success!";
+ mes "I don't know if we can do anything else, but this time we have created";
+ set @wowitem,rand(2);
+ if(@wowitem == 0) mes "5 Ruby!";
+ if(@wowitem == 0) getitem 723,5;
+ if(@wowitem == 1) mes "3 Gold!";
+ if(@wowitem == 1) getitem 969,3;
+ if(ALCH_Q == 6) set ALCH_Q2, 2; //for Alchemist Job Quest
+ set bros_q, 0;
+ next;
+ mes @name$;
+ mes "Now that we know that it works,";
+ mes "I don't have any need for this.";
+ mes "Why don't you take it? Oh,";
+ mes "and if you find anymore parts,";
+ mes "bring them to me again. Heheheheh.";
+ next;
+ mes @name$;
+ mes "Thanks for helping me out.";
+ mes "You have my eternal gratitude.";
+ mes "I wish you luck in your journeys!";
+ close;
+
+ L_NotEnuf:
+ mes "In case you forgot, these are the items that we will need. I suggest you write them down......";
+ callsub sF_List;
+ close;
+
+sF_List:
+ next;
+ mes @name$;
+ mes "^5533FF1 Mixture";
+ mes "5 Mini-Furnaces";
+ mes "5 Burnt Trees";
+ mes "5 Coal";
+ mes "5 Fine Sand";
+ mes "3 Rough Elunium";
+ mes "3 Rough Oridecon^000000";
+ next;
+ mes @name$;
+ mes "We will also need ^5533FF2,000 zeny^000000.";
+ mes "The money will help pay for the minor expenses invovled in the undertaking of this project. Good luck and please be safe.";
+ return;
+}
+
+//=====================================================================
+yuno_in01.gat,99,153,4 script Bajin 47,{
+ set @name$, "[Bajin]";
+ doevent "Bain::OnStart";
+ close;
+}
diff --git a/npc/quests/skills/2nd_class_skills.txt b/npc/quests/skills/2nd_class_skills.txt new file mode 100644 index 000000000..37c9a34d6 --- /dev/null +++ b/npc/quests/skills/2nd_class_skills.txt @@ -0,0 +1,897 @@ +//===== eAthena Script =======================================
+//= New Skills Quests
+//===== By: ==================================================
+//= Lupus, Reddozen
+//===== Current Version: =====================================
+//= 1.3a
+//===== Compatible With: =====================================
+//= eAthena Revision 3800+
+//===== Description: =========================================
+//= Temp quests for new skills for 2nd classes
+//===== Additional Comments: =================================
+//= 1.0 for fully working skills only [Lupus]
+//= 1.1 Added more new skill quests for more classes [Lupus]
+//= Somehow eA engine doesn't let you keep learn't skill V_V'
+//= 1.2 Added to correct locations, correct NPC's, fixed
+//= some of the items required and made them into real
+//= quests. [Reddozen]
+//= 1.3 Fixed bugs and minor typos. Optimized [Lupus]
+//= 1.3a fixed an item ID typo, thx 2Spiritual Kid
+//============================================================
+
+
+//============================================================
+// SAGE SKILL - CREATE CONVERTER + ELEMENTAL CHARGE
+//============================================================
+yuno_in03.gat,176,24,3 script Mischna 755,{
+ mes "[Mischna]";
+ if(BaseJob!=Job_Sage) goto L_sageno;
+ if(getskilllv(1007)) goto L_elemental;
+
+ mes "I can teach you a new skill";
+ mes "that I discovered, but you";
+ mes "will need to bring me a few";
+ mes "things to complete the";
+ mes "process.";
+ next;
+
+ mes "[Mischna]";
+ mes "We will need:";
+ mes "10 Scorpion Tails";
+ mes "7 Horns";
+ mes "12 Rainbow Shells";
+ mes "10 Snail Shells";
+ mes "4 Blank Scrolls";
+ next;
+
+ mes "[Mischna]";
+ mes "Let me check your items.";
+ next;
+
+ if(countitem(904)<10 || countitem(947)<7 || countitem(1013)<12 || countitem(946)<10 || countitem(7433)<4) goto L_noitems;//Items: Scorpion_Tail, Horn, Rainbow_Shell, Snail's_Shell, Blank_Scroll,
+ delitem 904, 10;//Items: Scorpion_Tail,
+ delitem 947, 7;//Items: Horn,
+ delitem 1013, 12;//Items: Rainbow_Shell,
+ delitem 946, 10;//Items: Snail's_Shell,
+ delitem 7433, 4;//Items: Blank_Scroll,
+
+ mes "[Mischna]";
+ mes "I see you have what we need,";
+ mes "so I'll teach you this new";
+ mes "talent of mine!";
+ skill 1007,1,0;
+ next;
+
+ mes "[Mischna]";
+ mes "Do you feel more in tune";
+ mes "with nature?";
+ close;
+
+L_noitems:
+ mes "[Mischna]";
+ mes "You dont have enough items.";
+ mes "Come back when you have all";
+ mes "the required items for me.";
+ close;
+
+L_sageno:
+ mes "Hi I'm Mischna. How are you?";
+ mes "Please enjoy your stay here";
+ mes "within the walls of the great";
+ mes "Sage's guild.";
+ close;
+
+L_sagefail:
+ mes "[Mischna]";
+ mes "You dont have enough items.";
+ mes "Come back when you have all";
+ mes "the required items for me.";
+ mes "to give you this power over";
+ mes "the elements.";
+ close;
+
+L_alreadyhave:
+ mes "You are such a wonderfull";
+ mes "student. It's too bad I have";
+ mes "nothing more to teach you.";
+ close;
+
+L_elemental:
+ if(getskilllv(1008) || getskilllv(1017) || getskilllv(1018) || getskilllv(1019)) goto L_alreadyhave;
+
+ mes "I have one more skill that";
+ mes "I can teach you, but you";
+ mes "will need to bring me one of";
+ mes "these sets in return...";
+ next;
+
+ mes "[Mischna]";
+ mes "I can only except one set.";
+ mes "20 Red blood (fire)";
+ mes "20 Crystal Blue (water)";
+ mes "20 Wind of Verdure (Wind)";
+ mes "20 Green Live (Earth)";
+ next;
+
+ mes "[Mischna]";
+ mes "Rember that I can only teach";
+ mes "you one, so Choose carefully!";
+ next;
+
+ menu "Water Charge",sage_1, "Earth Charge",sage_2, "Fire Charge",sage_3, "Wind Charge",sage_4;
+
+ sage_1:
+ if(countitem(991)<20)goto L_sagefail;//Items: Crystal_Blue,
+ delitem 991, 20; //Items: Crystal_Blue,
+ skill 1008,1,0;
+ goto L_alreadyhave;
+
+ sage_2:
+ if(countitem(993)<20)goto L_sagefail;//Items: Green_Live,
+ delitem 993, 20;//Items: Green_Live,
+ skill 1017,1,0;
+ goto L_alreadyhave;
+
+ sage_3:
+ if(countitem(990)<20)goto L_sagefail;//Items: Red_Blood,
+ delitem 990, 20;//Items: Red_Blood,
+ skill 1018,1,0;
+ goto L_alreadyhave;
+
+ sage_4:
+ if(countitem(992)<20)goto L_sagefail;//Items: Wind_of_Verdure,
+ delitem 992, 20;//Items: Wind_of_Verdure,
+ skill 1019,1,0;
+ goto L_alreadyhave;
+}
+
+//============================================================
+// HUNTER SKILL - PHANTASMIC ARROW
+//============================================================
+payon_in02.gat,54,13,7 script Master Kabac 55,{
+ mes "[Master Kabac]";
+ if(BaseJob!=Job_Hunter) goto L_hunterno;
+ if(getskilllv(1009)) goto L_alreadyhave;
+ if(JobLevel<40) goto L_nojob;
+
+ mes "I can teach you a secret";
+ mes "technique pased down through";
+ mes "my family for generation. My";
+ mes "family has guarded this secret";
+ mes "for years, but I could teach";
+ mes "for a few supplies.";
+ next;
+ mes "[Master Kabac]";
+ mes "I am running low on on a few";
+ mes "things. Here is my list:";
+ mes "5 Cursed Rubys";
+ mes "5 Harpy's Feathers";
+ mes "30 Pet Food";
+ next;
+
+ mes "[Master Kabac]";
+ mes "Let me check your items.";
+ next;
+
+ if(countitem(724)<5 || countitem(7115)<5 || countitem(537)<30) goto L_noitems;//Items: Cursed_Ruby, Harpy_Feather, Pet_Food,
+ delitem 724, 5;//Items: Cursed_Ruby,
+ delitem 7115, 5;//Items: Harpy_Feather,
+ delitem 537, 30;//Items: Pet_Food,
+
+ mes "[Master Kabac]";
+ mes "I see you have what you need,";
+ mes "so I'll teach you my talent.";
+ skill 1009,1,0;
+ close;
+
+L_noitems:
+ mes "[Master Kabac]";
+ mes "You dont have enough items.";
+ mes "Come back when you have all";
+ mes "the required items for me.";
+ close;
+
+L_nojob:
+ mes "Come back when you've Learned";
+ mes "more about being a Hunter.";
+ mes "You need to have at least 40";
+ mes "levels as a hunter first.";
+ close;
+
+L_alreadyhave:
+ mes "Ahh, my apprentence, you";
+ mes "came to visit me...";
+ close;
+
+L_hunterno:
+ mes "Is there something I can";
+ mes "help you with? I believe";
+ mes "you have the wrong old man.";
+ close;
+}
+
+//============================================================
+// BLACKSMITH SKILL - GREED + UNFAIR TRICK
+//============================================================
+//== DOODDAY - GREED SKILL ===================================
+geffen.gat,172,53,7 script Goodday 826,{
+ mes "[Goodday]";
+ if(BaseJob!=Job_Blacksmith) goto L_nosmith;
+ if(getskilllv(1013)) goto L_alreadyhave;
+ if(Weight < 5000 || (Weight > MaxWeight-MaxWeight/10)) goto L_notstrong;
+
+ mes "You look pretty strong, so I'll";
+ mes "teach you a little trick I found";
+ mes "while watching some wizards move";
+ mes "things around without lifting a";
+ mes "finger!";
+ skill 1013,1,0;
+ close;
+
+L_notstrong:
+ mes "Come back when you're strong";
+ mes "enough to handle the weight";
+ mes "of my ability. You will need";
+ mes "to be able to carry over 5000";
+ mes "weight, and not be over 90%.";
+ close;
+
+L_nosmith:
+ mes "Geffen is such a great town.";
+ mes "Don't you think so too?";
+ next;
+ emotion 23;
+ mes "[Goodday]";
+ mes "WHAT...";
+ mes "You don't!";
+ close;
+
+L_alreadyhave:
+ mes "I've already tought you";
+ mes "everything I know, so I";
+ mes "need to get back to my";
+ mes "work.";
+ close;
+}
+
+//== AKI - UNFAIR TRICK SKILL ==================================
+geffen.gat,178,72,7 script Aki 726,{
+ mes "[Aki]";
+ if(BaseJob!=Job_Blacksmith) goto L_nosmith;
+ if(getskilllv(1012)) goto L_alreadyhave;
+ if(getskilllv(1013)<1) goto L_nogreed;
+ if(JobLevel<30) goto L_nojob;
+ mes "We're going to need a few things";
+ mes "for this lesson. Bring me:";
+ mes "2 Steel";
+ mes "8 Coal";
+ mes "2 Iron Hammers";
+ mes "1 Detrimindexta";
+ mes "500 Zeny";
+ next;
+
+ mes "[Aki]";
+ mes "Let me check your items.";
+ next;
+
+ if(countitem(999)<2 || countitem(1003)<8 || countitem(613)<2 || countitem(971)<1 || zeny<500) goto L_noitems;//Items: Steel, Coal, Iron_Hammer, Detrimindexta,
+ delitem 999, 2;//Items: Steel,
+ delitem 1003, 8;//Items: Coal,
+ delitem 613, 2;//Items: Iron_Hammer,
+ delitem 971, 1;//Items: Detrimindexta,
+ set zeny, zeny-500;
+
+ mes "[Aki]";
+ mes "Good, You brought everything";
+ mes "with you already! We'll start";
+ mes "the process now.";
+ skill 1012,1,0;
+ next;
+
+ specialeffect 183;
+ mes "Wow, you're a fast learner.";
+ mes "Enjoy your new talents!";
+ close;
+
+L_noitems:
+ mes "[Aki]";
+ mes "You dont have enough items.";
+ mes "Come back when you have all";
+ mes "the required items for me.";
+ close;
+
+L_nosmith:
+ mes "Don't mind Goodday overthere.";
+ mes "He thinks everyone should like";
+ mes "this boring place!";
+ emotion e_laugh;
+ close;
+
+L_nogreed:
+ mes "If you're looking for more";
+ mes "to learn, then you should";
+ mes "talk to Goodday over there";
+ close;
+
+L_alreadyhave:
+ mes "WOW, I guess you've learned";
+ mes "all that the Blacksmith's of";
+ mes "Geffen can teach. Good luck";
+ mes "with your travels.";
+ close;
+
+L_nojob:
+ mes "Come back when you've Learned";
+ mes "more about being a blacksmith.";
+ mes "You will need a Job level of at";
+ mes "least lv 30 to learn what I";
+ mes "know.";
+ close;
+}
+
+//============================================================
+// CRUSADER SKILL - SHRINK
+//============================================================
+geffen.gat,110,118,3 script Ford 752,{
+ mes "[Ford]";
+ if(BaseJob!=Job_Crusader) goto L_nocruz;
+ if(getskilllv(1002)) goto L_alreadyhave;
+ mes "Maybe I'll teach you a little skill";
+ mes "if you bring me a few things...";
+ mes "Bring me these items and we'll";
+ mes "see if I feel like giving it to you.";
+ next;
+ mes "[Ford]";
+ mes "1 Red Potion";
+ mes "20 Sticky Mucus";
+ mes "3 Empty Bottles";
+ mes "5 Jellopies";
+ mes "1 Unripe Apple";
+ mes "1 Grape";
+ mes "1 Coal";
+ mes "3 Cyfars";
+ next;
+
+ mes "[Ford]";
+ mes "Let me check your items.";
+ next;
+
+ if(countitem(501)<1 || countitem(938)<20 || countitem(713)<3 || countitem(909)<5 || countitem(619)<1 || countitem(514)<1 || countitem(1003)<1 || countitem(7053)<3)goto L_noitems;//Items: Red_Potion, Sticky_Mucus, Empty_Bottle, Jellopy, Unripe_Apple, Grape, Coal, Cyfar,
+ delitem 501, 1;//Items: Red_Potion,
+ delitem 938, 20;//Items: Sticky_Mucus,
+ delitem 713, 3;//Items: Empty_Bottle,
+ delitem 909, 5;//Items: Jellopy,
+ delitem 619, 1;//Items: Unripe_Apple,
+ delitem 514, 1;//Items: Grape,
+ delitem 1003, 1;//Items: Coal,
+ delitem 7053, 3;//Items: Cyfar,
+ mes "[Ford]";
+ mes "Time to roll my lucky dice.";
+ mes "Good luck, I almost never lose.";
+//TODO: add DICE emotions? 8)
+ emotion 29;
+ next;
+ if(rand(1,6)!=3) goto L_lose;
+ emotion 58;
+ next;
+
+ skill 1002,1,0;
+ mes "[Ford]";
+ mes "I can't believe I lost!";
+ mes "I NEVER lose...";
+ emotion 28;
+ close;
+
+L_noitems:
+ mes "[Ford]";
+ mes "You dont have enough items.";
+ mes "Come back when you have all";
+ mes "the required items for me.";
+ close;
+
+L_lose:
+ emotion 63;
+ next;
+ mes "[Ford]";
+ mes "I win again!!";
+ mes "I'm not teaching you";
+ mes "anything this time. Come";
+ mes "back if you want to Try";
+ mes "again";
+ close;
+
+L_nocruz:
+ mes "If you are not a Crusader,";
+ mes "then you have no business";
+ mes "with me...";
+ close;
+
+L_alreadyhave:
+ mes "Hey, you were lucky I";
+ mes "even tought you the";
+ mes "skill I did! Don't press";
+ mes "your luck.";
+ close;
+}
+
+//============================================================
+// MONK - KI TRANSLATION + KI EXPLOSION
+//============================================================
+monk_test.gat,316,69,3 script Krate 823,{
+ mes "[Krate]";
+ if(BaseJob!=Job_Monk) goto L_nomonk;
+ if(getskilllv(1015) && getskilllv(1016)) goto L_alreadyhave;
+ if(monk_skill) goto L_verif;
+ if(Weight>0) goto L_heavymonk;
+ mes "I'll teach you all I know, but you must bring me:";
+ mes "40 Stems";
+ mes "3 Shoots";
+ set monk_skill, 1;
+ next;
+ goto L_verif;
+
+L_verif:
+ mes "Let me check your items.";
+ next;
+ if(countitem(711)<3 || countitem(905)<40) goto L_noitems;//Items: Shoot, Stem,
+ delitem 711, 3;//Items: Shoot,
+ delitem 905, 40;//Items: Stem,
+ next;
+ mes "[Krate]";
+ mes "I see you have what you need,";
+ mes "so I'll teach you my talent.";
+ skill 1015,1,0;
+ skill 1016,1,0;
+ set monk_skill, 0;
+ close;
+
+L_noitems:
+ mes "[Krate]";
+ mes "You dont have enough items.";
+ mes "Come back when you have all";
+ mes "the required items for me.";
+ close;
+
+L_nomonk:
+ mes "It's seems that your soul is disagree with your body";
+ mes "come back when your body and your soul will be like Ying and Yang.";
+ emotion e_gasp;
+ close;
+
+L_alreadyhave:
+ mes "I've already tought you";
+ mes "everything I know...";
+ close;
+
+L_heavymonk:
+ mes "Come back when you've cleansed";
+ mes "youself of your worldly possesions";
+ close;
+}
+
+//============================================================
+// ALCHEMIST - ELEMENTAL POTION CREATION
+//============================================================
+yuno_in04.gat,33,108,5 script Pislik 750,{
+ mes "[Pislik]";
+ if(BaseJob!=Job_Alchem) goto L_noalche;
+ if(countitem(7434)) goto L_alreadyhave;//Items: Elemental_Potion_Creation_Guide,
+ if(JobLevel<40) goto L_nojob;
+
+ mes "I'll teach you all I know, but";
+ mes "you have to bring me some things";
+ mes "first.";
+ mes "5 Yellow Gemstones";
+ mes "4 Empty Potion Bottles";
+ mes "10 Hearts of Mermaid";
+ mes "10 Moth Dust";
+ mes "20 Maneater Blossoms";
+ mes "1 Geek Glasses";
+ next;
+
+ mes "[Pislik]";
+ mes "Let me check your items.";
+ next;
+
+ if(countitem(715)<5 || countitem(1093)<4 || countitem(950)<10 || countitem(1057)<10 || countitem(1032)<20 || countitem(2243)<1) goto L_noitems;//Items: Yellow_Gemstone, Empty_Potion_Bottle, Heart_of_Mermaid, Moth_Dust, Maneater_Blossom, Geek_Glasses,
+ delitem 715, 5;//Items: Yellow_Gemstone,
+ delitem 1093, 4;//Items: Empty_Potion_Bottle,
+ delitem 950, 10;//Items: Heart_of_Mermaid,
+ delitem 1057, 10;//Items: Moth_Dust,
+ delitem 1032, 20;//Items: Maneater_Blossom,
+ delitem 2243, 1;//Items: Geek_Glasses,
+ getitem 7434, 1;//Items: Elemental_Potion_Creation_Guide,
+
+ mes "[Pislik]";
+ mes "I see you have what you need,";
+ mes "so I'll give you my manual.";
+ close;
+
+L_noitems:
+ mes "[Pislik]";
+ mes "You dont have enough items.";
+ mes "Come back when you have all";
+ mes "the required items for me.";
+ close;
+
+L_noalche:
+ mes "Sorry, but my knowledge its only about alchemy.";
+ mes "I can't help you.";
+ emotion e_gasp;
+ close;
+
+L_alreadyhave:
+ mes "I've already given you";
+ mes "my Elemental Potion Creation Guide...";
+ close;
+
+L_nojob:
+ mes "Come back when you've learned";
+ mes "more about being an Alchemist.";
+ close;
+}
+
+//prontera.gat,147,135,6 script Skill Master 749,{
+// //Rocker Egg x 2
+// callfunc "F_Skill2Quest","Skill Master", 238,"Basis of Life", Job_Alchem, 9011,2, //250000;
+// end;
+//}
+
+//============================================================
+// ASSASSIN - SONIC ACCELERATION + THROW VENOM KNIFE
+//============================================================
+in_moc_16.gat,14,21,3 script Kiltin 884,{
+ mes "[Kiltin]";
+ if(BaseJob!=Job_Assassin) goto L_nosin;
+ if(getskilllv(1003) && getskilllv(1004)) goto L_alreadyhave;
+
+ mes "I'll teach you all I know, but";
+ mes "you need to steal some things";
+ mes "for me:";
+ mes "3 Sapphires";
+ mes "1 Ruby";
+ next;
+
+ mes "[Kiltin]";
+ mes "Let me check your items.";
+ next;
+
+ if(countitem(726)<3 || countitem(723)<1) goto L_noitems;//Items: Sapphire, Ruby,
+ delitem 726, 3;//Items: Sapphire,
+ delitem 723, 1;//Items: Ruby,
+
+ mes "[Kiltin]";
+ mes "I see you have what you need,";
+ mes "so I'll teach you my talent.";
+ skill 1003,1,0;
+ skill 1004,1,0;
+ close;
+
+L_noitems:
+ mes "[Kiltin]";
+ mes "You dont have enough items.";
+ mes "Come back when you have all";
+ mes "the required items for me.";
+ close;
+
+L_nosin:
+ mes "Sorry, but I'm on service of Shadowmen.";
+ emotion e_gasp;
+ close;
+
+L_alreadyhave:
+ mes "I've already tought you";
+ mes "everything I know...";
+ close;
+}
+
+//============================================================
+// BARD - PANG VOICE
+//============================================================
+prontera.gat,134,328,7 script Timid man 89,{
+ mes "[Timid man]";
+ if(BaseJob!=Job_Bard) goto L_nobard;
+ if(getskilllv(1010)) goto L_alreadyhave;
+ if(JobLevel<40) goto L_nojob;
+
+ mes "I'll teach you all I know, but";
+ mes "I'm a little thirsty. Bring me";
+ mes "1 Tropical Sograt";
+ next;
+
+ mes "[Timid man]";
+ mes "Let me check your items.";
+ next;
+
+ if (countitem(12112)<1) goto L_noitems;//Items: Tropical_Sograt,
+ delitem 12112, 1;//Items: Tropical_Sograt,
+ mes "[Timid man]";
+ mes "I see you have what you need,";
+ mes "so I'll teach you my talent.";
+ skill 1010,1,0;
+ close;
+
+L_noitems:
+ mes "[Timid man]";
+ mes "You dont have enough items.";
+ mes "Come back when you have all";
+ mes "the required items for me.";
+ close;
+
+L_nobard:
+ mes "Hum... you don't seems to be a musician";
+ emotion e_gasp;
+ close;
+
+L_alreadyhave:
+ mes "I've already tought you";
+ mes "everything I know...";
+ close;
+
+L_nojob:
+ mes "Come back when you've learned";
+ mes "more about being a bard.";
+ close;
+}
+
+//============================================================
+// DANCER - WINK OF CHARM
+//============================================================
+comodo.gat,205,171,7 script Chanel 724,{
+ mes "[Chanel]";
+ if(BaseJob!=Job_Dancer) goto L_nodancer;
+ if(getskilllv(1011)) goto L_alreadyhave;
+ mes "I'll teach you all I know for:";
+ mes "1 Crystal Mirror";
+ mes "1 Alcohol";
+ mes "1 China";
+ mes "1 Apple";
+ mes "3 Bananas";
+ mes "5 Well-baked Cookies";
+ next;
+
+ mes "[Chanel]";
+ mes "Let me check your items.";
+ next;
+
+ if(countitem(747)<1 || countitem(970)<1 || countitem(736)<1 || countitem(512)<1 || countitem(513)<3 || countitem(538)<5) goto L_noitems;//Items: Crystal_Mirror, Alcohol, China, Apple, Banana, Well-baked_Cookie,
+ delitem 747, 1;//Items: Crystal_Mirror,
+ delitem 970, 1;//Items: Alcohol,
+ delitem 736, 1;//Items: China,
+ delitem 512, 1;//Items: Apple,
+ delitem 513, 3;//Items: Banana,
+ delitem 538, 5;//Items: Well-baked_Cookie,
+
+ mes "[Chanel]";
+ mes "I see you have what you need,";
+ mes "so I'll teach you my talent.";
+ skill 1011,1,0;
+ close;
+
+L_noitems:
+ mes "[Chanel]";
+ mes "You dont have enough items.";
+ mes "Come back when you have all";
+ mes "the required items for me.";
+ close;
+
+L_nodancer:
+ mes "Hum... you don't seems to be a musician";
+ emotion e_gasp;
+ close;
+
+L_alreadyhave:
+ mes "I've already tought you";
+ mes "everything I know...";
+ close;
+}
+
+//============================================================
+// KNIGHT - CHARGE ATTACK
+//============================================================
+prt_in.gat,84,98,3 script Esope 734,{
+ mes "[Esope]";
+ if(BaseJob!=Job_Knight) goto L_noknight;
+ if(getskilllv(1001)) goto L_alreadyhave;
+
+ mes "I'll teach you all I know for:";
+ mes "5 Candy canes";
+ mes "3 Witherless Roses";
+ next;
+
+ mes "[Esope]";
+ mes "Let me check your items.";
+ next;
+
+ if(countitem(530)<5 || countitem(748)<3)goto L_noitems;//Items: Candy_Cane, Witherless_Rose,
+ delitem 530, 5;//Items: Candy_Cane,
+ delitem 748, 3;//Items: Witherless_Rose,
+
+ mes "[Esope]";
+ mes "I see you have what you need,";
+ mes "so I'll teach you my talent.";
+ skill 1001,1,0;
+ close;
+
+L_noitems:
+ mes "[Esope]";
+ mes "You dont have enough items.";
+ mes "Come back when you have all";
+ mes "the required items for me.";
+ close;
+
+L_noknight:
+ mes "Looking for your master?";
+ emotion e_gasp;
+ close;
+
+L_alreadyhave:
+ mes "I've already tought you";
+ mes "everything I know...";
+ close;
+}
+
+//============================================================
+// ROGUE - CLOSE CONFINE
+//============================================================
+in_rogue.gat,387,94,3 script Hyzaragrack 84,{
+ mes "[Hyzaragrack]";
+ if(BaseJob!=Job_Rogue) goto L_norogue;
+ if(getskilllv(1005)) goto L_alreadyhave;
+
+ mes "I'll teach you all I know, but";
+ mes "you'll have to steel some things";
+ mes "for me first...";
+ mes "5 Immortal Hearts";
+ mes "5 Stone Hearts";
+ mes "2 Burning hearts";
+ next;
+
+ mes "[Hyzaragrack]";
+ mes "Let me check your items.";
+ next;
+
+ if(countitem(929)<5 || countitem(953)<5 || countitem(7097)<2) goto L_noitems;//Items: Immortal_Heart, Stone_Heart, Burning_Heart,
+ delitem 929, 5;//Items: Immortal_Heart,
+ delitem 953, 5;//Items: Stone_Heart,
+ delitem 7097, 2;//Items: Burning_Heart,
+
+ mes "[Hyzaragrack]";
+ mes "I see you have what you need,";
+ mes "so I'll teach you my talent.";
+ skill 1005,1,0;
+ close;
+
+L_noitems:
+ mes "[Hyzaragrack]";
+ mes "You dont have enough items.";
+ mes "Come back when you have all";
+ mes "the required items for me.";
+ close;
+
+L_norogue:
+ mes "Looking for your master?";
+ emotion e_gasp;
+ close;
+
+L_alreadyhave:
+ mes "I've already tought you";
+ mes "everything I know...";
+ close;
+}
+
+//============================================================
+// WIZARD - SIGHTBLASTER
+//============================================================
+gef_tower.gat,116,37,1 script Nyao 748,{
+ mes "[Nyao]";
+ if(BaseJob!=Job_Wizard) goto L_nowiz;
+ if(getskilllv(1006)) goto L_alreadyhave;
+
+ mes "I'll teach you all I know for:";
+ mes "10 Crystal Blue";
+ mes "10 Green Live";
+ mes "10 Red Blood";
+ mes "10 Wind of Verdure";
+ next;
+
+ mes "[Nyao]";
+ mes "Let me check your items.";
+ next;
+
+ if(countitem(990)<10 || countitem(991)<10 || countitem(992)<10 || countitem(993)<10) goto L_noitems;//Items: Red_Blood, Crystal_Blue, Wind_of_Verdure, Green_Live,
+ delitem 990, 10;//Items: Red_Blood,
+ delitem 991, 10;//Items: Crystal_Blue,
+ delitem 992, 10;//Items: Wind_of_Verdure,
+ delitem 993, 10;//Items: Green_Live,
+
+ mes "[Nyao]";
+ mes "I see you have what you need,";
+ mes "so I'll teach you my talent.";
+ skill 1006,1,0;
+ close;
+
+L_noitems:
+ mes "[Nyao]";
+ mes "You dont have enough items.";
+ mes "Come back when you have all";
+ mes "the required items for me.";
+ close;
+
+L_nowiz:
+ mes "You must have the magical power.";
+ emotion e_gasp;
+ close;
+
+L_alreadyhave:
+ mes "I've already tought you";
+ mes "everything I know...";
+ close;
+}
+
+//============================================================
+// PRIEST - REDEMPTIO
+//============================================================
+prt_church.gat,111,112,3 script Nun Linus 79,{
+ mes "[Nun Linus]";
+ if(BaseJob!=Job_Priest) goto L_nopriest;
+ if(getskilllv(1014)) goto L_alreadyhave;
+ if(getskilllv(54)<1) goto L_norez;
+
+ mes "I can teach you the mercy of God";
+ mes "if you bring me a couple things,";
+ mes "and if God finds you worthy!";
+ mes "1 Blue Gemstone";
+ mes "1 Holy Water";
+ next;
+
+ mes "[Nun Linus]";
+ mes "Let me check your items.";
+ next;
+
+ if(countitem(717)<1 || countitem(523)<1) goto L_noitems;//Items: Blue_Gemstone, Holy_Water,
+ delitem 717, 1;//Items: Blue_Gemstone,
+ delitem 523, 1;//Items: Holy_Water,
+
+ mes "[Nun Linus]";
+ mes "I see you have what you need,";
+ mes "so we shall see if God finds";
+ mes "you worthy yet!";
+ next;
+ if(rand(100)<JobLevel+25) goto L_bless;
+ mes "[Nun Linus]";
+ mes "Sorry, but God has not";
+ mes "shined on you as of yet.";
+ mes "Try again when you are a";
+ mes "stronger Priest.";
+ close;
+
+L_bless:
+ mes "[Nun Linus]";
+ mes "Hum... I see god is shined on you this time";
+ skill 1014,1,0;
+ close;
+
+L_noitems:
+ mes "[Nun Linus]";
+ mes "You dont have enough items.";
+ mes "Come back when you have all";
+ mes "the required items for me.";
+ close;
+
+L_nopriest:
+ mes "Sorry, you need to have some faith in God.";
+ emotion e_gasp;
+ close;
+
+L_alreadyhave:
+ mes "I've already tought you";
+ mes "everything I know...";
+ close;
+
+L_norez:
+ mes "Come back when you've learned";
+ mes "more about priest and God.";
+ close;
+}
+
diff --git a/npc/quests/skills/acolyte_skills.txt b/npc/quests/skills/acolyte_skills.txt new file mode 100644 index 000000000..a9d76c5b6 --- /dev/null +++ b/npc/quests/skills/acolyte_skills.txt @@ -0,0 +1,127 @@ +//===== eAthena Script =======================================
+//= Acolyte Skill Quest
+//===== By: ==================================================
+//= kobra_k88
+//===== Current Version: =====================================
+//= 1.4
+//===== Compatible With: =====================================
+//= eAthena 7.15 +
+//===== Description: =========================================
+//= <Description>
+//===== Additional Comments: =================================
+//= v1.0a Now using functions found in "Global_Functions.txt"
+//= for class checks.
+//= 1.2 Added Baby Class Support [Lupus]
+//= 1.3 Removed callfunc Is_####_Class in favor of baseClass [Silentdragon]
+//= 1.4 Fixed an exploit [Lupus]
+//============================================================
+
+
+prt_church.gat,173,23,4 script Acolyte Klift 79,{
+ mes "[Acolyte Klift]";
+ if (baseClass == Job_Acolyte) goto L_Start;
+
+L_Other:
+ mes "Ah, welcome to the Prontera Church also known as the Sanctuary.";
+ mes "Unfortunately I cannot be of much help to you. For my fellow";
+ mes "Priests and Acolytes however, I can help them to find their ^5555FF'hidden";
+ mes "ability'^000000.";
+ close;
+
+L_Start:
+ if (HOLYLIGHT == 1) goto L_Check;
+ if (getskilllv(156)>0) goto L_GotSkill;
+ if(sex==1) mes "Ahh... Brother!";
+ if(sex==0) mes "Ahh... Sister!";
+ mes "Does the task of caring for our lost sheep tire you out? Is it too";
+ mes "much of a burden? Do not despair, I am here to assist you.";
+ next;
+ menu "About an Acolyte's ^5555FF'hidden ablitiy'^000000...",M_0, "End Conversation.",M_End;
+
+ M_0:
+ mes "[Acolyte Klift]";
+ mes "Faced with great danger in an endless struggle with evil, our";
+ mes "brethren are in much need of assistance.";
+ next;
+ mes "[Acolyte Klift]";
+ mes "As acolytes approach their senior years in the clergy, they learn to";
+ mes "call upon their inner power to use a special skill to aid them in";
+ mes "battle.";
+ next;
+ mes "[Acolyte Klift]";
+ mes "That skill is ^5555FF'Holy Light'^000000. Holy Light does damage to";
+ mes "all foes but is even more effective on the undead.";
+ next;
+ mes "[Acolyte Klift]";
+ mes "For someone like yourself to learn this skill, takes some hard work.";
+ mes "Would you like to learn this skill?";
+ next;
+ menu "Yes, please.",-, "Let me think about it.",M_End;
+
+ mes "[Acolyte Klift]";
+ mes "Very good. You will need to find these items in order to learn the";
+ mes "skill:";
+ mes "^5555FF1 Opal^000000,";
+ mes "^5555FF1 Crystal Blue^000000,";
+ mes "and ^5555FF1 Rosary^000000.";
+ next;
+ mes "[Acolyte Klift]";
+ mes "Of course you will also need to have a sufficient level of";
+ mes "experience. Namely a ^5555FFjob level of at least 30^000000. This does";
+ mes "not apply to Priests or Monks however, because of the vast amount of";
+ mes "experience they already have.";
+ next;
+ mes "[Acolyte Klift]";
+ mes "Come back when you are ready. I will be here.";
+ set HOLYLIGHT, 1;
+ close;
+ M_End:
+ mes "[Acolyte Klift]";
+ mes "I understand your zeal. You have much time yet to practice and gain";
+ mes "experience. Go forth with many blessings...";
+ close;
+
+L_Check:
+ mes "So, are you ready for the Holy Light training? Let me check....";
+ next;
+ mes "[Acolyte Klift]";
+ if (BaseJob==Job_Acolyte && JobLevel<30) goto L_LowLvl;
+ if (countitem(727)<1 || countitem(991)<1 || countitem(2608)<1) goto L_NoItems;
+ delitem 727,1;
+ delitem 991,1;
+ delitem 2608,1;
+ mes "Oh! Very good. You have brought back all of the items I asked for.";
+ next;
+ mes "[Acolyte Klift]";
+ mes "Ok lets get started...";
+ next;
+ mes "(after hours of praying and meditation)";
+ next;
+ mes "[Acolyte Klift]";
+ mes "Yes! I feel it. You have released your hidden abilities and can now";
+ mes "use ^5555FFHoly Light^000000!";
+ skill 156,1,0;
+ set HOLYLIGHT, 0;
+ mes "[Priest]";
+ mes "You have done well. May God bless you!";
+ emotion 21;
+ close;
+
+ L_LowLvl:
+ mes "I'm sorry but you need more training before I can teach you Holy";
+ mes "Light. Come back when your job level is at least 30.";
+ close;
+ L_NoItems:
+ mes "I'm sorry but you don't have the required items for Holy Light.";
+ mes "You need:";
+ mes "^5555FF1 Opal^000000,";
+ mes "^5555FF1 Crystal Blue^000000,";
+ mes "and ^5555FF1 Rosary^000000.";
+ close;
+
+L_GotSkill:
+ mes "Ah, I see you have been using Holy Light. It is such a great skill";
+ mes "that I truly believe it to be a gift from the lord himself. May";
+ mes "God be with you always.";
+ close;
+}
diff --git a/npc/quests/skills/archer_skills.txt b/npc/quests/skills/archer_skills.txt new file mode 100644 index 000000000..226d86179 --- /dev/null +++ b/npc/quests/skills/archer_skills.txt @@ -0,0 +1,211 @@ +//===== eAthena Script =======================================
+//= Archer Skill Quest
+//===== By: ==================================================
+//= eAthena dev team
+//===== Current Version: =====================================
+//= 1.4
+//===== Compatible With: =====================================
+//= eAthena 7.15 +
+//===== Description: =========================================
+//= Arrow crafting, Arrow Repel skills
+//===== Additional Comments: =================================
+//= v1.0 Roberto message text is based off RO npc. Jason message
+//= text is custom from old version.
+//= All items are from official quests though.[kobra_k88]
+//= v1.0a Now using functions found in "Global_Functions.txt"
+//= for class checks.[kobra_k88]
+//= 1.2 Added Baby Class Support [Lupus]
+//= 1.3 Removed callfunc Is_####_Class in favor of baseClass [Silentdragon]
+//= 1.4 Fixed exploits [Lupus]
+//============================================================
+
+
+
+//<======================== Roberto: Arrow crafting =========================>\\
+morocc.gat,121,109,5 script Roberto 88,{
+ mes "[Roberto]";
+ if (baseClass == Job_Archer) goto L_Start;
+
+L_Other:
+ mes "Eh?... First time seeing an archer of something? Why don't you just";
+ mes "go about your business and leave me be. I only talk to high level";
+ mes "Archer types........";
+ emotion 1;
+ close;
+L_Start:
+ if (BaseJob==Job_Archer && JobLevel<35) goto L_LowLvl;
+ if (getskilllv(147)>0) goto L_GotSkill;
+ if (ARWCRFT == 1) goto L_GetSkill;
+ mes "Hmmm?.... Oh you seem to be a high level Archer type. Why don't we";
+ mes "converse for a while, eh? Let me start off by talking about my";
+ mes "childhood.... . . . . . . . . . . .";
+ next;
+ mes "[Roberto]";
+ mes "When I turned 15, I decided I'd work for a Blacksmith........";
+ next;
+ mes "[Roberto]";
+ mes "............... ~(blah blah blah)~...................";
+ next;
+ mes "[Roberto]";
+ mes ".... man was my Junior Prom a mess...........";
+ next;
+ mes "[Roberto]";
+ mes "..~(blah blah)~........ ~(blah blah)~.........";
+ next;
+ mes "(many grueling hours later.....)";
+ next;
+ mes "[Roberto]";
+ mes "So that's how I found out how to create all of these different";
+ mes "kinds of arrows for myself. It definately comes in handy.";
+ next;
+ mes "[Roberto]";
+ mes "Say, would you like me to teach you? We've had such a nice talk";
+ mes "that I feel like can trust you with this knowledge.......";
+ next;
+ menu "Zzz... Eh!! Uh, Arrows... making... yes, teach.",M_0, "Zzzzz... Eh! uh... where am I????",M_1;
+
+ M_0:
+ mes "[Roberto]";
+ mes "Alright then! In order for me to teach you the art of ^5533FF'Arrow";
+ mes "Crafting'^000000, you must first bring me these items:";
+ mes "^FF335520 Resin,";
+ mes "7 Poison Spores,";
+ mes "41 Pointed Scales,";
+ mes "13 Trunks,";
+ mes "1 Red potion^000000";
+ set ARWCRFT, 1;
+ emotion 5;
+ close;
+ M_1:
+ mes "[Roberto]";
+ mes "................................................................";
+ emotion 7;
+ next;
+ mes "[Roberto]";
+ mes "Let me teach you this special skill.... It's called, my boot up";
+ mes "your A........";
+ emotion 32;
+ next;
+ mes "!!!!SMACK!!!!";
+ percentheal -5,0;
+ close;
+
+L_GetSkill:
+ if ((countitem(907)<20) || (countitem(7033)<7) || (countitem(906)<41) || (countitem(1019)<13) || (countitem(501)<1)) goto L_NotEnuf;
+ delitem 907, 20;
+ delitem 7033, 7;
+ delitem 906, 41;
+ delitem 1019, 13;
+ delitem 501, 1;
+ mes "You've brought all of the items... very good. Lets begin.....";
+ next;
+ mes "~ hands you a very long list of ingredients ~";
+ next;
+ mes "[Roberto]";
+ mes "There you are. Your all set.";
+ next;
+ mes ".......................";
+ next;
+ mes "[Roberto]";
+ mes "Hmm?...... What do you mean 'that's it'?....... What else were you";
+ mes "expecting...... With that list you will be able to make any kind of";
+ mes "arrows you want.......";
+ next;
+ mes "[Roberto]";
+ mes "I hope you didn't expect some kind of elaborate ceremony or some";
+ mes "kind of unique and lengthy training.......";
+ next;
+ skill 147,1,0;
+ set ARWCRFT, 0;
+ mes "[Roberto]";
+ mes "...... Well good luck and have fun making arrows. I've got other";
+ mes "things to do if you don't mind.......";
+ close;
+
+ L_NotEnuf:
+ mes "You don't have everything I need.";
+ next;
+ goto M_0;
+L_GotSkill:
+ mes "Hmmm?.... Sorry but I've got nothing left to teach you. Just keep";
+ mes "on making those arrows..... For us Archer types there can never be";
+ mes "to many arrows.....";
+ close;
+L_LowLvl:
+ mes "Hmm?... Do you have something to say to me? Unfortunately I have";
+ mes "nothing to say to you.....";
+ emotion 1;
+ next;
+ mes "[Roberto]";
+ mes "It's sad but conversations with people who have ^5533FFlow job levels^000000 such";
+ mes "as yourself always seem to end abrubtly..... Maybe if you trained a";
+ mes "little bit longer we would have more to talk about............";
+ close;
+}
+
+
+//<============================== Arrow Repel ===============================>\\
+payon.gat,103,63,5 script Jason 88,{
+ mes "[Jason]";
+ if (baseClass == Job_Archer) goto L_Start;
+
+L_Other:
+ mes "What does life need from a lonely lad like me?";
+ close;
+L_Start:
+ if (getskilllv(148)>0) goto L_GotSkill;
+ if (BaseJob == Job_Archer && JobLevel < 35) goto L_LowLvl;
+ if (ARWREP == 1) goto L_Check;
+ mes "Hi, I'm the master of the skill ^0033FFArrow Repel^000000. I might be able to";
+ mes "teach you the skill, but only if you help me get the ingredients";
+ mes "for my Grandma's soup.";
+ next;
+ mes "[Jason]";
+ mes "Arrow Repel allows you to use your arrows to repel, push back, an";
+ mes "enemy and keep them at a distance. This is a great skill for us";
+ mes "Archer types.";
+ next;
+
+ L_List:
+ mes "[Jason]";
+ mes "I need the following:";
+ mes "- 2 ^FF0000Emeralds^000000";
+ mes "- 3 ^FF0000Yoyo tails^000000";
+ mes "- 10 ^FF0000Tentacles^000000";
+ mes "- 10 ^FF0000Bill of birds^000000";
+ mes "- 36 ^FF0000Banana Juices^000000";
+ next;
+ mes "[Jason]";
+ mes "Hurry hurry!";
+ set ARWREP, 1;
+ close;
+
+L_LowLvl:
+ mes "Oh I think you're a bit inexperienced to learn anything from me,";
+ mes "come back later! Maybe around ^5533FFjob level 35^000000 or so.....";
+ close;
+
+L_Check:
+ if ((countitem(721)<2) || (countitem(942)<3) || (countitem(962)<10) || (countitem(925)<10) || (countitem(532)<36)) goto L_NotEnuf;
+ delitem 721,2;
+ delitem 942,3;
+ delitem 962,10;
+ delitem 925,10;
+ delitem 532,36;
+ mes "OH! Marvelous you brought me all the ingredients!";
+ mes "Now It'll be my pleasure to teach you the skill ^0033FFArrow Repel^000000";
+ next;
+ skill 148,1,0;
+ set ARWREP, 0;
+ mes "[Jason]";
+ mes "There you go! Happy hunting in the future.";
+ close;
+
+ L_NotEnuf:
+ mes "You don't have everything I need.";
+ next;
+ goto L_List;
+L_GotSkill:
+ mes "Hey! It's you again? I'm afraid I've taught you everything I know.";
+ close;
+}
diff --git a/npc/quests/skills/mage_skills.txt b/npc/quests/skills/mage_skills.txt new file mode 100644 index 000000000..1f987e663 --- /dev/null +++ b/npc/quests/skills/mage_skills.txt @@ -0,0 +1,116 @@ +//===== eAthena Script =======================================
+//= Mage Skill Quest
+//===== By: ==================================================
+//= kobra_k88
+//===== Current Version: =====================================
+//= 1.4
+//===== Compatible With: =====================================
+//= eAthena 7.15 +
+//===== Description: =========================================
+//= <Description>
+//===== Additional Comments: =================================
+//= v1.0a Now using functions found in "Global_Functions.txt"
+//= for class checks.[kobra_k88]
+//= 1.2 Added Baby Class Support [Lupus]
+//= 1.3 Removed callfunc Is_####_Class in favor of baseClass [Silentdragon]
+//= 1.4 Fixed exploit [Lupus]
+//============================================================
+
+
+
+geffen_in.gat,151,119,4 script BLIZZARDRISS 71,{
+ mes "[BLIZZARDRISS]";
+ if(baseClass == Job_Mage) goto L_Start;
+
+L_Other:
+ mes "What new magic spells will I discover today......??";
+ emotion 20;
+ close;
+
+L_Start:
+ if(ENRGYCOAT == 1) goto L_GetSkill;
+ if(getskilllv(157)>0) goto L_GotSkill;
+ mes "Hey! My friend! I see that you are a magic user. If you look within yourself, you'll find that you have... 'HIDDEN ABILITIES'!!";
+ next;
+ menu "'Hidden Abilities'.....?",M_0, "End Conversation.",M_End;
+
+ M_0:
+ mes "[BLIZZARDRISS]";
+ mes "For many years I studied the ancient magic of Geffen, and I recently re-discovered a forgotten magic spell that is quite usefull.";
+ next;
+ mes "[BLIZZARDRISS]";
+ mes "The spell uses your 'pyscho-kenetic energy' to 'coat' your body in a magical shield, protecting you from enemy attacks.";
+ next;
+ mes "[BLIZZARDRISS]";
+ mes "Only highly trained magic users can learn this amazing spell.";
+ mes "Those who want to use this spell must tap into the hidden energies and abilities burried deep within!";
+ next;
+ mes "[BLIZZARDRISS]";
+ mes "The spell is called ^5555FF'Energy Coat'^000000!. Would you like me to teach it to you?";
+ next;
+ menu "Wow! Sounds great!",sM_0, "Meh... not interested.",sM_End;
+
+ sM_0:
+ mes "[BLIZZARDRISS]";
+ mes "In order for me to teach you this spell I will need the following items:";
+ mes "^5533FF 3 Glass Beads,";
+ mes " 1 One Carat Diamond,";
+ mes " 5 Shells,^000000";
+ mes " and ^5533FF1 Solid shell^000000.";
+ next;
+ mes "[BLIZZARDRISS]";
+ mes "You will also need to have a sufficient amount of experience. For Mages, a job level of at least 35 is needed.";
+ mes "Wizards and Sages are high level magic users and can learn the skill at any job level.";
+ next;
+ mes "[BLIZZARDRISS]";
+ mes "When you are fully trained and have all of the required items come back and see me.";
+ set ENRGYCOAT, 1;
+ close;
+
+ sM_End:
+ mes "[BLIZZARDRISS]";
+ mes "Hmf! Suit yourself. Don't come complaining to me when get beat up by a bunch of spores!!";
+ emotion 6;
+ close;
+
+ M_End:
+ mes "[BLIZZARDRISS]";
+ mes "The wise man must have patience! Prepare yourself and return when you are ready.";
+ close;
+
+L_GetSkill:
+ if(BaseJob==Job_Mage && JobLevel < 35) goto L_JobLvl;
+ if(countitem(746)<3 || countitem(730)<1 || countitem(935)<5 || countitem(943)<1) goto L_Items;
+ delitem 746,3;
+ delitem 730,1;
+ delitem 935,5;
+ delitem 943,1;
+ mes "Ohh my, ohh my...... This is going to be swell. Hand over the items... Thank you.";
+ next;
+ mes "~ several hours later ~";
+ next;
+ skill 157,1,0;
+ set ENRGYCOAT,0;
+ mes "[BLIZZARDRISS]";
+ mes "You can now use the spell, 'Energy Coat'!! Use it wisely my friend!";
+ emotion 21;
+ close;
+
+ L_JobLvl:
+ mes "Didn't you listen to my explanation? You need a job level of at least 35 to learn 'Energy Coat'.";
+ emotion 1;
+ close;
+
+ L_Items:
+ mes "Didn't you listen to my explanation? You need the following items for me to teach you 'Energy Coat':";
+ mes "^5533FF 3 Glass Beads,";
+ mes " 1 One Carat Diamond,";
+ mes " 5 Shells,^000000";
+ mes " and ^5533FF1 Solid shell^000000.";
+ emotion 1;
+ close;
+
+L_GotSkill:
+ mes "Well hello there. The 'Energy Coat' skill is great isn't it? Anyway, good luck with your journey.";
+ close;
+}
diff --git a/npc/quests/skills/merchant_skills.txt b/npc/quests/skills/merchant_skills.txt new file mode 100644 index 000000000..88a4ffb4d --- /dev/null +++ b/npc/quests/skills/merchant_skills.txt @@ -0,0 +1,304 @@ +//===== eAthena Script =======================================
+//= Merchant Skills Quests
+//===== By: ==================================================
+//= kobra_k88
+//===== Current Version: =====================================
+//= 1.4
+//===== Compatible With: =====================================
+//= eAthena 7.15 +
+//===== Description: =========================================
+//= <Description>
+//===== Additional Comments: =================================
+//= Fully working
+//= v1.1 Bug fixes
+//= v1.a Now using functions found in "Global_Functions.txt"
+//= for class checks.[kobra_k88]
+//= 1.2 Added Baby Class Support [Lupus]
+//= 1.3 Removed callfunc Is_####_Class in favor of baseClass [Silentdragon]
+//= 1.4 Fixed exploits [Lupus]
+//============================================================
+
+
+
+//--------------------------------------- Necko: Crazy Uproar--------------------------------\\
+alberta.gat,89,96,5 script Necko 139,0,4,{
+ mes "[!?]";
+ mes "Muahahahahhhahahahahhahah!!";
+ mes "Pukakakakakkakakakakakakaka!!";
+ close;
+}
+
+alberta.gat,83,96,5 script Necko 98,{
+ mes "[Necko]";
+ if (baseClass == Job_Merchant) goto L_Start;
+
+L_Other:
+ mes "Necko's store is closed right now. Come back later..... Hehe....";
+ close;
+
+L_Start:
+ if (getskilllv(155)>0) goto L_GotSkill;
+ if (CRAZYROAR == 1) goto L_GetSkill;
+ mes "Oh! Did you come here because you were intrigued by my boisterous voice? My voice is quite loud, isn't it?";
+ mes "Afterall you did hear it from a far off distance.";
+ emotion 1;
+ next;
+ mes "[Necko]";
+ mes "I'll let you in on something....... My voice is more than just loud..... it's actually quite unique......";
+ next;
+ mes "[Necko]";
+ if(BaseJob==Job_Merchant && JobLevel < 15) goto L_JobLvl;
+ mes "You see, I know a skill that lets me shout in a way that actually helps me.... It is the ^3355FFCrazy Uproar^000000 skill!!!";
+ emotion 5;
+ next;
+ mes "[Necko]";
+ mes "Crazy Uproar uses your loud voice to boost your battle spirit!";
+ mes "The skill requires ^FF55338 sp^000000 to use and inturn you will recieve an additional ^3355FF4 STR for 5 min^000000!!";
+ next;
+ mes "[Necko]";
+ mes "This skill is very usefull. To learn it you must learn the essentials of sound. There was a singer in Payon that taught sound theory.......";
+ next;
+ mes "[Necko]";
+ mes "Unfortunately that person passed away so you can no longer learn those essentials..............";
+ mes "Aww.... you look disappointed.... Do you really want to learn Crazy Uproar??";
+ next;
+ mes "[Necko]";
+ mes "Hmm..... I will teach you then, that is, if you trully wish to learn. You will have to train your vocal cords.";
+ mes "You will also need to gather these items:";
+ next;
+ mes "[Necko]";
+ mes "- ^3355FF7 Pearls,";
+ mes "- 1Banana juice,";
+ mes "- 50 Mushroom spores^000000.";
+ next;
+ mes "[Necko]";
+ mes "Come back when you are ready! I think I shall do a little vocal training myself........";
+ mes "Bbooowuuuuuuuuuuuuuuuuuuuuuuuuuh!!";
+ set CRAZYROAR, 1;
+ close;
+
+ L_JobLvl:
+ mes "Once you've reached a ^3355FFjob level of 15^000000 come back and see me. I'll tell you all about the secrect to my voice.....";
+ next;
+ mes "[Necko]";
+ mes "Uahahahahahahhahahahahahaha!";
+ mes "Kyukwakakakakkakakakakakkakaka!";
+ close;
+
+L_GetSkill:
+ if ((countitem(722)<7) || (countitem(532)<1) || (countitem(921)<50)) goto L_Items;
+ delitem 722,7;
+ delitem 532,1;
+ delitem 921,50;
+ mes "Oh You've gathered the items! Very good, very good. Now it's time to start your training.....";
+ next;
+ mes "[Necko]";
+ mes "Repeat after me: Fa fa fa fa fa.... So so so so so..... La la la la la.... Mi mi mi mi mi mi......";
+ next;
+ mes "~several hours later~";
+ next;
+ mes "[Necko]";
+ mes "Raaaaaawwwwrrrrrrrrrrr!....... Ha ha!! Execellent. Your voice is now finely tuned for ^3355FFCrazy Uproar^000000. Good job.";
+ skill 155,1,0;
+ set CRAZYROAR, 0;
+ emotion 21;
+ close;
+
+ L_Items:
+ mes "You need to get these items for Crazy Uproar:";
+ mes "- ^3355FF7 Pearls,";
+ mes "- 1Banana juice,";
+ mes "- 50 Mushroom spores^000000.";
+ close;
+
+L_GotSkill:
+ mes "Hello again. I can tell by the sound of your mighty voice that you are becoming very good at Crazy Uproar.";
+ close;
+}
+
+
+//----------------------------------------- Charlron: Change cart ---------------------------------\\
+alberta.gat,119,221,6 script Charlron 107,{
+ mes "[Charlron]";
+ if (baseClass == Job_Merchant) goto L_Start;
+L_Other:
+ mes "I am a merchant that deals in many things. My name is Charlron. If you ever find anything interesting, come back and try to negotiate a deal with me.";
+ close;
+L_Start:
+ if (getskilllv(154)>0) goto L_GotSkill;
+ if (CHANGECART == 1) goto L_GetSkill;
+ mes "Welcome young one. Is selling fun for you? I am the merchant Charlron.";
+ next;
+ mes "[Charlron]";
+ mes "Aren't you tired of your old, and plain looking cart? Well I can help.";
+ next;
+ mes "[Charlon]";
+ mes "I have been doing some research on cart design recently and have come up with some new and interesting designs for the cart.";
+ next;
+ mes "[Charlon]";
+ mes "I can change the way your cart looks for you. Of course some conditions need to be met......";
+ next;
+ mes "[Charlron]";
+ if (BaseJob==Job_Merchant && JobLevel < 30) goto L_JobLvl;
+ mes "First you will need to bring me these items:";
+ mes "^3355FF50 Trunks,";
+ mes "20 Animal Skin,";
+ mes "10 Iron^000000.";
+ set CHANGECART, 1;
+ close;
+
+ L_JobLvl:
+ mes "I'm a pretty famous merchant, so I don't really do business with beginners but..........";
+ mes "Once you've reached ^3355FFjob level 30^000000 I may consider doing business with you.";
+ close;
+
+L_GetSkill:
+ if ((countitem(1019)<50) || (countitem(998)<10) || (countitem(919)<20)) goto L_Items;
+ mes "Oh good, you have all of the items. Well here you are..... Hmm?... Oh these are the design sheets for your cart.";
+ mes "Now that you have the proper materials, just follow these guides to make your cart look spectactular.";
+// Note: It is not supposed to take these items, just check you have collected them
+ skill 154,1,0;
+ set CHANGECART, 0;
+ mes "[Charlron]";
+ mes "Good luck, see you around";
+ close;
+
+ L_Items:
+ mes "Come back when you've brought me these items:";
+ mes "^3355FF50 Trunks,";
+ mes "20 Animal Skin,";
+ mes "10 Iron^000000.";
+ close;
+L_GotSkill:
+ mes "Heh heh... It's nice to see fancy looking carts like yours on the streets of town. Well back to the drawing board....";
+ close;
+
+}
+
+
+//-------------------------====-------- Gershuan: Cart Revolution ---------------------------------\\
+alberta.gat,232,106,6 script Gershaun 57,{
+ if (baseClass == Job_Merchant) goto L_Start;
+
+L_Other:
+ mes "[Gershaun]";
+ mes "If it doesn't work, make it work!";
+ mes "If it doesn't work, make it work!";
+ mes "If it doesn't work, make it work!";
+ close;
+
+L_Start:
+ if (getskilllv(153)>0) goto L_GotSkill;
+ if (CARTREVO == 1) goto L_GetSkill;
+ mes "[Gershaun]";
+ mes "Hmm... a young merchant. You must use carts too right? Since to have to do all of that vending..... But is that all you use your cart for?";
+ emotion 20;
+ next;
+ mes "[Gershaun]";
+ mes "I researched some ways of using the cart differently. One way involved cooking ramen and another involved jump-roping (don't ask).";
+ mes "Still none of my new ideas were satisfactory.";
+ next;
+ menu "I know what you mean.",M_0, "......???",M_1;
+
+ M_0:
+ mes "[Gershuan]";
+ mes "You KNOW what I MEAN!! HOW the HECK would YOU KNOW what I MEAN????";
+ emotion 23;
+ close;
+ M_1:
+ mes "[Gershuan]";
+ mes "In despair, I wandered through the fields with my cart. Day after day I did this.... I was in a daze....";
+ next;
+ mes "[Gershuan]";
+ mes "Then I crossed paths with a very strong monster! I knew immediately that my life was in danger!";
+ mes "I thought to myself, 'Why me! A weaponless, amorless merchant!?'";
+ emotion 0;
+ next;
+ mes "[Gershuan]";
+ mes "I was scared to death... hoping that this would not be the end of me. With what strength I had left, I tried a desperation move.....";
+ emotion 19;
+ next;
+ mes "[Gershuan]";
+ mes "I used my cart to attack the monster!!";
+ emotion 0;
+ next;
+ mes "[Gershuan]";
+ mes "Just like that the monster was defeated!! Finally I had found another exellent use for the cart! A WEAPON!!!";
+ next;
+ mes "[Gershuan]";
+ mes "I called my new found discovery ^3355FF'Cart Revolution'^000000!";
+ mes "By using ^FF553312 sp^000000 you can spin your cart around your body doing major damage to an enemy!";
+ emotion 5;
+ next;
+ mes "[Gershuan]";
+ mes "The heavier your cart is, the more damage it will do. Would you like to learn this skill?";
+ next;
+ menu "Yes!!",sM_0, "Actually I want to learn some sushi skills...",sM_1;
+
+ sM_0:
+ mes "[Gershuan]";
+ if (BaseJob==Job_Merchant && JobLevel < 35) goto ssL_LowLvl;
+ mes "Ok! I will give you the special training for Cart Revolution. The first thing you will have to do is bring me these items:";
+ mes "^3355FF30 Sticky Mucus,";
+ mes "20 Fly wings,";
+ mes "15 Iron,";
+ mes "5 Tentacles,";
+ mes "2 Grape Juice^000000.";
+ next;
+ mes "[Gershuan]";
+ mes "Come back when you have all of these items. Good luck.";
+ set CARTREVO, 1;
+ close;
+
+ ssL_LowLvl:
+ mes "[Gershuan]";
+ mes "Ok! I will give you the special training for Cart Revolution.";
+ mes "But first you will have to get yourself to a ^3355FFjob level of 35^000000! After you've done that, then we can talk.";
+ close;
+
+ sM_1:
+ mes "[Sushi King Gershuan]";
+ mes "Stupid!! You're waaay to young to even try your hand at sushi!!";
+ emotion 6;
+ close;
+
+L_GetSkill:
+ if ((countitem(533)<2) || (countitem(998)<15) || (countitem(938)<30) || (countitem(601)<20) || (countitem(962)<5)) goto sM_0;
+ delitem 533,2;
+ delitem 998,15;
+ delitem 938,30;
+ delitem 601,20;
+ delitem 962,5;
+ mes "[Gershaun]";
+ mes "It's Good to see you again. I'm glad you were able to get all of the items. Take a minute to prepare, for your training is about to take place....";
+ next;
+ mes "[Gershuan]";
+ mes "First make sure your feet are shoulder width apart. Balance is key! Now get into a good crouch... grasp the handles of the cart firmly but not too tight...";
+ next;
+ mes "[Gershuan]";
+ mes "NOW SWING!!!";
+ next;
+ mes "[Gershuan]";
+ mes "Eh....... that was terrible.... Okay, lets try again.....";
+ emotion 4;
+ next;
+ mes "~many hours later~";
+ next;
+ mes "[Gershuan]";
+ mes "YES!!! FINALLY! I could REALLY FEEL the power in that swing!";
+ mes "Give yourself a good pat on the back becuase you have just mastered Cart Revolution!";
+ emotion 21;
+ next;
+ skill 153,1,0;
+ set CARTREVO, 0;
+ mes "[Gershuan]";
+ mes "Take care of yourself and remember to fill that cart up so that it can do some major damage.";
+ emotion 29;
+ close;
+
+L_GotSkill:
+ mes "[Gershaun]";
+ mes "So how do you like cart revolution? Remeber, the ^3355FFheavier^000000 the cart, the ^3355FFgreater^000000 the damge.";
+ close;
+
+}
diff --git a/npc/quests/skills/novice_skills.txt b/npc/quests/skills/novice_skills.txt new file mode 100644 index 000000000..a149c87b4 --- /dev/null +++ b/npc/quests/skills/novice_skills.txt @@ -0,0 +1,262 @@ +//===== eAthena Script =======================================
+//= Novice Skills Quests
+//===== By: ==================================================
+//= kobra_k88
+//===== Current Version: =====================================
+//= 1.4
+//===== Compatible With: =====================================
+//= eAthena 7.15 +
+//===== Description: =========================================
+//= Customized novice skills quest
+//===== Additional Comments: =================================
+//= Fully working
+//= 1.2 Added Baby Class Support [Lupus]
+//= 1.3 Fixed a Zeny exploit, made more variables clear
+//= on finishing quests. [Lupus]
+//= 1.4 Fixed exploits [Lupus]
+//============================================================
+
+
+
+//<---------------------------------------------------------------------------------------------- Nurse Aid: First Aid NPC ---------------------------------------------------------------------------->\\
+prt_in.gat,235,133,4 script Nurse Aid 90,{
+ mes "[Nurse Aid]";
+ if(FIRSTAID == 1) goto L_GetAid;
+ if(getskilllv(142)>0) goto L_GotAid;
+
+ mes "Oh hello there! You look tired and a little worn out. Have the monsters outside of town been giving you trouble?";
+ next;
+ menu "Ha! Me strong like BULL!!",M_Nope, "Well..um..kinda..",M_Yep;
+
+ M_Nope:
+ mes "[Nurse Aid]";
+ mes "Oh I see. You must be a mighty warrior. Well, come back anytime if you do ever feel overwhelmed by the monsters. I'll be able to help.";
+ close;
+
+ M_Yep:
+ mes "[Nurse Aid]";
+ mes "Well don't feel bad. It can be very difficult fighting those nasty monsters in the begining.";
+ next;
+ mes "[Nurse Aid]";
+ mes "I know because I've been treating a lot people lately who have been fighting them.";
+ mes "There are so many injured now that I don't think I can continue treating anyone.";
+ next;
+ mes "[Nurse Aid]";
+ mes "~Sigh~";
+ next;
+ mes "[Nurse Aid]";
+ mes "That's why I've decided to teach people how to heal themselves! Would you like me to teach you?";
+ emotion 5;
+ next;
+ menu "Would you??",sM_Yes, "(...she's nuts!...run!!!)",sM_No;
+
+ sM_Yes:
+ mes "[Nurse Aid]";
+ mes "In order for me to teach you First Aid you need to have at least a^0000ff job level of 3^000000.";
+ mes "You then need to give me:^ff0000 5 red herbs^000000,^00bb00 5 clovers^000000, and an^aaaa00 old bandage^000000.";
+ next;
+ mes "[Nurse Aid]";
+ mes "You can get the bandage from the^0000ff 'Newbie Assistant'^000000 located on the second floor of the Castle.";
+ next;
+ mes "[Nurse Aid]";
+ mes "Once you get job level 3 and have all of the items come back and see me ok.";
+ set FIRSTAID,1;
+ close;
+
+ sM_No:
+ mes "[Nurse Aid]";
+ mes "Hey!...Where are you running too??...";
+ emotion 4;
+ close;
+
+L_GetAid:
+ if((JobLevel < 3) || (countitem(507) < 5 ) || (countitem(705) < 5) || (countitem(930) < 1)) goto sM_Yes;
+ delitem 507,5;
+ delitem 705,5;
+ delitem 930,1;
+ mes "Oh good. You have everything needed for me to teach you first aid. Here we go...";
+ next;
+ mes "....... 1 hour later.......";
+ next;
+ skill 142,1,0;
+ set FIRSTAID,0;
+ set got_bandage,0;
+ mes "[Nurse Aid]";
+ mes "YES! You finally got it. Now you can heal yourself and continue fighting those bad monsters. Well, take care.";
+ emotion 21;
+ close;
+
+L_GotAid:
+ mes "Well hello again. I sure hope the First Aid skill has been helpfull to you. Make sure to continue your hard work and don't forget to rest and heal!";
+ close;
+
+}
+
+
+//<-------------------------------------------------------------------------------------------------- Bulma: Play Dead -------------------------------------------------------------------------------------------->\\
+prt_in.gat,73,87,2 script Bulma 98,{
+ mes "[Bulma]";
+ if(BaseJob == Job_Novice) goto L_Novice;
+
+L_Other:
+ mes "Yeah... I look great.... Afterall, I'm a Knight of the Prontera Chivalry. Kuhahahaha!";
+ emotion 18;
+ next;
+ mes "[Bulma]";
+ mes "It hasn't been that long since I became a Knight, but I still look good as one right? What do you think???";
+ emotion 20;
+ close;
+
+L_Novice:
+ if(JobLevel >= 7) goto L_Start;
+ mes "Hello my young friend. You remind me of myself when I was young.....";
+ mes "Heh heh, I sure miss those days..... Wow... It's funny to think about those years now......";
+ next;
+ mes "[Bulma]";
+ mes "They were difficult.... thankfully you can use the ^5555FFPlay Dead^000000 skill when you reach a ^5555FFjob level of 7^000000.";
+ mes "If you're interested in it come back and talk to me when you've leveled up a bit more.";
+ close;
+
+L_Start:
+ if(PLAYDEAD == 1) goto L_GetSkill;
+ if(getskilllv(143)>0) goto L_GotSkill;
+ mes "Hello my young friend. You remind me of myself when I was young..... Heh heh, I sure miss those days.....";
+ mes "Look at me acting all sentimental like some old man........";
+ next;
+ mes "[Bulma]";
+ mes "Sorry about that. Anyhow, I just want you to know that if you work hard and are patient, you too will recieve the job you desire.";
+ mes "It may take some time but stay focused and never loose your determination.";
+ next;
+ mes "[Bulma]";
+ mes "Hmm..... actually I might be able to help you out........";
+ emotion 20;
+ next;
+ mes "[Bulma]";
+ mes "What's this? Ha ha, don't look so surprised. What I have to offer will be very useful to you.";
+ next;
+ mes "[Bulma]";
+ mes "You see I can teach you the skill ^5555FF'Play Dead'^000000.";
+ mes "This skill allows you to act like you just died making any monster that is currently attacking you leave you alone.";
+ next;
+ mes "[Bulma]";
+ mes "I myself have used it as a novice and found it to be very usefull.";
+ mes "It may sound easy enough, but it takes a lot of hard work and practice to make your performance look believable.";
+ next;
+ mes "[Bulma]";
+ mes "You MUST look perfectly DEAD in order for this skill to work. Even the slightest movement will give you away.";
+ next;
+ mes "[Bulma]";
+ mes "I think I've done enough explaining..... The look in your eyes tells me that you are ready to learn this skill.";
+ next;
+ mes "[Bulma]";
+ mes "First take this pill....";
+ next;
+ mes "(you take the pill) ~gulp~";
+ next;
+ mes "[Bulma]";
+ mes "Good. Now go to the 2nd floor on the East side of the Prontera Castle.";
+ mes "Speak with the ^5555FFNewbie Assistant^000000 and he will give you a ^5555FFNewbie Tag^000000.";
+ next;
+ mes "[Bulma]";
+ mes "Once you have the tag come back here. You MUST make it back here WITHIN ^FF555510 minutes^000000!";
+ mes "If you don't, then the pill you just swallowed will start making it hard for you to breath!.....";
+ next;
+ mes "[Bulma]";
+ mes "Kekekeke..... Just kidding! The pill actually helps you stay calm, nothing more.";
+ emotion 18;
+ next;
+ mes "[Bulma]";
+ mes "Well get going... GO! GO! GO! RUN!!!";
+ emotion 27;
+ set PLAYDEAD, 1;
+ close;
+
+L_GetSkill:
+ if(countitem(7039)<1) goto sL_NotRdy;
+ delitem 7039, 1;
+ mes "Good to see you again. Alright, lets start your training....";
+ next;
+ mes "[Bulma]";
+ mes "Let me first introduce to you the concept of 'Method Acting'. Method Acting stresses the need to undrestand every aspect of the role you are playing.";
+ next;
+ mes "[Bulma]";
+ mes "You must learn to think, feel, and even live like your character so that you can understand his/her motivation in any given momement.";
+ next;
+ mes "[Bulma]";
+ mes "Now let us use this technique to develop your ability to Play Dead!";
+ mes "I want you to think like a dead person, feel like a dead person, eat, breath, sleep, kiss, etc. like a person who is dead!!!";
+ next;
+ mes "[Bulma]";
+ mes "Don't just stand there! Lay down on the ground and live life through the eyes of a dead person.... errr or don't live.... anyways just do it!!";
+ next;
+ mes "~ several hours later ~";
+ next;
+ mes "[Bulma]";
+ mes "Ok, lights, camera, ACTION! Yes... yes... YES!! That's it!! As I watch you laying there I TRULLY believe that you are dead.";
+ mes "What a wonderful performance! BRAVO! BRAVO!";
+ emotion 0;
+ next;
+ mes "[Bulma]";
+ mes "With the right motivation and focus you will be able to play dead anywhere at any given moment. Congratulations on mastering this skill.";
+ emotion 21;
+ skill 143,1,0;
+ set PLAYDEAD, 0;
+ set got_novnametag,0;
+ close;
+
+ sL_NotRdy:
+ mes "HEY! What are you doing here? It's irresponsible of you to still be here while your time is running out.........";
+ emotion 0;
+ next;
+ mes "[Bulma]";
+ mes "Now GO! Run! Run! RUN!!";
+ emotion 27;
+ close;
+
+L_GotSkill:
+ mes "Yeah.... I remember back then..... especially those embarrasing novice years... heh. Luckily there was Play Dead.";
+ mes "That saved me many times in the past. I'm sure it has been saving you too.";
+ next;
+ mes "[Bulma]";
+ mes "Hopefully it is something you have been using well. If you have any friends who are novices, tell them about me. I will help them out as best I can.";
+ close;
+}
+
+
+//Newbie Assistant------------------------------------------------------------------------------
+prt_castle.gat,174,147,2 script Newbie Assistant 84,{
+ mes "[Newbie Assistant]";
+ if(BaseJob == Job_Novice) goto L_Start;
+
+L_NonNov:
+ mes "What am I doing here? I'm just trying to help out young newbies. You remember how it was to be a newbie... confused.... lost.... heh heh.";
+ emotion 1;
+ close;
+L_Start:
+ if(FIRSTAID==1 && countitem(930)==0 && got_bandage!=1) goto L_Aid;
+ if(PLAYDEAD==1 && countitem(7039)==0 && got_novnametag!=1) goto L_Play;
+ mes "Hello. I'm here to provide help to newbies like you. If there is anything in particular that you need assistance with just let me know.";
+ close;
+L_Aid:
+ mes "So Nurse Aid sent you huh. She's a great nurse, you should feel very fortunate that she is helping you out. Here take this.";
+ next;
+ getitem 930,1;
+ set got_bandage,1;
+ mes "[Newbie Assistant]";
+ mes "You'll need it in order for her to teach you her exellent healing technique.";
+ next;
+ mes "[Newbie Assistant]";
+ mes "When I watch her work it is like watching an angel that has descended down from the heavens.....";
+ next;
+ mes "[Newbie Assistant]";
+ mes "Her beauty, her grace, sometimes I wish........ (blushes).......... um.... well...err... tell her I said hello.";
+ emotion 3;
+ close;
+L_Play:
+ mes "So Bulma sent you uh.... okay here you go.";
+ getitem 7039,1;
+ set got_novnametag,1;
+ next;
+ mes "Good luck on your adventure.";
+ close;
+}
diff --git a/npc/quests/skills/swordman_skills.txt b/npc/quests/skills/swordman_skills.txt new file mode 100644 index 000000000..36185ee11 --- /dev/null +++ b/npc/quests/skills/swordman_skills.txt @@ -0,0 +1,373 @@ +//===== eAthena Script =======================================
+//= Swordsman Skills Quests
+//===== By: ==================================================
+//= kobra_k88
+//===== Current Version: =====================================
+//= 1.5
+//===== Compatible With: =====================================
+//= eAthena 7.15 +
+//===== Description: =========================================
+//= <Description>
+//===== Additional Comments: =================================
+//= Fully working
+//= 1.0a Now using functions found in "Global_Functions.txt"
+//= for class checks.
+//= 1.1 Added missing delitem [Lupus]
+//= 1.2 Added Baby Class Support [Lupus]
+//= 1.3 Removed callfunc Is_####_Class in favor of baseClass [Silentdragon]
+//= 1.4 Updated the NPC to allow subclasses of swordsman to learn the skills, [MasterOfMuppets]
+//= 1.5 Fixed exploits [Lupus]
+//============================================================
+
+
+
+//<-------------------------------------- Fatal Blow------------------------------------>\\
+prt_in.gat,75,88,5 script Leon 85,{
+ mes "[Leon]";
+ if(baseClass == Job_Swordman) goto L_Start;
+ if(BaseJob == Job_Novice) goto L_Novice;
+
+ mes "Hello there. I am Leon, a well known and well respected member of the famous Prontera Chivalry.";
+ next;
+ mes "[Leon]";
+ mes "Are you here to learn more about the Chivalry, or are you hear to bask in the glory of us Knights? Hahahaha!";
+ emotion 18;
+ close;
+
+L_Novice:
+ mes "Oh a novice.... I'm afraid I have nothing to offer you.";
+ mes "I have no fun or nice things to say to anyone other then Swordsmen.";
+ next;
+ mes "[Leon]";
+ mes "See you in a better world!";
+ close;
+
+L_Start:
+ if (FATALBLOW == 1) goto L_Check;
+ if (getskilllv(145)>0) goto L_Done;
+
+ if(sex==1)mes "Oooh! I see that you are quite a strong Swordsman.";
+ if(sex==0)mes "Oooh! I see that you are quite a strong Swordswoman.";
+ mes "How did I know? Hahaha! Just look at that strong arm of yours!";
+ next;
+ mes "[Leon]";
+ mes "You must enjoy using ^0000ff'Bash'^000000, huh? Hahaha!";
+ emotion 18;
+ next;
+ mes "[Leon]";
+ if(sex==1)mes "I like a Swordsman who isn't afraid to use a powerfull skill such as that.";
+ if(sex==0)mes "Now, now, don't be shy. It's ok for girls to like Bash.";
+ if(sex==0)mes "Afterall, whether your a Swordsman or Swordswoman, there's no denying the power of Bash!";
+ next;
+ mes "[Leon]";
+ mes "As great as Bash is though, I often felt that it could be even better if there was someway to stun an opponent with it.";
+ mes "I decided to withdraw from the battlefield and research ways of making bash more powerfull.";
+ next;
+ mes "[Leon]";
+ mes "I discovered that if one could strike an enemy's weak point with a precisely placed Bash, an opponent would be left utterly parralyzed!!";
+ next;
+ mes "[Leon]";
+ mes "I then went on to develop the skill, ^ff0000'Fatal Blow'^000000, which allows you to do just that!";
+ mes "Will rigorous training, one can learn to stun an opponent with a mighty Bash.";
+ next;
+ mes "[Leon]";
+ mes "Since you seem to be so fond of Bash, I'd be willing to teach you the skill.";
+ mes "However, I must warn you that a lot of hard work will be required.";
+ next;
+ mes "[Leon]";
+ mes "So what do you think? Are you interested?";
+ next;
+ menu "You betcha!!",M_0, "Nah.... Not really.",M_1, "Any advice on how to eat sushi?",M_2;
+
+ M_0:
+ set FATALBLOW,1;
+ mes "[Leon]";
+ mes "Hahaha! I knew you love Bash as much as I do.";
+ next;
+ mes "[Leon]";
+ mes "In order for me to teach you Fatal Blow, you must have at least ^5555FFlevel 5 Bash^000000. You then need to give me these items:";
+ mes "- 10 ^FF0000Fire Arrows^000000,";
+ mes "- 10 ^FF0000Silver Arrows^000000,";
+ mes "- 1 ^FF0000Banana Juice^000000,";
+ mes "- 30 ^FF0000Tentacles^000000,";
+ mes "- and 5 ^FF0000Royal Jelly^000000.";
+ next;
+ mes "[Leon]";
+ mes "When you have gathered all of these items come back and see me.";
+ close;
+ M_1:
+ mes "[Leon]";
+ mes "I see... I must have misjudged you...";
+ close;
+ M_2:
+ mes "[*Sushi King* Leon]";
+ mes "The best way to eat sushi is with your hands. That is the basic method. Oh, and dip the FISH, NOT the RICE, into the soy sauce.";
+ next;
+ mes "[*Sushi King* Leon]";
+ mes "That way you get a richer flavor. Also, always eat the kind that is in season.";
+ mes "Eating in the order of white fish, then blue fish, will make it taste even better!";
+ next;
+ mes "[*Sushi King* Leon]";
+ mes "Mmmmm..... I love sushi!!!";
+ emotion 33;
+ close;
+
+L_Check:
+ mes "So your back. Did you get what I asked for?";
+ next;
+ mes "[Leon]";
+ if(countitem(1752)<10 || countitem(1751)<10 || countitem(532)<1 || countitem(962)<30 || countitem(526)<5) goto L_NoItems;
+ if(getskilllv(5)<5) goto L_BashLvl;
+ delitem 1752,10;
+ delitem 1751,10;
+ delitem 532,1;
+ delitem 962,30;
+ delitem 526,5;
+ mes "Great work. You have everything I need for me to teach you Fatal Blow.";
+ next;
+ mes "[Leon]";
+ mes "Ok, lets get started.";
+ next;
+ mes "!SMACK!~!CRACK!~!THWACK!~!BASH!.......... !SMACK!~!CRACK!~!THWACK!~!BASH!..........";
+ next;
+ mes "(5 hours later)";
+ next;
+ mes "[Leon]";
+ mes "Yes! That's it! You have just mastered Fatal Blow!";
+ emotion 21;
+ next;
+ skill 145,1,0;
+ set FATALBLOW,0;
+ mes "[Leon]";
+ mes "Use it wisely young warrior!!";
+ close;
+
+ L_NoItems:
+ mes "Hmm... you still don't have enough items. Come back when you do.";
+ close;
+ L_BashLvl:
+ mes "Wait a minute... you have to train a little more before learning this skill.";
+ mes "You need to have at least a ^5555FFlevel 5 Bash^000000.";
+ close;
+
+L_Done:
+ mes "So how is Fatal Blow? Isn't it great!! Hahaha! I knew you'd like it.";
+ next;
+ mes "[Leon]";
+ mes "Go on and Bash the heck out of those monsters! Hahaha.";
+ emotion 18;
+ close;
+
+}
+
+
+//<---------------------------------- Moving HP Recovery ---------------------------------->\\
+izlude_in.gat,175,130,2 script Knight De Thomas 98,{
+ mes "[Knight De Thomas]";
+ if(baseClass == Job_Swordman) goto L_Start;
+
+L_Other:
+ mes "I am Thomas De Knight of the Prontera Chivalry. I am very busy now so please leave me alone.";
+ close;
+
+L_Start:
+ if (MOVHPREC == 1) goto L_Check;
+ if (getskilllv(144)>0) goto L_GotSkill;
+ mes "Oh no! You must have been hurt in battle! Are you ok?";
+ mes "It must have been a hard fought battle for you to recieve such serious injuries....";
+ emotion 19;
+ next;
+ mes "[Knight De Thomas]";
+ mes "Being a Swordsman or Knight comes with a lot of responsiblity and requires a great deal of self sacrifice.";
+ mes "For Swordsmen and Knights there is a wonderfull skill that can aid in the recovery of HP.";
+ next;
+ mes "[Knight De Thomas]";
+ mes "I present to you..... ^5555FF'Moving HP Recovery'^000000!! This skill allows you to recover HP while moving!";
+ next;
+ mes "[Knight De Thomas]";
+ mes "The skill has not been perfected yet so the amount of HP recovered is a little low. Still, it is helpful.";
+ mes "What do you think? Would you like to learn this skill?";
+ next;
+ menu "What a great skill! I would like to learn it!!",M_0, "No thank you.",M_End;
+
+ M_0:
+ mes "[Knight De Thomas]";
+ mes "Very well. I will tell you what is needed to learn this skill. First you must have a job level of 35 or greater.";
+ mes "This however doesn't apply to Knights or Crusaders. You will also need:";
+ mes "^5555FF200 Empty Bottles^000000,";
+ mes "^5555FF1 Padded Armour^000000,";
+ mes "and ^5555FF1 Moth Wings^000000.";
+ next;
+ mes "[Knight De Thomas]";
+ mes "The bottles are proof that you have fought feircely and have used many potions. The Padded Armor is proof of an experienced fighter.";
+ mes "The Moth Wings..... well... really aren't necessary. It's just that my niece recieved a bug hunting assignment for summer vacation.......";
+ next;
+ mes "[Knight De Thomas]";
+ mes "I would get them myself... it's just... I must work here all day long so I don't have any time to go out and get them.......";
+ next;
+ mes "[Knight De Thomas]";
+ mes "Don't you think it's sad that I have to stay in once place everyday without even being able to go outside??";
+ mes "Please.... find a pair of Moth Wings for my niece?.... (~sniff~sniff~)....";
+ emotion 28;
+ next;
+ mes "[Knight De Thomas]";
+ mes "If you don't..... I won't teach you anything!! Muahahahaha!!";
+ emotion 29;
+ set MOVHPREC, 1;
+ close;
+ M_End:
+ mes "[Knight De Thomas]";
+ mes "What?? What did you say?.....";
+ emotion 1;
+ close;
+
+L_Check:
+ mes "Ah, you've come back. Let's, see... are you ready for HP Moving Recovery?....";
+ next;
+ mes "[Knight De Thomas]";
+ if ((countitem(713)<200) || (countitem(1058)<1) || (countitem(2312)<1)) goto L_NoItems;
+ if (baseClass==Job_Swordman && JobLevel < 35) goto L_LowLvl;
+ delitem 713,200;
+ delitem 1058,1;
+ mes "Great! You have everything needed to learn this skill. Take a deep breath.... let us begin.";
+ next;
+ mes "(2 hours later)";
+ next;
+ mes "[Knight De Thomas]";
+ mes "Can you feel it? Can you feel the energy flowing in you while you move around?";
+ mes "Haha! You have just learned HP Moving Recovery!";
+//-- Padded armor does not have to be deleted! --
+// delitem 2312,1;
+ skill 144,1,0;
+ set MOVHPREC, 0;
+ next;
+ mes "[Knight De Thomas]";
+ mes "Congratulations on learning the new skill and thank you for the Moth Wings! ^_^";
+ emotion 21;
+ close;
+
+ L_NoItems:
+ mes "As I said before you need to bring me these items:";
+ mes "^5555FF200 Empty Bottles^000000,";
+ mes "^5555FF1 Padded Armour^000000,";
+ mes "and ^5555FF1 Moth Wings^000000.";
+ close;
+ L_LowLvl:
+ mes "You are not yet experienced enough to learn this skill. Come back when you have a job level of at least 35.";
+ close;
+ L_GotSkill:
+ mes "Ah, you're looking well. That HP Moving Recovery skill must be very helpfull.";
+ mes "Well, continued success on your adventure!";
+ close;
+
+}
+
+
+//<----------------------------------------- Auto-Berserk --------------------------------->\\
+prt_in.gat,94,57,3 script Juan 85,{
+ mes "[Juan]";
+ if(baseClass == Job_Swordman) goto L_Start;
+
+L_Other:
+ mes "So how's your adventure going? I hope there will be good days ahead of you.";
+ next;
+ mes "[Juan]";
+ mes "Who am I? Oh, I'm just a kind knight named Juan. Don't mind me. Hahahaha....";
+ emotion 18;
+ close;
+
+L_Start:
+ if (baseClass == Job_Swordman && JobLevel<34) goto L_LowLvl;
+ if (BERSERK == 1) goto L_Check;
+ if (getskilllv(146)>0) goto L_GotSkill;
+
+ mes "Oh no! You have more injuries since the last time I saw you.";
+ mes "You went into battle like this? It seems like you're straining yourself.";
+ next;
+ mes "[Juan]";
+ mes "Even though you may have a lot of strength, there is only so much you can do when you have reached your limits.";
+ mes "So don't overestimate your own power.";
+ next;
+ mes "[Juan]";
+ mes "Of course you could always use the ^5555FF'skill'^000000 we developed to overcome these limits.....";
+ next;
+ menu "Eh! What are you talking about?",M_0, "Haha! There's no such thing....",M_1, "Keuuuuuhhh!",M_3;
+
+ M_0:
+ mes "[Juan]";
+ mes "The skill is called ^5555FFBerserk^000000. It has been deemed the flower of the battlefield!";
+ mes "When your health is low, you can call upon your hidden potential by provoking yourself.";
+ next;
+ mes "[Juan]";
+ mes "A surge of energy will flow through your body giving you a greater attack prowess at the cost of defensive strength.";
+ mes "With this you will be able to fight on with a FIREY RAGE and an absolute disregard to your own safety!!";
+ next;
+ mes "[Juan]";
+ mes "The enemy will be shocked by your new found strength!!";
+ mes "This skill is especially great for those who fight with a no-holds-bar mentality.";
+ next;
+ mes "[Juan]";
+ mes "In order to learn this skill you will need to bring me the following items:";
+ mes "^5555FF35 Powder of Butterfly,";
+ mes "10 Horrendous Mouth,";
+ mes "10 Decayed Nail^000000,";
+ mes "and ^5555FF10 Honeys^000000!";
+ next;
+ mes "[Juan]";
+ mes "Did you get all of that down? Please come back when you are ready. I look forward to seeing you again.";
+ set BERSERK, 1;
+ close;
+ M_1:
+ mes "[Juan]";
+ mes "Bleh! Have you been a fool all of your life?? Go away and don't talk to me.";
+ emotion 32;
+ close;
+ M_3:
+ mes "[Juan]";
+ mes "Keuuuuuuuuuuuuuuuuuuh!";
+ mes "Oooowwwwwwwwuuuuuuuuuuhhhhhh!";
+ mes "Keuaaaaaaaaaaaaaaaaaah!";
+ close;
+
+ L_LowLvl:
+ mes "Oh, nice to meet you.";
+ next;
+ mes "[Juan]";
+ mes "You can go on your way now.";
+ emotion 33;
+ close;
+
+L_Check:
+ if ((countitem(924)<35) && (countitem(957)<10) && (countitem(958)<10) && (countitem(518)<10)) goto L_NoItems;
+ delitem 924,35;
+ delitem 958,10;
+ delitem 957,10;
+ delitem 518,10;
+ mes "Good job my dear friend. You have all 4 of the items I asked for.";
+ mes "In return I will now teach you the skill: ^FF0000Berserk^000000.";
+ next;
+ mes "[Juan]";
+ mes "Great job you have done well and deserve this skill.";
+ skill 146,1,0;
+ set BERSERK, 0;
+ next;
+ mes "[Juan]";
+ mes "Muhahahaha!! Don't hold back young warrior, fight without any fears or regrets!!";
+ emotion 29;
+ close;
+
+ L_NoItems:
+ mes "[Juan]";
+ mes "In order to learn this skill you will need to bring me the following items:";
+ mes "^5555FF35 Powder of Butterfly,";
+ mes "^10 Horrendous Mouth,";
+ mes "^10 Decayed Nail^000000,";
+ mes "and ^5555FF10 Honeys^000000!";
+ close;
+L_GotSkill:
+
+ mes "You have the eyes of a person who has seen death first hand!!";
+ mes "But, because of Berserk, I'm sure you have been able to escape it many times as well.";
+ emotion 0;
+ close;
+}
diff --git a/npc/quests/skills/thief_skills.txt b/npc/quests/skills/thief_skills.txt new file mode 100644 index 000000000..b6f5fabee --- /dev/null +++ b/npc/quests/skills/thief_skills.txt @@ -0,0 +1,386 @@ +//===== eAthena Script =======================================
+//= Thief Skills Quests
+//===== By: ==================================================
+//= kobra_k88
+//===== Current Version: =====================================
+//= 1.4
+//===== Compatible With: =====================================
+//= eAthena 7.15 +
+//===== Description: =========================================
+//= Sand Attack, Back Slide, Find Stone, Stone Fling skill quests.
+//===== Additional Comments: =================================
+//= v1.0 Fully working
+//= v1.1 Changed Sand Attack requirements from 5 Grit to 5 Fine Grit and a
+//= Leather Bag of Infinity. These are the official RO requirments
+//= Added npc RuRumuni, maker of Leather Bag of Infinity. [kobra_k88]
+//= v1.1a Now using functions found in "Global_Functions.txt" for
+//= class checks.[kobra_k88]
+//= 1.2 Added Baby Class Support [Lupus]
+//= 1.3 Removed callfunc Is_####_Class in favor of baseClass [Silentdragon]
+//= 1.4 Fixed exploit [Lupus]
+//============================================================
+
+
+
+//======================================================================================================
+moc_prydb1.gat,154,128,4 script Alcouskou 118,{
+ mes "[Alcouskou]";
+ if(baseClass == Job_Thief) goto L_Start;
+ if(BaseJob==Job_Novice) goto L_Novice;
+
+L_Other:
+ mes "Your kind isn't welcome here.";
+ close;
+
+L_Novice:
+ mes "Although thieves and assasins have basic skills which aid them in their jobs, most don't have the 'special' skills which can make them truly great!";
+ next;
+ mes "[Alcouskou]";
+ mes "I just happen to be the ONLY one who can teach them these skills!";
+ mes "If you ever decide to become a Thief or an Assassin, come back here and I'll teach you these cool skills.";
+ next;
+ mes "[Alcouskou]";
+ mes "And if you know anyone who already is one, send them to me. I'm willing to teach anyone who's interested.";
+ close;
+
+L_Start:
+ mes "During the course of your life you will experience many things.";
+ mes "You many have trouble understanding the importance of some of these experiences, and may even consider them to be useless to you.";
+ next;
+ mes "[Alcouskou]";
+ mes "But do not be to hastey with your judgement of them, for some of these experience may actually prove to be benificial for you.";
+ next;
+ mes "[Alcouskou]";
+ mes "Let me explain:";
+M_Menu:
+ next;
+ menu "-Sand Attack",M_Sand, "-Back Slide",M_Back, "-Find Stone",M_Find, "-Stone Fling",M_Fling, "-I will be back later.",M_End;
+
+ M_Sand:
+ mes "[Alcouskou]";
+ if(SANDATTACK == 1) goto L_Sand;
+ if(getskilllv(149) > 0) goto L_GotSand;
+ mes "The most important aspect of being a good Thief/Assassin is stealth. One should never be seen our touched unless he/she wants to be";
+ next;
+ mes "[Alcouskou]";
+ mes "Some may consider this cowardly but I don't see it that way.";
+ mes "We live in a world where it is the survival of the fittest and you must do whatever it takes to survive.....";
+ next;
+ mes "[Alcouskou]";
+ mes "Even if this means throwing sand in an enemy's face. That is why the skill, ^5555FFSand Attack^000000, was created.";
+ next;
+ mes "[Alcouskou]";
+ mes "This skill allows the user to throw and kick sand in the eyes of an opponent, temporarily blinding them.";
+ mes "This effectively impares the opponent's ability to defend or attack giving the user a brief but great advantage.";
+ next;
+ mes "[Alcouskou]";
+ mes "In order to learn this skill you will need to gather ^5555FF5 Fine Grit^000000 and a ^FF3355'Leather Bag of Infinity'^000000.";
+ if(BaseJob == Job_Thief) mes "You will also need a job level of at least ^5555FF25^000000.";
+ next;
+ mes "[Alcouskou]";
+ mes "You can find the Leather Bag of Infinity by talking to a merchant by the name of ^5533FFRuRumuni^000000.";
+ mes "He can be found in the ^009500West end of Payon^000000.";
+ next;
+ mes "[Alcouskou]";
+ mes "Come back when you are ready.";
+ set SANDATTACK, 1;
+ goto M_Menu;
+ M_Back:
+ mes "[Alcouskou]";
+ if (BACKSLIDE == 1)goto L_Back;
+ if (getskilllv(150)>0) goto L_GotBack;
+ mes "People tend to focus on attack and damage, but it's necessary to understand that FLEEING is JUST AS IMPORTANT as attacking!";
+ next;
+ mes "[Alcouskou]";
+ mes "We thieves/assassins pride ourselves on our speed and ability to quickly dodge.";
+ mes "Of course I'm sure you've noticed that there is a down side to that speed and quickness.....";
+ next;
+ mes "[Alcouskou]";
+ mes "If we DO get hit, depending on the monster, that single hit could put us in serious danger!";
+ next;
+ mes "[Alcouskou]";
+ mes "I can understand how funny it is to watch a monster constantly miss while its attacking you, but......";
+ next;
+ mes "[Alcouskou]";
+ mes "If you get attacked by a large group of monsters..... you may not even have room to dodge and that won't be at all funny.";
+ next;
+ mes "[Alcouskou]";
+ mes "That's why most Thiefs/Assassins fear large mobs and will flee at the first sign of them.";
+ mes "There are those however, that do not fear being overwhelmed by a large mob.";
+ next;
+ mes "[Alcouskou]";
+ mes "These are the people who have learned a unique skill that allows them to deal with mob situatuions.";
+ mes "The skill enables the user to quickly 'back' out of the way of a mob, putting a great deal of distance between the two.";
+ next;
+ mes "[Alcouskou]";
+ mes "The skill is called ^5555FFBack Slide^000000 and requires a lot of practice to master.";
+ mes "If you wish to learn this skill you will first need to bring in ^5555FF20 Grasshopper's Legs^000000.";
+ next;
+ mes "[Alcouskou]";
+ mes "Think of it as the first part of your training.";
+ if(BaseJob == Job_Thief) mes "If you are a Thief, you will also need to have a job level of at least ^5555FF35^000000.";
+ set BACKSLIDE, 1;
+ goto M_Menu;
+ M_Find:
+ mes "[Alcouskou]";
+ if (FINDSTONE == 1) goto L_Find;
+ if (getskilllv(151)>0) goto L_GotFind;
+ mes "The more experienced and better skilled members of our guild are quite handy.";
+ mes "They can turn something as common as a rock on the ground into a very effective weapon.";
+ next;
+ mes "[Alcouskou]";
+ mes "They can throw a rock at a far away target with great accuracy and strength.";
+ mes "They can throw it so powerfully that sometimes an enemy will become stunned by it.";
+ next;
+ mes "[Alcouskou]";
+ mes "Of course not every stone can be used as a weapon. That is why the skill, ^5555FFFind Sone^000000, was developed.";
+ mes "With practice one can learn to pick out a stone that has a weight and shape that is fit for 'flinging'.";
+ next;
+ mes "[Alcouskou]";
+ mes "Once mastered a Thieve/Assassin will be able to pick up stones from any location.";
+ mes "Think about it... the ability to use a long range weapon without spending any zeny.... isn't it great?";
+ next;
+ mes "[Alcouskou]";
+ mes "If you wan't to learn this skill you must do a little training first. Start by picking up ^5555FF1 Bear's Footskin^000000.";
+ mes "Then try to find ^5555FF1 Zargon^000000. Next pick out ^5555FF5 Spawn^000000. Once you've done all this come back and see me.";
+ next;
+ mes "[Alcouskou]";
+ mes "Collecting those items will help you develop the skills neccessary to learn Find Stone.";
+ set FINDSTONE, 1;
+ goto M_Menu;
+ M_Fling:
+ mes "[Alcouskou]";
+ if (STONEFLING == 1) goto L_Fling;
+ if (getskilllv(152)>0) goto L_GotFling;
+ mes "The more experienced and better skilled members of our guild are quite handy.";
+ mes "They can turn something as common as a rock on the ground into a very effective weapon.";
+ next;
+ mes "[Alcouskou]";
+ mes "They can throw a stone at a far away target with great accuracy and strength.";
+ mes "They can throw it so powerfully that sometimes an enemy will become stunned by it.";
+ next;
+ mes "[Alcouskou]";
+ mes "These guild members call this skill ^5555FFStone Fling^000000. It is extrememly useful and doesn't cost any zeny.";
+ next;
+ mes "[Alcouskou]";
+ mes "If you wish to learn Stone Fling you must first bring me ^5555FF2 Garlet and 2 Scell^000000.";
+ mes "You will also need to have mastered ^5555FFFind Stone^000000 as well.";
+ set STONEFLING, 1;
+ goto M_Menu;
+ M_End:
+ mes "[Alcouskou]";
+ mes "It seems that you are not experienced enough yet....";
+ close;
+
+L_Sand:
+ if (countitem(7041)<5 || countitem(7042)<1) goto L_NotRdy1;
+ if (BaseJob==Job_Thief && JobLevel<25) goto L_LowLvl1;
+ delitem 7041, 5;
+ delitem 7042, 1;
+ mes "Alright, you've got all the items. Now its time to learn.... the... ultimate.... attack.... Sand Attack!!!";
+ next;
+ mes "[Alcouskou]";
+ mes "Look down at your feet. See that? The very thing your stepping on is the secrect behind this skill......... SAND!!";
+ next;
+ mes "[Alcouskou]";
+ mes "Okay, grab a handfull....... yep, that much will do....... now.........";
+ next;
+ mes "[Alcouskou]";
+ mes "THROW IT AT ME!!!";
+ emotion 27;
+ next;
+ mes "[Alcouskou]";
+ mes "(AHHH!! My EYES!!! Son of a)......... ya see how effective that was........ (JEEZE that STINGS!!).......";
+ emotion 23;
+ next;
+ mes "[Alcouskou]";
+ mes "Anyways that's all there is too it....... (CRAP that's a lot of sand!!).... So yeah, Sand Attack, use it as a last resort...... (AWW MAN!!)";
+ next;
+ mes "[Alcouskou]";
+ mes "Oh and it does Earth Property damage....... (I gota finda better way to teach this).........";
+ emotion 4;
+ skill 149,1,0;
+ set SANDATTACK, 0;
+ set BAGNFNTY, 0;
+ close;
+
+ L_NotRdy1:
+ mes "You need ^5555FF5 Fine Grit^000000 and a ^FF3355'Leather Bag of Infinity'^000000.";
+ next;
+ mes "[Alcouskou]";
+ mes "You can find the Leather Bag of Infinity by talking to a merchant by the name of ^5533FFRuRumuni^000000.";
+ mes "He can be found in the ^009500West end of Payon^000000.";
+ close;
+ L_LowLvl1:
+ mes "You need to have a ^5555FFJob level of 25^000000 to learn Sand Attack.";
+ close;
+ L_GotSand:
+ mes "Oh your back... hopefully not to throw anymore sand in my eyes, heh heh.... heh........ heh..............";
+ emotion 4;
+ close;
+
+L_Back:
+ if (countitem(940)<20) goto L_NotRdy2;
+ if (BaseJob==Thief && JobLevel<35) goto L_LowLvl2;
+ delitem 940,20;
+ mes "Great, you have the grasshopper legs. While you were collecting them I'm sure you picked up on many of the characteristics of grasshoppers.";
+ next;
+ mes "[Alcouskou]";
+ mes "You will need that knowledge because this skill is based on the movement of the grasshopper. Like it you will become quick, agile, and have a keen eyesight.";
+ next;
+ mes "[Alcouskou]";
+ mes "Okay, lets begin........";
+ next;
+ mes "~fwoosh~";
+ next;
+ mes "~fwooooosh~";
+ next;
+ mes "~fwoooooooooooooooosh~";
+ next;
+ mes "[Alcouskou]";
+ mes "Ah! You've got it. Just like a pro. With this skill being overwhelmed by mobs is a thing of the past.";
+ skill 150,1,0;
+ set BACKSLIDE, 0;
+ close;
+
+ L_NotRdy2:
+ mes "You need ^5555FF20 Grasshopper's Legs^000000.";
+ close;
+ L_LowLvl2:
+ mes "You need a ^5555FFJob level of 35^000000 to learn Back Slide.";
+ close;
+ L_GotBack:
+ mes "Seeing as you already have Back Slide..... why don't you 'Back' on outa here.....";
+ close;
+
+L_Find:
+ if (countitem(912)<1 || countitem(948)<1 || countitem(908)<5) goto L_NotRdy3;
+ delitem 912,1;
+ delitem 948,1;
+ delitem 908,5;
+ mes "Ah! I see that you're fully prepared to learn this skill. Let us begin....";
+ next;
+ mes "[Alcouskou]";
+ mes "There are many stones on the floor here. Pick them all up one by one and examine each one carefully.";
+ mes "Get a feel for how much each one weighs and become aware of how each one has a different texture.";
+ next;
+ mes "[Alcouskou]";
+ mes "You must become one with the stone... it is the only way you will be able to use it effectively...";
+ next;
+ mes "~ an hour later... ~";
+ next;
+ mes "[Alcouskou]";
+ mes "Very good. You have chosen some fine stones. This tells me that you have now perfected the Find Stone skill.";
+ emotion 21;
+ skill 151,1,0;
+ set FINDSTONE, 0;
+ next;
+ mes "[Alcouskou]";
+ mes "Have fun using it.";
+ close;
+
+ L_NotRdy3:
+ mes "You need ^5555FF1 Bear's Footskin, 1 Zargon, and 5 Spawns^000000 to learn Find Stone.";
+ close;
+ L_GotFind:
+ mes "Picking up stones can be fun but...... don't spend all day doing it ok?.....";
+ close;
+
+L_Fling:
+ if (getskilllv(151) == 0) goto L_NotRdy4;
+ if ((countitem(910)<2) || (countitem(911)<2)) goto L_NotRdy4;
+ delitem 910,2;
+ delitem 911,2;
+ mes "Good! You look like your ready for me to teach you the Stone Fling skill. Let us begin....";
+ next;
+ mes "[Alcouskou]";
+ mes "First, loosen up your arm. Next, find a good quality stone using Find Stone. Now close your eyes and visualize the target in your mind.";
+ next;
+ mes "[Alcouskou]";
+ mes "Now imagine yourself going straight through the target! Continue to visualize this!";
+ next;
+ mes "~ 1/2 hour later... ~";
+ next;
+ mes "[Alcouskou]";
+ mes "Think of the stone as an extension of your body. Keep the target clear in your mind! You are one with the stone, the stone is one with you.....";
+ next;
+ mes "[Alcouskou]";
+ mes "Open your eyes! SEE THE TARGET!! Throw the stone at the target as if you were hurrling yourself towards it! DO IT NOW!!";
+ emotion 27;
+ next;
+ mes "!!Whooooossshh!!................. !!Thwack!!";
+ next;
+ mes "[Alcouskou]";
+ mes "Haha! Excellent! It's a bullseye. You have now masterd Stone Fling, congratulations.";
+ emotion 21;
+ skill 152,1,0;
+ set STONEFLING, 0;
+ next;
+ mes "[Alcouskou]";
+ mes "As you can see this is a skill that relies heavily on concentration.";
+ mes "As long as you keep your mind focused you will have on problems using this skill.";
+ close;
+
+ L_NotRdy4:
+ mes "You need ^5555FF2 Scell and 2 Garlet^000000, and the ability to use ^5555FFFind Stone^000000 to learn Stone Fling.";
+ close;
+ L_GotFling:
+ mes "So Stone Fling is comming in handy huh? Just make sure you don't hit the wrong moster.";
+ close;
+}
+
+
+//====================================================================================
+payon.gat,91,77,4 script RuRumuni 99,{
+ mes "[RuRumuni]";
+ if(SANDATTACK == 1 && BAGNFNTY != 2) goto L_Start;
+
+ mes "I am a humble merchant here in Payon. I buy leather hides, brought in by the hunters, to make leather pouches to sell.";
+ mes "I grew up around leather and am quite good at working with it.";
+ next;
+ mes "[RuRumuni]";
+ mes "There is a Thief guild in the Morroc area.";
+ mes "I know someone there that sends me Thieves in need of the items I make, such as the ^5533FF'Leather Bag of Infinity'^000000.";
+ close;
+
+L_Start:
+ if(BAGNFNTY == 1) goto L_Check;
+ mes "Hello. So you were sent by Alcouskou to obtain a ^5533FF'Leather Bag of Inifinity'^000000........";
+ mes "I will be more than happy to make one for you............";
+ next;
+ mes "[RuRumuni]";
+ mes "But this bag is very special, and I will need some special items in order to make it.";
+ next;
+ set BAGNFNTY, 1;
+
+ L_List:
+ mes "[RuRumuni]";
+ mes "Here are the items that I will need:";
+ mes "- 5 ^5533FFScorpion Tails^000000";
+ mes "- 1 ^5533FFCobweb^000000";
+ mes "- 1 ^5533FFCactus Needle^000000";
+ mes "- 1 ^5533FFEarthworm Peeling^000000.";
+ next;
+ mes "[RuRumuni]";
+ mes "Once you have all of these items I will be able to make the Bag of Infinity for you.";
+ close;
+
+L_Check:
+ mes "Nice to see you again. Do you have all of the items? Lets see........";
+ next;
+ if(countitem(904)<5 || countitem(1025)<1 || countitem(952)<1 || countitem(1055)<1) goto L_List;
+ delitem 904, 5;
+ delitem 1025, 1;
+ delitem 952, 1;
+ delitem 1055, 1;
+ mes "[RuRumuni]";
+ mes "Great you have everything I asked for. Let me start making the bag right away.......";
+ next;
+ mes "~( 30 minutes later)~";
+ next;
+ mes "[RuRumuni]";
+ mes "Here you go, one Leather Bag of Infinity. Enjoy!";
+ getitem 7042, 1;
+ set BAGNFNTY, 2;
+ close;
+}
|