diff options
Diffstat (limited to 'npc/merchants')
| -rw-r--r-- | npc/merchants/alchemist.txt | 129 | ||||
| -rw-r--r-- | npc/merchants/clothes_dyer.txt | 379 | ||||
| -rw-r--r-- | npc/merchants/dye_maker.txt | 277 | ||||
| -rw-r--r-- | npc/merchants/grandpa_pharmacist.txt | 162 | ||||
| -rw-r--r-- | npc/merchants/hair_dyer.txt | 158 | ||||
| -rw-r--r-- | npc/merchants/hair_style.txt | 2015 | ||||
| -rw-r--r-- | npc/merchants/icecream.txt | 61 | ||||
| -rw-r--r-- | npc/merchants/inn.txt | 172 | ||||
| -rw-r--r-- | npc/merchants/milk_trader.txt | 61 | ||||
| -rw-r--r-- | npc/merchants/quivers.txt | 147 | ||||
| -rw-r--r-- | npc/merchants/refine.txt | 925 | ||||
| -rw-r--r-- | npc/merchants/renters.txt | 182 | ||||
| -rw-r--r-- | npc/merchants/scrolls_arrows.txt | 38 | ||||
| -rw-r--r-- | npc/merchants/shops.txt | 309 |
14 files changed, 5015 insertions, 0 deletions
diff --git a/npc/merchants/alchemist.txt b/npc/merchants/alchemist.txt new file mode 100644 index 000000000..046e7c308 --- /dev/null +++ b/npc/merchants/alchemist.txt @@ -0,0 +1,129 @@ +//===== eAthena Script =======================================
+//= Alchemist Shop
+//===== By: ==================================================
+//= eAthena Team
+//===== Current Version: =====================================
+//= 1.3
+//===== Compatible With: =====================================
+//= eAthena 1.0+
+//===== Description: =========================================
+//= Selling Alchemist Materials and Manuals
+//===== Additional Comments: =================================
+//= 1.1 fixed Medicine Bowl issue, thanx 2 MasterOfMuppets
+//= 1.2 Reddozen's fixes of typos. added optional Elemental
+//= Potion Guide. [Lupus]
+//= 1.3 Deleted Elemental Potions Guide due to original quest [Lupus]
+//============================================================
+
+
+alde_alche.gat,24,188,3 script Gever AI Sharp 740,{
+ mes "[Gever AI Sharp]";
+ mes "Welcome to the Alchemist Union.";
+ mes "How can I assist you today?";
+ next;
+ menu "Purchase materials.",M_Material, "Purchase a production manual.",M_Manual, "Cancel Deal.", M_Bye;
+
+ M_Material:
+ mes "[Gever AI Sharp]";
+ mes "What would you like?";
+ next;
+ menu "Medicine Bowl - 8z",-,"Cancel.",M_Bye;
+
+ mes "[Gever AI Sharp]";
+ mes "How many do you want?";
+ mes "Enter '0' if you want to quit.";
+ next;
+ input @num;
+ if((@num < 1) || (@num > 1000)) goto M_Bye;
+ set @price,@num * 8;
+ mes "[Gever AI Sharp]";
+ if(Zeny < @price) goto sL_NoZeny;
+ if (checkweight(7134,@num) == 0) goto sL_OverW;
+ set Zeny,Zeny-@price;
+ getitem 7134,@num;//Items: Medicine_Bowl,
+ goto L_Bye;
+ M_Manual:
+ mes "[Gever AI Sharp]";
+ mes "What do you need?";
+ mes "Manuals are generally 100,000 zeny.";
+ mes "Except for a couple of special manuals.";
+ next;
+ menu "Potion Creation Guide",sM_Pot, "Alcohol Creation Guide",sM_Alc, "Bottle Grenade Creation Guide",sM_Gren,
+ "Acid Bottle Creation Guide",sM_Acid, "Plant Bottle Creation Guide",sM_Plant, "Marine Sphere Bottle Creation Guide",sM_Mar,
+ "Glistening Coat Creation Guide",sM_Coat, "Condensed Potion Creation Guide",sM_Con, "Cancel Deal.",M_Bye;
+ sM_Pot:
+ set @itemid,7144;
+ set @price,100000;
+ set @itemname$,"Potion";
+ goto L_Choice;
+ sM_Alc:
+ set @itemid,7127;
+ set @price,100000;
+ set @itemname$,"Alchohol";
+ goto L_Choice;
+ sM_Gren:
+ set @itemid,7128;
+ set @price,100000;
+ set @itemname$,"Bottle Grenade";
+ goto L_Choice;
+ sM_Acid:
+ set @itemid,7129;
+ set @price,100000;
+ set @itemname$,"Acid Bottle";
+ goto L_Choice;
+ sM_Plant:
+ set @itemid,7130;
+ set @price,100000;
+ set @itemname$,"Plant Bottle";
+ goto L_Choice;
+ sM_Mar:
+ set @itemid,7131;
+ set @price,100000;
+ set @itemname$,"Marine Sphere Bottle";
+ goto L_Choice;
+ sM_Coat:
+ set @itemid,7132;
+ set @price,100000;
+ set @itemname$,"Glistening Coat";
+ goto L_Choice;
+ sM_Con:
+ set @itemid,7133;
+ set @price,240000;
+ set @itemname$,"Condensed Potion";
+ goto L_Choice;
+// sM_Ele:
+// set @itemid,7434;
+// set @price,240000;
+// set @itemname$,"Elemental Potion";
+// goto L_Choice;
+
+ L_Choice:
+ mes "[Gever AI Sharp]";
+ mes "An " + @itemname$ + " Creation Guide??";
+ mes "That will be "+@price/1000+",000 zeny.";
+ next;
+ menu "Purchase.",-,"Quit.",M_Bye;
+
+ mes "[Gever AI Sharp]";
+ if(Zeny < @price) goto sL_NoZeny;
+ if (checkweight(@itemid,1) == 0) goto sL_OverW;
+ getitem @itemid,1;
+ set Zeny,Zeny-@price;
+ L_Bye:
+ mes "Thank you for buying!";
+ mes "Come again.";
+ close;
+
+ sL_NoZeny:
+ mes "You don't seem to have enough money.";
+ close;
+ sL_OverW:
+ mes "Hmm.... it seems that you are overweight...";
+ close;
+
+
+ M_Bye:
+ mes "[Gever AI Sharp]";
+ mes "Then come again next time.";
+ close;
+}
diff --git a/npc/merchants/clothes_dyer.txt b/npc/merchants/clothes_dyer.txt new file mode 100644 index 000000000..a63dd2b71 --- /dev/null +++ b/npc/merchants/clothes_dyer.txt @@ -0,0 +1,379 @@ +//===== eAthena Script =======================================
+//= Clothes Dyer
+//===== By: ==================================================
+//= Usnul
+//===== Current Version: =====================================
+//= 2.2b
+//===== Compatible With: =====================================
+//= eAthena 1.0+
+//===== Description: =========================================
+//= Clothes dyer with standard palletes
+//===== Additional Comments: =================================
+//= Fully working
+//= 2.1 Shortened some labels to make this script loading,
+//= Added Black+White Colors desc [Lupus]
+//= 2.1a - added adv classes + abby class support [Lupus]
+//= 2.2 – Spell checked. [Nexon]
+//= 2.3 - Fixed dis $hit! [Poki#3]
+//============================================================
+
+
+// Dyer Ginedin Rephere ---------------------------------------------------
+prt_in.gat,284,168,2 script Dyer Ginedin Rephere 55,{
+ mes "[Dyer Ginedin Rephere]";
+ mes "11... 12... Mmm... good. I think I'll be able to finish before tonight’s party. Oh! I didn't notice that you were here. Anyway how may I assist you?";
+M_Menu:
+ next;
+ menu "-Talk",L_Talk,"-Dye Clothing",L_Dye,"-Price list",L_PriceList,"-Cancel",L_End;
+
+L_Talk:
+ mes "[Dyer Ginedin Rephere]";
+ mes "Life may have gotten a little better.... but when I look at all of the orders I've received... Whew!";
+ mes "It seems that the young women of Rune Midgard must be very well off these days.";
+ next;
+ mes "[Dyer Ginedin Rephere]";
+ mes "Not that I think that they are indulging in anything luxurious mind you.";
+ mes "I don't think there is anything wrong with the pursuit of beauty and being fashionable.";
+ next;
+ mes "[Dyer Ginedin Rephere]";
+ mes "For us humans, who have no colorful fur or decorative scales, clothes are one of the few ways we have to display our personality, style, and beauty.";
+ next;
+ mes "[Dyer Ginedin Rephere]";
+ mes "Haha... When I think about it, I really feel that my job is worthwhile. I believe that I provide a service that the people desire.";
+ next;
+ mes "[Dyer Ginedin Rephere]";
+ mes "Can you feel it too? The energy that is released when rough fabric and leather are brought to life with color?.....";
+ next;
+ mes "[Dyer Ginedin Rephere]";
+ mes "Although the process is very tedious and time consuming, the joy and happiness I feel when a dress is finished.....";
+ mes "more than makes up for all of the hard work!!";
+ goto M_Menu;
+
+L_Dye:
+ mes "[Dyer Ginedin Rephere]";
+ mes "Oh... you need my work? Well... okay sounds good.";
+ next;
+ mes "[Dyer Ginedin Rephere]";
+ mes "Please choose a color that suits you.";
+ next;
+ if(Sex==0) goto Female_dye;
+//=================================
+// Clothing Dyeing for Males
+//=================================
+
+Male_dye:
+ if(BaseJob==Job_Novice || BaseJob==Job_Novice_High || BaseJob==Job_Baby) goto L_Novice_M;
+ if(BaseJob==Job_Swordman || BaseJob==Job_Swordman_High || BaseJob==Job_Baby_Swordman) goto L_Swordman_M;
+ if(BaseJob==Job_Mage || BaseJob==Job_Mage_High || BaseJob==Job_Baby_Mage) goto L_Mage_M;
+ if(BaseJob==Job_Archer || BaseJob==Job_Archer_High || BaseJob==Job_Baby_Archer) goto L_Archer_M;
+ if(BaseJob==Job_Acolyte || BaseJob==Job_Acolyte_High || BaseJob==Job_Baby_Acolyte) goto L_Acolyte_M;
+ if(BaseJob==Job_Merchant || BaseJob==Job_Merchant_High || BaseJob==Job_Baby_Merchant) goto L_Merchant_M;
+ if(BaseJob==Job_Thief || BaseJob==Job_Thief_High || BaseJob==Job_Baby_Thief) goto L_Thief_M;
+ if(BaseJob==Job_Knight || BaseJob==Job_Knight2 || BaseJob==Job_Crusader || BaseJob==Job_Crusader2 || BaseJob==Job_Lord_Knight || BaseJob==Job_Lord_Knight2 || BaseJob==Job_Paladin || BaseJob==Job_Paladin2 || BaseJob==Job_Stalker || BaseJob==Job_Baby_Knight || BaseJob==Job_Baby_Knight2 || BaseJob==Job_Baby_Crusader || BaseJob==Job_Baby_Crusader2) goto L_Swordman2_M;
+ if(BaseJob==Job_Priest || BaseJob==Job_Monk || BaseJob==Job_High_Priest || BaseJob==Job_Champion || BaseJob==Job_Baby_Priest || BaseJob==Job_Baby_Monk) goto L_Acolyte2_M;
+ if(BaseJob==Job_Wizard || BaseJob==Job_High_Wizard || BaseJob==Job_Baby_Wizard) goto L_Mage2_M;
+ if(BaseJob==Job_Blacksmith || BaseJob==Job_Alchem || BaseJob==Job_Whitesmith || BaseJob==Job_Creator || BaseJob==Job_Baby_Blacksmith|| BaseJob==Job_Baby_Alchem) goto L_Merchant2_M;
+ if(BaseJob==Job_Hunter || BaseJob==Job_Bard || BaseJob==Job_Sniper || BaseJob==Job_Clown || BaseJob==Job_Baby_Hunter || BaseJob==Job_Baby_Bard) goto L_Archer2_M;
+ if(BaseJob==Job_Assassin || BaseJob==Job_Rogue || BaseJob==Job_Assassin_Cross || BaseJob==Job_Baby_Assassin || BaseJob==Job_Baby_Rogue) goto L_Thief2_M;
+ if(BaseJob==Job_SuperNovice || BaseJob==Job_Super_Baby) goto L_Super_Novice_M;
+ goto sL_Sorry;
+//NOTE: Although Sages have pellets, they color non existent piece's of clothing. They are not listed, so players won't waste their items and zeny.
+//Professors also have a problem <.< The only thing that changes is a part of there Fox scarf. The Stalker Placement is not a bug!
+
+L_Novice_M:
+ set @black, 1;
+ set @blue, 2;
+ set @green, 3;
+ menu "- Default",L_Dye_Default,"- Black",L_Dye_Black,"- Blue",L_Dye_Blue,"- Green",L_Dye_Green,"- Cancel",L_End;
+L_Swordman_M:
+ set @black, 1;
+ set @blue, 2;
+ set @green, 3;
+ menu "- Default",L_Dye_Default,"- Black",L_Dye_Black,"- Blue",L_Dye_Blue,"- Green",L_Dye_Green,"- Cancel",L_End;
+L_Mage_M:
+ set @red, 1;
+ set @violet, 2;
+ set @orange, 3;
+ set @white, 4;
+ menu "- Default",L_Dye_Default,"- Red",L_Dye_Red,"- Violet",L_Dye_Violet,"- Orange",L_Dye_Orange,"- White",L_Dye_White,"- Cancel",L_End;
+L_Archer_M:
+ set @black, 1;
+ set @violet, 2;
+ set @green, 3;
+ menu "- Default",L_Dye_Default,"- Black",L_Dye_Black,"- Violet",L_Dye_Violet,"- Green",L_Dye_Green,"- Cancel",L_End;
+L_Acolyte_M:
+ set @blue, 1;
+ set @red, 2;
+ set @white, 3;
+ set @black, 4;
+ menu "- Default",L_Dye_Default,"- Blue",L_Dye_Blue,"- Red",L_Dye_Red,"- White",L_Dye_White,"- Black",L_Dye_Black,"- Cancel",L_End;
+L_Merchant_M:
+ set @black, 1;
+ set @blue, 2;
+ set @green, 3;
+ menu "- Default",L_Dye_Default,"- Black",L_Dye_Black,"- Blue",L_Dye_Blue,"- Green",L_Dye_Green,"- Cancel",L_End;
+L_Thief_M:
+ set @green, 1;
+ set @red, 2;
+ set @white, 4;
+ menu "- Default",L_Dye_Default,"- Green",L_Dye_Green,"- Red",L_Dye_Red,"- White",L_Dye_White,"- Cancel",L_End;
+L_Swordman2_M:
+ set @violet, 1;
+ set @red, 3;
+ set @black, 4;
+ menu "- Default",L_Dye_Default,"- Violet",L_Dye_Violet,"- Red",L_Dye_Red,"- Black",L_Dye_Black,"- Cancel",L_End;
+L_Acolyte2_M:
+ set @blue, 1;
+ set @green, 2;
+ set @red, 3;
+ set @white, 4;
+ menu "- Default",L_Dye_Default,"- Blue",L_Dye_Blue,"- Green",L_Dye_Green,"- Red",L_Dye_Red,"- White",L_Dye_White,"- Cancel",L_End;
+L_Mage2_M:
+ set @blue, 1;
+ set @green, 3;
+ set @black, 4;
+ menu "- Default",L_Dye_Default,"- Blue",L_Dye_Blue,"- Green",L_Dye_Green,"- Black",L_Dye_Black,"- Cancel",L_End;
+L_Merchant2_M:
+ set @black, 1;
+ set @green, 2;
+ set @white, 3;
+ menu "- Default",L_Dye_Default,"- Black",L_Dye_Black,"- Green",L_Dye_Green,"- White",L_Dye_White,"- Cancel",L_End;
+L_Archer2_M:
+ set @black, 1;
+ set @blue, 2;
+ set @green, 3;
+ menu "- Default",L_Dye_Default,"- Black",L_Dye_Black,"- Blue",L_Dye_Blue,"- Green",L_Dye_Green,"- Cancel",L_End;
+L_Thief2_M:
+ set @blue, 1;
+ menu "- Default",L_Dye_Default,"- Blue",L_Dye_Blue,"- Cancel",L_End;
+L_Super_Novice_M:
+ set @violet, 1;
+ set @blue, 2;
+ set @green, 3;
+ set @black, 4;
+ menu "- Default",L_Dye_Default,"- Violet",L_Dye_Violet,"- Blue",L_Dye_Blue,"- Green",L_Dye_Green,"- Black",L_Dye_Black,"- Cancel",L_End;
+
+
+//=================================
+// Clothing Dyeing for Females
+//=================================
+Female_dye:
+ if(BaseJob==Job_Novice || BaseJob==Job_Novice_High || BaseJob==Job_Baby) goto L_Novice_F;
+ if(BaseJob==Job_Swordman || BaseJob==Job_Swordman_High || BaseJob==Job_Baby_Swordman) goto L_Swordman_F;
+ if(BaseJob==Job_Mage || BaseJob==Job_Mage_High || BaseJob==Job_Baby_Mage) goto L_Mage_F;
+ if(BaseJob==Job_Archer || BaseJob==Job_Archer_High || BaseJob==Job_Baby_Archer) goto L_Archer_F;
+ if(BaseJob==Job_Acolyte || BaseJob==Job_Acolyte_High || BaseJob==Job_Baby_Acolyte) goto L_Acolyte_F;
+ if(BaseJob==Job_Merchant || BaseJob==Job_Merchant_High || BaseJob==Job_Baby_Merchant) goto L_Merchant_F;
+ if(BaseJob==Job_Thief || BaseJob==Job_Thief_High || BaseJob==Job_Baby_Thief) goto L_Thief_F;
+ if(BaseJob==Job_Knight || BaseJob==Job_Knight2 || BaseJob==Job_Crusader || BaseJob==Job_Crusader2 || BaseJob==Job_Lord_Knight || BaseJob==Job_Lord_Knight2 || BaseJob==Job_Paladin || BaseJob==Job_Paladin2 || BaseJob==Job_Stalker || BaseJob==Job_Baby_Knight || BaseJob==Job_Baby_Knight2 || BaseJob==Job_Baby_Crusader || BaseJob==Job_Baby_Crusader2) goto L_Swordman2_F;
+ if(BaseJob==Job_Priest || BaseJob==Job_Baby_Priest) goto L_Acolyte2_F;
+ if(BaseJob==Job_Wizard || BaseJob==Job_Sage || BaseJob==Job_High_Wizard || BaseJob==Job_Professor || BaseJob==Job_Baby_Wizard || BaseJob==Job_Baby_Sage) goto L_Mage2_F;
+ if(BaseJob==Job_Blacksmith || BaseJob==Job_Alchem || BaseJob==Job_Whitesmith || BaseJob==Job_Creator || BaseJob==Job_Baby_Blacksmith|| BaseJob==Job_Baby_Alchem) goto L_Merchant2_F;
+ if(BaseJob==Job_Hunter || BaseJob==Job_Bard || BaseJob==Job_Sniper || BaseJob==Job_Clown || BaseJob==Job_Baby_Hunter || BaseJob==Job_Baby_Bard) goto L_Archer2_F;
+ if(BaseJob==Job_Assassin || BaseJob==Job_Baby_Assassin) goto L_Thief2_F;
+ if(BaseJob==Job_Rogue || BaseJob==Job_Assassin_Cross || BaseJob==Job_Baby_Rogue) goto L_Thief3_F;
+ if(BaseJob==Job_SuperNovice || BaseJob==Job_Super_Baby) goto L_Super_Novice_F;
+ goto sL_Sorry;
+//NOTE: Same problems as with Males. This time: Monk, High Priest, Champion.
+//Rogue and Assassin Cross have her own check, because the default dye is black <.< The Stalker Placement is not a bug!
+
+L_Novice_F:
+ set @blue, 1;
+ set @red, 2;
+ set @green, 3;
+ set @black, 4;
+ menu "- Default",L_Dye_Default,"- Blue",L_Dye_Blue,"- Red",L_Dye_Red,"- Green",L_Dye_Green,"- Black",L_Dye_Black,"- Cancel",L_End;
+L_Swordman_F:
+ set @red, 1;
+ set @green, 3;
+ set @black, 4;
+ menu "- Default",L_Dye_Default,"- Red",L_Dye_Red,"- Green",L_Dye_Green,"- Black",L_Dye_Black,"- Cancel",L_End;
+L_Mage_F:
+ set @red, 1;
+ set @violet, 2;
+ set @white, 3;
+ set @black, 4;
+ menu "- Default",L_Dye_Default,"- Red",L_Dye_Red,"- Violet",L_Dye_Violet,"- White",L_Dye_White,"- Black",L_Dye_Black,"- Cancel",L_End;
+L_Archer_F:
+ set @red, 1;
+ set @green, 2;
+ set @white, 3;
+ set @black, 4;
+ menu "- Default",L_Dye_Default,"- Red",L_Dye_Red,"- Green",L_Dye_Green,"- White",L_Dye_White,"- Black",L_Dye_Black,"- Cancel",L_End;
+L_Acolyte_F:
+ set @red, 1;
+ set @green, 3;
+ set @black, 4;
+ menu "- Default",L_Dye_Default,"- Red",L_Dye_Red,"- Green",L_Dye_Green,"- Black",L_Dye_Black,"- Cancel",L_End;
+L_Merchant_F:
+ set @violet, 1;
+ set @green, 3;
+ set @black, 4;
+ menu "- Default",L_Dye_Default,"- Violet",L_Dye_Violet,"- Green",L_Dye_Green,"- Black",L_Dye_Black,"- Cancel",L_End;
+L_Thief_F:
+ set @red, 1;
+ set @white, 3;
+ set @black, 4;
+ menu "- Default",L_Dye_Default,"- Red",L_Dye_Red,"- White",L_Dye_White,"- Black",L_Dye_Black,"- Cancel",L_End;
+L_Swordman2_F:
+ set @blue, 1;
+ set @white, 3;
+ set @black, 4;
+ menu "- Default",L_Dye_Default,"- Blue",L_Dye_Blue,"- White",L_Dye_White,"- Black",L_Dye_Black,"- Cancel",L_End;
+L_Acolyte2_F:
+ set @red, 1;
+ set @green, 2;
+ set @white, 3;
+ set @black, 4;
+ menu "- Default",L_Dye_Default,"- Red",L_Dye_Red,"- Green",L_Dye_Green,"- White",L_Dye_White,"- Black",L_Dye_Black,"- Cancel",L_End;
+L_Mage2_F:
+ set @red, 1;
+ set @blue, 2;
+ set @white, 3;
+ set @green, 4;
+ menu "- Default",L_Dye_Default,"- Red",L_Dye_Red,"- Blue",L_Dye_Blue,"- White",L_Dye_White,"- Green",L_Dye_Green,"- Cancel",L_End;
+L_Merchant2_F:
+ set @red, 1;
+ set @green, 2;
+ set @violet, 3;
+ set @black, 4;
+ menu "- Default",L_Dye_Default,"- Red",L_Dye_Red,"- Green",L_Dye_Green,"- Violet",L_Dye_Violet,"- Black",L_Dye_Black,"- Cancel",L_End;
+L_Archer2_F:
+ set @blue, 1;
+ set @green, 3;
+ set @violet, 4;
+ menu "- Default",L_Dye_Default,"- Blue",L_Dye_Blue,"- Green",L_Dye_Green,"- Violet",L_Dye_Violet,"- Cancel",L_End;
+L_Thief2_F:
+ set @black, 1;
+ set @yellow, 2;
+ set @white, 3;
+ menu "- Default",L_Dye_Default,"- Black",L_Dye_Black,"- Yellow",L_Dye_Yellow,"- White",L_Dye_White,"- Cancel",L_End;
+L_Thief3_F:
+ set @yellow, 2;
+ set @white, 3;
+ menu "- Default",L_Dye_Default,"- Yellow",L_Dye_Yellow,"- White",L_Dye_White,"- Cancel",L_End;
+L_Super_Novice_F:
+ set @blue, 1;
+ set @red, 2;
+ set @green, 3;
+ set @black, 4;
+ menu "- Default",L_Dye_Default,"- Blue",L_Dye_Blue,"- Red",L_Dye_Red,"- Green",L_Dye_Green,"- Black",L_Dye_Black,"- Cancel",L_End;
+
+//=================================
+// Rest of the script
+//=================================
+
+L_Dye_Default:
+ mes "[Dyer Ginedin Rephere]";
+ mes "I can change your dye to the default one for free.";
+ mes "Are you sure?";
+ next;
+ menu "Yes",-,"No",L_End;
+ mes "[Dyer Ginedin Rephere]";
+ mes "OK. Here goes nothing.";
+ setlook 7,0;
+ close;
+L_Dye_Orange:
+ mes "[Dyer Ginedin Rephere]";
+ if(countitem(980) < 1) goto sL_NoDye;
+ if(Zeny < 10000) goto sL_Zeny;
+ mes "Ok. I will dye you clothes orange.";
+ setlook 7,@orange;
+ delitem 980,1;
+ set Zeny, Zeny - 10000;
+ close;
+L_Dye_Violet:
+ mes "[Dyer Ginedin Rephere]";
+ if(countitem(981) < 1) goto sL_NoDye;
+ if(Zeny < 10000) goto sL_Zeny;
+ mes "Ok. I will dye you clothes Violet.";
+ setlook 7,@violet;
+ delitem 981,1;
+ set Zeny, Zeny - 10000;
+ close;
+L_Dye_Red:
+ mes "[Dyer Ginedin Rephere]";
+ if(countitem(975) < 1) goto sL_NoDye;
+ if(Zeny < 10000) goto sL_Zeny;
+ mes "Ok. I will dye you clothes red.";
+ setlook 7,@red;
+ delitem 975,1;
+ set Zeny, Zeny - 10000;
+ close;
+L_Dye_Black:
+ mes "[Dyer Ginedin Rephere]";
+ if(countitem(983) < 1) goto sL_NoDye;
+ if(Zeny < 10000) goto sL_Zeny;
+ mes "Ok. I will dye you clothes black.";
+ setlook 7,@black;
+ delitem 983,1;
+ set Zeny, Zeny - 10000;
+ close;
+L_Dye_Green:
+ mes "[Dyer Ginedin Rephere]";
+ if(countitem(979) < 1) goto sL_NoDye;
+ if(Zeny < 10000) goto sL_Zeny;
+ mes "Ok. I will dye you clothes green.";
+ setlook 7,@green;
+ delitem 979,1;
+ set Zeny, Zeny - 10000;
+ close;
+L_Dye_Blue:
+ mes "[Dyer Ginedin Rephere]";
+ if(countitem(978) < 1) goto sL_NoDye;
+ if(Zeny < 10000) goto sL_Zeny;
+ mes "Ok. I will dye you clothes blue.";
+ setlook 7,@blue;
+ delitem 978,1;
+ set Zeny, Zeny - 10000;
+ close;
+L_Dye_White:
+ mes "[Dyer Ginedin Rephere]";
+ if(countitem(982) < 1) goto sL_NoDye;
+ if(Zeny < 10000) goto sL_Zeny;
+ mes "Ok. I will dye you clothes white.";
+ setlook 7,@white;
+ delitem 982,1;
+ set Zeny, Zeny - 10000;
+ close;
+L_Dye_Yellow:
+ mes "[Dyer Ginedin Rephere]";
+ if(countitem(976) < 1) goto sL_NoDye;
+ if(Zeny < 10000) goto sL_Zeny;
+ mes "Ok. I will dye you clothes yellow.";
+ setlook 7,@yellow;
+ delitem 976,1;
+ set Zeny, Zeny - 10000;
+ close;
+
+sL_Sorry:
+ mes "Wow, your clothes is very strange, I haven't seen anything like it before. Hmmm... I'm sorry, but there is no way I can paint it.";
+ close;
+
+sL_Zeny:
+ mes "I'm sorry but you don't have enough money.";
+ close;
+
+sL_NoDye:
+ mes "For me to dye your clothes, I'll need the appropriate Dyestuff. Please check my price list for the information.";
+ next;
+
+L_PriceList:
+ mes "[Dyer Ginedin Rephere]";
+ mes "Here is the list of colors you can choose from and their prices:";
+ mes " ";
+ mes " - ^FF4422Red^000000: 10000 zeny, 1 Scarlet Dyestuff";
+ mes " - ^D5A500Yellow^000000: 10000 zeny, 1 Lemon Dyestuff";
+ mes " - ^AA00AAViolet^000000: 10000 zeny, 1 Violet Dyestuff";
+ mes " - ^FF8800Orange^000000: 10000 zeny, 1 Orange Dyestuff";
+ mes " - ^4422FFBlue^000000: 10000 zeny, 1 CobaltBlue Dyestuff";
+ mes " - ^009500Green^000000: 10000 zeny, 1 DarkGreen Dyestuff";
+ mes " - Black: 10000 zeny, 1 Black Dyestuff";
+ mes " - White: 10000 zeny, 1 White Dyestuff";
+ goto M_Menu;
+
+L_End:
+ mes "[Dyer Ginedin Rephere]";
+ mes "Make yourself at home. Even though I don't have time for you.";
+ close;
+}
diff --git a/npc/merchants/dye_maker.txt b/npc/merchants/dye_maker.txt new file mode 100644 index 000000000..eb258c688 --- /dev/null +++ b/npc/merchants/dye_maker.txt @@ -0,0 +1,277 @@ +//===== eAthena Script =======================================
+//= Dye Maker
+//===== By: ==================================================
+//= kobra_k88
+//===== Current Version: =====================================
+//= 1.1
+//===== Compatible With: =====================================
+//= eAthena 7.15 +
+//===== Description: =========================================
+//=
+//===== Additional Comments: =================================
+//= Fully working
+//= 1.1 Spell Checked [Nexon]
+//============================================================
+
+
+
+// Dye Maker JavaDullihan =======================
+morocc_in.gat,146,99,2 script Dye Maker JavaDullihan 122,{
+ mes "[Dye Maker JavaDullihan]";
+ mes "Oh... What a Beautiful day today.";
+ mes "This is a perfect day to make Dyestuffs";
+ next;
+ menu "-Talk",M_Talk,"-Make Dyestuffs",M_Make,"-Cancel",M_End;
+
+ M_Talk:
+ mes "[Dye Maker JavaDullihan]";
+ mes "I don't have much to say...";
+ next;
+ mes "[Dye Maker JavaDullihan]";
+ mes "But if you want to know about my past, I'm sure I have a few stories to tell.";
+ next;
+ mes "[Dye Maker JavaDullihan]";
+ mes "Would you like to here some?";
+ next;
+ menu "-Sure, why not.",sM_0a,"-Maybe some other time.",sM_0b;
+
+ sM_0a:
+ mes "[Dye Maker JavaDullihan]";
+ mes "My father had been making dyestuffs since I was young... ..";
+ mes "I can still picture him making dyestuffs all day long.";
+ next;
+ mes "[Dye Maker JavaDullihan]";
+ mes "Even during the time of my mother's passing, my father kept making dyestuffs without end.";
+ mes "This made me angry at him. How could he keep making dyestuffs at a time like that?";
+ next;
+ mes "[Dye Maker JavaDullihan]";
+ mes "I just couldn't understand what my father was thinking. I became very disappointed in him.";
+ mes "My fathers actions made me despise Dye Making, so I ran away from home. I survived by doing a variety of odd jobs.";
+ next;
+ mes "[Dye Maker JavaDullihan]";
+ mes "However, as you can see, I ended up becoming a Dye Maker just like my father.";
+ mes "It's been 15 years since I first started making these goddamn things...";
+ next;
+ mes "[Dye Maker JavaDullihan]";
+ mes "Now that I've been doing this for as long as I have... I think I can finally understand why my father fell in love with his job.";
+ next;
+ mes "[Dye Maker JavaDullihan]";
+ mes "Why he sacrificed everything he had for this job...";
+ next;
+ mes "[Dye Maker JavaDullihan]";
+ mes "Maybe it was because of how the colors got more and more beautiful each time...";
+ mes "Maybe he wanted to find his own perfect color...";
+ next;
+ mes "[Dye Maker JavaDullihan]";
+ mes "I now have his feel for the colors... because... I am working with the same passion he had when he was living.";
+ mes "I am able to feel the colors from within my soul. I know it's hard to understand, but you will see what I mean.";
+ next;
+ mes "[Dye Maker JavaDullihan]";
+ mes "Father, I make these dyes for you....";
+ close;
+
+ sM_0b:
+ mes "[Dye Maker JavaDullihan]";
+ mes "Hahahaha... I guess I can't blame ya, who wants to here about a plain old dye maker's life anyhow.... Hahahaha...";
+ close;
+
+ M_Make:
+ mes "[Dye Maker JavaDullihan]";
+ mes "Alright! I will make the exact color you want. The cost of the dyestuff will depend on its quality.";
+ mes "Don't not be itimitaded by the prices, they are all my Masterpieces.";
+ next;
+ mes "[Dye Maker JavaDullihan]";
+ mes "So what color do you want?";
+ next;
+ menu "-Scarlet Dyestuffs",sM_Scarlet, "-Lemon Dyestuffs",sM_Lemon, "-Cobaltblue Dyestuffs",sM_Cobaltblue,
+ "-Darkgreen Dyestuffs",sM_Darkgreen, "-Orange Dyestuffs",sM_Orange, "-Violet Dyestuffs",sM_Violet,
+ "-White Dyestuffs",sM_White, "-Black Dyestuffs",sM_Black;
+
+ sM_Scarlet:
+ mes "[Dye Maker JavaDullihan]";
+ mes "Hmm... To make a Scarlet Dyestuffs, I need ^0000ff30 Red Herbs, 1 Counteragent and 1 Empty Bottle^000000.";
+ mes "The cost of labor will be 3000 Zeny. Are you still interested?";
+ next;
+ menu "Make Dyestuffs",sm_Make0, "Cancel",sm_Cancel;
+
+ sm_Make0:
+ mes "[Dye Maker JavaDullihan]";
+ if((countitem(507) < 30) || (countitem(973) < 1) || (countitem(713) < 1)) goto sl_LowItems;
+ if(Zeny < 3000) goto sl_LowZeny;
+ mes "Missing text.";
+ mes "Under development";
+ delitem 507,30;
+ delitem 973,1;
+ delitem 713,1;
+ set Zeny, Zeny - 3000;
+ getitem 975,1;
+ close;
+
+ sM_Lemon:
+ mes "[Dye Maker JavaDullihan]";
+ mes "Um... to make a Lemon Dyestuffs I need ^0000ff30 Yellow Herbs, 1 Counteragent, and 1 Empty Bottle^000000.";
+ mes "The cost of labor will be 3000 Zeny. Are you still interested?";
+ next;
+ menu "Make Dyestuffs",sm_Make1,"Cancel",sm_Cancel;
+
+ sm_Make1:
+ mes "[Dye Maker JavaDullihan]";
+ if((countitem(508) < 30) || (countitem(973) < 1) || (countitem(713) < 1)) goto sl_LowItems;
+ if(Zeny < 3000) goto sl_LowZeny;
+ mes "Missing text.";
+ mes "Under development";
+ delitem 508,30;
+ delitem 973,1;
+ delitem 713,1;
+ set Zeny, Zeny - 3000;
+ getitem 976,1;
+ close;
+
+ sM_Cobaltblue:
+ mes "[Dye Maker JavaDullihan]";
+ mes "Hmm... To make a Cobaltblue Dyestuffs, I need ^0000ff20 Blue Herbs, 1 Counteragent, and 1 Empty Bottle^000000.";
+ mes "Blue Herbs are a little bit difficult to work with, so the cost of labor will be 3500 Zeny. Are you still interested?";
+ next;
+ menu "Make Dyestuffs",sm_Make2,"Cancel",sm_Cancel;
+
+ sm_Make2:
+ mes "[Dye Maker JavaDullihan]";
+ if((countitem(510) < 20) || (countitem(973) < 1) || (countitem(713) < 1)) goto sl_LowItems;
+ if(Zeny < 3500) goto sl_LowZeny;
+ mes "Missing text.";
+ mes "Under development";
+ delitem 510,20;
+ delitem 973,1;
+ delitem 713,1;
+ set Zeny, Zeny - 3500;
+ getitem 978,1;
+ close;
+
+ sM_Darkgreen:
+ mes "[Dye Maker JavaDullihan]";
+ mes "Hmm... To make a Darkgreen Dyestuffs, I need ^0000ff5 Blue Herbs, 20 Green Herbs, 20 Yellow Herbs, 1 Counteragent, 1 Mixture, and 1 Empty Bottle^000000.";
+ mes "There are a lot of ingredients so please try to remember them all. The cost of labore will be 5000 Zeny. Are you still interested?";
+ mes "Ok are you ready?";
+ next;
+ menu "Make Dyestuffs",sm_Make3,"Cancel",sm_Cancel;
+
+ sm_Make3:
+ mes "[Dye Maker JavaDullihan]";
+ if((countitem(510) < 5) || (countitem(511) < 20) || (countitem(508) < 20) || (countitem(973) < 1) || (countitem(974) < 1) || (countitem(713)<1)) goto sl_LowItems;
+ if(Zeny < 5000) goto sl_LowZeny;
+ mes "Missing text.";
+ mes "Under development";
+ delitem 510,5;
+ delitem 511,20;
+ delitem 508,20;
+ delitem 973,1;
+ delitem 974,1;
+ delitem 713,1;
+ set Zeny, Zeny - 5000;
+ getitem 979,1;
+ close;
+
+ sM_Orange:
+ mes "[Dye Maker JavaDullihan]";
+ mes "Hmm... To make a Orange Dyestuffs, I need ^0000ff20 Red Herbs, 20 Yellow Herbs, 1 Counteragent, 1 Mixture, and 1 Empty Bottle^000000.";
+ mes "The cost of labor is 5000 Zeny. Are you still interested?";
+ next;
+ menu "Make Dyestuffs",sm_Make4,"Cancel",sm_Cancel;
+
+ sm_Make4:
+ mes "[Dye Maker JavaDullihan]";
+ if((countitem(507) < 20) || (countitem(508) < 20) || (countitem(973) < 1) || (countitem(974) < 1) || (countitem(713) < 1)) goto sl_LowItems;
+ if(Zeny < 5000) goto sl_LowZeny;
+ mes "Missing text.";
+ mes "Under development";
+ delitem 507,20;
+ delitem 508,20;
+ delitem 973,1;
+ delitem 974,1;
+ delitem 713,1;
+ set Zeny, Zeny - 5000;
+ getitem 980,1;
+ close;
+
+ sM_Violet:
+ mes "[Dye Maker JavaDullihan]";
+ mes "Hmm... To make a Violet Dyestuffs, I need ^0000ff10 Blue Herbs, 30 Red Herbs, 1 Counteragent, 1 Mixture, and 1 Empty Bottle^000000.";
+ mes "The cost of labor will be 5000 Zeny. Are you still interested?";
+ next;
+ menu "Make Dyestuffs",sm_Make5,"Cancel",sm_Cancel;
+
+ sm_Make5:
+ mes "[Dye Maker JavaDullihan]";
+ if((countitem(510) < 10) || (countitem(507) < 20) || (countitem(973) < 1) || (countitem(974) < 1) || (countitem(713) < 1)) goto sl_LowItems;
+ if(Zeny < 5000) goto sl_LowZeny;
+ mes "Missing text.";
+ mes "Under development";
+ delitem 510,10;
+ delitem 507,20;
+ delitem 973,1;
+ delitem 974,1;
+ delitem 713,1;
+ set Zeny, Zeny - 5000;
+ getitem 981,1;
+ close;
+
+ sM_White:
+ mes "[Dye Maker JavaDullihan]";
+ mes "Umm... To make a White Dyestuffs, I need ^0000ff30 White Herbs, 1 Counteragent, and 1 Empty Bottle^000000.";
+ mes "The cost of labor will be 3000 Zeny. Are you still interested?";
+ next;
+ menu "Make Dyestuffs",sm_Make6,"Cancel",sm_Cancel;
+
+ sm_Make6:
+ mes "[Dye Maker JavaDullihan]";
+ if((countitem(509) < 30) || (countitem(973) < 1) || (countitem(713) < 1)) goto sl_LowItems;
+ if(Zeny < 3000) goto sl_LowZeny;
+ mes "Missing text.";
+ mes "Under development";
+ delitem 509,30;
+ delitem 973,1;
+ delitem 713,1;
+ set Zeny, Zeny - 3000;
+ getitem 982,1;
+ close;
+
+ sM_Black:
+ mes "[Dye Maker JavaDullihan]";
+ mes "Hmm... To make a Black Dyestuffs, I need ^0000ff30 Red, Yellow, and Green Herbs, 5 Blue Herbs, 1 Counteragent, 1 Mixture, and 1 Empty Bottle^000000.";
+ mes "This is the most difficult and time consuming dye to make, so I will have to charge a 7000 Zeny labor fee. Are you still interested?";
+ next;
+ menu "Make Dyestuffs",sm_Make7,"Cancel",sm_Cancel;
+
+ sm_Make7:
+ mes "[Dye Maker JavaDullihan]";
+ if((countitem(507) < 30) || (countitem(508) < 30) || (countitem(511) < 30) || (countitem(510) < 5) || (countitem(973) < 1) || (countitem(974) < 1) || (countitem(713)<1)) goto sl_LowItems;
+ if(Zeny < 7000) goto sl_LowZeny;
+ mes "Missing text.";
+ mes "Under development";
+ delitem 507,30;
+ delitem 508,30;
+ delitem 511,30;
+ delitem 510,5;
+ delitem 973,1;
+ delitem 974,1;
+ delitem 713,1;
+ set Zeny, Zeny - 7000;
+ getitem 983,1;
+ close;
+
+
+ sl_LowItems:
+ mes "Hmm... you don't have enough of the items needed for the dyestuffs. Come back when you do.";
+ close;
+
+ sl_LowZeny:
+ mes "You don't have enough zeny. I need to make a living ya know....";
+ close;
+
+ sm_Cancel:
+ mes "[Dye Maker JavaDullihan]";
+ mes "How could you have change your mind so quickly?... oh boy...";
+ close;
+ M_End:
+ close;
+}
diff --git a/npc/merchants/grandpa_pharmacist.txt b/npc/merchants/grandpa_pharmacist.txt new file mode 100644 index 000000000..bad02c3f1 --- /dev/null +++ b/npc/merchants/grandpa_pharmacist.txt @@ -0,0 +1,162 @@ +//===== eAthena Script =======================================
+//= Grandpa Pharmacist
+//===== By: ==================================================
+//= kobra_k88
+//===== Current Version: =====================================
+//= 1.2
+//===== Compatible With: =====================================
+//= eAthena 7.15 +
+//===== Description: =========================================
+//= Trade in items for potions
+//===============================
+//= Breakdown of arguments used
+//= arg(0): first item id#
+//= arg(1): 2nd item id# if needed, or else use 0
+//= arg(2): zeny cost
+//= arg(3): potion id#
+//= arg(4): potion name
+//===== Additional Comments: =================================
+//= Fully working
+//= 1.1 Negative input bug fixed [Lupus]
+//= 1.2 Created a subfunc for the potion making part. Added more
+//= input/zeny exploit checks. Added Lupus's "loopless" technique.[kobra_k88]
+//============================================================
+
+
+alberta_in.gat,16,28,4 script Grampa Pharmacist 61,{
+ mes "[Grampa Pharmacist]";
+ mes "Hmmm... what do you want...?";
+ next;
+ menu "Make Potion",M_Make, "Talk",M_Talk, "Information",M_Info, "Cancel",M_End;
+
+ M_Make:
+ mes "[Grampa Pharmacist]";
+ mes "Did you prepare all the items needed? If so what potion do you want?";
+ M_Menu:
+ next;
+ menu "Red Potion",M_0, "Orange Potion",M_1, "Yellow Potion",M_2,
+ "White Potion",M_3, "Blue Potion",M_4, "Green Potion",M_5,
+ "Nah, I change my mind.",M_End;
+
+ M_0:
+ callsub sF_Make, 507, 0, 2, 501, "red";
+ goto M_Menu;
+ M_1:
+ callsub sF_Make, 507, 508, 5, 502, "orange";
+ goto M_Menu;
+ M_2:
+ callsub sF_Make, 508, 0, 10, 503, "yellow";
+ goto M_Menu;
+ M_3:
+ callsub sF_Make, 509, 0, 20, 504, "white";
+ goto M_Menu;
+ M_4:
+ callsub sF_Make, 510, 0, 30, 505, "blue";
+ goto M_Menu;
+ M_5:
+ callsub sF_Make, 511, 0, 3, 506, "green";
+ goto M_Menu;
+
+ M_Talk:
+ mes "[Grampa Pharmacist]";
+ mes "The right type of medicinal Herbs can replenish a person's HP or SP";
+ mes ". ~Sigh~ I'm starting to reminisce about my youth.... a sign that I";
+ mes "must be getting old.....";
+ next;
+ mes "[Grampa Pharmacist]";
+ mes "... A potion is merely an, 'easy to use', form of medicinal Herbs";
+ mes "..... nothing more and nothing less.";
+ close;
+ M_Info:
+ mes "[Grampa Pharmacist]";
+ mes "~Sigh~... you young ones can be quite bothersome.. Fine, I will";
+ mes "explain to you how potions work....";
+ next;
+ mes "[Grampa Pharmacist]";
+ mes "Though the bennefits from consuming the various Herbs found around";
+ mes "Rune-Midgard are great... by refining them into potions, the";
+ mes "effects of the Herbs are dramatically enhanced.";
+ next;
+ mes "[Grampa Pharmacist]";
+ mes "The process of refining herbs into potions is a special one that I";
+ mes "created. For a small fee I can make any potion you desire.";
+ next;
+ mes "[Grampa Pharmacist]";
+ mes "^FF5533Red Potion^000000 - 2 Red Herbs, 1 Empty Bottle, 2 Zeny fee.";
+ mes "^FF8000Orange Potion^000000 - 1 Red Herb, 1 Yellow Herb, 1 Empty Bottle, 5 Zeny fee.";
+ mes "^E8CF20Yellow Potion^000000 - 2 Yellow Herbs, 1 Empty Bottle, 10 Zeny fee.";
+ next;
+ mes "[Grampa Pharmacist]";
+ mes "^999999White Potion^000000 - 2 White Herbs, 1 Empty Bottle, 20 Zeny fee.";
+ mes "^3355FFBlue Potion^000000 - 2 Blue Herbs, 1 Empty Bottle, 30 Zeny fee.";
+ mes "^00B000Green Potion^000000 - 2 Green Herbs, 1 Empty Bottle, 3 Zeny fee.";
+ close;
+ M_End:
+ mes "[Grampa Pharmacist]";
+ mes "Didn't you have something to say?!";
+ close;
+
+// Subfunction for making potions
+//================================
+sF_Make:
+ set @herbnum, 2;
+ if(getarg(1) != 0) set @herbnum, 1;
+ if(countitem(getarg(0)) < @herbnum) goto L_NdHerbs;
+ if((countitem(getarg(1)) < @herbnum) && (getarg(1) != 0)) goto L_NdHerbs;
+ if(countitem(713) < 1) goto L_NdBottle;
+ if(Zeny < getarg(2)) goto L_NdZeny;
+
+ mes "[Grampa Pharmacist]";
+ mes "How many?";
+ next;
+ menu "As many as possible.",sM_0a, "I will set the amount.",sM_0b, "Nah, forget about it",M_End;
+
+ sM_0a:
+ set @amount, 1000;
+ if(zeny/getarg(2) < @amount) set @amount, zeny/getarg(2);
+ if(countitem(getarg(0))/@herbnum < @amount) set @amount, countitem(getarg(0))/@herbnum;
+ if((countitem(getarg(1))/@herbnum < @amount) && (countitem(getarg(1)) != 0)) set @amount, countitem(getarg(1))/@herbnum;
+ if(countitem(713) < @amount) set @amount, countitem(713);
+ if(@amount > 0) goto L_End;
+ mes "[Grampa Pharmacist]";
+ mes "Jeez... you don't even have the right items.....";
+ close;
+
+ sM_0b:
+ input @amount;
+ if(@amount<1 || @amount>1000) goto L_BadAmnt;
+ if(countitem(getarg(0))/@herbnum < @amount) goto L_NdHerbs;
+ if((countitem(getarg(1))/@herbnum < @amount) && (countitem(getarg(1)) != 0)) goto L_NdHerbs;
+ if(countitem(713) < @amount) goto L_NdBottle;
+ if(Zeny < (getarg(2)*@amount)) goto L_NdZeny;
+
+ L_End:
+ mes "[Grampa Pharmacist]";
+ mes "Here are your " +getarg(4)+ " potions.";
+ delitem getarg(0), (@amount*@herbnum);
+ if(getarg(1) != 0) delitem getarg(1), (@amount*@herbnum);
+ delitem 713, @amount;
+ set Zeny, Zeny - (getarg(2)*@amount);
+ getitem getarg(3), @amount;
+ close;
+
+ L_NdBottle:
+ mes "[Grampa Pharmacist]";
+ mes "You don't have enough empty bottles to put the medicine in you idiot!!";
+ return;
+
+ L_NdHerbs:
+ mes "[Grampa Pharmacist]";
+ mes "You rascal! What did you expect from me? You didn't even bring all of the right herbs!";
+ return;
+
+ L_NdZeny:
+ mes "[Grampa Pharmacist]";
+ mes "You don't have enough zeny for that many potions.";
+ return;
+
+ L_BadAmnt:
+ mes "[Grampa Pharmacist]";
+ mes "What?! That's not a valid amount!";
+ return;
+}
diff --git a/npc/merchants/hair_dyer.txt b/npc/merchants/hair_dyer.txt new file mode 100644 index 000000000..61bda6f1b --- /dev/null +++ b/npc/merchants/hair_dyer.txt @@ -0,0 +1,158 @@ +//===== eAthena Script =======================================
+//= Hair Dyer
+//===== By: ==================================================
+//= kobra_k88
+//===== Current Version: =====================================
+//= 1.1
+//===== Compatible With: =====================================
+//= eAthena 7.15 +
+//===== Description: =========================================
+//= Hair Dyer with standard palletes
+//===== Additional Comments: =================================
+//= Fully working
+//= 1.1 Bugfix: fixed missing menu label LEnd->M_End [Lupus]
+//============================================================
+
+
+
+
+// HairDyer Jovovich -----------------------------------------------------
+prt_in.gat,243,168,4 script HairDyer Jovovich 91,{
+ mes "[HairDyer Jovovich]";
+ mes "Welcome to my Hair Dying shop.";
+ next;
+ mes "[HairDyer Jovovich]";
+ mes "Oh my..... your hair does not look like it's in good condition. I think it needs some special care. Come have a seat.";
+ qMenu0:
+ next;
+ menu "-Dye Hair.",M_0, "-Price List",M_1, "-Hair Tips",M_2, "-Cancel",M_End;
+
+ M_0:
+ mes "[HairDyer Jovovich]";
+ mes "Hohoho~ That's a good choice~~ Any time is a good time to change your hair color.";
+ next;
+ mes "[HairDyer Jovovich]";
+ mes "Please choose a color that suits you";
+ next;
+ menu "-Red please.",sM_a, "-Yellow please.",sM_b, "-Violet please.",sM_c, "-Orange please.",sM_d, "-Green please.",sM_e,
+ "-Blue please.",sM_f, "-White please.",sM_g, "-Black please.",sM_h, "-Sorry, I changed my mind.",M_End;
+
+ sM_a:
+ mes "[HairDyer Jovovich]";
+ if(countitem(975) < 1) goto sL_NoDye;
+ if(Zeny < 1000) goto sL_Zeny;
+ mes "Ok. I will dye you hair red.";
+ setlook 6,8;
+ delitem 975,1;
+ set Zeny, Zeny - 1000;
+ close;
+
+ sM_b:
+ mes "[HairDyer Jovovich]";
+ if(countitem(976) < 1) goto sL_NoDye;
+ if(Zeny < 1000) goto sL_Zeny;
+ mes "Ok. I will dye you hair yellow.";
+ setlook 6,1;
+ delitem 976,1;
+ set Zeny, Zeny - 1000;
+ close;
+
+ sM_c:
+ mes "[HairDyer Jovovich]";
+ if(countitem(981) < 1) goto sL_NoDye;
+ if(Zeny < 1000) goto sL_Zeny;
+ mes "Ok. I will dye you hair Violet.";
+ setlook 6,2;
+ delitem 981,1;
+ set Zeny, Zeny - 1000;
+ close;
+
+ sM_d:
+ mes "[HairDyer Jovovich]";
+ if(countitem(980) < 1) goto sL_NoDye;
+ if(Zeny < 1000) goto sL_Zeny;
+ mes "Ok. I will dye you hair Orange.";
+ setlook 6,3;
+ delitem 980,1;
+ set Zeny, Zeny - 1000;
+ close;
+
+ sM_e:
+ mes "[HairDyer Jovovich]";
+ if(countitem(979) < 1) goto sL_NoDye;
+ if(Zeny < 1000) goto sL_Zeny;
+ mes "Ok. I will dye you hair Green.";
+ setlook 6,4;
+ delitem 979,1;
+ set Zeny, Zeny - 1000;
+ close;
+
+ sM_f:
+ mes "[HairDyer Jovovich]";
+ if(countitem(978) < 1) goto sL_NoDye;
+ if(Zeny < 1000) goto sL_Zeny;
+ mes "Ok. I will dye you hair blue.";
+ setlook 6,5;
+ delitem 978,1;
+ set Zeny, Zeny - 1000;
+ close;
+
+ sM_g:
+ mes "[HairDyer Jovovich]";
+ if(countitem(982) < 1) goto sL_NoDye;
+ if(Zeny < 1000) goto sL_Zeny;
+ mes "Ok. I will dye you hair white.";
+ setlook 6,6;
+ delitem 982,1;
+ set Zeny, Zeny - 1000;
+ close;
+
+ sM_h:
+ mes "[HairDyer Jovovich]";
+ if(countitem(983) < 1) goto sL_NoDye;
+ if(Zeny < 1000) goto sL_Zeny;
+ mes "Ok. I will dye you hair black.";
+ setlook 6,7;
+ delitem 983,1;
+ set Zeny, Zeny - 1000;
+ close;
+
+ sL_NoDye:
+ mes "For me to dye your hair, I'll need the appropriate Dyestuff. Please check my price list for the information.";
+ close;
+
+ sL_Zeny:
+ mes "I'm sorry but you don't have enough money.";
+ close;
+
+ M_1:
+ mes "[HairDyer Jovovich]";
+ mes "Here is the list of colors you can choose from and their prices:";
+ mes " - Red: 1000 zeny, 1 Scarlet Dyestuff";
+ mes " - Yellow: 1000 zeny, 1 Lemon Dyestuff";
+ mes " - Violet: 1000 zeny, 1 Violet Dyestuff";
+ mes " - Orange: 1000 zeny, 1 Orange Dyestuff";
+ mes " - Green: 1000 zeny, 1 DarkGreen Dyestuff";
+ mes " - Blue: 1000 zeny, 1 CobaltBlue Dyestuff";
+ mes " - White: 1000 zeny, 1 White Dyestuff";
+ mes " - Black: 1000 zeny, 1 Black Dyestuff";
+ goto qMenu0;
+
+ M_2:
+ mes "[HairDyer Jovovich]";
+ mes "When your just feeling gloomy, of if you just got dumped... if you want to look hot, or when you just need to look better.....";
+ next;
+ mes "[HairDyer Jovovich]";
+ mes "Change the color of your hair and your bound to regain your confidence and add an extra bounce to your step!!";
+ next;
+ mes "[HairDyer Jovovich]";
+ mes "For the small price of 1000 zeny and a Dyestuff, I can give you the haircolor you've been dreaming of!";
+ next;
+ goto qMenu0;
+
+ M_End:
+ mes "[HairDyer Jovovich]";
+ mes "I think... every human being has the right to become beautiful......";
+ close;
+}
+
diff --git a/npc/merchants/hair_style.txt b/npc/merchants/hair_style.txt new file mode 100644 index 000000000..d5b85af9c --- /dev/null +++ b/npc/merchants/hair_style.txt @@ -0,0 +1,2015 @@ +//===== Athena Script ========================================
+//= Hair Dresser
+//===== By: ==================================================
+//= [Muad_Dib] 1.0 (The Prometheus Project)
+//===== Current Version: =====================================
+//= 1.0
+//===== Compatible With: =====================================
+//= Any Athena Version; RO Episode 6+
+//===== Description: =========================================
+//= Allows you to change your hairstyle.
+//===== Additional Comments: =================================
+//= 07/06/05 : Added 1st Version. [Muad_Dib]
+//= Converted to eAthena format by Dr.Evil
+//= Change NPC coords according to
+//= http://www.nattsumi.com/roquest/miscellaneousquest.html
+//= Fixed typos [Nexon]
+//= TODO: Fix exploits V_V [Lupus]
+//============================================================
+
+alberta.gat,137,37,6 script Stylist 91,{
+ mes "[Veronica]";
+ mes "Welcome~~Welcome~~";
+ mes "Welcome to the one of the best Hair shop, Veronicas Beauty Saloon!!";
+ mes "HoHoHo";
+ mes "Come here for new hair, right?";
+ mes "How may I help you?";
+ next;
+ menu "Look through the Hair Styles.",Look,"Change Hair Style",Change,"Stop talking.",Cancel;
+Look:
+ set @hair,0;
+ mes "[Veronica]";
+ mes "There are 19 Hair Styles, 1~19!!!";
+ mes "Which number do you want to look at first?";
+ mes "If you want to stop looking, please choose 0.";
+ next;
+ if(sex==0) goto LookF;
+ input @hair_in;
+ if (@hair_in > 19) goto hairtohigh;
+ set @hair,@hair_in;
+ goto ShowPicM;
+ close;
+LookF:
+ set @hairf,0;
+ input @hairf_in;
+ if (@hairf_in > 19) goto hairtohigh;
+ set @hairf,@hairf_in;
+ goto ShowPicF;
+ close;
+ShowPicM:
+ if (@hair == 0) goto hairnothing;
+ if (@hair == 1) goto mhair1show;
+ if (@hair == 2) goto mhair2show;
+ if (@hair == 3) goto mhair3show;
+ if (@hair == 4) goto mhair4show;
+ if (@hair == 5) goto mhair5show;
+ if (@hair == 6) goto mhair6show;
+ if (@hair == 7) goto mhair7show;
+ if (@hair == 8) goto mhair8show;
+ if (@hair == 9) goto mhair9show;
+ if (@hair == 10) goto mhair10show;
+ if (@hair == 11) goto mhair11show;
+ if (@hair == 12) goto mhair12show;
+ if (@hair == 13) goto mhair13show;
+ if (@hair == 14) goto mhair14show;
+ if (@hair == 15) goto mhair15show;
+ if (@hair == 16) goto mhair16show;
+ if (@hair == 17) goto mhair17show;
+ if (@hair == 18) goto mhair18show;
+ if (@hair == 19) goto mhair19show;
+
+mhair1show:
+ cutin "hair_m_01",4;
+ mes "[Veronica]";
+ mes "Oh~ 'Trickdead' style!";
+ mes "It is very neat feature and comfortable.";
+ mes "How do you think? Do you like it?";
+ close;
+mhair2show:
+ cutin "hair_m_02",4;
+ mes "[Veronica]";
+ mes "Oh~'Two-Handed Sword Mastery' style!";
+ mes "It's style is very similar to one of the famous Swordsman.";
+ mes "How do you think? Do you like it?";
+ close;
+mhair3show:
+ cutin "hair_m_03",4;
+ mes "[Veronica]";
+ mes "Oh~'Napalm Beat' style!";
+ mes "It makes feeling there is unknown power...";
+ mes "How do you think? Do you like it?";
+ close;
+mhair4show:
+ cutin "hair_m_04",4;
+ mes "[Veronica]";
+ mes "Oh~'Double Strafe' style!";
+ mes "It will make your mind is very clear.";
+ mes "How do you think? Do you like it?";
+ close;
+mhair5show:
+ cutin "hair_m_05",4;
+ mes "[Veronica]";
+ mes "Oh~'Angelus' style!";
+ mes "It feels calm your reference.";
+ mes "How do you think? Do you like it?";
+ close;
+mhair6show:
+ cutin "hair_m_06",4;
+ mes "[Veronica]";
+ mes "Oh~'Pushcart' style!";
+ mes "This is the style based on motive of string cart..";
+ mes "How do you think? Do you like it?";
+ close;
+mhair7show:
+ cutin "hair_m_07",4;
+ mes "[Veronica]";
+ mes "Oh~'Envenom' style!";
+ mes "It makes feel addicting into something..";
+ mes "How do you think? Do you like it?";
+ close;
+mhair8show:
+ cutin "hair_m_08",4;
+ mes "[Veronica]";
+ mes "Oh~'Bowling Bash' style!";
+ mes "Once people sees it, they will fall for it.";
+ mes "How do you think? Do you like it?";
+ close;
+mhair9show:
+ cutin "hair_m_09",4;
+ mes "[Veronica]";
+ mes "Oh~'Venom Dust' style!";
+ mes "It is the style gives feeling deadly charm.";
+ mes "How do you think? Do you like it?";
+ close;
+mhair10show:
+ cutin "hair_m_10",4;
+ mes "[Veronica]";
+ mes "Oh~'Turn Undead' style!";
+ mes "It gives feeling one attack can make Devils disappear!";
+ mes "How do you think? Do you like it?";
+ close;
+mhair11show:
+ cutin "hair_m_11",4;
+ mes "[Veronica]";
+ mes "Oh~'Dragnology' style!";
+ mes "This is the style bases on motive of mysterious Dragon...";
+ mes "How do you think? Do you like it?";
+ close;
+mhair12show:
+ cutin "hair_m_12",4;
+ mes "[Veronica]";
+ mes "Oh~'Mace Mastery' style!";
+ mes "It looks very hard and attractive.";
+ mes "How do you think? Do you like it?";
+ close;
+mhair13show:
+ cutin "hair_m_13",4;
+ mes "[Veronica]";
+ mes "Oh~'Thunderstorm' style!";
+ mes "It feels hit by Thunderstorm!!";
+ mes "How do you think? Do you like it?";
+ close;
+mhair14show:
+ cutin "hair_m_14",4;
+ mes "[Veronica]";
+ mes "Oh~'Encore' style!";
+ mes "It is the style make people feels like asking you to sing~";
+ mes "How do you think? Do you like it?";
+ close;
+mhair15show:
+ cutin "hair_m_15",4;
+ mes "[Veronica]";
+ mes "Oh~'Grommtooht' style!";
+ mes "It feels like you will be picked by hair!";
+ mes "How do you think? Do you like it?";
+ close;
+mhair16show:
+ cutin "hair_m_16",4;
+ mes "[Veronica]";
+ mes "Oh~'Blitz Beat' style!";
+ mes "It feels it will attack 5 times...?";
+ mes "How do you think? Do you like it?";
+ close;
+mhair17show:
+ cutin "hair_m_17",4;
+ mes "[Veronica]";
+ mes "Oh~'Ore Discovery' style!";
+ mes "It feels like picking up things while walking.";
+ mes "How do you think? Do you like it?";
+ close;
+mhair18show:
+ cutin "hair_m_18",4;
+ mes "[Veronica]";
+ mes "Oh~'Fire Pillar' style!";
+ mes "It has been a great style over the one generation...!";
+ mes "How do you think? Do you like it?";
+ close;
+mhair19show:
+ cutin "hair_m_19",4;
+ mes "[Veronica]";
+ mes "Oh~'Guillotine Fist' style!";
+ mes "It feels like betting all at once!!";
+ mes "How do you think? Do you like it?";
+ close;
+ShowPicF:
+ if (@hairf == 0) goto hairnothing;
+ if (@hairf == 1) goto fhair1show;
+ if (@hairf == 2) goto fhair2show;
+ if (@hairf == 3) goto fhair3show;
+ if (@hairf == 4) goto fhair4show;
+ if (@hairf == 5) goto fhair5show;
+ if (@hairf == 6) goto fhair6show;
+ if (@hairf == 7) goto fhair7show;
+ if (@hairf == 8) goto fhair8show;
+ if (@hairf == 9) goto fhair9show;
+ if (@hairf == 10) goto fhair10show;
+ if (@hairf == 11) goto fhair11show;
+ if (@hairf == 12) goto fhair12show;
+ if (@hairf == 13) goto fhair13show;
+ if (@hairf == 14) goto fhair14show;
+ if (@hairf == 15) goto fhair15show;
+ if (@hairf == 16) goto fhair16show;
+ if (@hairf == 17) goto fhair17show;
+ if (@hairf == 18) goto fhair18show;
+ if (@hairf == 19) goto fhair19show;
+fhair1show:
+ cutin "hair_f_01",4;
+ mes "[Veronica]";
+ mes "Oh~ 'Trickdead' style!";
+ mes "It is the style people wants to stroke your hair.";
+ mes "How do you think? Do you like it?";
+ close;
+fhair2show:
+ cutin "hair_f_02",4;
+ mes "[Veronica]";
+ mes "Oh~'Bash' style!";
+ mes "It feels unrevealed strong power is hidden inside of....";
+ mes "How do you think? Do you like it?";
+ close;
+fhair3show:
+ cutin "hair_f_03",4;
+ mes "[Veronica]";
+ mes "Oh~'Frost Diver' style!";
+ mes "It feels cold, but also warm....";
+ mes "How do you think? Do you like it?";
+ close;
+fhair4show:
+ cutin "hair_f_04",4;
+ mes "[Veronica]";
+ mes "Oh~'Arrow Shower' style!";
+ mes "It feels very refreshed~";
+ mes "How do you think? Do you like it?";
+ close;
+fhair5show:
+ cutin "hair_f_05",4;
+ mes "[Veronica]";
+ mes "Oh~'Heal' style!";
+ mes "It feels mind in cured.";
+ mes "How do you think? Do you like it?";
+ close;
+fhair6show:
+ cutin "hair_f_06",4;
+ mes "[Veronica]";
+ mes "Oh~'Vending' style!";
+ mes "It seems like making lots of money.";
+ mes "How do you think? Do you like it?";
+ close;
+fhair7show:
+ cutin "hair_f_07",4;
+ mes "[Veronica]";
+ mes "Oh~'Double Strafe' style!";
+ mes "It makes whomever dash twice.";
+ mes "How do you think? Do you like it?";
+ close;
+fhair8show:
+ cutin "hair_f_08",4;
+ mes "[Veronica]";
+ mes "Oh~'Gloria' style!";
+ mes "Its nobleness and holiness moods are great.";
+ mes "How do you think? Do you like it?";
+ close;
+fhair9show:
+ cutin "hair_f_09",4;
+ mes "[Veronica]";
+ mes "Oh~'Increase Sp Recovery' style!";
+ mes "It makes fell like recovering spirit fully.";
+ mes "How do you think? Do you like it?";
+ close;
+fhair10show:
+ cutin "hair_f_10",4;
+ mes "[Veronica]";
+ mes "Oh~'Prepare Potion' style!";
+ mes "It feels a wound is healed already.";
+ mes "How do you think? Do you like it?";
+ close;
+fhair11show:
+ cutin "hair_f_11",4;
+ mes "[Veronica]";
+ mes "Oh~'Grand Cross' style!";
+ mes "It feels like a firm faith.";
+ mes "How do you think? Do you like it?";
+ close;
+fhair12show:
+ cutin "hair_f_12",4;
+ mes "[Veronica]";
+ mes "Oh~'Intimidate' style!";
+ mes "It seems you saw this style somewhere...?";
+ mes "How do you think? Do you like it?";
+ close;
+fhair13show:
+ cutin "hair_f_13",4;
+ mes "[Veronica]";
+ mes "Oh~'Spiritual Sphere Absorption' style!";
+ mes "Its catch people's spirits.";
+ mes "How do you think? Do you like it?";
+ close;
+fhair14show:
+ cutin "hair_f_14",4;
+ mes "[Veronica]";
+ mes "Oh~'Gypsy's Kiss' style!";
+ mes "It makes people think you are very kind to all...";
+ mes "How do you think? Do you like it?";
+ close;
+fhair15show:
+ cutin "hair_f_15",4;
+ mes "[Veronica]";
+ mes "Oh~'Counter Attack' style!";
+ mes "It feels it will kick when someone is near.";
+ mes "How do you think? Do you like it?";
+ close;
+fhair16show:
+ cutin "hair_f_16",4;
+ mes "[Veronica]";
+ mes "Oh~'Ankle Snare' style!";
+ mes "This is the style hardly moved";
+ mes "How do you think? Do you like it?";
+ close;
+fhair17show:
+ cutin "hair_f_17",4;
+ mes "[Veronica]";
+ mes "Oh~'Hammer Fall' style!";
+ mes "It will make feeling dizzy.";
+ mes "How do you think? Do you like it?";
+ close;
+fhair18show:
+ cutin "hair_f_18",4;
+ mes "[Veronica]";
+ mes "Oh~'Jupiter Thunder' style!";
+ mes "It feels very neat.";
+ mes "How do you think? Do you like it?";
+ close;
+fhair19show:
+ cutin "hair_f_19",4;
+ mes "[Veronica]";
+ mes "Oh~'Whirlwind' style!";
+ mes "It feels very refreshed like wind.";
+ mes "How do you think? Do you like it?";
+ close;
+hairnothing:
+ mes "[Veronica]";
+ mes "Did you find a style you like?";
+ mes "If you want to change your hair style at anytime, I will do my best!!";
+ close;
+hairtohigh:
+ mes "[Veronica]";
+ mes "Sorry, there aren't any Hairstyles with that number.";
+ mes "Please choose a number from 1 to 19.";
+ close;
+Change:
+ if ((countitem(973) < 3) || (countitem(974) < 3) || (countitem(901) <100) || (countitem(1094) <100) || (countitem(1020) <100) || (countitem(1060) <100) || (countitem(7152) <100) ||(Zeny < 99800)) goto NOItem;
+
+ set @hairch,0;
+ mes "[Veronica]";
+ mes "Well, then... Please choose Hair Style you like most.";
+ mes "I will do my best";
+ mes "There are 19 different Hair Styles.";
+ mes "Numbers from 1 to 19~";
+ next;
+ if(sex==0) goto iffemale;
+ input @hairchange_in;
+ if (@hairchange_in > 19) goto tohighchange;
+ set @hairch,@hairchange_in;
+ if (@hairch == 1) goto mhair1;
+ if (@hairch == 2) goto mhair2;
+ if (@hairch == 3) goto mhair3;
+ if (@hairch == 4) goto mhair4;
+ if (@hairch == 5) goto mhair5;
+ if (@hairch == 6) goto mhair6;
+ if (@hairch == 7) goto mhair7;
+ if (@hairch == 8) goto mhair8;
+ if (@hairch == 9) goto mhair9;
+ if (@hairch == 10) goto mhair10;
+ if (@hairch == 11) goto mhair11;
+ if (@hairch == 12) goto mhair12;
+ if (@hairch == 13) goto mhair13;
+ if (@hairch == 14) goto mhair14;
+ if (@hairch == 15) goto mhair15;
+ if (@hairch == 16) goto mhair16;
+ if (@hairch == 17) goto mhair17;
+ if (@hairch == 18) goto mhair18;
+ if (@hairch == 19) goto mhair19;
+mhair1:
+ cutin "hair_m_01",4;
+ mes "[Veronica]";
+ mes "This is the (1) style.";
+ mes "I will change your Hair with this Again.";
+ mes "Is that OK for you??";
+ next;
+ menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO1;
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Now it begins~. Hold still~";
+ mes "If you move, you will have very bad style.";
+ mes "Just trust me on this!!";
+ next;
+ mes "[Veronica]";
+ mes "- Clip clip Clip clip -";
+ mes "- Klit klit Klit klit -";
+ mes "- Snap snap Snap snap -";
+ next;
+ setlook 1,1;
+ delitem 973,3;
+ delitem 974,3;
+ delitem 901,100;
+ delitem 1094,100;
+ delitem 1020,100;
+ delitem 1060,100;
+ delitem 7152,100;
+ set Zeny,Zeny-99800;
+ mes "[Veronica]";
+ mes "Wow~ it came out very well~~";
+ mes "I hope you like this (1) style.";
+ mes "If you'd like to have another hair style,";
+ mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+ close;
+M_NO1:
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Well~ choose again please~";
+ mes "There should be a style you like.";
+ mes "Just remember the number you like the most and tell me.";
+ close;
+mhair2:
+ cutin "hair_m_02",4;
+ mes "[Veronica]";
+ mes "This is the (2) style.";
+ mes "I will change your Hair with this Again.";
+ mes "Is that OK for you??";
+ next;
+ menu "Yaeh~ I'd love to.",-,"No..I don't like it..",M_NO2;
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Now it begins~. Hold still~";
+ mes "If you move, you will have very bad style.";
+ mes "Just trust me on this!!";
+ next;
+ mes "[Veronica]";
+ mes "- Clip clip Clip clip -";
+ mes "- Klit klit Klit klit -";
+ mes "- Snap snap Snap snap -";
+ next;
+ setlook 1,2;
+ delitem 973,3;
+ delitem 974,3;
+ delitem 901,100;
+ delitem 1094,100;
+ delitem 1020,100;
+ delitem 1060,100;
+ delitem 7152,100;
+ set Zeny,Zeny-99800;
+ mes "[Veronica]";
+ mes "Wow~ it came out very well~~";
+ mes "I hope you like this (2) style.";
+ mes "If you'd like to have another hair style,";
+ mes "you are welcome welcome to vitis me anytime~ HoHoHo";
+ close;
+M_NO2:
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Well~ choose again please~";
+ mes "There should be a style you like.";
+ mes "Just remember the number you like the most and tell me.";
+ close;
+mhair3:
+ cutin "hair_m_03",4;
+ mes "[Veronica]";
+ mes "This is the (3) style.";
+ mes "I will change your Hair with this Again.";
+ mes "Is that OK for you??";
+ next;
+ menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO3;
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Now it begins~. Hold still~";
+ mes "If you move, you will have very bad style.";
+ mes "Just trust me on this!!";
+ next;
+ mes "[Veronica]";
+ mes "- Clip clip Clip clip -";
+ mes "- Klit klit Klit klit -";
+ mes "- Snap snap Snap snap -";
+ next;
+ setlook 1,3;
+ delitem 973,3;
+ delitem 974,3;
+ delitem 901,100;
+ delitem 1094,100;
+ delitem 1020,100;
+ delitem 1060,100;
+ delitem 7152,100;
+ set Zeny,Zeny-99800;
+ mes "[Veronica]";
+ mes "Wow~ it came out very well~~";
+ mes "I hope you like this (3) style.";
+ mes "If you'd like to have another hair style,";
+ mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+ close;
+M_NO3:
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Well~ choose again please~";
+ mes "There should be a style you like.";
+ mes "Just remember the number you like the most and tell me.";
+ close;
+mhair4:
+ cutin "hair_m_04",4;
+ mes "[Veronica]";
+ mes "This is the (4) style.";
+ mes "I will change your Hair with this Again.";
+ mes "Is that OK for you??";
+ next;
+ menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO4;
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Now it begins~. Hold still~";
+ mes "If you move, you will have very bad style.";
+ mes "Just trust me on this!!";
+ next;
+ mes "[Veronica]";
+ mes "- Clip clip Clip clip -";
+ mes "- Klit klit Klit klit -";
+ mes "- Snap snap Snap snap -";
+ next;
+ setlook 1,4;
+ delitem 973,3;
+ delitem 974,3;
+ delitem 901,100;
+ delitem 1094,100;
+ delitem 1020,100;
+ delitem 1060,100;
+ delitem 7152,100;
+ set Zeny,Zeny-99800;
+ mes "[Veronica]";
+ mes "Wow~ it came out very well~~";
+ mes "I hope you like this (4) style.";
+ mes "If you'd like to have another hair style,";
+ mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+ close;
+M_NO4:
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Well~ choose again please~";
+ mes "There should be a style you like.";
+ mes "Just remember the number you like the most and tell me.";
+ close;
+mhair5:
+ cutin "hair_m_05",4;
+ mes "[Veronica]";
+ mes "This is the (5) style.";
+ mes "I will change your Hair with this Again.";
+ mes "Is that OK for you??";
+ next;
+ menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO5;
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Now it begins~. Hold still~";
+ mes "If you move, you will have very bad style.";
+ mes "Just trust me on this!!";
+ next;
+ mes "[Veronica]";
+ mes "- Clip clip Clip clip -";
+ mes "- Klit klit Klit klit -";
+ mes "- Snap snap Snap snap -";
+ next;
+ setlook 1,5;
+ delitem 973,3;
+ delitem 974,3;
+ delitem 901,100;
+ delitem 1094,100;
+ delitem 1020,100;
+ delitem 1060,100;
+ delitem 7152,100;
+ set Zeny,Zeny-99800;
+ mes "[Veronica]";
+ mes "Wow~ it came out very well~~";
+ mes "I hope you like this (5) style.";
+ mes "If you'd like to have another hair style,";
+ mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+ close;
+M_NO5:
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Well~ choose again please~";
+ mes "There should be a style you like.";
+ mes "Just remember the number you like the most and tell me.";
+ close;
+mhair6:
+ cutin "hair_m_06",4;
+ mes "[Veronica]";
+ mes "This is the (6) style.";
+ mes "I will change your Hair with this Again.";
+ mes "Is that OK for you??";
+ next;
+ menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO6;
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Now it begins~. Hold still~";
+ mes "If you move, you will have very bad style.";
+ mes "Just trust me on this!!";
+ next;
+ mes "[Veronica]";
+ mes "- Clip clip Clip clip -";
+ mes "- Klit klit Klit klit -";
+ mes "- Snap snap Snap snap -";
+ next;
+ setlook 1,6;
+ delitem 973,3;
+ delitem 974,3;
+ delitem 901,100;
+ delitem 1094,100;
+ delitem 1020,100;
+ delitem 1060,100;
+ delitem 7152,100;
+ set Zeny,Zeny-99800;
+ mes "[Veronica]";
+ mes "Wow~ it came out very well~~";
+ mes "I hope you like this (6) style.";
+ mes "If you'd like to have another hair style,";
+ mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+ close;
+M_NO6:
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Well~ choose again please~";
+ mes "There should be a style you like.";
+ mes "Just remember the number you like the most and tell me.";
+ close;
+mhair7:
+ cutin "hair_m_07",4;
+ mes "[Veronica]";
+ mes "This is the (7) style.";
+ mes "I will change your Hair with this Again.";
+ mes "Is that OK for you??";
+ next;
+ menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO7;
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Now it begins~. Hold still~";
+ mes "If you move, you will have very bad style.";
+ mes "Just trust me on this!!";
+ next;
+ mes "[Veronica]";
+ mes "- Clip clip Clip clip -";
+ mes "- Klit klit Klit klit -";
+ mes "- Snap snap Snap snap -";
+ next;
+ setlook 1,7;
+ delitem 973,3;
+ delitem 974,3;
+ delitem 901,100;
+ delitem 1094,100;
+ delitem 1020,100;
+ delitem 1060,100;
+ delitem 7152,100;
+ set Zeny,Zeny-99800;
+ mes "[Veronica]";
+ mes "Wow~ it came out very well~~";
+ mes "I hope you like this (7) style.";
+ mes "If you'd like to have another hair style,";
+ mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+ close;
+M_NO7:
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Well~ choose again please~";
+ mes "There should be a style you like.";
+ mes "Just remember the number you like the most and tell me.";
+ close;
+mhair8:
+ cutin "hair_m_08",4;
+ mes "[Veronica]";
+ mes "This is the (8) style.";
+ mes "I will change your Hair with this Again.";
+ mes "Is that OK for you??";
+ next;
+ menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO8;
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Now it begins~. Hold still~";
+ mes "If you move, you will have very bad style.";
+ mes "Just trust me on this!!";
+ next;
+ mes "[Veronica]";
+ mes "- Clip clip Clip clip -";
+ mes "- Klit klit Klit klit -";
+ mes "- Snap snap Snap snap -";
+ next;
+ setlook 1,8;
+ delitem 973,3;
+ delitem 974,3;
+ delitem 901,100;
+ delitem 1094,100;
+ delitem 1020,100;
+ delitem 1060,100;
+ delitem 7152,100;
+ set Zeny,Zeny-99800;
+ mes "[Veronica]";
+ mes "Wow~ it came out very well~~";
+ mes "I hope you like this (8) style.";
+ mes "If you'd like to have another hair style,";
+ mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+ close;
+M_NO8:
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Well~ choose again please~";
+ mes "There should be a style you like.";
+ mes "Just remember the number you like the most and tell me.";
+ close;
+mhair9:
+ cutin "hair_m_09",4;
+ mes "[Veronica]";
+ mes "This is the (9) style.";
+ mes "I will change your Hair with this Again.";
+ mes "Is that OK for you??";
+ next;
+ menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO9;
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Now it begins~. Hold still~";
+ mes "If you move, you will have very bad style.";
+ mes "Just trust me on this!!";
+ next;
+ mes "[Veronica]";
+ mes "- Clip clip Clip clip -";
+ mes "- Klit klit Klit klit -";
+ mes "- Snap snap Snap snap -";
+ next;
+ setlook 1,9;
+ delitem 973,3;
+ delitem 974,3;
+ delitem 901,100;
+ delitem 1094,100;
+ delitem 1020,100;
+ delitem 1060,100;
+ delitem 7152,100;
+ set Zeny,Zeny-99800;
+ mes "[Veronica]";
+ mes "Wow~ it came out very well~~";
+ mes "I hope you like this (9) style.";
+ mes "If you'd like to have another hair style,";
+ mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+ close;
+M_NO9:
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Well~ choose again please~";
+ mes "There should be a style you like.";
+ mes "Just remember the number you like the most and tell me.";
+ close;
+mhair10:
+ cutin "hair_m_10",4;
+ mes "[Veronica]";
+ mes "This is the (10) style.";
+ mes "I will change your Hair with this Again.";
+ mes "Is that OK for you??";
+ next;
+ menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO10;
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Now it begins~. Hold still~";
+ mes "If you move, you will have very bad style.";
+ mes "Just trust me on this!!";
+ next;
+ mes "[Veronica]";
+ mes "- Clip clip Clip clip -";
+ mes "- Klit klit Klit klit -";
+ mes "- Snap snap Snap snap -";
+ next;
+ setlook 1,10;
+ delitem 973,3;
+ delitem 974,3;
+ delitem 901,100;
+ delitem 1094,100;
+ delitem 1020,100;
+ delitem 1060,100;
+ delitem 7152,100;
+ set Zeny,Zeny-99800;
+ mes "[Veronica]";
+ mes "Wow~ it came out very well~~";
+ mes "I hope you like this (10) style.";
+ mes "If you'd like to have another hair style,";
+ mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+ close;
+M_NO10:
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Well~ choose again please~";
+ mes "There should be a style you like.";
+ mes "Just remember the number you like the most and tell me.";
+ close;
+mhair11:
+ cutin "hair_m_11",4;
+ mes "[Veronica]";
+ mes "This is the (11) style.";
+ mes "I will change your Hair with this Again.";
+ mes "Is that OK for you??";
+ next;
+ menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO11;
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Now it begins~. Hold still~";
+ mes "If you move, you will have very bad style.";
+ mes "Just trust me on this!!";
+ next;
+ mes "[Veronica]";
+ mes "- Clip clip Clip clip -";
+ mes "- Klit klit Klit klit -";
+ mes "- Snap snap Snap snap -";
+ next;
+ setlook 1,11;
+ delitem 973,3;
+ delitem 974,3;
+ delitem 901,100;
+ delitem 1094,100;
+ delitem 1020,100;
+ delitem 1060,100;
+ delitem 7152,100;
+ set Zeny,Zeny-99800;
+ mes "[Veronica]";
+ mes "Wow~ it came out very well~~";
+ mes "I hope you like this (11) style.";
+ mes "If you'd like to have another hair style,";
+ mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+ close;
+M_NO11:
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Well~ choose again please~";
+ mes "There should be a style you like.";
+ mes "Just remember the number you like the most and tell me.";
+ close;
+mhair12:
+ cutin "hair_m_12",4;
+ mes "[Veronica]";
+ mes "This is the (12) style.";
+ mes "I will change your Hair with this Again.";
+ mes "Is that OK for you??";
+ next;
+ menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO12;
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Now it begins~. Hold still~";
+ mes "If you move, you will have very bad style.";
+ mes "Just trust me on this!!";
+ next;
+ mes "[Veronica]";
+ mes "- Clip clip Clip clip -";
+ mes "- Klit klit Klit klit -";
+ mes "- Snap snap Snap snap -";
+ next;
+ setlook 1,12;
+ delitem 973,3;
+ delitem 974,3;
+ delitem 901,100;
+ delitem 1094,100;
+ delitem 1020,100;
+ delitem 1060,100;
+ delitem 7152,100;
+ set Zeny,Zeny-99800;
+ mes "[Veronica]";
+ mes "Wow~ it came out very well~~";
+ mes "I hope you like this (12) style.";
+ mes "If you'd like to have another hair style,";
+ mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+ close;
+M_NO12:
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Well~ choose again please~";
+ mes "There should be a style you like.";
+ mes "Just remember the number you like the most and tell me.";
+ close;
+mhair13:
+ cutin "hair_m_13",4;
+ mes "[Veronica]";
+ mes "This is the (13) style.";
+ mes "I will change your Hair with this Again.";
+ mes "Is that OK for you??";
+ next;
+ menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO13;
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Now it begins~. Hold still~";
+ mes "If you move, you will have very bad style.";
+ mes "Just trust me on this!!";
+ next;
+ mes "[Veronica]";
+ mes "- Clip clip Clip clip -";
+ mes "- Klit klit Klit klit -";
+ mes "- Snap snap Snap snap -";
+ next;
+ setlook 1,13;
+ delitem 973,3;
+ delitem 974,3;
+ delitem 901,100;
+ delitem 1094,100;
+ delitem 1020,100;
+ delitem 1060,100;
+ delitem 7152,100;
+ set Zeny,Zeny-99800;
+ mes "[Veronica]";
+ mes "Wow~ it came out very well~~";
+ mes "I hope you like this (13) style.";
+ mes "If you'd like to have another hair style,";
+ mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+ close;
+M_NO13:
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Well~ choose again please~";
+ mes "There should be a style you like.";
+ mes "Just remember the number you like the most and tell me.";
+ close;
+mhair14:
+ cutin "hair_m_14",4;
+ mes "[Veronica]";
+ mes "This is the (14) style.";
+ mes "I will change your Hair with this Again.";
+ mes "Is that OK for you??";
+ next;
+ menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO14;
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Now it begins~. Hold still~";
+ mes "If you move, you will have very bad style.";
+ mes "Just trust me on this!!";
+ next;
+ mes "[Veronica]";
+ mes "- Clip clip Clip clip -";
+ mes "- Klit klit Klit klit -";
+ mes "- Snap snap Snap snap -";
+ next;
+ setlook 1,14;
+ delitem 973,3;
+ delitem 974,3;
+ delitem 901,100;
+ delitem 1094,100;
+ delitem 1020,100;
+ delitem 1060,100;
+ delitem 7152,100;
+ set Zeny,Zeny-99800;
+ mes "[Veronica]";
+ mes "Wow~ it came out very well~~";
+ mes "I hope you like this (14) style.";
+ mes "If you'd like to have another hair style,";
+ mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+ close;
+M_NO14:
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Well~ choose again please~";
+ mes "There should be a style you like.";
+ mes "Just remember the number you like the most and tell me.";
+ close;
+mhair15:
+ cutin "hair_m_15",4;
+ mes "[Veronica]";
+ mes "This is the (15) style.";
+ mes "I will change your Hair with this Again.";
+ mes "Is that OK for you??";
+ next;
+ menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO15;
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Now it begins~. Hold still~";
+ mes "If you move, you will have very bad style.";
+ mes "Just trust me on this!!";
+ next;
+ mes "[Veronica]";
+ mes "- Clip clip Clip clip -";
+ mes "- Klit klit Klit klit -";
+ mes "- Snap snap Snap snap -";
+ next;
+ setlook 1,15;
+ delitem 973,3;
+ delitem 974,3;
+ delitem 901,100;
+ delitem 1094,100;
+ delitem 1020,100;
+ delitem 1060,100;
+ delitem 7152,100;
+ set Zeny,Zeny-99800;
+ mes "[Veronica]";
+ mes "Wow~ it came out very well~~";
+ mes "I hope you like this (15) style.";
+ mes "If you'd like to have another hair style,";
+ mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+ close;
+M_NO15:
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Well~ choose again please~";
+ mes "There should be a style you like.";
+ mes "Just remember the number you like the most and tell me.";
+ close;
+mhair16:
+ cutin "hair_m_16",4;
+ mes "[Veronica]";
+ mes "This is the (16) style.";
+ mes "I will change your Hair with this Again.";
+ mes "Is that OK for you??";
+ next;
+ menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO16;
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Now it begins~. Hold still~";
+ mes "If you move, you will have very bad style.";
+ mes "Just trust me on this!!";
+ next;
+ mes "[Veronica]";
+ mes "- Clip clip Clip clip -";
+ mes "- Klit klit Klit klit -";
+ mes "- Snap snap Snap snap -";
+ next;
+ setlook 1,16;
+ delitem 973,3;
+ delitem 974,3;
+ delitem 901,100;
+ delitem 1094,100;
+ delitem 1020,100;
+ delitem 1060,100;
+ delitem 7152,100;
+ set Zeny,Zeny-99800;
+ mes "[Veronica]";
+ mes "Wow~ it came out very well~~";
+ mes "I hope you like this (16) style.";
+ mes "If you'd like to have another hair style,";
+ mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+ close;
+M_NO16:
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Well~ choose again please~";
+ mes "There should be a style you like.";
+ mes "Just remember the number you like the most and tell me.";
+ close;
+mhair17:
+ cutin "hair_m_17",4;
+ mes "[Veronica]";
+ mes "This is the (17) style.";
+ mes "I will change your Hair with this Again.";
+ mes "Is that OK for you??";
+ next;
+ menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO12;
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Now it begins~. Hold still~";
+ mes "If you move, you will have very bad style.";
+ mes "Just trust me on this!!";
+ next;
+ mes "[Veronica]";
+ mes "- Clip clip Clip clip -";
+ mes "- Klit klit Klit klit -";
+ mes "- Snap snap Snap snap -";
+ next;
+ setlook 1,17;
+ delitem 973,3;
+ delitem 974,3;
+ delitem 901,100;
+ delitem 1094,100;
+ delitem 1020,100;
+ delitem 1060,100;
+ delitem 7152,100;
+ set Zeny,Zeny-99800;
+ mes "[Veronica]";
+ mes "Wow~ it came out very well~~";
+ mes "I hope you like this (17) style.";
+ mes "If you'd like to have another hair style,";
+ mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+ close;
+M_NO17:
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Well~ choose again please~";
+ mes "There should be a style you like.";
+ mes "Just remember the number you like the most and tell me.";
+ close;
+mhair18:
+ cutin "hair_m_18",4;
+ mes "[Veronica]";
+ mes "This is the (18) style.";
+ mes "I will change your Hair with this Again.";
+ mes "Is that OK for you??";
+ next;
+ menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO12;
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Now it begins~. Hold still~";
+ mes "If you move, you will have very bad style.";
+ mes "Just trust me on this!!";
+ next;
+ mes "[Veronica]";
+ mes "- Clip clip Clip clip -";
+ mes "- Klit klit Klit klit -";
+ mes "- Snap snap Snap snap -";
+ next;
+ setlook 1,18;
+ delitem 973,3;
+ delitem 974,3;
+ delitem 901,100;
+ delitem 1094,100;
+ delitem 1020,100;
+ delitem 1060,100;
+ delitem 7152,100;
+ set Zeny,Zeny-99800;
+ mes "[Veronica]";
+ mes "Wow~ it came out very well~~";
+ mes "I hope you like this (18) style.";
+ mes "If you'd like to have another hair style,";
+ mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+ close;
+M_NO18:
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Well~ choose again please~";
+ mes "There should be a style you like.";
+ mes "Just remember the number you like the most and tell me.";
+ close;
+mhair19:
+ cutin "hair_m_19",4;
+ mes "[Veronica]";
+ mes "This is the (19) style.";
+ mes "I will change your Hair with this Again.";
+ mes "Is that OK for you??";
+ next;
+ menu "Yeah~ I'd love to.",-,"No..I don't like it..",M_NO19;
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Now it begins~. Hold still~";
+ mes "If you move, you will have very bad style.";
+ mes "Just trust me on this!!";
+ next;
+ mes "[Veronica]";
+ mes "- Clip clip Clip clip -";
+ mes "- Klit klit Klit klit -";
+ mes "- Snap snap Snap snap -";
+ next;
+ setlook 1,19;
+ delitem 973,3;
+ delitem 974,3;
+ delitem 901,100;
+ delitem 1094,100;
+ delitem 1020,100;
+ delitem 1060,100;
+ delitem 7152,100;
+ set Zeny,Zeny-99800;
+ mes "[Veronica]";
+ mes "Wow~ it came out very well~~";
+ mes "I hope you like this (19) style.";
+ mes "If you'd like to have another hair style,";
+ mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+ close;
+M_NO19:
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Well~ choose again please~";
+ mes "There should be a style you like.";
+ mes "Just remember the number you like the most and tell me.";
+ close;
+iffemale:
+ input @hairchange_in;
+ if (@hairchange_in > 19) goto tohighchange;
+ set @hairch,@hairchange_in;
+ if (@hairch == 1) goto fhair1;
+ if (@hairch == 2) goto fhair2;
+ if (@hairch == 3) goto fhair3;
+ if (@hairch == 4) goto fhair4;
+ if (@hairch == 5) goto fhair5;
+ if (@hairch == 6) goto fhair6;
+ if (@hairch == 7) goto fhair7;
+ if (@hairch == 8) goto fhair8;
+ if (@hairch == 9) goto fhair9;
+ if (@hairch == 10) goto fhair10;
+ if (@hairch == 11) goto fhair11;
+ if (@hairch == 12) goto fhair12;
+ if (@hairch == 13) goto fhair13;
+ if (@hairch == 14) goto fhair14;
+ if (@hairch == 15) goto fhair15;
+ if (@hairch == 16) goto fhair16;
+ if (@hairch == 17) goto fhair17;
+ if (@hairch == 18) goto fhair18;
+ if (@hairch == 19) goto fhair19;
+
+fhair1:
+ cutin "hair_f_01",4;
+ mes "[Veronica]";
+ mes "This is the (1) style.";
+ mes "I will change your Hair with this Again.";
+ mes "Is that OK for you??";
+ next;
+ menu "Yaeh~ I'd love to.",-,"No..I don't like it..",F_NO1;
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Now it begins~. Hold still~";
+ mes "If you move, you will have very bad style.";
+ mes "Just trust me on this!!";
+ next;
+ mes "[Veronica]";
+ mes "- Clip clip Clip clip -";
+ mes "- Klit klit Klit klit -";
+ mes "- Snap snap Snap snap -";
+ next;
+ setlook 1,1;
+ delitem 973,3;
+ delitem 974,3;
+ delitem 901,100;
+ delitem 1094,100;
+ delitem 1020,100;
+ delitem 1060,100;
+ delitem 7152,100;
+ set Zeny,Zeny-99800;
+ mes "[Veronica]";
+ mes "Wow~ it came out very well~~";
+ mes "I hope you like this (1) style.";
+ mes "If you'd like to have another hair style,";
+ mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+ close;
+F_NO1:
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Well~ choose again please~";
+ mes "There should be a style you like.";
+ mes "Just remember the number you like the most and tell me.";
+ close;
+fhair2:
+ cutin "hair_f_02",4;
+ mes "[Veronica]";
+ mes "This is the (2) style.";
+ mes "I will change your Hair with this Again.";
+ mes "Is that OK for you??";
+ next;
+ menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO2;
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Now it begins~. Hold still~";
+ mes "If you move, you will have very bad style.";
+ mes "Just trust me on this!!";
+ next;
+ mes "[Veronica]";
+ mes "- Clip clip Clip clip -";
+ mes "- Klit klit Klit klit -";
+ mes "- Snap snap Snap snap -";
+ next;
+ setlook 1,2;
+ delitem 973,3;
+ delitem 974,3;
+ delitem 901,100;
+ delitem 1094,100;
+ delitem 1020,100;
+ delitem 1060,100;
+ delitem 7152,100;
+ set Zeny,Zeny-99800;
+ mes "[Veronica]";
+ mes "Wow~ it came out very well~~";
+ mes "I hope you like this (2) style.";
+ mes "If you'd like to have another hair style,";
+ mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+ close;
+F_NO2:
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Well~ choose again please~";
+ mes "There should be a style you like.";
+ mes "Just remember the number you like the most and tell me.";
+ close;
+fhair3:
+ cutin "hair_f_03",4;
+ mes "[Veronica]";
+ mes "This is the (3) style.";
+ mes "I will change your Hair with this Again.";
+ mes "Is that OK for you??";
+ next;
+ menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO3;
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Now it begins~. Hold still~";
+ mes "If you move, you will have very bad style.";
+ mes "Just trust me on this!!";
+ next;
+ mes "[Veronica]";
+ mes "- Clip clip Clip clip -";
+ mes "- Klit klit Klit klit -";
+ mes "- Snap snap Snap snap -";
+ next;
+ setlook 1,3;
+ delitem 973,3;
+ delitem 974,3;
+ delitem 901,100;
+ delitem 1094,100;
+ delitem 1020,100;
+ delitem 1060,100;
+ delitem 7152,100;
+ set Zeny,Zeny-99800;
+ mes "[Veronica]";
+ mes "Wow~ it came out very well~~";
+ mes "I hope you like this (3) style.";
+ mes "If you'd like to have another hair style,";
+ mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+ close;
+F_NO3:
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Well~ choose again please~";
+ mes "There should be a style you like.";
+ mes "Just remember the number you like the most and tell me.";
+ close;
+fhair4:
+ cutin "hair_f_04",4;
+ mes "[Veronica]";
+ mes "This is the (4) style.";
+ mes "I will change your Hair with this Again.";
+ mes "Is that OK for you??";
+ next;
+ menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO4;
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Now it begins~. Hold still~";
+ mes "If you move, you will have very bad style.";
+ mes "Just trust me on this!!";
+ next;
+ mes "[Veronica]";
+ mes "- Clip clip Clip clip -";
+ mes "- Klit klit Klit klit -";
+ mes "- Snap snap Snap snap -";
+ next;
+ setlook 1,4;
+ delitem 973,3;
+ delitem 974,3;
+ delitem 901,100;
+ delitem 1094,100;
+ delitem 1020,100;
+ delitem 1060,100;
+ delitem 7152,100;
+ set Zeny,Zeny-99800;
+ mes "[Veronica]";
+ mes "Wow~ it came out very well~~";
+ mes "I hope you like this (4) style.";
+ mes "If you'd like to have another hair style,";
+ mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+ close;
+F_NO4:
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Well~ choose again please~";
+ mes "There should be a style you like.";
+ mes "Just remember the number you like the most and tell me.";
+ close;
+fhair5:
+ cutin "hair_f_05",4;
+ mes "[Veronica]";
+ mes "This is the (5) style.";
+ mes "I will change your Hair with this Again.";
+ mes "Is that OK for you??";
+ next;
+ menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO5;
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Now it begins~. Hold still~";
+ mes "If you move, you will have very bad style.";
+ mes "Just trust me on this!!";
+ next;
+ mes "[Veronica]";
+ mes "- Clip clip Clip clip -";
+ mes "- Klit klit Klit klit -";
+ mes "- Snap snap Snap snap -";
+ next;
+ setlook 1,5;
+ delitem 973,3;
+ delitem 974,3;
+ delitem 901,100;
+ delitem 1094,100;
+ delitem 1020,100;
+ delitem 1060,100;
+ delitem 7152,100;
+ set Zeny,Zeny-99800;
+ mes "[Veronica]";
+ mes "Wow~ it came out very well~~";
+ mes "I hope you like this (5) style.";
+ mes "If you'd like to have another hair style,";
+ mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+ close;
+F_NO5:
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Well~ choose again please~";
+ mes "There should be a style you like.";
+ mes "Just remember the number you like the most and tell me.";
+ close;
+fhair6:
+ cutin "hair_f_06",4;
+ mes "[Veronica]";
+ mes "This is the (6) style.";
+ mes "I will change your Hair with this Again.";
+ mes "Is that OK for you??";
+ next;
+ menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO6;
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Now it begins~. Hold still~";
+ mes "If you move, you will have very bad style.";
+ mes "Just trust me on this!!";
+ next;
+ mes "[Veronica]";
+ mes "- Clip clip Clip clip -";
+ mes "- Klit klit Klit klit -";
+ mes "- Snap snap Snap snap -";
+ next;
+ setlook 1,6;
+ delitem 973,3;
+ delitem 974,3;
+ delitem 901,100;
+ delitem 1094,100;
+ delitem 1020,100;
+ delitem 1060,100;
+ delitem 7152,100;
+ set Zeny,Zeny-99800;
+ mes "[Veronica]";
+ mes "Wow~ it came out very well~~";
+ mes "I hope you like this (6) style.";
+ mes "If you'd like to have another hair style,";
+ mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+ close;
+F_NO6:
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Well~ choose again please~";
+ mes "There should be a style you like.";
+ mes "Just remember the number you like the most and tell me.";
+ close;
+fhair7:
+ cutin "hair_f_07",4;
+ mes "[Veronica]";
+ mes "This is the (7) style.";
+ mes "I will change your Hair with this Again.";
+ mes "Is that OK for you??";
+ next;
+ menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO7;
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Now it begins~. Hold still~";
+ mes "If you move, you will have very bad style.";
+ mes "Just trust me on this!!";
+ next;
+ mes "[Veronica]";
+ mes "- Clip clip Clip clip -";
+ mes "- Klit klit Klit klit -";
+ mes "- Snap snap Snap snap -";
+ next;
+ setlook 1,7;
+ delitem 973,3;
+ delitem 974,3;
+ delitem 901,100;
+ delitem 1094,100;
+ delitem 1020,100;
+ delitem 1060,100;
+ delitem 7152,100;
+ set Zeny,Zeny-99800;
+ mes "[Veronica]";
+ mes "Wow~ it came out very well~~";
+ mes "I hope you like this (7) style.";
+ mes "If you'd like to have another hair style,";
+ mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+ close;
+F_NO7:
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Well~ choose again please~";
+ mes "There should be a style you like.";
+ mes "Just remember the number you like the most and tell me.";
+ close;
+fhair8:
+ cutin "hair_f_08",4;
+ mes "[Veronica]";
+ mes "This is the (8) style.";
+ mes "I will change your Hair with this Again.";
+ mes "Is that OK for you??";
+ next;
+ menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO8;
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Now it begins~. Hold still~";
+ mes "If you move, you will have very bad style.";
+ mes "Just trust me on this!!";
+ next;
+ mes "[Veronica]";
+ mes "- Clip clip Clip clip -";
+ mes "- Klit klit Klit klit -";
+ mes "- Snap snap Snap snap -";
+ next;
+ setlook 1,8;
+ delitem 973,3;
+ delitem 974,3;
+ delitem 901,100;
+ delitem 1094,100;
+ delitem 1020,100;
+ delitem 1060,100;
+ delitem 7152,100;
+ set Zeny,Zeny-99800;
+ mes "[Veronica]";
+ mes "Wow~ it came out very well~~";
+ mes "I hope you like this (8) style.";
+ mes "If you'd like to have another hair style,";
+ mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+ close;
+F_NO8:
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Well~ choose again please~";
+ mes "There should be a style you like.";
+ mes "Just remember the number you like the most and tell me.";
+ close;
+fhair9:
+ cutin "hair_f_09",4;
+ mes "[Veronica]";
+ mes "This is the (9) style.";
+ mes "I will change your Hair with this Again.";
+ mes "Is that OK for you??";
+ next;
+ menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO9;
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Now it begins~. Hold still~";
+ mes "If you move, you will have very bad style.";
+ mes "Just trust me on this!!";
+ next;
+ mes "[Veronica]";
+ mes "- Clip clip Clip clip -";
+ mes "- Klit klit Klit klit -";
+ mes "- Snap snap Snap snap -";
+ next;
+ setlook 1,9;
+ delitem 973,3;
+ delitem 974,3;
+ delitem 901,100;
+ delitem 1094,100;
+ delitem 1020,100;
+ delitem 1060,100;
+ delitem 7152,100;
+ set Zeny,Zeny-99800;
+ mes "[Veronica]";
+ mes "Wow~ it came out very well~~";
+ mes "I hope you like this (9) style.";
+ mes "If you'd like to have another hair style,";
+ mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+ close;
+F_NO9:
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Well~ choose again please~";
+ mes "There should be a style you like.";
+ mes "Just remember the number you like the most and tell me.";
+ close;
+fhair10:
+ cutin "hair_f_10",4;
+ mes "[Veronica]";
+ mes "This is the (10) style.";
+ mes "I will change your Hair with this Again.";
+ mes "Is that OK for you??";
+ next;
+ menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO10;
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Now it begins~. Hold still~";
+ mes "If you move, you will have very bad style.";
+ mes "Just trust me on this!!";
+ next;
+ mes "[Veronica]";
+ mes "- Clip clip Clip clip -";
+ mes "- Klit klit Klit klit -";
+ mes "- Snap snap Snap snap -";
+ next;
+ setlook 1,10;
+ delitem 973,3;
+ delitem 974,3;
+ delitem 901,100;
+ delitem 1094,100;
+ delitem 1020,100;
+ delitem 1060,100;
+ delitem 7152,100;
+ set Zeny,Zeny-99800;
+ mes "[Veronica]";
+ mes "Wow~ it came out very well~~";
+ mes "I hope you like this (10) style.";
+ mes "If you'd like to have another hair style,";
+ mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+ close;
+F_NO10:
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Well~ choose again please~";
+ mes "There should be a style you like.";
+ mes "Just remember the number you like the most and tell me.";
+ close;
+fhair11:
+ cutin "hair_f_11",4;
+ mes "[Veronica]";
+ mes "This is the (11) style.";
+ mes "I will change your Hair with this Again.";
+ mes "Is that OK for you??";
+ next;
+ menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO11;
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Now it begins~. Hold still~";
+ mes "If you move, you will have very bad style.";
+ mes "Just trust me on this!!";
+ next;
+ mes "[Veronica]";
+ mes "- Clip clip Clip clip -";
+ mes "- Klit klit Klit klit -";
+ mes "- Snap snap Snap snap -";
+ next;
+ setlook 1,11;
+ delitem 973,3;
+ delitem 974,3;
+ delitem 901,100;
+ delitem 1094,100;
+ delitem 1020,100;
+ delitem 1060,100;
+ delitem 7152,100;
+ set Zeny,Zeny-99800;
+ mes "[Veronica]";
+ mes "Wow~ it came out very well~~";
+ mes "I hope you like this (11) style.";
+ mes "If you'd like to have another hair style,";
+ mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+ close;
+F_NO11:
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Well~ choose again please~";
+ mes "There should be a style you like.";
+ mes "Just remember the number you like the most and tell me.";
+ close;
+fhair12:
+ cutin "hair_f_12",4;
+ mes "[Veronica]";
+ mes "This is the (12) style.";
+ mes "I will change your Hair with this Again.";
+ mes "Is that OK for you??";
+ next;
+ menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO12;
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Now it begins~. Hold still~";
+ mes "If you move, you will have very bad style.";
+ mes "Just trust me on this!!";
+ next;
+ mes "[Veronica]";
+ mes "- Clip clip Clip clip -";
+ mes "- Klit klit Klit klit -";
+ mes "- Snap snap Snap snap -";
+ next;
+ setlook 1,12;
+ delitem 973,3;
+ delitem 974,3;
+ delitem 901,100;
+ delitem 1094,100;
+ delitem 1020,100;
+ delitem 1060,100;
+ delitem 7152,100;
+ set Zeny,Zeny-99800;
+ mes "[Veronica]";
+ mes "Wow~ it came out very well~~";
+ mes "I hope you like this (12) style.";
+ mes "If you'd like to have another hair style,";
+ mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+ close;
+F_NO12:
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Well~ choose again please~";
+ mes "There should be a style you like.";
+ mes "Just remember the number you like the most and tell me.";
+ close;
+fhair13:
+ cutin "hair_f_13",4;
+ mes "[Veronica]";
+ mes "This is the (13) style.";
+ mes "I will change your Hair with this Again.";
+ mes "Is that OK for you??";
+ next;
+ menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO13;
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Now it begins~. Hold still~";
+ mes "If you move, you will have very bad style.";
+ mes "Just trust me on this!!";
+ next;
+ mes "[Veronica]";
+ mes "- Clip clip Clip clip -";
+ mes "- Klit klit Klit klit -";
+ mes "- Snap snap Snap snap -";
+ next;
+ setlook 1,13;
+ delitem 973,3;
+ delitem 974,3;
+ delitem 901,100;
+ delitem 1094,100;
+ delitem 1020,100;
+ delitem 1060,100;
+ delitem 7152,100;
+ set Zeny,Zeny-99800;
+ mes "[Veronica]";
+ mes "Wow~ it came out very well~~";
+ mes "I hope you like this (13) style.";
+ mes "If you'd like to have another hair style,";
+ mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+ close;
+F_NO13:
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Well~ choose again please~";
+ mes "There should be a style you like.";
+ mes "Just remember the number you like the most and tell me.";
+ close;
+fhair14:
+ cutin "hair_f_14",4;
+ mes "[Veronica]";
+ mes "This is the (14) style.";
+ mes "I will change your Hair with this Again.";
+ mes "Is that OK for you??";
+ next;
+ menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO14;
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Now it begins~. Hold still~";
+ mes "If you move, you will have very bad style.";
+ mes "Just trust me on this!!";
+ next;
+ mes "[Veronica]";
+ mes "- Clip clip Clip clip -";
+ mes "- Klit klit Klit klit -";
+ mes "- Snap snap Snap snap -";
+ next;
+ setlook 1,14;
+ delitem 973,3;
+ delitem 974,3;
+ delitem 901,100;
+ delitem 1094,100;
+ delitem 1020,100;
+ delitem 1060,100;
+ delitem 7152,100;
+ set Zeny,Zeny-99800;
+ mes "[Veronica]";
+ mes "Wow~ it came out very well~~";
+ mes "I hope you like this (14) style.";
+ mes "If you'd like to have another hair style,";
+ mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+ close;
+F_NO14:
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Well~ choose again please~";
+ mes "There should be a style you like.";
+ mes "Just remember the number you like the most and tell me.";
+ close;
+fhair15:
+ cutin "hair_f_15",4;
+ mes "[Veronica]";
+ mes "This is the (15) style.";
+ mes "I will change your Hair with this Again.";
+ mes "Is that OK for you??";
+ next;
+ menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO15;
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Now it begins~. Hold still~";
+ mes "If you move, you will have very bad style.";
+ mes "Just trust me on this!!";
+ next;
+ mes "[Veronica]";
+ mes "- Clip clip Clip clip -";
+ mes "- Klit klit Klit klit -";
+ mes "- Snap snap Snap snap -";
+ next;
+ setlook 1,15;
+ delitem 973,3;
+ delitem 974,3;
+ delitem 901,100;
+ delitem 1094,100;
+ delitem 1020,100;
+ delitem 1060,100;
+ delitem 7152,100;
+ set Zeny,Zeny-99800;
+ mes "[Veronica]";
+ mes "Wow~ it came out very well~~";
+ mes "I hope you like this (15) style.";
+ mes "If you'd like to have another hair style,";
+ mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+ close;
+F_NO15:
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Well~ choose again please~";
+ mes "There should be a style you like.";
+ mes "Just remember the number you like the most and tell me.";
+ close;
+fhair16:
+ cutin "hair_f_16",4;
+ mes "[Veronica]";
+ mes "This is the (16) style.";
+ mes "I will change your Hair with this Again.";
+ mes "Is that OK for you??";
+ next;
+ menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO16;
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Now it begins~. Hold still~";
+ mes "If you move, you will have very bad style.";
+ mes "Just trust me on this!!";
+ next;
+ mes "[Veronica]";
+ mes "- Clip clip Clip clip -";
+ mes "- Klit klit Klit klit -";
+ mes "- Snap snap Snap snap -";
+ next;
+ setlook 1,16;
+ delitem 973,3;
+ delitem 974,3;
+ delitem 901,100;
+ delitem 1094,100;
+ delitem 1020,100;
+ delitem 1060,100;
+ delitem 7152,100;
+ set Zeny,Zeny-99800;
+ mes "[Veronica]";
+ mes "Wow~ it came out very well~~";
+ mes "I hope you like this (16) style.";
+ mes "If you'd like to have another hair style,";
+ mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+ close;
+F_NO16:
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Well~ choose again please~";
+ mes "There should be a style you like.";
+ mes "Just remember the number you like the most and tell me.";
+ close;
+fhair17:
+ cutin "hair_f_17",4;
+ mes "[Veronica]";
+ mes "This is the (17) style.";
+ mes "I will change your Hair with this Again.";
+ mes "Is that OK for you??";
+ next;
+ menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO17;
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Now it begins~. Hold still~";
+ mes "If you move, you will have very bad style.";
+ mes "Just trust me on this!!";
+ next;
+ mes "[Veronica]";
+ mes "- Clip clip Clip clip -";
+ mes "- Klit klit Klit klit -";
+ mes "- Snap snap Snap snap -";
+ next;
+ setlook 1,17;
+ delitem 973,3;
+ delitem 974,3;
+ delitem 901,100;
+ delitem 1094,100;
+ delitem 1020,100;
+ delitem 1060,100;
+ delitem 7152,100;
+ set Zeny,Zeny-99800;
+ mes "[Veronica]";
+ mes "Wow~ it came out very well~~";
+ mes "I hope you like this (17) style.";
+ mes "If you'd like to have another hair style,";
+ mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+ close;
+F_NO17:
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Well~ choose again please~";
+ mes "There should be a style you like.";
+ mes "Just remember the number you like the most and tell me.";
+ close;
+fhair18:
+ cutin "hair_f_18",4;
+ mes "[Veronica]";
+ mes "This is the (18) style.";
+ mes "I will change your Hair with this Again.";
+ mes "Is that OK for you??";
+ next;
+ menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO18;
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Now it begins~. Hold still~";
+ mes "If you move, you will have very bad style.";
+ mes "Just trust me on this!!";
+ next;
+ mes "[Veronica]";
+ mes "- Clip clip Clip clip -";
+ mes "- Klit klit Klit klit -";
+ mes "- Snap snap Snap snap -";
+ next;
+ setlook 1,18;
+ delitem 973,3;
+ delitem 974,3;
+ delitem 901,100;
+ delitem 1094,100;
+ delitem 1020,100;
+ delitem 1060,100;
+ delitem 7152,100;
+ set Zeny,Zeny-99800;
+ mes "[Veronica]";
+ mes "Wow~ it came out very well~~";
+ mes "I hope you like this (18) style.";
+ mes "If you'd like to have another hair style,";
+ mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+ close;
+F_NO18:
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Well~ choose again please~";
+ mes "There should be a style you like.";
+ mes "Just remember the number you like the most and tell me.";
+ close;
+fhair19:
+ cutin "hair_f_19",4;
+ mes "[Veronica]";
+ mes "This is the (19) style.";
+ mes "I will change your Hair with this Again.";
+ mes "Is that OK for you??";
+ next;
+ menu "Yeah~ I'd love to.",-,"No..I don't like it..",F_NO19;
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Now it begins~. Hold still~";
+ mes "If you move, you will have very bad style.";
+ mes "Just trust me on this!!";
+ next;
+ mes "[Veronica]";
+ mes "- Clip clip Clip clip -";
+ mes "- Klit klit Klit klit -";
+ mes "- Snap snap Snap snap -";
+ next;
+ setlook 1,19;
+ delitem 973,3;
+ delitem 974,3;
+ delitem 901,100;
+ delitem 1094,100;
+ delitem 1020,100;
+ delitem 1060,100;
+ delitem 7152,100;
+ set Zeny,Zeny-99800;
+ mes "[Veronica]";
+ mes "Wow~ it came out very well~~";
+ mes "I hope you like this (19) style.";
+ mes "If you'd like to have another hair style,";
+ mes "you are welcome welcome to vi tis me anytime~ HoHoHo";
+ close;
+F_NO19:
+ cutin "",255;
+ mes "[Veronica]";
+ mes "Well~ choose again please~";
+ mes "There should be a style you like.";
+ mes "Just remember the number you like the most and tell me.";
+ close;
+tohighchange:
+ mes "[Veronica]";
+ mes "There are no such numbers like that!";
+ mes "Please check your number~";
+ close;
+NOItem:
+ mes "[Veronica]";
+ mes "If you want to change your hairstyle, you need several items.";
+ mes "Since, you need many items....";
+ mes "I think you should write those down.";
+ next;
+ mes "[Veronica]";
+ mes "3 Counteragents,";
+ mes "3 Mixtures,";
+ mes "100 Daenggies,";
+ mes "100 Short Daenggies,";
+ mes "100 Black Hairs,";
+ mes "100 Golden Hairs,";
+ mes "100 Glossy Hair.";
+ next;
+ mes "[Veronica]";
+ mes "And also you need 99,800zeny.";
+ mes "If you gather them all...";
+ mes "I will show you what I can do~!!";
+ mes "HoHoHo.";
+ close;
+Cancel:
+ mes "[Veronica]";
+ mes "Everyone has rights to become beautiful...";
+ mes "I wish you can find your hair style which fits on you well~";
+ mes "I really do~";
+ close;
+}
\ No newline at end of file diff --git a/npc/merchants/icecream.txt b/npc/merchants/icecream.txt new file mode 100644 index 000000000..27c94d74b --- /dev/null +++ b/npc/merchants/icecream.txt @@ -0,0 +1,61 @@ +//===== eAthena Script =======================================
+//= Ice Cream Maker
+//===== By: ==================================================
+//= KOOK SWU
+//===== Current Version: =====================================
+//= 1.2
+//===== Compatible With: =====================================
+//= eAthena 1.0
+//===== Description: =========================================
+//= A man makes you ice-cream
+//===== Additional Comments: =================================
+//= 1.1 Optimized, changed overlapping coords in Alberta [Lupus]
+//= 1.2 According to the patch, IceCream seller has been removed from Morocc [Lupus]
+//============================================================
+
+//ALBERTA
+alberta.gat,120,45,2 script Ice Cream Maker::IceCreamer 85,{
+ mes "[Ice Cream Maker]";
+ mes "Fresh Ice Cream made with snow from Lutie!";
+ mes "Enjoy it now, it won't be on sale for long!";
+ mes "^0000FF100 Zeny^000000 Ice Cream,";
+ mes "Ice Cream!";
+ next;
+ menu "Gimme Ice Cream!",-,"Cancel Trade",L_End;
+
+ mes "[Ice Cream Maker]";
+ mes "Fresh Ice Cream made with snow from Lutie!";
+ mes "Everyone wants our delicious ice cream, but we have limited amount,";
+ mes "so you can only purchase 5 at a time!!";
+ next;
+ input @input;
+ mes "[Ice Cream Maker]";
+ if(@input<1) goto L_inpC;
+ if(@input>5) goto L_inpM;
+ if(Zeny< @input*100) goto L_NoZ;
+ getitem 536,@input;
+ set Zeny,Zeny-100*@input;
+ mes "Here you go " +@input+ " Ice Cream for you.";
+ close;
+
+ L_inpC:
+ mes "Deal is canceled.";
+ close;
+ L_inpM:
+ mes "Sorry, but you can only buy 5 at a time.";
+ close;
+ L_NoZ:
+ mes "Sorry, but you need more money.";
+ close;
+ L_End:
+ mes "[Ice Cream Maker]";
+ mes "Are you sure you don't want any?";
+ mes "I won't be selling it for long, and once I run out, there won't be anymore!!!";
+ close;
+}
+
+//MORROC FIELD
+moc_fild16.gat,88,304,4 duplicate(IceCreamer) Ice Cream Maker#2 85
+
+//MORROC
+//morocc.gat,160,144,4 duplicate(IceCreamer) Ice Cream Maker#3 85
diff --git a/npc/merchants/inn.txt b/npc/merchants/inn.txt new file mode 100644 index 000000000..dfc0e7c3c --- /dev/null +++ b/npc/merchants/inn.txt @@ -0,0 +1,172 @@ +//===== eAthena Script =======================================
+//= Inn Npcs
+//===== By: ==================================================
+//= Darkchild (1.1)
+//===== Current Version: =====================================
+//= 1.1a
+//===== Compatible With: =====================================
+//= eAthena 1.0+
+//===== Description: =========================================
+//= Inn Npcs, Save and Heal
+//=====================================================
+//= variables:
+//= arg0 - name of npc
+//= arg1 - name of the inn
+//= arg2 - map to save at
+//= arg3, arg4 - x and y cord. to save at
+//= @cost - cost of renting a room
+//===== Additional Comments: =================================
+//= 1.1 Blind Effect By Kobra_k88 (Taken from his old script)
+//= I added it to all of them though [Darkchild]
+//= 1.1a Minor bug fixes and optimizations. Switched from @variables
+//= to arguments.[kobra_k88]
+//============================================================
+
+
+//======================== Prontera ===================================
+// West Side Inn -------------------
+prt_in.gat,244,135,2 script Inn Maid::Sammy 53,{
+
+ callfunc "F_InnMaid","[Sammy]","West Inn","prt_in.gat",238,130;
+ addtimer 3900, "Sammy::OnTimerWarp";
+ close;
+
+OnTimerWarp:
+ warp "prt_in.gat",237,102;
+ sc_end SC_BLIND;
+ end;
+}
+// East Side Inn ------------------
+prt_in.gat,61,141,2 script Inn Maid::Ahlma 53,{
+
+ callfunc "F_InnMaid","[Ahlma]","East Inn","prt_in.gat",64,136;
+ addtimer 3900, "Ahlma::OnTimerWarp";
+ close;
+
+OnTimerWarp:
+ warp "prt_in.gat",49,173;
+ sc_end SC_BLIND;
+ end;
+}
+
+//======================== Alberta ====================================
+// North --------------------------
+alberta_in.gat,32,142,5 script Inn Maid::Moira 53,{
+
+ callfunc "F_InnMaid","[Moira]","North Inn","alberta_in.gat",26,138;
+ addtimer 3900, "Moira::OnTimerWarp";
+ close;
+
+OnTimerWarp:
+ warp "alberta_in.gat",18,188;
+ sc_end SC_BLIND;
+ end;
+}
+// South -----------------------------
+alberta_in.gat,55,142,8 script Inn Maid::Tina 53,{
+
+ callfunc "F_InnMaid","[Tina]","South Inn","alberta_in.gat",60,140;
+ addtimer 3900, "Tina::OnTimerWarp";
+ close;
+
+OnTimerWarp:
+ warp "alberta_in.gat",68,188;
+ sc_end SC_BLIND;
+ end;
+}
+
+//====================== Geffen ======================================
+geffen_in.gat,70,64,5 script Inn Maid::Betty 53,{
+
+ callfunc "F_InnMaid","[Betty]","Inn","geffen_in.gat",74,60;
+ addtimer 3900, "Betty::OnTimerWarp";
+ close;
+
+OnTimerWarp:
+ warp "geffen_in.gat",106,106;
+ sc_end SC_BLIND;
+ end;
+}
+
+//======================= Payon ======================================
+payon_in01.gat,131,62,5 script Inn Maid::SunHee 53,{
+
+ callfunc "F_InnMaid","[Sun Hee]","Inn","payon_in01.gat",132,56;
+ addtimer 3900, "SunHee::OnTimerWarp";
+ close;
+
+OnTimerWarp:
+ warp "payon_in01.gat",140,15;
+ sc_end SC_BLIND;
+ close;
+}
+
+//======================== Morocc ====================================
+// North East --------------------------
+morocc_in.gat,147,138,5 script Inn Maid::Suzie 53,{
+
+ callfunc "F_InnMaid","[Suzie]","North East Inn","morocc_in.gat",142,140;
+ addtimer 3900, "Suzie::OnTimerWarp";
+ close;
+
+OnTimerWarp:
+ warp "morocc_in.gat",174,144;
+ sc_end SC_BLIND;
+ end;
+}
+// South --------------------------------
+morocc_in.gat,80,100,5 script Inn Maid::Shala 53,{
+
+ callfunc "F_InnMaid","[Shala]","South Inn","morocc_in.gat",78,95;
+ addtimer 3900, "Shala::OnTimerWarp";
+ close;
+
+OnTimerWarp:
+ warp "morocc_in.gat",74,128;
+ sc_end SC_BLIND;
+ end;
+}
+
+//======================= Inn Function ==============================
+function script F_InnMaid {
+ mes getarg(0);
+ mes "Welcome to Nenkaras " + getarg(1) + ". What can I do for you?";
+ next;
+ menu "Save",Msave, "Rent a Room",Mrent, "Nothing",Mend;
+
+ Msave:
+ mes getarg(0);
+ mes "Location Saved.";
+ mes "I am waiting for another job to do.";
+ savepoint getarg(2),getarg(3),getarg(4);
+ close;
+ Mrent:
+ set @cost,50;
+ if(BaseLevel > 15) set @cost,100;
+ if(BaseLevel > 30) set @cost,200;
+ if(BaseLevel > 50) set @cost,300;
+ if(BaseLevel > 75) set @cost,400;
+ mes getarg(0);
+ mes "It will cost " + @cost + " zeny to rent a room for 1 night.";
+ mes "In the morning your HP and SP will be fully recovered.";
+ next;
+ menu "Ok.",-,"No thanks.",Mend;
+
+ mes getarg(0);
+ mes "Thank you and enjoy your stay here.";
+ emotion 15;
+ if(Zeny < @cost) goto NoZeny;
+ set Zeny,Zeny - @cost;
+ sc_start SC_BLIND,500000,1;
+ percentheal 100,100;
+ return;
+
+ NoZeny:
+ mes getarg(0);
+ mes "I'm sorry but you don't have enough money.";
+ close;
+ Mend:
+ mes getarg(0);
+ mes "I am waiting for a job to do.";
+ close;
+}
diff --git a/npc/merchants/milk_trader.txt b/npc/merchants/milk_trader.txt new file mode 100644 index 000000000..f81c6f90f --- /dev/null +++ b/npc/merchants/milk_trader.txt @@ -0,0 +1,61 @@ +//===== eAthena Script =======================================
+//= Milk Trader
+//===== By: ==================================================
+//= kobra_k88
+//===== Current Version: =====================================
+//= 1.2a
+//===== Compatible With: =====================================
+//= eAthena 7.15 +
+//===== Description: =========================================
+//= trades bottles for milk
+//===== Additional Comments: =================================
+//= Fully working
+//= 1.1 Negative input bug fixed [Lupus]
+//= 1.2 Raised the price to close zeny exploit [Lupus]
+//= 1.2a Switched to Lupus's "loopless" technique.[kobra_k88]
+//============================================================
+
+
+// Milk Trader -------------------------------------------------------------
+prontera.gat,71,131,7 script Milk Trader 86,{
+ mes "[Milk Trader]";
+ mes "If you bring me an empty bottle and 20 Zeny, I will exchange it for 1 bottle of milk.";
+ next;
+ menu "-Exchange as many as possible.",M_0, "-Let me set the amount.",M_1, "-Cancel",M_End;
+
+ M_0:
+ set @amount, 1000;
+ if(zeny/20 < @amount) set @amount, zeny/20;
+ if(countitem(713) < @amount) set @amount, countitem(713);
+ if(@amount > 0) goto L_Milk;
+ mes "[Milk Trader]";
+ mes "..... Are you trying to make a fool of me.... ?";
+ close;
+
+ M_1:
+ input @amount;
+ if(@amount < 1 || @amount > 1000) goto M_End;
+ if(countitem(713) < @amount) goto L_NoBottle;
+ if(zeny < (@amount*20)) goto L_NoZeny;
+
+ L_Milk:
+ getitem 519, @amount;
+ delitem 713, @amount;
+ set zeny, zeny - (@amount*20);
+
+ M_End:
+ mes "[Milk Trader]";
+ mes "Come back anytime.";
+ close;
+
+ L_NoBottle:
+ mes "[Milk Trader]";
+ mes "Ok, empty bottle please! Empty Bottle!!";
+ mes "... Aww.. you don't have enough...?";
+ close;
+
+ L_NoZeny:
+ mes "[Milk Trader]";
+ mes "You need more zeny.";
+ close;
+}
diff --git a/npc/merchants/quivers.txt b/npc/merchants/quivers.txt new file mode 100644 index 000000000..d29224742 --- /dev/null +++ b/npc/merchants/quivers.txt @@ -0,0 +1,147 @@ +//===== eAthena Script ========================================
+//= Arrow Quiver Event
+//===== By: ==================================================
+//= Muad_Dib (Prometheus Project)
+//===== Current Version: =====================================
+//= 1.0b
+//===== Compatible With: =====================================
+//= eAthena 1.0+
+//===== Description: =========================================
+//= Turns arrows into Arrow Quivers.
+//===== Additional Comments: =================================
+//= 07/06/05 : Added 1st Version. [Muad_Dib]
+//= Converted to eAthena format by Dr.Evil
+//= added prize to quest - 500 Zeny
+//= Fixed a few spelling errors. [Nexon]
+//============================================================
+
+
+payon_in01.gat,5,134,4 script Inventor Jaax 89,{
+ mes "[Inventor Jaax]";
+ mes "My name is Jaax.";
+ mes "Without ego, I can";
+ mes "sat that I am perhaps the";
+ mes "^996600greatest inventor of our time.^000000";
+ next;
+ mes "[Inventor Jaax]";
+ mes "This time, I've";
+ mes "created something";
+ mes "truly extraordinary. I call them...";
+ mes "^996600Magic Quivers^000000 !! This will be";
+ mes "remembered in history as an";
+ mes "arrow revolution!";
+ next;
+ mes "[Inventor Jaax]";
+ mes "I've studied magic and quivers for";
+ mes "years, working night and day until";
+ mes "I finally figured out how to condense";
+ mes "arrows with magic! With magic";
+ mes "quivers, you'll be carrying more";
+ mes "arrows, but with less weight!";
+ next;
+ mes "[Inventor Jaax]";
+ mes "Would you like to try using one of";
+ mes "my arrow quivers? I have no doubt";
+ mes "that someone like you can";
+ mes "appreciate my genius!";
+ next;
+
+ menu "Arrow Quiver",-,"Iron Arrow Quiver",Q2,"Steel Arrow Quiver",Q3,"Oridecon Arrow Quiver",Q4,"Fire Arrow Quiver",Q5,"Silver Arrow Quiver",Q6,"Wind Arrow Quiver",Q7,"Stone Arrow Quiver",Q8,"Crystal Arrow Quiver",Q9,"Shadow Arrow Quiver",Q10,"Immaterial Arrow Quiver",Q11,"Rusty Arrow Quiver",Q12;
+
+// Arguments
+//===========
+ callsub sF_Make, 1750,500,12004, "Arrow Quiver";
+ goto M_Menu;
+Q2:
+ callsub sF_Make, 1770,500,12005, "Iron Arrow Quiver";
+ goto M_Menu;
+Q3:
+ callsub sF_Make, 1753,500,12006, "Steel Arrow Quiver";
+ goto M_Menu;
+Q4:
+ callsub sF_Make, 1765,500,12007, "Oridecon Arrow Quiver";
+ goto M_Menu;
+Q5:
+ callsub sF_Make, 1752,500,12008, "Fire Arrow Quiver";
+ goto M_Menu;
+Q6:
+ callsub sF_Make, 1751,500,12009, "Silver Arrow Quiver";
+ goto M_Menu;
+Q7:
+ callsub sF_Make, 1755,500,12010, "Wind Arrow Quiver";
+ goto M_Menu;
+Q8:
+ callsub sF_Make, 1756,500,12011, "Stone Arrow Quiver";
+ goto M_Menu;
+Q9:
+ callsub sF_Make, 1754,500,12012, "Crystal Arrow Quiver";
+ goto M_Menu;
+Q10:
+ callsub sF_Make, 1767,500,12013, "Shadow Arrow Quiver";
+ goto M_Menu;
+Q11:
+ callsub sF_Make, 1757,500,12014, "Immaterial Arrow Quiver";
+ goto M_Menu;
+Q12:
+ callsub sF_Make, 1762,500,12015, "Rusty Arrow Quiver";
+ goto M_Menu;
+
+// Subfunction for making quivers
+//================================
+sF_Make:
+ set @arrownum,500;
+ if(countitem(getarg(0)) < @arrownum) goto L_NdArrows;
+ if(Zeny < getarg(1)) goto L_NdZeny;
+ mes "[Inventor Jaax]";
+ mes "What do you want me to do?";
+ next;
+ menu "Give me as many as you can.",-, "I want to set the amount.",sM_0b, "Nevermind",M_End;
+
+ set @amount,100;
+ if(zeny/getarg(1) < @amount) set @amount, zeny/getarg(1);
+ if(countitem(getarg(0))/@arrownum < @amount) set @amount, countitem(getarg(0))/@arrownum;
+ if(@amount > 0) goto L_End;
+ mes "[Inventor Jaax]";
+ mes "Jeez... you don't even have the right items.....";
+ close;
+
+ sM_0b:
+ input @amount;
+ if(@amount<1 || @amount>100) goto L_BadAmnt;
+ if(countitem(getarg(0))/@arrownum < @amount) goto L_NdArrows;
+ if(Zeny < (getarg(1)*@amount)) goto L_NdZeny;
+
+ L_End:
+ mes "[Inventor Jaax]";
+ mes "There you go~!";
+ mes "Here are your " +getarg(3)+ ".";
+ delitem getarg(0), (@amount*@arrownum);
+ set Zeny, Zeny - (getarg(1)*@amount);
+ getitem getarg(2), @amount;
+ close;
+
+ L_NdArrows:
+ mes "[Inventor Jaax]";
+ mes "Sorry, but you need 500 Arrows and 500 Zeny to make 1 Arrow Quiver.";
+ close;
+
+ L_NdZeny:
+ mes "[Inventor Jaax]";
+ mes "You don't have enough zeny for that many.";
+ close;
+
+ L_BadAmnt:
+ mes "[Inventor Jaax]";
+ mes "Please choose a number between 1 and 100.";
+ close;
+
+L_Come:
+ mes "[Inventor Jaax]";
+ mes "Please, come again whenever you want too.";
+ close;
+M_End:
+ mes "[Inventor Jaax]";
+ mes "Sure, no problem.";
+ mes "Come back any time.";
+ close;
+}
\ No newline at end of file diff --git a/npc/merchants/refine.txt b/npc/merchants/refine.txt new file mode 100644 index 000000000..b4fe39112 --- /dev/null +++ b/npc/merchants/refine.txt @@ -0,0 +1,925 @@ +//===== Freya Script =========================================
+//= Refining NPCs
+//===== By: ==================================================
+//= Syrus22 (1.1)
+//= dafide18 (1.4)
+//= Skotlex (1.5)
+//===== Current Version: =====================================
+//= 1.7
+//===== Compatible With: =====================================
+//= Any Freya Version
+//===== Description: =========================================
+//= Refining NPCs and Metal Salesmen.
+//===== Additional Comments: =================================
+//= 1.0 - by A bunch of people!
+//= Syrus22 - Completely redid the script using functions... also
+//= added the option for auto safe refining and multiple refining.
+//= 1.1 - Negative input bug fixed [Lupus]
+//= 1.2 - Added additional reparimen in morroc and payon. Added
+//= Christopher the blacksmith in Geffen. Edited some dialogue [kobra_k88]
+//= 1.3 - New Payon Locations [Darkchild]
+//= Corrected zeny subtraction thx to jpnmania77.[kobra_k88]
+//= 1.3a - Temporary corrected an exploit. Need to check sources
+//= to fully fix bug [Shinigami]
+//= Fixed repairman prices [shadowlady]
+//= Fixed bug that skips requirements thanks to sir_loon [massdriller]
+//= Fixed itemid error thanks to -Vitamin- [massdriller]
+//= 1.4 - check again item in refining procedure to avoid
+//= hacker that can change item [dafide18]
+//= 1.5 - Fixed crashing due to badly used callfunc's [Skotlex]
+// Lupus, don't rollback this important fix again! >.<
+//= 1.5a - Corrected an unneeded callfunc, fixed the anti-bot
+//= exploit ruining the safe refine loop. [Skotlex]
+//= 1.5b - Fixed Spelling mistakes. [Nexon]
+//= 1.6 - Replaced all breaks for ends as per the new script engine [Skotlex]
+//= 1.7 - Added Einbroch Refiners (Custom names ^^;) and a duplicated BS Shop. [Poki#3]
+//= 1.8 - Added Lighthalzen Refiners (Custom names again ^^;) [Poki#3]
+//============================================================
+
+
+//=========================================================
+// Christopher: Geffen Blacksmith
+//=========================================================
+geffen_in.gat,110,172,2 script Christopher#1::Chris 63,{
+ mes "[Christopher Guillenrow]";
+ mes "Welcome to Christopher's Workshop. Ye can find all yer forging equipment here. So what can I help ye with?";
+ M_Menu:
+ next;
+ menu "Purchase Anvil",M_0, "Purchase Forging Item",M_1, "Purchase Metal",M_2, "Purify Rough Ores",M_3, "Cancel",M_End;
+
+ M_0:
+ mes "[Christopher Guillenrow]";
+ mes "Higher quality Anvils gives ye a better chance ta make better weapons, ye know. But they cost more than yer typical ones.";
+ next;
+ menu "Anvil - 30000z.",sM_Anvil, "Oridecon Anvil - 120000z.",sM_OriAnvil, "Golden Anvil - 300000z.",sM_GolAnvil,
+ "Better Anvil than others",sM_BetAnvil, "Cancel",M_Menu;
+
+ sM_Anvil:
+ if(Zeny < 30000) goto L_NoZeny;
+ mes "[Christopher Guillenrow]";
+ mes "This is the cheapest one but it's very efficient.";
+ set Zeny, Zeny - 30000;
+ getitem 986,1;
+ next;
+ goto L_Thanks;
+ sM_OriAnvil:
+ if(Zeny < 120000) goto L_NoZeny;
+ mes "[Christopher Guillenrow]";
+ mes "Ah! Ye have a good eye for anvils. This here is the proper anvil for a Blacksmith.";
+ set Zeny, Zeny - 120000;
+ getitem 987,1;
+ next;
+ goto L_Thanks;
+ sM_GolAnvil:
+ if(Zeny < 300000) goto L_NoZeny;
+ mes "[Christopher Guillenrow]";
+ mes "This is the best anvil in my workshop! With this ye'll be the best Blasksmith in no time.";
+ set Zeny, Zeny - 300000;
+ getitem 988,1;
+ next;
+ goto L_Thanks;
+ sM_BetAnvil:
+ mes "[Christopher Guillenrow]";
+ mes "I'm sorry but I don't have anything better than a Golden Anvil.";
+ mes "Maybe 'Ringgel' the legendary Anvil maker would have one... but he be a hard fellow ta find.";
+ close;
+
+ M_1:
+ mes "[Christopher Guillenrow]";
+ mes "A respectable Blacksmith uses fine tools. Ye will come ta know my tools as being the finest around!";
+ mes "Choose anything you want.";
+ sM_Menu1:
+ next;
+ menu "Mini-Furnace - 150z.",sM_Furn, "Iron Hammer - 1000z.",sM_IrHam, "Golden Hammer - 3000z.",sM_GldHam,
+ "Oridecon Hammer - 5000z.",sM_OriHam, "Cancel",M_Menu;
+
+ sM_Furn:
+ mes "[Christopher Guillenrow]";
+ mes "This is a prerequisite for Metal refining!!";
+ mes "So, how many do ye wish to buy? If you want to quit, please input the number '0'. However, you the maximum amount you can buy is 1000";
+ set @input, 0;
+ input @input;
+ next;
+ if(@input < 1 ) goto sM_Menu1;
+ if(@input > 1000 ) goto sM_Max;
+ if(Zeny < 150 * @input) goto L_NoZeny;
+ set Zeny, Zeny - (150 * @input);
+ getitem 612, @input;
+ goto L_Thanks;
+ sM_IrHam:
+ if(Zeny < 1000) goto L_NoZeny;
+ set Zeny, Zeny - 1000;
+ getitem 613,1;
+ goto L_Thanks;
+ sM_GldHam:
+ if(Zeny < 3000) goto L_NoZeny;
+ set Zeny, Zeny - 3000;
+ getitem 614,1;
+ goto L_Thanks;
+ sM_OriHam:
+ if(Zeny < 5000) goto L_NoZeny;
+ set Zeny, Zeny - 5000;
+ getitem 615,1;
+ goto L_Thanks;
+ sM_Max:
+ mes "[Christopher Guillenrow]";
+ mes "Sorry, you can't buy more than 1000 furnace at a time.";
+ close;
+
+ M_2:
+ mes "[Christopher Guillenrow]";
+ mes "I have 2 kinds of metals for sale. Which do ye like?";
+ set @chris, 1;
+ set @name$, "Christopher Guillenrow";
+ callfunc "phramain";
+
+ M_3:
+ mes "[Christopher Guillenrow]";
+ mes "I can purify yer rough Oridecon and rough Elunium ores. I'll need 5 rough ores to make 1 pure one.";
+ mes "Well... which one do ye want ta make?";
+ set @chris, 1;
+ set @name$, "Christopher Guillenrow";
+ callfunc "orimain";
+
+ M_End:
+ close;
+
+ L_NoZeny:
+ mes "[Christopher Guillenrow]";
+ mes "I don't think I can let ye have this at a lower price. I can't afford ta loose profits because of ye.";
+ emotion 4;
+ close;
+
+ L_Thanks:
+ mes "[Christopher Guillenrow]";
+ mes "Thank you for shopping at my workshop. Feel free to come anytime whenever you need.";
+ emotion 15;
+ close;
+}
+
+ein_in01,38,29,6 duplicate(Chris) Christopher#2 63
+
+//=====================================================================================
+// Weapon/Armor Refiners
+//=====================================================================================
+prt_in.gat,63,60,4 script Hollengrhen 85,{
+ set @name$,"Hollengrhen";
+ callfunc "refinemain";
+ end;
+}
+morocc_in.gat,73,38,4 script Aragham 99,{
+ set @name$,"Aragham";
+ callfunc "refinemain";
+ end;
+}
+payon.gat,144,173,4 script Antonio 88,{
+ set @name$,"Antonio";
+ callfunc "refinemain";
+ end;
+}
+alberta_in.gat,28,58,4 script Fredrik 85,{
+ set @name$,"Fredrik";
+ callfunc "refinemain";
+ end;
+}
+yuno_in01.gat,164,26,6 script Disturb 88,{
+ set @name$,"Disturb";
+ callfunc "refinemain";
+ end;
+}
+ein_in01.gat,24,87,6 script Katamo 826,{
+ set @name$,"Katamo";
+ callfunc "refinemain";
+ end;
+}
+lhz_in02.gat,282,20,7 script Marc 869,{
+ set @name$,"Marc";
+ callfunc "refinemain";
+ end;
+}
+
+//============================================================
+//= Main Refiner Function
+//============================================================
+//= To allow auto safe refining/multiple refining set the
+//= @features variable to 1
+//============================================================
+function script refinemain {
+ set @features,0;
+
+ mes "[" + @name$ + "]";
+ mes "I am the Armsmith... I can refine any weapon or piece of armor you choose!";
+ mes "Which piece of equipment do you want to refine?";
+ M_Menu:
+ next;
+ menu getequipname(1),PART1,getequipname(2),PART2,getequipname(3),PART3,getequipname(4),PART4,getequipname(5),PART5,
+ getequipname(6),PART6,getequipname(7),PART7,getequipname(8),PART8,getequipname(9),PART9,getequipname(10),PART10;
+
+ //Head Gear
+ PART1:
+ set @part,1;
+ if (getequipisequiped(1)) goto CHECK1;
+ mes "[" + @name$ + "]";
+ mes "Do you want me to refine your dumb brain?";
+ emotion 6;
+ goto M_Menu;
+ //Armor
+ PART2:
+ set @part,2;
+ if (getequipisequiped(2)) goto CHECK1;
+ mes "[" + @name$ + "]";
+ mes "Do you want me to melt your body with blazing heat...?";
+ emotion 6;
+ goto M_Menu;
+ //Left Hand
+ PART3:
+ set @part,3;
+ if (getequipisequiped(3)) goto CHECK1;
+ mes "[" + @name$ + "]";
+ mes "I can't make your left hand into an ultimate weapon...";
+ emotion 4;
+ goto M_Menu;
+ //Right Hand
+ PART4:
+ set @part,4;
+ if (getequipisequiped(4)) goto CHECK1;
+ mes "[" + @name$ + "]";
+ mes "I can't make your right hand into an ultimate weapon...";
+ emotion 4;
+ goto M_Menu;
+ //Garment
+ PART5:
+ set @part,5;
+ if (getequipisequiped(5)) goto CHECK1;
+ mes "[" + @name$ + "]";
+ mes "Look here... you don't have any Garments on...";
+ goto M_Menu;
+ //Foot Gear
+ PART6:
+ set @part,6;
+ if (getequipisequiped(6)) goto CHECK1;
+ mes "[" + @name$ + "]";
+ mes "Ack!! Those are some stinky feet. I definitely can't refine those... uck!!";
+ emotion 16;
+ goto M_Menu;
+ //Accessory1
+ PART7:
+ set @part,7;
+ if (getequipisequiped(7)) goto CHECK1;
+ mes "[" + @name$ + "]";
+ mes "What do you mean by Accessory? Which One?";
+ emotion 20;
+ goto M_Menu;
+ //Accessory2
+ PART8:
+ set @part,8;
+ if (getequipisequiped(8)) goto CHECK1;
+ mes "[" + @name$ + "]";
+ mes "What do you mean by Accessory? Which One?";
+ emotion 20;
+ goto M_Menu;
+ PART9:
+ set @part,9;
+ if (getequipisequiped(9)) goto CHECK1;
+ mes "[" + @name$ + "]";
+ mes "What do you want from me? There's nothing equipped there...";
+ emotion 20;
+ goto M_Menu;
+ PART10:
+ set @part,10;
+ if (getequipisequiped(10)) goto CHECK1;
+ mes "[" + @name$ + "]";
+ mes "What do you want from me? There's nothing equipped there...";
+ emotion 20;
+ goto M_Menu;
+
+//Check if the item is refinable...
+CHECK1:
+ if(getequipisenableref(@part)) goto CHECK2;
+ mes "[" + @name$ + "]";
+ mes "I can't work on this item...";
+ close;
+
+//Check if the item is identified... (Don't know why this is in here... but kept it anyway)
+CHECK2:
+ if(getequipisidentify(@part)) goto CHECK3;
+ mes "[" + @name$ + "]";
+ mes "You must appraise this item first.";
+ close;
+
+//Check to see if the items is already +10
+CHECK3:
+ if(getequiprefinerycnt(@part) < 10) goto REFINE0;
+ mes "[" + @name$ + "]";
+ mes "This weapon is already at its maximum level and can no longer be refined.";
+ close;
+
+//Refine Armor
+REFINE0:
+ set @refineitemid, getequipid(@part); // save id of the item
+ set @refinerycnt, getequiprefinerycnt(@part); //save refinery count
+ if(getequipweaponlv(@part) > 0) goto REFINE1;
+ set @matname$,"Elunium";
+ set @material,985;
+ set @price,2000;
+ set @safe,4;
+ if(@features == 1) goto L_refinefeatures;
+ goto L_refinenormal;
+//Refine Level 1 Weapon
+REFINE1:
+ if(getequipweaponlv(@part) > 1) goto REFINE2;
+ set @matname$,"Phracon";
+ set @material,1010;
+ set @price,50;
+ set @safe,7;
+ if(@features == 1) goto L_refinefeatures;
+ goto L_refinenormal;
+//Refine Level 2 Weapon
+REFINE2:
+ if(getequipweaponlv(@part) > 2) goto REFINE3;
+ set @matname$,"Emveretarcon";
+ set @material,1011;
+ set @price,200;
+ set @safe,6;
+ if(@features == 1) goto L_refinefeatures;
+ goto L_refinenormal;
+//Refine Level 3 Weapon
+REFINE3:
+ if(getequipweaponlv(@part) > 3) goto REFINE4;
+ set @matname$,"Oridecon";
+ set @material,984;
+ set @price,5000;
+ set @safe,5;
+ if(@features == 1) goto L_refinefeatures;
+ goto L_refinenormal;
+//Refine Level 4 Weapon
+REFINE4:
+ set @matname$,"Oridecon";
+ set @material,984;
+ set @price,20000;
+ set @safe,4;
+ if(@features == 1) goto L_refinefeatures;
+ goto L_refinenormal;
+
+L_refinenormal:
+ mes "[" + @name$ + "]";
+ mes "To refine this stuff, I need ^ff9999" + @matname$ + "^000000 and the fee " + @price + " Zeny.";
+ mes "Continue?";
+ next;
+ menu "Yes",-,"No",Lcancel;
+
+ if (getequippercentrefinery(@part) == 100) goto L_Sub;
+ mes "[" + @name$ + "]";
+ mes "Hmm... Hold on! This piece of equipment has already been refined to its maximum safety level.";
+ mes "I must warn you if it is refined ANYMORE, It could be DESTROYED and become USELESS!!";
+ next;
+ mes "["+@name$+"]";
+ mes "Do you still wish you refine it? If so I will not be able to guarantee my work...";
+ next;
+ menu "Yes",-,"No",Lcancel1;
+
+ L_Sub:
+ if ((countitem(@material) < 1) || (Zeny < @price)) goto Lcancel2;
+ delitem @material,1;
+ set Zeny,Zeny-@price;
+
+Lrefine:
+ if (getequipisequiped(@part) == 0) goto LNoItem; // hacker has removed the item (not changed, why?)
+ if (getequipid(@part) != @refineitemid) goto LNoFake; // hacker has changed the item
+ if (getequiprefinerycnt(@part) != @refinerycnt) goto LNoFake; // hacker has changed the item
+ if (getequippercentrefinery(@part) <= rand(100)) goto Lfail;
+ mes "["+@name$+"]";
+ mes "Clang! Clang! Clang!";
+ successrefitem @part;
+ next;
+ mes "["+@name$+"]";
+ mes "HAHA! It seems my skills haven't gotten rusty yet! Splendid... just splendid...";
+ emotion 21;
+ close;
+
+Lfail:
+ mes "[" + @name$ + "]";
+ mes "Clang! Clang! Clang!";
+ failedrefitem @part;
+ next;
+ mes "["+@name$+"]";
+ mes "Aaahhh!! Oh no...!!";
+ emotion 16;
+ next;
+ mes "["+@name$+"]";
+ mes "Eh..Ehem... I'm sorry but the refining process ^ff0000failed^000000.";
+ next;
+ mes "["+@name$+"]";
+ mes "I am deeply ashamed of what I've done... but I DID warn you earlier about the risks.";
+ close;
+
+LNoItem:
+ mes "[" + @name$ + "]";
+ mes "Look here... you don't have any Items on...";
+ close;
+
+LNoFake:
+ mes "[" + @name$ + "]";
+ mes "Clan... No, but Did you imagine I could be so stupid !?!";
+ mes "You have changed it...";
+ mes "Go out before I stun you with my Hammer!!!";
+ close;
+
+Lcancel:
+ mes "[" + @name$ + "]";
+ mes "You said so..Hmm so be it...";
+ close;
+
+Lcancel1:
+ mes "[" + @name$ + "]";
+ mes "Good Choice.";
+ mes "Ah... good choice. I'd feel awful if I'd destroyed another persons piece of equipment with my own hands.";
+ close;
+
+Lcancel2:
+ mes "[" + @name$ + "]";
+ mes "Is that all you got? Unfortunately I can't work for you at a lower price. Try putting yourself in my shoes.";
+ close;
+
+// New Refining Functions ========================
+L_refinefeatures:
+ if(getequiprefinerycnt(@part) >= @safe) goto Lnosafe;
+ mes "[" + @name$ + "]";
+ mes "I can refine this to the safe limit or a desired number of times... it's your choice...";
+ next;
+ menu "To the safe limit please.",Lsafe,"I'll decide how many times.",Lnosafe,"I've changed my mind...",Lcancel;
+
+Lsafe:
+ set @refinecnt,@safe - getequiprefinerycnt(@part);
+ set @fullprice,@price * @refinecnt;
+ mes "[" + @name$ + "]";
+ mes "That will cost you " + @refinecnt + " " + @matname$ + " and " + @fullprice + " Zeny. Is that ok?";
+ next;
+ menu "Yes",-,"No...",Lcancel;
+ if((countitem(@material) < @refinecnt) || (Zeny < @fullprice)) goto Lcancel2;
+ delitem @material,@refinecnt;
+ set Zeny,Zeny - @fullprice;
+ goto L_refinesafe;
+
+Lnosafe:
+ mes "[" + @name$ + "]";
+ mes "So how many times would you like me to refine your item?";
+ next;
+ input @refinecnt;
+ if (@refinecnt<1) goto Lcancel3; //fixed by Lupus
+ set @refinecheck,@refinecnt + getequiprefinerycnt(@part);
+ if(@refinecheck > 10) goto Lcancel3;
+ set @fullprice,@price * @refinecnt;
+ mes "[" + @name$ + "]";
+ mes "This will cost you " + @refinecnt + " " + @matname$ + " and " + @price + " Zeny... Is that ok?";
+ next;
+ menu "Yes...",-,"No...",Lcancel;
+ if(@refinecheck > @safe) goto Lwarn;
+ if((countitem(@material) < @refinecnt) || (Zeny < @fullprice)) goto Lcancel2;
+ delitem @material,@refinecnt;
+ set Zeny,Zeny - @fullprice;
+ goto L_refinenumber;
+ end;
+
+ Lwarn:
+ set @refinecheck,@refinecheck - @safe;
+ mes "[" + @name$ + "]";
+ mes "This will try to refine the equipment " + @refinecheck + " times past the safe limit. Your equipment may be destroyed... is that ok?";
+ next;
+ menu "Yes",-,"No...",Lcancel1;
+ if((countitem(@material) < @refinecnt) || (Zeny < @fullprice)) goto Lcancel2;
+ delitem @material,@refinecnt;
+ set Zeny,Zeny - @fullprice;
+ goto L_refinenumber;
+
+Lcancel3:
+ mes "[" + @name$ + "]";
+ mes "I can't refine this item that many times.";
+ close;
+
+// SubFunction: Safe Refine ---------------------
+L_refinesafe:
+ if (getequipisequiped(@part) == 0) goto LNoItem; // hacker has removed the item (no changed, why?)
+ if (getequipid(@part) != @refineitemid) goto LNoFake; // hacker has changed the item
+ if (getequippercentrefinery(@part) < 100) goto LNoFake; // hacker has changed the item (it is not safe anymore)
+ mes "Clang, clang!!!";
+ successrefitem @part;
+ emotion 21;
+ set @refinecnt,@refinecnt - 1;
+ next;
+ if(@refinecnt == 0) goto Lend;
+ goto L_refinesafe;
+
+ Lend:
+ mes "[" + @name$ + "]";
+ mes "All finished... Come again soon.";
+ close;
+
+// SubFunction: Refine
+L_refinenumber:
+ mes "Clang, clang!!!";
+ if (getequippercentrefinery(@part)<=rand(100)) goto Lfail_number;
+ successrefitem @part;
+ emotion 21;
+ set @refinecnt,@refinecnt - 1;
+ next;
+ if(@refinecnt == 0) goto Lend;
+ goto L_refinenumber;
+
+ Lfail_number:
+ failedrefitem @part;
+ emotion 23;
+ mes "[" + @name$ + "]";
+ mes "WAHHHH!!! I'm so sorry... I warned you this could happen...";
+ set @refinecnt,@refinecnt - 1;
+ if(@refinecnt == 0) goto Lend2;
+ mes "Here's the unused Zeny and Material back...";
+ getitem @material,@refinecnt;
+ set @fullprice,@refinecnt * @price;
+ set Zeny,Zeny + @fullprice;
+
+ Lend2:
+ close;
+}
+
+
+
+//==============================================================================
+// Material Salesmen
+//==============================================================================
+prt_in.gat,56,69,4 script Vurewell 86,{
+ set @name$,"Vurewell";
+ callfunc "phramain";
+ end;
+}
+payon.gat,145,178,4 script Begnahd 88,{
+ set @name$,"Begnahd";
+ callfunc "phramain";
+ end;
+}
+morocc_in.gat,65,37,4 script Sade 99,{
+ set @name$,"Sade";
+ callfunc "phramain";
+ end;
+}
+alberta_in.gat,18,59,5 script Kahlamanlith 86,{
+ set @name$,"Kahlamanlith";
+ callfunc "phramain";
+ end;
+}
+yuno_in01.gat,171,26,6 script Dillemat 88,{
+ set @name$,"Dillemat";
+ callfunc "phramain";
+ end;
+}
+ein_in01.gat,15,87,7 script Gorly 86,{
+ set @name$,"Gorly";
+ callfunc "phramain";
+ end;
+}
+lhz_in02.gat,278,24,3 script Kato 86,{
+ set @name$,"Kato";
+ callfunc "phramain";
+ end;
+}
+
+//============================================================
+//= Material Salesmen Functions
+//============================================================
+function script phramain {
+ if(@chris == 1) goto M_Menu;
+ mes "[" + @name$ + "]";
+ mes "Hello, Im selling metals I just mined.";
+ mes "They are Pharacon and Emvertacon.";
+ mes "Would you like to buy some?";
+ M_Menu:
+ set @chris, 0;
+ next;
+ menu"Pharacon - 200z",PHARA,"Emvertacon - 1000z",EMVER;
+
+ PHARA:
+ set @itemid,1010;
+ set @value,200;
+ goto CONTINUE;
+
+ EMVER:
+ set @itemid,1011;
+ set @value,1000;
+
+CONTINUE:
+ mes "[" + @name$ + "]";
+ mes "How many would you like?";
+ next;
+ input @ammount;
+ if (@ammount <= 0) goto L_BELOW;
+ if (@ammount > 999) goto L_ABOVE;
+ if (zeny < @value * @ammount) goto L_NOZENY;
+ if (checkweight(@itemid,@ammount) == 0) goto L_WEIGHT;
+ getitem @itemid,@ammount;
+ set Zeny,Zeny-@value*@ammount;
+ mes "[" + @name$ + "]";
+ mes "Here you go.";
+ close;
+
+L_NOZENY:
+ mes "You do not have enough zeny!";
+ close;
+L_WEIGHT:
+ mes "You cant hold that many of that item";
+ close;
+L_BELOW:
+ mes "You have to buy a POSITIVE amount of items!";
+ close;
+L_ABOVE:
+ mes "You cant buy this much of this item!";
+ close;
+}
+
+
+
+//==============================================================================
+// Ori/Elu Refiners
+//==============================================================================
+prt_in.gat,63,69,4 script Dietrich 84,{
+ set @name$,"Dietrich";
+ callfunc "orimain";
+ end;
+}
+payon.gat,137,178,4 script Hakhim 88,{
+ set @name$,"Hakhim";
+ callfunc "orimain";
+ end;
+}
+morocc_in.gat,72,32,4 script Abdul 99,{
+ set @name$,"Abdul";
+ callfunc "orimain";
+ end;
+}
+alberta_in.gat,21,63,5 script Xenophon 84,{
+ set @name$,"Xenophon";
+ callfunc "orimain";
+ end;
+}
+yuno_in01.gat,171,22,6 script Delayt 88,{
+ set @name$,"Delayt";
+ callfunc "orimain";
+ end;
+}
+ein_in01.gat,18,82,6 script Dati 84,{
+ set @name$,"Dati";
+ callfunc "orimain";
+ end;
+}
+lhz_in02.gat,281,24,5 script Gadamari 84,{
+ set @name$,"Gadamari";
+ callfunc "orimain";
+ end;
+}
+
+//============================================================
+//= Ori/Elu Functions
+//============================================================
+function script orimain {
+ if(@chris == 1) goto M_Menu;
+ mes "[" + @name$ + "]";
+ mes "If you bring Rough Oridecons and";
+ mes "Rough Eluniums to me,";
+ mes "I can refine them for you.";
+ mes "However, you must bring 5 of each.";
+ M_Menu:
+ set @chris, 0;
+ next;
+ menu "Make Oridecon",M_Ori, "Make Elunium",M_Elu, "Ask about enchanted stones",M_Stones;
+
+ M_Ori:
+ if(countitem(756) < 5) goto L_NoOri;
+ delitem 756,5;
+ getitem 984,1;
+ mes "[" + @name$ + "]";
+ mes "As promised, here's your oridecon.";
+ mes "Come back again anytime.";
+ close;
+
+ L_NoOri:
+ mes "[" + @name$ + "]";
+ mes "Huh? You're kidding, right? Didn't I say I can't make you an Oridecon unless you bring me 5 rough ones?";
+ close;
+ M_Elu:
+ if(countitem(757) < 5) goto L_NoElu;
+ delitem 757,5;
+ getitem 985,1;
+ mes "[" + @name$ + "]";
+ mes "As promised, here's your elunium.";
+ mes "Come back again anytime.";
+ close;
+
+ L_NoElu:
+ mes "[" + @name$ + "]";
+ mes "Huh? You're kidding, right? Didn't I say I can't make you an Elunium unless you bring me 5 rough ones?";
+ close;
+ M_Stones:
+ mes "[" + @name$ + "]";
+ mes "Enchanted stones, huh...";
+ next;
+ mes "[" + @name$ + "]";
+ mes "Well, in the 20 years that I've been a stone smith I've heard of them many times... though I've never actually seen them before.";
+ next;
+ mes "[" + @name$ + "]";
+ mes "I've been told that enchanted stones possess different elemental properties such as ^5533FFWater, Earth, Fire, and Wind^000000.";
+ next;
+ mes "[" + @name$ + "]";
+ mes "If someone combines an Enchanted Stone with a weapon during the refining process, that weapon will possess the same property as the stone.";
+ next;
+ mes "[" + @name$ + "]";
+ mes "Of course, that person needs to be skillful enough to work on it.";
+ goto M_Menu;
+}
+
+
+
+//=====================================================================================
+// Equipment Repairmen
+//=====================================================================================
+prt_in.gat,62,54,2 script Grendal 84,{
+ set @name$,"Grendal";
+ callfunc "repairmain";
+ end;
+}
+//Temp Spot, Not Sure Where To place
+payon.gat,149,182,2 script Repairman 88,{
+ set @name$,"Repairman";
+ callfunc "repairmain";
+ end;
+}
+morocc_in.gat,71,40,2 script Repairman 99,{
+ set @name$,"Repairman";
+ callfunc "repairmain";
+ end;
+}
+lhz_in02.gat,284,14,3 script Repairman 86,{
+ set @name$,"Repairman";
+ callfunc "repairmain";
+ end;
+}
+
+//============================================================
+//= Equipment Repair Function
+//============================================================
+function script repairmain {
+ set @repairprice,5000;
+ mes "[" + @name$ + "]";
+ mes "I am the Repair Smith and I can repair any Arms you want.";
+ mes "Tell me which Equipment you want to repair.";
+ set @broken1,getbrokenid(1);
+ set @broken2,getbrokenid(2);
+ set @broken3,getbrokenid(3);
+ set @broken4,getbrokenid(4);
+ set @broken5,getbrokenid(5);
+ set @broken6,getbrokenid(6);
+ set @broken7,getbrokenid(7);
+ set @broken8,getbrokenid(8);
+ set @broken9,getbrokenid(9);
+ set @broken10,getbrokenid(10);
+ next;
+ if(@broken1==NULL) goto L_CANCEL_3;
+ menu getitemname(@broken1),REPAIR1,getitemname(@broken2),REPAIR2,getitemname(@broken3),REPAIR3,
+ getitemname(@broken4),REPAIR4,getitemname(@broken5),REPAIR5,getitemname(@broken6),REPAIR6,
+ getitemname(@broken7),REPAIR7,getitemname(@broken8),REPAIR8,getitemname(@broken9),REPAIR9,
+ getitemname(@broken10),REPAIR10;
+ REPAIR1:
+ mes "[" + @name$ + "]";
+ mes "You're gonna repair " + getitemname(@broken1) + ".";
+ mes "To repair this, I need ^ff9999One Steel^000000, and " + @repairprice + " Zeny.";
+ mes "Continue?";
+ next;
+ menu "Yes",-,"No",L_CANCEL_2;
+ if (countitem(999) < 1 || Zeny < @repairprice) goto L_CANCEL_1;
+ delitem 999,1;
+ set Zeny,Zeny-@repairprice;
+ repair(1);
+ goto L_CLOSE;
+ REPAIR2:
+ mes "[" + @name$ + "]";
+ mes "You're gonna repair " + getitemname(@broken1) + ".";
+ mes "To repair this, I need ^ff9999One Steel^000000, and " + @repairprice + " Zeny.";
+ mes "Continue?";
+ next;
+ menu "Yes",-,"No",L_CANCEL_2;
+ if (countitem(999) < 1 || Zeny < @repairprice) goto L_CANCEL_1;
+ delitem 999,1;
+ set Zeny,Zeny-@repairprice;
+ repair(2);
+ goto L_CLOSE;
+ REPAIR3:
+ mes "[" + @name$ + "]";
+ mes "You're gonna repair " + getitemname(@broken1) + ".";
+ mes "To repair this, I need ^ff9999One Steel^000000, and " + @repairprice + " Zeny.";
+ mes "Continue?";
+ next;
+ menu "Yes",-,"No",L_CANCEL_2;
+ if (countitem(999) < 1 || Zeny < @repairprice) goto L_CANCEL_1;
+ delitem 999,1;
+ set Zeny,Zeny-@repairprice;
+ repair(3);
+ goto L_CLOSE;
+ REPAIR4:
+ mes "[" + @name$ + "]";
+ mes "You're gonna repair " + getitemname(@broken1) + ".";
+ mes "To repair this, I need ^ff9999One Steel^000000, and " + @repairprice + " Zeny.";
+ mes "Continue?";
+ next;
+ menu "Yes",-,"No",L_CANCEL_2;
+ if (countitem(999) < 1 || Zeny < @repairprice) goto L_CANCEL_1;
+ delitem 999,1;
+ set Zeny,Zeny-@repairprice;
+ repair(4);
+ goto L_CLOSE;
+ REPAIR5:
+ mes "[" + @name$ + "]";
+ mes "You're gonna repair " + getitemname(@broken1) + ".";
+ mes "To repair this, I need ^ff9999One Steel^000000, and " + @repairprice + " Zeny.";
+ mes "Continue?";
+ next;
+ menu "Yes",-,"No",L_CANCEL_2;
+ if (countitem(999) < 1 || Zeny < @repairprice) goto L_CANCEL_1;
+ delitem 999,1;
+ set Zeny,Zeny-@repairprice;
+ repair(5);
+ goto L_CLOSE;
+ REPAIR6:
+ mes "[" + @name$ + "]";
+ mes "You're gonna repair " + getitemname(@broken1) + ".";
+ mes "To repair this, I need ^ff9999One Steel^000000, and " + @repairprice + " Zeny.";
+ mes "Continue?";
+ next;
+ menu "Yes",-,"No",L_CANCEL_2;
+ if (countitem(999) < 1 || Zeny < @repairprice) goto L_CANCEL_1;
+ delitem 999,1;
+ set Zeny,Zeny-@repairprice;
+ repair(6);
+ goto L_CLOSE;
+ REPAIR7:
+ mes "[" + @name$ + "]";
+ mes "You're gonna repair " + getitemname(@broken1) + ".";
+ mes "To repair this, I need ^ff9999One Steel^000000, and " + @repairprice + " Zeny.";
+ mes "Continue?";
+ next;
+ menu "Yes",-,"No",L_CANCEL_2;
+ if (countitem(999) < 1 || Zeny < @repairprice) goto L_CANCEL_1;
+ delitem 999,1;
+ set Zeny,Zeny-@repairprice;
+ repair(7);
+ goto L_CLOSE;
+ REPAIR8:
+ mes "[" + @name$ + "]";
+ mes "You're gonna repair " + getitemname(@broken1) + ".";
+ mes "To repair this, I need ^ff9999One Steel^000000, and " + @repairprice + " Zeny.";
+ mes "Continue?";
+ next;
+ menu "Yes",-,"No",L_CANCEL_2;
+ if (countitem(999) < 1 || Zeny < @repairprice) goto L_CANCEL_1;
+ delitem 999,1;
+ set Zeny,Zeny-@repairprice;
+ repair(8);
+ goto L_CLOSE;
+ REPAIR9:
+ mes "[" + @name$ + "]";
+ mes "You're gonna repair " + getitemname(@broken1) + ".";
+ mes "To repair this, I need ^ff9999One Steel^000000, and " + @repairprice + " Zeny.";
+ mes "Continue?";
+ next;
+ menu "Yes",-,"No",L_CANCEL_2;
+ if (countitem(999) < 1 || Zeny < @repairprice) goto L_CANCEL_1;
+ delitem 999,1;
+ set Zeny,Zeny-@repairprice;
+ repair(9);
+ goto L_CLOSE;
+ REPAIR10:
+ mes "[" + @name$ + "]";
+ mes "You're gonna repair " + getitemname(@broken1) + ".";
+ mes "To repair this, I need ^ff9999One Steel^000000, and " + @repairprice + " Zeny.";
+ mes "Continue?";
+ next;
+ menu "Yes",-,"No",L_CANCEL_2;
+ if (countitem(999) < 1 || Zeny < @repairprice) goto L_CANCEL_1;
+ delitem 999,1;
+ set Zeny,Zeny-@repairprice;
+ repair(10);
+ goto L_CLOSE;
+
+L_CANCEL_1:
+ mes "[" + @name$ + "]";
+ mes "Is it all you got?";
+ mes "Unfortunately, I have kids to feed...";
+ goto L_CLOSE;
+L_CANCEL_2:
+ mes "[" + @name$ + "]";
+ mes "Ok, but don't expect to be using that...";
+ goto L_CLOSE;
+L_CANCEL_3:
+ mes "[" + @name$ + "]";
+ mes "Looks like you don't need anything repaired today...";
+ goto L_CLOSE;
+L_CLOSE:
+ close;
+}
diff --git a/npc/merchants/renters.txt b/npc/merchants/renters.txt new file mode 100644 index 000000000..8e1de29d2 --- /dev/null +++ b/npc/merchants/renters.txt @@ -0,0 +1,182 @@ +//===== eAthena Script =======================================
+//= Renters
+//===== By: ==================================================
+//= kobra_k88, mod by Lupus
+//===== Current Version: =====================================
+//= 1.6
+//===== Compatible With: =====================================
+//= eAthena 7.15 +
+//===== Description: =========================================
+//= PecoPeco Breeder, Grand PecoPeco Breeder, Falcon tamer scripts
+//===== Additional Comments: =================================
+//= Fully working
+//= Added another Falcon Master into the Hunters Guild [Lupus]
+//= 1.2: replaced checkoption(x) with checkriding,checkfalcon [Lupus]
+//= 1.3: Added support Adv Classes + Baby Class [Lupus]
+//= 1.4: Added different prices for normal, advanced and baby classes
+//= but you could set them to the same [Lupus]
+//= 1.5: Fixed spelling mistakes [Nexon]
+//= 1.5a: Small fix (Falcon Taming -> Falcon Mastery) [Komurka]
+//= 1.6: Moved the Falcon Master to Hugel [Poki#3]
+//============================================================
+
+// PecoPeco Breeder (for Knights)-------------------------------------------
+prontera.gat,61,338,3 script PecoPeco Breeder 86,{
+ if(Upper==0) set @price,2500; //Normal Peco - default price
+ if(Upper==1) set @price,4000; //Armored Peco
+ if(Upper==2) set @price,2000; //Baby Peco
+
+ mes "[PecoPeco Breeder]";
+ if(BaseJob == Job_Knight || BaseJob == Job_Knight2 ) goto L_Start;
+ if(Upper==0)mes "I'm a PecoPeco breeder and I rent out PecoPecos for ^4444FF Knights ^000000 to ride on.";
+ if(Upper==1)mes "I'm a PecoPeco breeder and I rent out Armored PecoPecos for ^4444FF Lord Knights ^000000 to ride on.";
+ if(Upper==2)mes "I'm a PecoPeco breeder and I rent out Baby PecoPecos for ^4444FF Baby Knights ^000000 to ride on.";
+ close;
+
+L_Start:
+ if(Upper==0)mes "Good day. Would you like to ride a PecoPeco?";
+ if(Upper==1)mes "Good day. Would you like to ride an Armored PecoPeco?";
+ if(Upper==2)mes "Good day. Would you like to ride a Baby PecoPeco?";
+ next;
+ mes "[PecoPeco Breeder]";
+ mes "You can rent one PecoPeco for "+@price+" Zeny, provided that you have the PecoPeco Riding skill.";
+ next;
+ menu "Lend me a trusty steed!... err... bird!",M_0,"Hmm...It's a bit too expensive.",M_1;
+
+ M_0:
+ if(getskilllv(63) == 0) goto sL_NeedSkill;
+ if(Zeny < @price) goto sL_Zeny;
+ if(checkriding(0) != 0) goto sL_GotPeco;
+ set Zeny, Zeny - @price;
+ setriding;
+ mes "Thank you and good day.";
+ emotion 15;
+ close;
+
+ sL_NeedSkill:
+ mes "[PecoPeco Breeder]";
+ mes "As I mentioned earlier, you need the ^3333FFRiding^000000 skill in order to rent a PecoPeco.";
+ close;
+ sL_Zeny:
+ mes "[PecoPeco Breeder]";
+ mes "As I said before it will be "+@price+"z. Come back when you have enough zeny.";
+ close;
+ sL_GotPeco:
+ mes "[PecoPeco Breeder]";
+ mes "Umm... aren't you already riding a PecoPeco??....";
+ emotion 20;
+ close;
+ M_1:
+ mes "[PecoPeco Breeder]";
+ mes "Alright. Good day to you.";
+ close;
+
+}
+
+// Grand PecoPeco Breeder (for Crusaders)-------------------------------------------
+prontera.gat,238,312,5 script Grand PecoPeco Breeder 86,{
+ if(Upper==0) set @price,3000; //Normal Peco - default price
+ if(Upper==1) set @price,5000; //Armored Peco
+ if(Upper==2) set @price,2500; //Baby Peco
+
+ mes "[Grand PecoPeco Breeder]";
+ if(BaseJob == Job_Crusader || BaseJob == Job_Crusader2 ) goto L_Start;
+ if(Upper==0)mes "I'm a Grand PecoPeco breeder and I rent out Grand PecoPecos for ^4444FF Crusaders^000000 to ride on.";
+ if(Upper==1)mes "I'm a Grand PecoPeco breeder and I rent out Armored Grand PecoPecos for ^4444FF Paladins^000000 to ride on.";
+ if(Upper==2)mes "I'm a Grand PecoPeco breeder and I rent out Baby Grand PecoPecos for ^4444FF Baby Crusaders^000000 to ride on.";
+ close;
+
+L_Start:
+ if(Upper==0)mes "Good day. Would you like to ride a Grand PecoPeco?";
+ if(Upper==1)mes "Good day. Would you like to ride an Armored Grand PecoPeco?";
+ if(Upper==2)mes "Good day. Would you like to ride a Baby Grand PecoPeco?";
+ next;
+ mes "[Grand PecoPeco Breeder]";
+ mes "You can rent one Grand PecoPeco for "+@price+" Zeny, provided that you have the PecoPeco Riding skill.";
+ next;
+ menu "Lend me a trusty steed!... err... bird!",M_0,"Hmm...It's a bit too expensive.",M_1;
+
+ M_0:
+ if(getskilllv(63) == 0) goto sL_NeedSkill;
+ if(Zeny < @price) goto sL_Zeny;
+ if(checkriding(0) != 0) goto sL_GotPeco;
+ set Zeny, Zeny - @price;
+ setriding;
+ mes "Thank you and good day.";
+ emotion 15;
+ close;
+
+ sL_NeedSkill:
+ mes "[Grand PecoPeco Breeder]";
+ mes "As I mentioned earlier, you need the ^3333FFRiding^000000 skill in order to rent a Grand PecoPeco.";
+ close;
+ sL_Zeny:
+ mes "[Grand PecoPeco Breeder]";
+ mes "As I said before it will be "+@price+"z. Come back when you have enough zeny.";
+ close;
+ sL_GotPeco:
+ mes "[Grand PecoPeco Breeder]";
+ mes "Umm... aren't you already riding a Grand PecoPeco??....";
+ emotion 20;
+ close;
+ M_1:
+ mes "[Grand PecoPeco Breeder]";
+ mes "Alright. Good day to you.";
+ close;
+
+}
+
+// Falcon Master--------------------------------------------------------------
+hu_in01.gat,375,318,5 script Falcon Master 59,{
+ if(Upper==0) set @price,800; //Normal Falcon - default price
+ if(Upper==1) set @price,1000; //Scarf Falcon
+ if(Upper==2) set @price,600; //Baby Falcon
+
+ mes "[Falcon Master]";
+ mes "Hellooooo, I am the Falcon Master.";
+ next;
+ menu "Speak with him",M_0, "Politely back away",M_End;
+
+ M_0:
+ mes "[Falcon Master]";
+ if(Upper==0)mes "I can train a Falcon for you, but you need "+@prize+"z and be a Hunter with mastered ^5555FF'Falcon Mastery'^000000 skill.";
+ if(Upper==1)mes "I can train a Scarf Falcon for you, but you need "+@prize+"z and be a Sniper with mastered ^5555FF'Falcon Mastery'^000000 skill.";
+ if(Upper==2)mes "I can train a Baby Falcon for you, but you need "+@prize+"z and be a Baby Hunter with mastered ^5555FF'Falcon Mastery'^000000 skill.";
+ next;
+ menu "Ok",sM_0, "No thanks",M_End;
+
+ sM_0:
+ if(BaseJob != Job_Hunter) goto sL_NotHunter;
+ if(checkfalcon(0) != 0) goto sL_GotFalc;
+ if(Zeny < @price) goto sL_Zeny;
+ if(getskilllv(127)==0) goto sL_NoSkill;
+ set Zeny, Zeny - @price;
+ mes "[Falcon Master]";
+ mes "It looks like you meet all the requirements to handle a Falcon. Here you are";
+ setfalcon;
+ next;
+ mes "[Falcon Master]";
+ mes "Please take very good care of it. It will prove to be a valuable companion.";
+ close;
+
+ sL_NotHunter:
+ mes "[Falcon Master]";
+ mes "As I said, Falcons can only be given to Hunters. Falcons are very picky about who they travel with you know.";
+ close;
+ sL_GotFalc:
+ mes "[Falcon Master]";
+ mes "You can only have 1 Falcon at a time.";
+ close;
+ sL_NoSkill:
+ mes "[Falcon Master]";
+ mes "I'm sorry but you do not have the Falcon Mastery skill. Please come back when you have learned it.";
+ close;
+ sL_Zeny:
+ mes "[Falcon Master]";
+ mes "As I said before it will be "+@price+"z. Come back when you aquire enough zeny.";
+ close;
+ M_End:
+ mes "[Falcon Master]";
+ mes "Have a nice day.";
+ close;
+}
diff --git a/npc/merchants/scrolls_arrows.txt b/npc/merchants/scrolls_arrows.txt new file mode 100644 index 000000000..97f645e41 --- /dev/null +++ b/npc/merchants/scrolls_arrows.txt @@ -0,0 +1,38 @@ +//===== eAthena Script =======================================
+//= Magic Scrolls & Arrows + Arrow Quivers
+//===== By: ==================================================
+//= Lupus
+//===== Current Version: =====================================
+//= 1.4
+//===== Compatible With: =====================================
+//= eAthena 7.15 +
+//===== Description: =========================================
+//=
+//===== Additional Comments: =================================
+//= Some shops that sells Magic Scrolls, Arrow Quivers
+//= Temp shops, made in kRO to test some effects (they stay next to Geffen Tower entrance)
+//= Note: Coords and prices aren't right yet
+//= I made Scrolls cost 2x more in Prontera (uncomment extra shops if u want)
+//=
+//= Correct coords and Sprites if you have more info
+//= 1.1 Added Arrow Quivers (removed rare arrows from the shops)
+//= 1.2 Removed Horse Crest from this temp shop. Because this item has been added to Sohee/Grtst General drops [Lupus]
+//= TODO: Arrows shop should be transformed to Quivers Maker NPC
+//= 1.3 Removed Quivers Shop due to Quiver Maker NPC Jaax [Lupus]
+//= 1.4 Due to added Magic Scrolls drops... removed the temp shop [Lupus]
+//============================================================
+
+
+//=======================================================
+// All Magic Scrolls + Crest of the Horse
+//=======================================================
+// don't lower the price
+geffen.gat,125,91,2 shop Magic Scrolls 735, 686:650, 687:1300, 688:500, 689:1000, 690:500, 691:1000, 692:500, 693:1000, 694:500, 695:1000, 696:500, 697:1000, 698:350, 699:700, 700:350, 12000:700, 12001:1000, 12002:2000, 12003:100
+//prt_in.gat,121,65,3 shop Magic Scrolls 735, 686:1300, 687:2600, 688:1000, 689:2000, 690:1000, 691:2000, 692:1000, 693:2000, 694:1000, 695:2000, 696:1000, 697:2000, 698:700, 699:1400, 700:700, 12000:1700, 12001:2000, 12002:4000, 12003:110
+
+//=======================================================
+// Arrows
+//=======================================================
+//payon_in03.gat,159,10,4 shop Arrow Quivers 727, 12004:-1, 12005:-1, 12006:-1, 12007:-1, 12008:-1, 12009:-1, 12010:-1, 12011:-1, 12012:-1, 12013:-1, 12014:-1, 12015:-1, 1750:-1, 1770:-1, 1753:-1, 1765:-1, 1751:-1, 1752:-1, 1751:-1, 1755:-1, 1756:-1, 1754:-1, 1767:-1, 1757:-1, 1762:-1
+//geffen.gat,123,107,4 shop Arrow Quivers 727, 12004:-1, 12005:-1, 12006:-1, 12007:-1, 12008:-1, 12009:-1, 12010:-1, 12011:-1, 12012:-1, 12013:-1, 12014:-1, 12015:-1, 1750:-1, 1770:-1, 1753:-1, 1765:-1, 1751:-1, 1752:-1, 1751:-1, 1755:-1, 1756:-1, 1754:-1, 1767:-1, 1757:-1, 1762:-1
+//prt_in.gat,163,141,5 shop Arrow Quivers 727, 12004:-1, 12005:-1, 12006:-1, 12007:-1, 12008:-1, 12009:-1, 12010:-1, 12011:-1, 12012:-1, 12013:-1, 12014:-1, 12015:-1, 1750:-1, 1770:-1, 1753:-1, 1765:-1, 1751:-1, 1752:-1, 1751:-1, 1755:-1, 1756:-1, 1754:-1, 1767:-1, 1757:-1, 1762:-1
diff --git a/npc/merchants/shops.txt b/npc/merchants/shops.txt new file mode 100644 index 000000000..6c307bb91 --- /dev/null +++ b/npc/merchants/shops.txt @@ -0,0 +1,309 @@ +//===== eAthena Script =======================================
+//= Shops
+//===== By: ==================================================
+//= eAthena Dev Team
+//===== Current Version: =====================================
+//= 1.18
+//===== Compatible With: =====================================
+//= eAthena 7.15 +
+//===== Description: =========================================
+//=
+//===== Additional Comments: =================================
+//= swapped shop titles in GONRYUN, thanks to Kashy
+//= 1.3a Fixed Louyang map name. Added additional shops in Yuno. [kobra_k88]
+//= 1.4 Added Niflheim Shops
+//= 1.5 New Payon Locations [Darkchild]
+//= Moved shops in Umbala.txt here. Commented out the duplicate ones.[kobra_k88]
+//= 1.6 Removed GRAPE ID 514 from shops (caused exploits)
+//= 1.7 Removed juices from custom amatsu shops (it's a quest item + levelup exploit)
+//= 1.8 Corrected Niflheim Shops and Morroc Jewel Merchant [celest]
+//= 1.9 Updated Louyang shops thanks to MasterOfMuppets
+//= 1.10 Lutie Tools coords [Yor]
+//= 1.11 Added Belts to Prontera/Aldebaran shops, thanks to reddozen [Lupus]
+//= 1.12 official Ayothaya Shops, thanks to MasterOfMuppets [Lupus]
+//= 1.13 Added 5092 Coif into Prontera Church shop [Lupus]
+//= 1.14 Added Lighthalzen,Einbroch,Einbech shops. Updated Prontera,Morroc,Payon shops [Lupus]
+//= 1.15 Added Venom Knives into every Weapon Shop (that sells Knife[3]) [Lupus]
+//= 1.15a Fixed a small typo in alberta's weapon shop, thanks to reddozen for the fix [MasterOfMuppets]
+//= 1.16 Added a temp shop in Yuno to sell Blank scrolls, thanks to reddozen [MasterOfMuppets]
+//= 1.17 Added wand of hypnotist to the Lighthalzen weapon shop [MasterOfMuppets]
+//= - Guys, I suggest we crop these comments and put them at the bottom soon
+//= 1.18 Fixed some shops based on kRO shots [Poki#3]
+//= 1.19 Added Hugel and fixed Payon shops based on kRO shots [Poki#3]
+//============================================================
+
+
+
+//=======================================================
+//ALBERTA
+//=======================================================
+alb2trea.gat,87,65,1 shop Tool Dealer 83,1750:-1,1751:-1,1752:-1,501:-1,502:-1,503:-1,504:-1,506:-1,645:-1,656:-1,657:-1
+alberta_in.gat,94,56,4 shop Tool Dealer 83,501:-1,502:-1,503:-1,504:-1,506:-1,601:-1,602:-1,611:-1,610:-1,645:-1,656:-1,657:-1
+alberta_in.gat,165,96,1 shop Item Collector 74,909:-1,528:-1
+alberta_in.gat,182,96,1 shop Tool Dealer 73,611:-1,501:-1,502:-1,503:-1,504:-1,506:-1,525:-1,601:-1,602:-1,1750:-1,2243:-1,645:-1,656:-1,657:-1
+alberta_in.gat,180,15,1 shop Armor Dealer 101,2101:-1,2103:-1,2401:-1,2403:-1,2405:-1,2501:-1,2503:-1,2505:-1,2203:-1,2201:-1,2205:-1,2226:-1,2301:-1,2303:-1,2305:-1,2321:-1,2328:-1,2332:-1,2307:-1,2309:-1,2312:-1,2314:-1
+alberta_in.gat,188,21,1 shop Weapon Dealer 49,1750:-1,1751:-1,1101:-1,1104:-1,1107:-1,1201:-1,1204:-1,1207:-1,1601:-1,1701:-1,1301:-1,1351:-1,1354:-1,1357:-1,1360:-1,1771:-1
+//alberta_in.gat,18,59,5 shop Miner 48,1010:-1,1011:-1
+
+//=======================================================
+//AL DE BARAN
+//=======================================================
+aldeba_in.gat,20,60,5 shop Armor Dealer 101,2228:-1,2103:-1,2105:-1,2307:-1,2309:-1,2312:-1,2314:-1,2316:-1,2505:-1,2405:-1,2627:-1
+aldeba_in.gat,28,54,5 shop Weapon Dealer 85,1201:-1,1204:-1,1207:-1,1210:-1,1213:-1,1216:-1,1219:-1,1222:-1,1771:-1
+aldeba_in.gat,94,56,5 shop Tool Dealer 83,501:-1,502:-1,503:-1,504:-1,506:-1,601:-1,602:-1,611:-1,610:-1,645:-1,656:-1,657:-1
+//Commented out for now, until we get Homunculus working.
+//alde_alche.gat,38,184,2 shop Homunculus Supplies 755,7143:-1,7141:-1,7140:-1,12040:-1
+
+//=======================================================
+//AMATSU
+//=======================================================
+//Fruit merchant opens a zeny exploit (due to Juice Maker NPC)
+amatsu.gat,176,126,4 shop Fruit Merchant 53,512:-1,513:-1,515:-1,516:-1
+//amatsu.gat,169,111,6 shop Tool Dealer 83,611:-1,1750:-1,501:-1,502:-1,503:-1,504:-1,506:-1,525:-1,601:-1,602:-1,1065:-1,2239:-1
+amatsu.gat,180,102,3 shop Flower Girl 96,712:-1,744:-1,2612:-1
+amatsu.gat,189,99,7 shop Butcher 49,517:-1,528:-1,540:-1,541:-1
+amatsu.gat,169,119,6 shop Gift Merchant 91,734:-1,735:-1,736:-1,737:-1,746:-1
+amatsu.gat,183,127,5 shop Milk Merchant 90,519:-1
+//1st set
+//ama_in01.gat,96,28,4 shop Weapon Dealer 54,1750:-1,1751:-1,1701:-1,1201:-1,1204:-1,1207:-1,1601:-1,1101:-1,1104:-1,1107:-1,1110:-1,1113:-1,1122:-1,1119:-1,1123:-1,1126:-1,1157:-1,1129:-1,1116:-1,1301:-1,1771:-1
+//ama_in01.gat,103,24,1 shop Armor Dealer 48,2101:-1,2103:-1,2401:-1,2403:-1,2501:-1,2503:-1,2220:-1,2226:-1,2301:-1,2303:-1,2305:-1,2328:-1,2307:-1,2309:-1,2312:-1,2314:-1
+ama_in01.gat,101,18,8 shop Weapon Dealer 47,1401:-1,1404:-1,1407:-1,1451:-1,1454:-1,1457:-1,1460:-1,1463:-1,1410:-1
+//2nd set
+ama_in01.gat,89,28,4 shop Armor Dealer 757,2211:-1,2401:-1,2403:-1,2501:-1,2503:-1,2101:-1,2103:-1,2305:-1,2321:-1,2332:-1,2314:-1,2627:-1
+ama_in01.gat,102,28,4 shop Weapon Dealer 766,1207:-1,1216:-1,1107:-1,1122:-1,1116:-1,1154:-1,1407:-1,1457:-1,1354:-1,1519:-1
+ama_in01.gat,24,30,4 shop Tool Dealer 763,1750:-1,1770:-1,611:-1,501:-1,502:-1,503:-1,504:-1,506:-1,645:-1,656:-1,601:-1,602:-1,1065:-1
+
+//=======================================================
+//AYOTHAYA
+//=======================================================
+ayo_in01.gat,18,182,8 shop Tool Dealer 840,1750:-1,1753:-1,611:-1,501:-1,502:-1,503:-1,504:-1,506:-1,645:-1,656:-1,601:-1,602:-1,1065:-1
+ayo_in01.gat,90,192,3 shop Weapon Dealer 843,1207:-1,1216:-1,1107:-1,1122:-1,1116:-1,1154:-1,1407:-1,1457:-1,1354:-1,1519:-1
+ayo_in01.gat,90,160,1 shop Armor Dealer 842,2211:-1,2401:-1,2403:-1,2501:-1,2503:-1,2101:-1,2103:-1,2305:-1,2321:-1,2332:-1,2328:-1,2627:-1
+ayothaya.gat,202,178,4 shop Food Seller 750,7456:-1,577:-1
+
+//=======================================================
+//COMODO
+//=======================================================
+cmd_in01.gat,117,165,4 shop Armor Dealer 101,2226:-1,2228:-1,2103:-1,2105:-1,2405:-1,2503:-1,2505:-1,2305:-1,2321:-1,2307:-1,2309:-1,2335:-1,2312:-1,2314:-1,2316:-1
+cmd_in01.gat,131,165,4 shop Weapon Dealer 49,1903:-1,1905:-1,1907:-1,1950:-1,1952:-1,1954:-1,1956:-1,1401:-1,1404:-1,1407:-1,1451:-1,1454:-1,1457:-1,1460:-1,1463:-1,1410:-1
+cmd_in01.gat,79,182,4 shop Tool Dealer 83,1753:-1,501:-1,502:-1,503:-1,504:-1,645:-1,656:-1,657:-1,601:-1,602:-1,611:-1,1065:-1
+comodo.gat,296,125,4 shop Souvenir Merchant 101,965:-1,964:-1
+comodo.gat,244,296,7 shop Item Collector 74,909:-1,5
+comodo.gat,224,164,4 shop Food Seller 750,7455:-1
+
+//=======================================================
+//EINBECH
+//=======================================================
+ein_in01.gat,189,15,0 shop Tool Dealer 850,1750:-1,1752:-1,1751:-1,611:-1,501:-1,502:-1,503:-1,504:-1,506:-1,645:-1,656:-1,601:-1,602:-1,1065:-1
+
+//=======================================================
+//EINBROCH
+//=======================================================
+ein_in01.gat,106,27,4 shop One-Hand Weapon Dealer 850,1101:-1,1104:-1,1107:-1,1110:-1,1113:-1,1119:-1,1122:-1,1123:-1,1126:-1,1129:-1,1201:-1,1204:-1,1207:-1,1210:-1,1213:-1,1216:-1,1219:-1,1222:-1,1301:-1,1401:-1,1404:-1,1407:-1,1501:-1,1504:-1,1507:-1,1510:-1,1513:-1,1516:-1,1519:-1,1522:-1,1801:-1,1803:-1,1805:-1,1807:-1,1809:-1,1811:-1,1771:-1
+ein_in01.gat,109,27,4 shop Two-Hand Weapon Dealer 850,1116:-1,1151:-1,1154:-1,1157:-1,1160:-1,1351:-1,1354:-1,1357:-1,1360:-1,1410:-1,1451:-1,1454:-1,1457:-1,1460:-1,1463:-1,1250:-1,1252:-1,1254:-1
+einbroch.gat,138,66,3 shop Flu Mask Dealer 850,2218:-1
+einbroch.gat,82,199,3 shop Paddler 855,512:-1,645:-1,1750:-1,501:-1
+
+//=======================================================
+//GEFFEN
+//=======================================================
+geffen_in.gat,25,177,1 shop Armor Dealer 66,2101:-1,2107:-1,2401:-1,2501:-1,2230:-1,2301:-1,2303:-1,2305:-1,2321:-1,2332:-1
+geffen_in.gat,29,177,1 shop Weapon Dealer 47,1750:-1,1751:-1,1101:-1,1701:-1,1201:-1,1204:-1,1207:-1,1210:-1,1213:-1,1216:-1,1601:-1,1604:-1,1607:-1,1610:-1,1771:-1
+geffen_in.gat,74,144,1 shop Trader 66,909:-1,911:-1,910:-1,912:-1
+geffen_in.gat,77,167,1 shop Tool Dealer 68,1750:-1,611:-1,501:-1,502:-1,503:-1,504:-1,506:-1,525:-1,601:-1,602:-1,2241:-1,645:-1,656:-1,657:-1
+geffen_in.gat,77,173,1 shop Magical Tool Trader 64,717:-1,1601:-1,1604:-1,1607:-1,1610:-1,2232:-1,2321:-1,2332:-1
+geffen_in.gat,171,123,1 shop Tool Dealer 64,1092:-1,1093:-1
+geffen.gat,193,152,3 shop Pet Merchant 125,537:-1,643:-1,10013:-1,10014:-1
+
+//=======================================================
+//GONRYUN
+//=======================================================
+gonryun.gat,147,84,4 shop Tool Dealer 777,1750:-1,1751:-1,611:-1,501:-1,502:-1,503:-1,504:-1,506:-1,645:-1,656:-1,601:-1,602:-1,1065:-1
+gonryun.gat,174,101,4 shop Weapon Dealer 774,1207:-1,1216:-1,1107:-1,1122:-1,1116:-1,1154:-1,1407:-1,1457:-1,1354:-1,1519:-1
+gonryun.gat,173,84,4 shop Armor Dealer 770,2211:-1,2401:-1,2403:-1,2501:-1,2503:-1,2101:-1,2103:-1,2305:-1,2321:-1,2332:-1,2328:-1,2627:-1
+gonryun.gat,148,101,4 shop Food Seller 750,580:-1,7452:-1
+
+//=======================================================
+//HUGEL
+//=======================================================
+hugel.gat,105,169,5 shop Milk Merchant 53,519:-1
+hu_in01.gat,241,368,2 shop Tool Dealer 53,1750:-1,611:-1,501:-1,502:-1,503:-1,504:-1,506:-1,645:-1,656:-1,601:-1,602:-1,1065:-1
+hu_in01.gat,252,368,2 shop Tool Trader 90,717:-1,2201:-1,910:-1,528:-1
+hu_in01.gat,100,390,2 shop Bow Dealer 86,1701:-1,1707:-1,1718:-1,1714:-1
+hu_in01.gat,94,390,2 shop Weapon Dealer 898,1116:-1,1154:-1,1354:-1,1201:-1
+hu_in01.gat,94,313,2 shop Armor Dealer 86,2224:-1,2232:-1,2226:-1,2101:-1,2103:-1,2401:-1,2501:-1,2307:-1,2105:-1
+
+//=======================================================
+//IZLUDE
+//=======================================================
+izlude_in.gat,60,127,4 shop Weapon Dealer 98,1750:-1,1751:-1,1701:-1,1601:-1,1201:-1,1204:-1,1207:-1,1101:-1,1104:-1,1107:-1,1116:-1,1151:-1,1154:-1,1157:-1,1160:-1,1301:-1,1771:-1
+izlude_in.gat,70,127,4 shop Armor Dealer 101,2103:-1,2105:-1,2403:-1,2405:-1,2503:-1,2505:-1,2226:-1,2228:-1,2303:-1,2305:-1,2328:-1,2307:-1,2309:-1,2312:-1,2314:-1,2316:-1
+izlude_in.gat,115,61,1 shop Tool Dealer 47,611:-1,501:-1,502:-1,503:-1,504:-1,506:-1,525:-1,601:-1,602:-1,1750:-1,1065:-1,645:-1,656:-1,657:-1
+izlude.gat,121,138,1 shop Butcher 54,517:-1
+izlude.gat,127,120,1 shop Fruit Merchant 72,512:-1,513:-1,515:-1,516:-1
+izlude.gat,137,126,3 shop Milk Merchant 701,519:-1
+izlude.gat,164,138,4 shop Pet Merchant 125,537:-1,643:-1,10013:-1,10014:-1
+
+//=======================================================
+//LOUYANG
+//=======================================================
+lou_in02.gat,121,181,5 shop Armor Dealer 818,2101:-1,2103:-1,2401:-1,2403:-1,2501:-1,2503:-1,2211:-1,2305:-1,2328:-1,2332:-1,2321:-1
+lou_in02.gat,130,182,5 shop Weapon Dealer 774,1207:-1,1216:-1,1107:-1,1122:-1,1116:-1,1154:-1,1407:-1,1457:-1,1354:-1,1519:-1
+lou_in02.gat,239,176,5 shop Tool Dealer 818,1750:-1,1753:-1,501:-1,502:-1,503:-1,504:-1,506:-1,645:-1,656:-1,601:-1,602:-1,611:-1,1065:-1
+louyang.gat,255,123,4 shop Food Seller 750,7454:-1,577:-1
+
+//=======================================================
+//LIGHTHALZEN
+//=======================================================
+lighthalzen.gat,69,75,5 shop Fruit Merchant 102,512:-1,513:-1
+lighthalzen.gat,112,44,8 shop Flower Girl 90,712:-1,744:-1,748:-1
+lighthalzen.gat,126,126,4 shop Food Seller 83,7456:-1,7452:-1
+lhz_in02.gat,286,95,4 shop Novice Equipment Dealer 62,1621:-1,5112:-1,2416:-1,2113:-1,2512:-1
+lhz_in02.gat,271,99,4 shop Armor Dealer 851,2101:-1,2103:-1,2403:-1,2405:-1,2503:-1,2321:-1,2314:-1,2309:-1,2335:-1,2628:-1
+lhz_in02.gat,276,99,4 shop Weapon Dealer 851,1201:-1,1207:-1,1216:-1,1107:-1,1122:-1,1116:-1,1154:-1,1407:-1,1457:-1,1354:-1,1519:-1,13003:-1,1771:-1
+lhz_in02.gat,273,35,4 shop Weapon Dealer 854,1601:-1,1604:-1,1607:-1,1617:-1,1619:-1
+lhz_in02.gat,105,21,3 shop Jewel Seller 91,721:-1,723:-1,726:-1,728:-1,729:-1,730:-1,2613:-1
+lhz_in02.gat,17,220,4 shop Vegetable Merchant 91,515:-1,516:-1,535:-1
+lhz_in02.gat,21,220,5 shop Fruit Merchant 102,512:-1,513:-1
+lhz_in02.gat,32,218,6 shop Butcher 54,517:-1
+lhz_in02.gat,38,145,4 shop Gift Merchant 91,734:-1,735:-1,736:-1,737:-1,746:-1
+lhz_in02.gat,47,148,5 shop Wedding Goods Merchant 71,744:-1,745:-1,2338:-1,2206:-1,7170:-1
+lhz_in02.gat,31,145,4 shop Tool Dealer 90,611:-1,503:-1,504:-1,506:-1,657:-1,656:-1,601:-1,602:-1,1065:-1,610:-1,1750:-1
+lhz_in02.gat,85,215,4 shop Doll Merchant 91,740:-1,741:-1,742:-1
+lhz_in02.gat,87,208,2 shop Eyewear Merchant 715,2243:-1,2212:-1,2242:-1,2241:-1
+
+//=======================================================
+//LUTIE
+//=======================================================
+xmas_in.gat,39,38,4 shop Tool Dealer 83,501:-1,502:-1,503:-1,504:-1,506:-1,611:-1,601:-1,602:-1,610:-1
+xmas_in.gat,168,104,4 shop Armor Dealer 101,2228:-1,2103:-1,2105:-1,2307:-1,2309:-1,2312:-1,2314:-1,2316:-1,2505:-1,2405:-1
+xmas_in.gat,169,34,2 shop Gift Merchant 702,2612:-1,744:-1,748:-1,736:-1,746:-1,740:-1,2613:-1
+xmas_in.gat,174,98,2 shop Weapon Dealer 49,1201:-1,1204:-1,1207:-1,1210:-1,1213:-1,1216:-1,1219:-1,1222:-1,1771:-1
+xmas.gat,144,207,4 shop Tool Dealer 83,601:-1,602:-1
+
+//=======================================================
+//MORROC
+//=======================================================
+morocc_in.gat,141,67,1 shop Weapon Dealer 58,1750:-1,1751:-1,1701:-1,1601:-1,1201:-1,1204:-1,1207:-1,1210:-1,1213:-1,1216:-1,1219:-1,1222:-1,1250:-1,1252:-1,1254:-1,1771:-1
+morocc_in.gat,141,60,1 shop Armor Dealer 58,2101:-1,2103:-1,2401:-1,2403:-1,2405:-1,2501:-1,2503:-1,2218:-1,2301:-1,2303:-1,2305:-1,2321:-1,2328:-1,2332:-1,2307:-1,2309:-1,2335:-1
+morocc.gat,35,69,1 shop Trader 89,2609:-1,1516:-1,1522:-1
+morocc.gat,139,92,1 shop Trader 99,513:-1,513:-1,513:-1,513:-1,513:-1,513:-1
+morocc.gat,145,44,1 shop Jewel Seller 99,730:-1,2613:-1
+morocc.gat,147,102,5 shop Tool Dealer 93,1750:-1,611:-1,501:-1,502:-1,503:-1,504:-1,506:-1,525:-1,601:-1,602:-1,1065:-1,645:-1,656:-1,657:-1
+morocc.gat,151,243,1 shop Tool Dealer 99,1750:-1,611:-1,501:-1,502:-1,503:-1,504:-1,506:-1,525:-1,601:-1,602:-1,2242:-1,645:-1,656:-1,657:-1
+morocc.gat,157,72,6 shop Butcher 49,517:-1
+morocc.gat,166,51,1 shop Jewel Seller 102,721:-1,723:-1,726:-1,728:-1,729:-1
+morocc.gat,170,101,3 shop Tool Dealer 85,911:-1,528:-1,919:-1,925:-1
+morocc.gat,206,250,1 shop Tool Dealer 85,911:-1,528:-1,919:-1,925:-1
+morocc.gat,244,134,1 shop Trader 93,2612:-1
+morocc.gat,259,193,1 shop Trader 99,747:-1
+morocc.gat,268,193,1 shop Trader 93,748:-1
+morocc.gat,269,167,4 shop Pet Merchant 125,537:-1,643:-1,10013:-1,10014:-1
+//morocc_in.gat,65,37,4 shop Miner 48,1010:-1,1011:-1
+morocc_in.gat,132,57,0 shop Weapon Dealer 99,1146:-1,1245:-1
+
+//=======================================================
+//NIFLHEIM
+//=======================================================
+nif_in.gat,35,84,3 shop Weapon Dealer 795,1301:-1,1351:-1,1354:-1,1357:-1,1360:-1
+nif_in.gat,35,91,3 shop Armor Dealer 796,2501:-1,2501:-1,2503:-1,2503:-1,2505:-1,2505:-1
+nif_in.gat,154,21,3 shop Tool Dealer 798,535:-1,1062:-1,902:-1,7106:-1,537:-1,7154:-1,1052:-1,934:-1
+//nif_in.gat,35,84,3 shop Weapon Dealer 795,1750:-1,1751:-1,1101:-1,1701:-1,1201:-1,1204:-1,1207:-1,1210:-1,1213:-1,1216:-1,1601:-1,1604:-1,1607:-1,1610:-1
+//nif_in.gat,35,91,3 shop Armor Dealer 796,2101:-1,2107:-1,2401:-1,2501:-1,2230:-1,2301:-1,2303:-1,2305:-1,2321:-1,2332:-1
+//nif_in.gat,154,21,3 shop Tool Dealer 798,611:-1,1750:-1,501:-1,502:-1,503:-1,504:-1,506:-1,525:-1,601:-1,602:-1,1065:-1,2239:-1,645:-1,656:-1,657:-1
+//niflheim.gat,201,209,3 shop Milk Merchant 794,519:-1
+//niflheim.gat,224,185,3 shop Fruit Merchant 795,512:-1,513:-1
+//niflheim.gat,209,161,3 shop Butcher 794,517:-1,528:-1
+//niflheim.gat,205,152,3 shop Gift Merchant 795,734:-1,735:-1,736:-1,737:-1,746:-1
+
+//=======================================================
+//PAYON
+//=======================================================
+payon_in01.gat,7,119,4 shop Weapon Dealer 76,1750:-1,1751:-1,1101:-1,1104:-1,1107:-1,1201:-1,1204:-1,1207:-1,1601:-1,1701:-1,1704:-1,1707:-1,1710:-1,1713:-1,1714:-1,1718:-1,1771:-1
+payon_in01.gat,5,129,6 shop Weapon Dealer 703,1146:-1,1245:-1
+payon_in01.gat,15,119,4 shop Armor Dealer 77,2401:-1,2403:-1,2405:-1,2501:-1,2503:-1,2505:-1,2208:-1,2211:-1,2212:-1,2301:-1,2303:-1,2305:-1,2321:-1,2328:-1,2332:-1,2309:-1,2330:-1,2628:-1
+payon_in01.gat,5,49,0 shop Tool Dealer 88,1750:-1,611:-1,501:-1,502:-1,503:-1,504:-1,506:-1,645:-1,656:-1,601:-1,602:-1,1065:-1
+payon_in02.gat,87,34,1 shop Tool Dealer 98,1750:-1,1751:-1,611:-1,501:-1,502:-1,503:-1,504:-1,506:-1,525:-1,601:-1,602:-1,1065:-1,645:-1,656:-1,657:-1
+payon.gat,159,96,5 shop Tool Dealer 88,1750:-1,501:-1,645:-1,601:-1,602:-1
+payon.gat,205,119,4 shop Food Seller 750,7455:-1
+//Not Shure About Pet Shop
+payon.gat,104,63,4 shop Pet Merchant 125,537:-1,643:-1,10013:-1,10014:-1
+pay_arche.gat,125,108,1 shop Milk Merchant 90,519:-1
+pay_arche.gat,132,101,1 shop Vegetable Merchant 102,515:-1,516:-1
+pay_arche.gat,140,124,1 shop Butcher 87,517:-1,528:-1
+
+//=======================================================
+//PRONTERA
+//=======================================================
+prontera.gat,73,134,1 shop Milk Merchant 90,519:-1
+prontera.gat,104,49,1 shop Fruit Merchant 102,512:-1,513:-1
+prontera.gat,64,125,1 shop Butcher 87,517:-1,528:-1
+prontera.gat,58,182,1 shop Flower Girl 96,712:-1,744:-1
+prontera.gat,113,42,1 shop Flower Lady 90,712:-1,744:-1
+prontera.gat,105,87,1 shop Gift Merchant 91,734:-1,735:-1,736:-1,737:-1,746:-1
+prontera.gat,218,211,4 shop Pet Merchant 125,537:-1,643:-1,10013:-1,10014:-1
+prontera.gat,248,153,1 shop Doll Merchant 85,740:-1,741:-1,742:-1
+prontera.gat,156,212,2 shop Food Seller 700,7454:-1,7452:-1,7482:-1,580:-1
+prt_church.gat,108,124,1 shop Nun 79,2608:-1,2216:-1,2323:-1,2325:-1,1501:-1,1504:-1,1507:-1,1510:-1,1513:-1,1519:-1,5092:-1
+prt_fild05.gat,290,221,1 shop Tool Dealer 83,1750:-1,611:-1,501:-1,502:-1,506:-1,601:-1,602:-1,645:-1,656:-1,657:-1
+prt_in.gat,211,169,1 shop Wedding Goods Merchant 71,744:-1,745:-1,2338:-1,2206:-1,7170:-1
+prt_in.gat,126,76,1 shop Tool Dealer 53,611:-1,1750:-1,501:-1,502:-1,503:-1,504:-1,506:-1,525:-1,601:-1,602:-1,1065:-1,2239:-1,645:-1,656:-1,657:-1
+prt_in.gat,172,130,1 shop Weapon Dealer 54,1750:-1,1751:-1,1701:-1,1201:-1,1204:-1,1207:-1,1601:-1,1101:-1,1104:-1,1107:-1,1110:-1,1113:-1,1122:-1,1119:-1,1123:-1,1126:-1,1157:-1,1129:-1,1116:-1,1301:-1,1771:-1
+prt_in.gat,172,132,1 shop Armor Dealer 48,2101:-1,2103:-1,2401:-1,2403:-1,2501:-1,2503:-1,2220:-1,2226:-1,2301:-1,2303:-1,2305:-1,2328:-1,2307:-1,2309:-1,2312:-1,2314:-1,2627:-1
+prt_in.gat,171,140,1 shop Weapon Dealer 47,1401:-1,1404:-1,1407:-1,1451:-1,1454:-1,1457:-1,1460:-1,1463:-1,1410:-1
+//prt_in.gat,56,69,4 shop Miner 48,1010:-1,1011:-1
+prt_in.gat,165,140,4 shop Weapon Dealer 66,1146:-1,1245:-1
+
+//=======================================================
+//TURTLE ISLAND
+//=======================================================
+tur_dun01.gat,158,54,6 shop Tool Dealer 99,1750:-1,501:-1,502:-1,503:-1,504:-1,506:-1,525:-1,601:-1,602:-1,645:-1,656:-1,657:-1
+// Spectacles: missing as second item in list
+// Luxury Sunglases: not sure of item/price.
+
+//=======================================================
+//UMBALA
+//=======================================================
+um_in.gat,104,124,3 shop Item Merchant 788,512:15,515:15,535:15,516:15,513:15,517:50,528:60,537:1000,601:60,602:300,645:800,656:1500,610:4000
+um_in.gat,160,125,3 shop Weapon Merchant 789,1501:120,1504:1600,1507:9000,1510:16000,1513:41000,1519:23000,1807:53000,1811:58000,1809:67000
+um_in.gat,151,125,4 shop Armor Merchant 49,2103:-1,2105:-1,2403:-1,2405:-1,2503:-1,2505:-1,2226:-1,2228:-1,2303:-1,2305:-1,2328:-1,2307:-1,2309:-1,2312:-1,2314:-1,2316:-1
+//um_in.gat,159,123,3 shop Weapon Merchant 52,1750:-1,1751:-1,1701:-1,1601:-1,1201:-1,1204:-1,1207:-1,1101:-1,1104:-1,1107:-1,1116:-1,1151:-1,1154:-1,1157:-1,1160:-1,1301:-1
+//um_in.gat,98,124,3 shop Tool Merchant 47,611:-1,501:-1,502:-1,503:-1,504:-1,506:-1,525:-1,601:-1,602:-1,1750:-1,1065:-1
+//um_in.gat,103,124,4 shop Food Merchant 91,515:-1,516:-1,535:-1,519:-1,517:-1
+umbala.gat,101,154,4 shop Food Seller 750,7456:-1,577:-1
+
+
+//=======================================================
+//YUNO
+//=======================================================
+yuno.gat,65,122,4 shop Fruit Merchant 93,512:-1,513:-1,515:-1,516:-1
+yuno.gat,217,97,4 shop Tool Dealer 83,611:-1,1750:-1,501:-1,502:-1,503:-1,504:-1,505:-1,506:-1,645:-1,656:-1,601:-1,602:-1
+yuno.gat,226,106,5 shop Trader 97, 911:-1, 910:-1, 912:-1
+yuno.gat,197,115,4 shop Pet Merchant 124, 537:-1, 643:-1, 10013:-1, 10014:-1
+yuno.gat,205,104,4 shop Equip Dealer 84, 2340:-1, 2341:-1, 2411:-1, 2222:-1, 2230:-1, 1721:-1
+yuno.gat,163,187,5 shop Magic Dealer 90,717:-1,1601:-1,1604:-1,1607:-1,1610:-1,2232:-1,2321:-1,2332:-1
+yuno_in01.gat,25,34,4 shop Tool Dealer 83,611:-1,1750:-1,501:-1,502:-1,503:-1,504:-1,505:-1,506:-1,645:-1,656:-1,601:-1,602:-1
+yuno_in01.gat,104,35,4 shop Weapon Dealer 49,1750:-1,1751:-1,1101:-1,1701:-1,1201:-1,1204:-1,1207:-1,1210:-1,1213:-1,1216:-1,1601:-1,1604:-1,1607:-1,1610:-1,1771:-1
+yuno_in01.gat,112,25,5 shop Armor Dealer 101,2628:-1,2101:-1,2107:-1,2401:-1,2501:-1,2230:-1,2301:-1,2303:-1,2305:-1,2321:-1,2332:-1
+//Temp shop in Yuno that sells Blank Scrolls
+yuno_in03.gat,176,22,3 shop Scroll Seller 89,7433:1000
+
+
+//=======================================================
+// ST. CAPITOLINA ABBEY
+//======================================
+//= Monk shop, sells Knuckle weapons)
+//=======================================================
+prt_monk.gat,135,263,3 shop Blacksmith 726, 1801:8000//Waghnak, 1803:25000//Knuckle Dusters, 1805:32000//Studded Knuckles
+
+
+//=======================================================
+//New Food Sellers (rearrange them when it's settled down) [Lupus]
+//=======================================================
+yuno.gat,133,171,2 shop Food Seller 750,7457:-1,7482:-1
+niflheim.gat,205,158,1 shop Food Seller 795,581:-1 //temp coords, temp spr ID
+alberta.gat,169,136,4 shop Food Seller 750,579:-1
+amatsu.gat,205,150,2 shop Food Seller 750,7453:-1,579:-1
+morocc.gat,121,97,5 shop Food Seller 750,7455:-1,7453:-1,7452:-1,7456:-1,7454:-1
+aldebaran.gat,166,109,7 shop Food Seller 750,580:-1,7482:-1 //temp goods
+geffen.gat,135,64,3 shop Food Seller 750,580:-1,7482:-1 //temp coords, temp goods
|