From 288490094a7fe9167747dc78d416940759a31197 Mon Sep 17 00:00:00 2001 From: FlavioJS Date: Tue, 5 Dec 2006 13:23:07 +0000 Subject: - Massive EOL normalization & 'svn:eol-style native' flag setting for all txt/conf/h/c files. git-svn-id: https://rathena.svn.sourceforge.net/svnroot/rathena/trunk@9410 54d463be-8e91-2dee-dedb-b68131a5f0ec --- npc/merchants/alchemist.txt | 258 +-- npc/merchants/ammo_boxes.txt | 230 +- npc/merchants/ammo_dealer.txt | 200 +- npc/merchants/clothes_dyer.txt | 776 +++---- npc/merchants/dye_maker.txt | 554 ++--- npc/merchants/grandpa_pharmacist.txt | 324 +-- npc/merchants/hair_dyer.txt | 318 +-- npc/merchants/hair_style.txt | 4106 +++++++++++++++++----------------- npc/merchants/icecream.txt | 122 +- npc/merchants/inn.txt | 276 +-- npc/merchants/kunai_maker.txt | 194 +- npc/merchants/milk_trader.txt | 122 +- npc/merchants/novice_exchange.txt | 316 +-- npc/merchants/quivers.txt | 300 +-- npc/merchants/refine.txt | 1642 +++++++------- npc/merchants/renters.txt | 364 +-- npc/merchants/scrolls_arrows.txt | 76 +- npc/merchants/shops.txt | 700 +++--- npc/merchants/shuriken_maker.txt | 320 +-- npc/merchants/socket_enchant.txt | 1686 +++++++------- 20 files changed, 6442 insertions(+), 6442 deletions(-) (limited to 'npc/merchants') diff --git a/npc/merchants/alchemist.txt b/npc/merchants/alchemist.txt index a3085aa4f..9d813fcaf 100644 --- a/npc/merchants/alchemist.txt +++ b/npc/merchants/alchemist.txt @@ -1,129 +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; - set Zeny,Zeny-@price; - getitem @itemid,1; - 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; -} +//===== 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; + set Zeny,Zeny-@price; + getitem @itemid,1; + 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/ammo_boxes.txt b/npc/merchants/ammo_boxes.txt index 036bfd2bb..c51157a87 100644 --- a/npc/merchants/ammo_boxes.txt +++ b/npc/merchants/ammo_boxes.txt @@ -1,116 +1,116 @@ -//===== eAthena Script ======================================== -//= Ammo Box Event -//===== By: ================================================== -//= Playtester -//===== Current Version: ===================================== -//= 1.0 -//===== Compatible With: ===================================== -//= eAthena 1.0+ -//===== Description: ========================================= -//= Turns bullets into ammo boxes. -//===== Additional Comments: ================================= -//= 1.0 Added the first 8 ammo boxes [Playtester] -//============================================================ - -que_ng.gat,187,149,3 script Kenny 83,{ - mes "[Kenny]"; - mes "My name is Kenny."; - mes "I can create ^0000FFbullet casings^000000"; - mes "and ^0000FFsphere packs^000000."; - next; - mes "[Kenny]"; - mes "Would you like to try using one of"; - mes "my bullet bullet casings or sphere"; - mes "packs?"; - mes "Select the one you want me to make!"; - next; - - menu "Bullet Casing",-,"Silver Bullet Casing",Q2,"Shell of Blood Casing",Q3,"Lightning Sphere Pack",Q4,"Blind Sphere Pack",Q5,"Poison Sphere Pack",Q6,"Freezing Sphere Pack",Q7,"Flare Sphere Pack",Q8; - -// Arguments -//=========== - callsub sF_Make, 13200,500,12149, "Bullet Casings"; - goto M_Menu; -Q2: - callsub sF_Make, 13201,500,12151, "Silver Bullet Casings"; - goto M_Menu; -Q3: - callsub sF_Make, 13202,500,12150, "Shell of Blood Casings"; - goto M_Menu; -Q4: - callsub sF_Make, 13204,500,12144, "Lightning Sphere Packs"; - goto M_Menu; -Q5: - callsub sF_Make, 13206,500,12145, "Blind Sphere Packs"; - goto M_Menu; -Q6: - callsub sF_Make, 13205,500,12146, "Poison Sphere Packs"; - goto M_Menu; -Q7: - callsub sF_Make, 13207,500,12147, "Freezing Sphere Packs"; - goto M_Menu; -Q8: - callsub sF_Make, 13203,500,12148, "Flare Sphere Packs"; - goto M_Menu; - -// Subfunction for making ammo boxes -//================================== -sF_Make: - set @ammonum,500; - if(countitem(getarg(0)) < @ammonum) goto L_NdAmmo; - if(Zeny < getarg(1)) goto L_NdZeny; - mes "[Kenny]"; - 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,50; - if(zeny/getarg(1) < @amount) set @amount, zeny/getarg(1); - if(countitem(getarg(0))/@ammonum < @amount) set @amount, countitem(getarg(0))/@ammonum; - if(@amount > 0) goto L_End; - mes "[Kenny]"; - mes "Dude, you don't even have the right items..."; - close; - - sM_0b: - input @amount; - if(@amount<1 || @amount>50) goto L_BadAmnt; - if(countitem(getarg(0))/@ammonum < @amount) goto L_NdAmmo; - if(Zeny < (getarg(1)*@amount)) goto L_NdZeny; - - L_End: - set Zeny, Zeny - (getarg(1)*@amount); - delitem getarg(0), (@amount*@ammonum); - getitem getarg(2), @amount; - mes "[Kenny]"; - mes "There you go~!"; - mes "Here are your " +getarg(3)+ "."; - close; - - L_NdAmmo: - mes "[Kenny]"; - mes "Sorry, but you need 500 bullets or"; - mes "spheres and 500 zeny to make"; - mes "1 bullet casing or 1 sphere pack."; - close; - - L_NdZeny: - mes "[Kenny]"; - mes "You don't have enough zeny for that many."; - close; - - L_BadAmnt: - mes "[Kenny]"; - mes "Please choose a number between 1 and 50."; - close; - -L_Come: - mes "[Kenny]"; - mes "Please, come again whenever you want too."; - close; -M_End: - mes "[Kenny]"; - mes "Sure, no problem."; - mes "Come back any time."; - close; +//===== eAthena Script ======================================== +//= Ammo Box Event +//===== By: ================================================== +//= Playtester +//===== Current Version: ===================================== +//= 1.0 +//===== Compatible With: ===================================== +//= eAthena 1.0+ +//===== Description: ========================================= +//= Turns bullets into ammo boxes. +//===== Additional Comments: ================================= +//= 1.0 Added the first 8 ammo boxes [Playtester] +//============================================================ + +que_ng.gat,187,149,3 script Kenny 83,{ + mes "[Kenny]"; + mes "My name is Kenny."; + mes "I can create ^0000FFbullet casings^000000"; + mes "and ^0000FFsphere packs^000000."; + next; + mes "[Kenny]"; + mes "Would you like to try using one of"; + mes "my bullet bullet casings or sphere"; + mes "packs?"; + mes "Select the one you want me to make!"; + next; + + menu "Bullet Casing",-,"Silver Bullet Casing",Q2,"Shell of Blood Casing",Q3,"Lightning Sphere Pack",Q4,"Blind Sphere Pack",Q5,"Poison Sphere Pack",Q6,"Freezing Sphere Pack",Q7,"Flare Sphere Pack",Q8; + +// Arguments +//=========== + callsub sF_Make, 13200,500,12149, "Bullet Casings"; + goto M_Menu; +Q2: + callsub sF_Make, 13201,500,12151, "Silver Bullet Casings"; + goto M_Menu; +Q3: + callsub sF_Make, 13202,500,12150, "Shell of Blood Casings"; + goto M_Menu; +Q4: + callsub sF_Make, 13204,500,12144, "Lightning Sphere Packs"; + goto M_Menu; +Q5: + callsub sF_Make, 13206,500,12145, "Blind Sphere Packs"; + goto M_Menu; +Q6: + callsub sF_Make, 13205,500,12146, "Poison Sphere Packs"; + goto M_Menu; +Q7: + callsub sF_Make, 13207,500,12147, "Freezing Sphere Packs"; + goto M_Menu; +Q8: + callsub sF_Make, 13203,500,12148, "Flare Sphere Packs"; + goto M_Menu; + +// Subfunction for making ammo boxes +//================================== +sF_Make: + set @ammonum,500; + if(countitem(getarg(0)) < @ammonum) goto L_NdAmmo; + if(Zeny < getarg(1)) goto L_NdZeny; + mes "[Kenny]"; + 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,50; + if(zeny/getarg(1) < @amount) set @amount, zeny/getarg(1); + if(countitem(getarg(0))/@ammonum < @amount) set @amount, countitem(getarg(0))/@ammonum; + if(@amount > 0) goto L_End; + mes "[Kenny]"; + mes "Dude, you don't even have the right items..."; + close; + + sM_0b: + input @amount; + if(@amount<1 || @amount>50) goto L_BadAmnt; + if(countitem(getarg(0))/@ammonum < @amount) goto L_NdAmmo; + if(Zeny < (getarg(1)*@amount)) goto L_NdZeny; + + L_End: + set Zeny, Zeny - (getarg(1)*@amount); + delitem getarg(0), (@amount*@ammonum); + getitem getarg(2), @amount; + mes "[Kenny]"; + mes "There you go~!"; + mes "Here are your " +getarg(3)+ "."; + close; + + L_NdAmmo: + mes "[Kenny]"; + mes "Sorry, but you need 500 bullets or"; + mes "spheres and 500 zeny to make"; + mes "1 bullet casing or 1 sphere pack."; + close; + + L_NdZeny: + mes "[Kenny]"; + mes "You don't have enough zeny for that many."; + close; + + L_BadAmnt: + mes "[Kenny]"; + mes "Please choose a number between 1 and 50."; + close; + +L_Come: + mes "[Kenny]"; + mes "Please, come again whenever you want too."; + close; +M_End: + mes "[Kenny]"; + mes "Sure, no problem."; + mes "Come back any time."; + close; } \ No newline at end of file diff --git a/npc/merchants/ammo_dealer.txt b/npc/merchants/ammo_dealer.txt index 00053d171..5a2947928 100644 --- a/npc/merchants/ammo_dealer.txt +++ b/npc/merchants/ammo_dealer.txt @@ -1,100 +1,100 @@ -//===== eAthena Script ======================================= -//= Ammo Dealer -//===== By: ================================================== -//= Playtester -//===== Current Version: ===================================== -//= 1.0 -//===== Compatible With: ===================================== -//= eAthena -//===== Description: ========================================= -//= trades items for spheres -//===== Additional Comments: ================================= -//= 1.0 first version [Playtester] -//============================================================ - -// Ammo Dealer Tony -que_ng.gat,187,156,3 script Tony 86,{ - mes "[Tony]"; - mes "I can make spheres for you."; - mes "Spheres are the ammunition for"; - mes "grenade launchers."; - next; - mes "[Tony]"; - mes "For 30 spheres, I need"; - mes "^FF00001 Phracon^000000"; - mes "and"; - mes "^FF00001 Emveretarcon^000000."; - next; - mes "[Tony]"; - mes "I also need another material,"; - mes "depending on which sphere type"; - mes "you want to create."; - next; - mes "[Tony]"; - mes "Here's a list:"; - mes "Flare Sphere - ^FF00002 Burning Hearts^000000"; - mes "Lightning Sphere - ^FF00003 Cyfars^000000"; - mes "Poison Sphere - ^FF000010 Venom Canines^000000"; - mes "Blind Sphere - ^FF00005 Squid Inks^000000"; - mes "Freezing Sphere - ^FF00002 Brigans^000000"; - next; - mes "[Tony]"; - mes "So which ones do you want me"; - mes "to create?"; - next; - menu "Flare Sphere",-,"Lightning Sphere",S2,"Poison Sphere",S3,"Blind Sphere",S4,"Freezing Sphere",S5; - - callsub sF_Make,13203,7097,2; -S2: - callsub sF_Make,13204,7053,3; -S3: - callsub sF_Make,13205,937,10; -S4: - callsub sF_Make,13206,1024,5; -S5: - callsub sF_Make,13207,7054,2; - -//Subfunction, getarg(0):created sphere, getarg(1):special material, getarg(2):number needed -sF_Make: - if( (countitem(1010)<1) || (countitem(1011)<1) || (countitem(getarg(1)) 0) goto L_Make; - mes "[Tony]"; - mes "Are you trying to make a fool of me...?"; - close; - - M_1: - input @amount; - if(@amount < 1 || @amount > 500) goto M_End; - if(countitem(1010) < @amount) goto L_NoMat; - if(countitem(1011) < @amount) goto L_NoMat; - if(countitem(getarg(1))/getarg(2) < @amount) goto L_NoMat; - - L_Make: - delitem 1010,@amount; - delitem 1011,@amount; - delitem getarg(1),@amount*getarg(2); - getitem getarg(0),@amount*30; - - M_End: - mes "[Tony]"; - mes "Come back anytime."; - close; - - L_NoMat: - mes "[Tony]"; - mes "I'm sorry but you don't have"; - mes "enough materials to create the"; - mes "spheres."; - close; -} +//===== eAthena Script ======================================= +//= Ammo Dealer +//===== By: ================================================== +//= Playtester +//===== Current Version: ===================================== +//= 1.0 +//===== Compatible With: ===================================== +//= eAthena +//===== Description: ========================================= +//= trades items for spheres +//===== Additional Comments: ================================= +//= 1.0 first version [Playtester] +//============================================================ + +// Ammo Dealer Tony +que_ng.gat,187,156,3 script Tony 86,{ + mes "[Tony]"; + mes "I can make spheres for you."; + mes "Spheres are the ammunition for"; + mes "grenade launchers."; + next; + mes "[Tony]"; + mes "For 30 spheres, I need"; + mes "^FF00001 Phracon^000000"; + mes "and"; + mes "^FF00001 Emveretarcon^000000."; + next; + mes "[Tony]"; + mes "I also need another material,"; + mes "depending on which sphere type"; + mes "you want to create."; + next; + mes "[Tony]"; + mes "Here's a list:"; + mes "Flare Sphere - ^FF00002 Burning Hearts^000000"; + mes "Lightning Sphere - ^FF00003 Cyfars^000000"; + mes "Poison Sphere - ^FF000010 Venom Canines^000000"; + mes "Blind Sphere - ^FF00005 Squid Inks^000000"; + mes "Freezing Sphere - ^FF00002 Brigans^000000"; + next; + mes "[Tony]"; + mes "So which ones do you want me"; + mes "to create?"; + next; + menu "Flare Sphere",-,"Lightning Sphere",S2,"Poison Sphere",S3,"Blind Sphere",S4,"Freezing Sphere",S5; + + callsub sF_Make,13203,7097,2; +S2: + callsub sF_Make,13204,7053,3; +S3: + callsub sF_Make,13205,937,10; +S4: + callsub sF_Make,13206,1024,5; +S5: + callsub sF_Make,13207,7054,2; + +//Subfunction, getarg(0):created sphere, getarg(1):special material, getarg(2):number needed +sF_Make: + if( (countitem(1010)<1) || (countitem(1011)<1) || (countitem(getarg(1)) 0) goto L_Make; + mes "[Tony]"; + mes "Are you trying to make a fool of me...?"; + close; + + M_1: + input @amount; + if(@amount < 1 || @amount > 500) goto M_End; + if(countitem(1010) < @amount) goto L_NoMat; + if(countitem(1011) < @amount) goto L_NoMat; + if(countitem(getarg(1))/getarg(2) < @amount) goto L_NoMat; + + L_Make: + delitem 1010,@amount; + delitem 1011,@amount; + delitem getarg(1),@amount*getarg(2); + getitem getarg(0),@amount*30; + + M_End: + mes "[Tony]"; + mes "Come back anytime."; + close; + + L_NoMat: + mes "[Tony]"; + mes "I'm sorry but you don't have"; + mes "enough materials to create the"; + mes "spheres."; + close; +} diff --git a/npc/merchants/clothes_dyer.txt b/npc/merchants/clothes_dyer.txt index 976d96dcb..8f179ae80 100644 --- a/npc/merchants/clothes_dyer.txt +++ b/npc/merchants/clothes_dyer.txt @@ -1,388 +1,388 @@ -//===== eAthena Script ======================================= -//= Clothes Dyer -//===== By: ================================================== -//= Usnul -//===== Current Version: ===================================== -//= 2.4 -//===== 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] -//= 2.4 - Disabled cloth dyeing since it's not implemented -// on official servers and cause your client to crash -// [Playtester] -//============================================================ -//Note: To enable it, replace L_Busy with L_Dye -//============================================================ - - -// 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_Busy,"-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_Dancer || BaseJob==Job_Sniper || BaseJob==Job_Gypsy || BaseJob==Job_Baby_Hunter || BaseJob==Job_Baby_Dancer) 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; - delitem 980,1; - set Zeny, Zeny - 10000; - mes "Ok. I will dye you clothes orange."; - setlook 7,@orange; - close; -L_Dye_Violet: - mes "[Dyer Ginedin Rephere]"; - if(countitem(981) < 1) goto sL_NoDye; - if(Zeny < 10000) goto sL_Zeny; - delitem 981,1; - set Zeny, Zeny - 10000; - mes "Ok. I will dye you clothes Violet."; - setlook 7,@violet; - close; -L_Dye_Red: - mes "[Dyer Ginedin Rephere]"; - if(countitem(975) < 1) goto sL_NoDye; - if(Zeny < 10000) goto sL_Zeny; - delitem 975,1; - set Zeny, Zeny - 10000; - mes "Ok. I will dye you clothes red."; - setlook 7,@red; - close; -L_Dye_Black: - mes "[Dyer Ginedin Rephere]"; - if(countitem(983) < 1) goto sL_NoDye; - if(Zeny < 10000) goto sL_Zeny; - delitem 983,1; - set Zeny, Zeny - 10000; - mes "Ok. I will dye you clothes black."; - setlook 7,@black; - close; -L_Dye_Green: - mes "[Dyer Ginedin Rephere]"; - if(countitem(979) < 1) goto sL_NoDye; - if(Zeny < 10000) goto sL_Zeny; - delitem 979,1; - set Zeny, Zeny - 10000; - mes "Ok. I will dye you clothes green."; - setlook 7,@green; - close; -L_Dye_Blue: - mes "[Dyer Ginedin Rephere]"; - if(countitem(978) < 1) goto sL_NoDye; - if(Zeny < 10000) goto sL_Zeny; - delitem 978,1; - set Zeny, Zeny - 10000; - mes "Ok. I will dye you clothes blue."; - setlook 7,@blue; - close; -L_Dye_White: - mes "[Dyer Ginedin Rephere]"; - if(countitem(982) < 1) goto sL_NoDye; - if(Zeny < 10000) goto sL_Zeny; - delitem 982,1; - set Zeny, Zeny - 10000; - mes "Ok. I will dye you clothes white."; - setlook 7,@white; - close; -L_Dye_Yellow: - mes "[Dyer Ginedin Rephere]"; - if(countitem(976) < 1) goto sL_NoDye; - if(Zeny < 10000) goto sL_Zeny; - delitem 976,1; - set Zeny, Zeny - 10000; - mes "Ok. I will dye you clothes yellow."; - setlook 7,@yellow; - 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_Busy: - mes "Sorry, I'm too busy with other jobs to dye your clothes."; - goto M_Menu; - -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; -} +//===== eAthena Script ======================================= +//= Clothes Dyer +//===== By: ================================================== +//= Usnul +//===== Current Version: ===================================== +//= 2.4 +//===== 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] +//= 2.4 - Disabled cloth dyeing since it's not implemented +// on official servers and cause your client to crash +// [Playtester] +//============================================================ +//Note: To enable it, replace L_Busy with L_Dye +//============================================================ + + +// 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_Busy,"-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_Dancer || BaseJob==Job_Sniper || BaseJob==Job_Gypsy || BaseJob==Job_Baby_Hunter || BaseJob==Job_Baby_Dancer) 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; + delitem 980,1; + set Zeny, Zeny - 10000; + mes "Ok. I will dye you clothes orange."; + setlook 7,@orange; + close; +L_Dye_Violet: + mes "[Dyer Ginedin Rephere]"; + if(countitem(981) < 1) goto sL_NoDye; + if(Zeny < 10000) goto sL_Zeny; + delitem 981,1; + set Zeny, Zeny - 10000; + mes "Ok. I will dye you clothes Violet."; + setlook 7,@violet; + close; +L_Dye_Red: + mes "[Dyer Ginedin Rephere]"; + if(countitem(975) < 1) goto sL_NoDye; + if(Zeny < 10000) goto sL_Zeny; + delitem 975,1; + set Zeny, Zeny - 10000; + mes "Ok. I will dye you clothes red."; + setlook 7,@red; + close; +L_Dye_Black: + mes "[Dyer Ginedin Rephere]"; + if(countitem(983) < 1) goto sL_NoDye; + if(Zeny < 10000) goto sL_Zeny; + delitem 983,1; + set Zeny, Zeny - 10000; + mes "Ok. I will dye you clothes black."; + setlook 7,@black; + close; +L_Dye_Green: + mes "[Dyer Ginedin Rephere]"; + if(countitem(979) < 1) goto sL_NoDye; + if(Zeny < 10000) goto sL_Zeny; + delitem 979,1; + set Zeny, Zeny - 10000; + mes "Ok. I will dye you clothes green."; + setlook 7,@green; + close; +L_Dye_Blue: + mes "[Dyer Ginedin Rephere]"; + if(countitem(978) < 1) goto sL_NoDye; + if(Zeny < 10000) goto sL_Zeny; + delitem 978,1; + set Zeny, Zeny - 10000; + mes "Ok. I will dye you clothes blue."; + setlook 7,@blue; + close; +L_Dye_White: + mes "[Dyer Ginedin Rephere]"; + if(countitem(982) < 1) goto sL_NoDye; + if(Zeny < 10000) goto sL_Zeny; + delitem 982,1; + set Zeny, Zeny - 10000; + mes "Ok. I will dye you clothes white."; + setlook 7,@white; + close; +L_Dye_Yellow: + mes "[Dyer Ginedin Rephere]"; + if(countitem(976) < 1) goto sL_NoDye; + if(Zeny < 10000) goto sL_Zeny; + delitem 976,1; + set Zeny, Zeny - 10000; + mes "Ok. I will dye you clothes yellow."; + setlook 7,@yellow; + 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_Busy: + mes "Sorry, I'm too busy with other jobs to dye your clothes."; + goto M_Menu; + +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 index ecfdce186..02c5ddaae 100644 --- a/npc/merchants/dye_maker.txt +++ b/npc/merchants/dye_maker.txt @@ -1,277 +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; - set Zeny, Zeny - 3000; - delitem 507,30; - delitem 973,1; - delitem 713,1; - getitem 975,1; - mes "Missing text."; - mes "Under development"; - 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; -} +//===== 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; + set Zeny, Zeny - 3000; + delitem 507,30; + delitem 973,1; + delitem 713,1; + getitem 975,1; + mes "Missing text."; + mes "Under development"; + 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 index 67ff9e02a..869ef036e 100644 --- a/npc/merchants/grandpa_pharmacist.txt +++ b/npc/merchants/grandpa_pharmacist.txt @@ -1,162 +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(getarg(1) != 0) if(countitem(getarg(1)) < @herbnum) 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(getarg(1) != 0) if (countitem(getarg(1))/@herbnum < @amount) 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(getarg(1) != 0) if (countitem(getarg(1))/@herbnum < @amount) goto L_NdHerbs; - if(countitem(713) < @amount) goto L_NdBottle; - if(Zeny < (getarg(2)*@amount)) goto L_NdZeny; - - L_End: - set Zeny, Zeny - (getarg(2)*@amount); - delitem getarg(0), (@amount*@herbnum); - if(getarg(1) != 0) delitem getarg(1), (@amount*@herbnum); - delitem 713, @amount; - getitem getarg(3), @amount; - mes "[Grampa Pharmacist]"; - mes "Here are your " +getarg(4)+ " potions."; - 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; -} +//===== 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(getarg(1) != 0) if(countitem(getarg(1)) < @herbnum) 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(getarg(1) != 0) if (countitem(getarg(1))/@herbnum < @amount) 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(getarg(1) != 0) if (countitem(getarg(1))/@herbnum < @amount) goto L_NdHerbs; + if(countitem(713) < @amount) goto L_NdBottle; + if(Zeny < (getarg(2)*@amount)) goto L_NdZeny; + + L_End: + set Zeny, Zeny - (getarg(2)*@amount); + delitem getarg(0), (@amount*@herbnum); + if(getarg(1) != 0) delitem getarg(1), (@amount*@herbnum); + delitem 713, @amount; + getitem getarg(3), @amount; + mes "[Grampa Pharmacist]"; + mes "Here are your " +getarg(4)+ " potions."; + 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 index f684138a2..c4e10f2ca 100644 --- a/npc/merchants/hair_dyer.txt +++ b/npc/merchants/hair_dyer.txt @@ -1,159 +1,159 @@ -//===== 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; - set Zeny, Zeny - 1000; - delitem 975,1; - mes "Ok. I will dye you hair red."; - setlook 6,8; - - 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; -} - +//===== 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; + set Zeny, Zeny - 1000; + delitem 975,1; + mes "Ok. I will dye you hair red."; + setlook 6,8; + + 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 index 4a4daff36..f79966894 100644 --- a/npc/merchants/hair_style.txt +++ b/npc/merchants/hair_style.txt @@ -1,2054 +1,2054 @@ -//===== Athena Script ======================================== -//= Hair Dresser -//===== By: ================================================== -//= [Muad_Dib] 1.0 (The Prometheus Project) -//===== Current Version: ===================================== -//= 1.1 -//===== 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] -//= 1.1 Removed Duplicates [Silent] -//============================================================ - -alberta.gat,137,37,6 script Stylist#01 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; - 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 Zeny,Zeny-99800; - delitem 973,3; - delitem 974,3; - delitem 901,100; - delitem 1094,100; - delitem 1020,100; - delitem 1060,100; - delitem 7152,100; - setlook 1,1; - 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; - 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 Zeny,Zeny-99800; - delitem 973,3; - delitem 974,3; - delitem 901,100; - delitem 1094,100; - delitem 1020,100; - delitem 1060,100; - delitem 7152,100; - setlook 1,2; - 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; - 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 Zeny,Zeny-99800; - delitem 973,3; - delitem 974,3; - delitem 901,100; - delitem 1094,100; - delitem 1020,100; - delitem 1060,100; - delitem 7152,100; - setlook 1,3; - 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; - 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 Zeny,Zeny-99800; - delitem 973,3; - delitem 974,3; - delitem 901,100; - delitem 1094,100; - delitem 1020,100; - delitem 1060,100; - delitem 7152,100; - setlook 1,4; - 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; - 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 Zeny,Zeny-99800; - delitem 973,3; - delitem 974,3; - delitem 901,100; - delitem 1094,100; - delitem 1020,100; - delitem 1060,100; - delitem 7152,100; - setlook 1,5; - 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; - 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 Zeny,Zeny-99800; - delitem 973,3; - delitem 974,3; - delitem 901,100; - delitem 1094,100; - delitem 1020,100; - delitem 1060,100; - delitem 7152,100; - setlook 1,6; - 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; - 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 Zeny,Zeny-99800; - delitem 973,3; - delitem 974,3; - delitem 901,100; - delitem 1094,100; - delitem 1020,100; - delitem 1060,100; - delitem 7152,100; - setlook 1,7; - 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; - 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 Zeny,Zeny-99800; - delitem 973,3; - delitem 974,3; - delitem 901,100; - delitem 1094,100; - delitem 1020,100; - delitem 1060,100; - delitem 7152,100; - setlook 1,8; - 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; - 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 Zeny,Zeny-99800; - delitem 973,3; - delitem 974,3; - delitem 901,100; - delitem 1094,100; - delitem 1020,100; - delitem 1060,100; - delitem 7152,100; - setlook 1,9; - 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; - 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 Zeny,Zeny-99800; - delitem 973,3; - delitem 974,3; - delitem 901,100; - delitem 1094,100; - delitem 1020,100; - delitem 1060,100; - delitem 7152,100; - setlook 1,10; - 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; - 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 Zeny,Zeny-99800; - delitem 973,3; - delitem 974,3; - delitem 901,100; - delitem 1094,100; - delitem 1020,100; - delitem 1060,100; - delitem 7152,100; - setlook 1,11; - 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; - 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 Zeny,Zeny-99800; - delitem 973,3; - delitem 974,3; - delitem 901,100; - delitem 1094,100; - delitem 1020,100; - delitem 1060,100; - delitem 7152,100; - setlook 1,12; - 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; - 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 Zeny,Zeny-99800; - delitem 973,3; - delitem 974,3; - delitem 901,100; - delitem 1094,100; - delitem 1020,100; - delitem 1060,100; - delitem 7152,100; - setlook 1,13; - 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; - 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 Zeny,Zeny-99800; - delitem 973,3; - delitem 974,3; - delitem 901,100; - delitem 1094,100; - delitem 1020,100; - delitem 1060,100; - delitem 7152,100; - setlook 1,14; - 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; - 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 Zeny,Zeny-99800; - delitem 973,3; - delitem 974,3; - delitem 901,100; - delitem 1094,100; - delitem 1020,100; - delitem 1060,100; - delitem 7152,100; - setlook 1,15; - 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; - 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 Zeny,Zeny-99800; - delitem 973,3; - delitem 974,3; - delitem 901,100; - delitem 1094,100; - delitem 1020,100; - delitem 1060,100; - delitem 7152,100; - setlook 1,16; - 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; - 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 Zeny,Zeny-99800; - delitem 973,3; - delitem 974,3; - delitem 901,100; - delitem 1094,100; - delitem 1020,100; - delitem 1060,100; - delitem 7152,100; - setlook 1,17; - 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; - 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 Zeny,Zeny-99800; - delitem 973,3; - delitem 974,3; - delitem 901,100; - delitem 1094,100; - delitem 1020,100; - delitem 1060,100; - delitem 7152,100; - setlook 1,18; - 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; - 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 Zeny,Zeny-99800; - delitem 973,3; - delitem 974,3; - delitem 901,100; - delitem 1094,100; - delitem 1020,100; - delitem 1060,100; - delitem 7152,100; - setlook 1,19; - 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; - 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 Zeny,Zeny-99800; - delitem 973,3; - delitem 974,3; - delitem 901,100; - delitem 1094,100; - delitem 1020,100; - delitem 1060,100; - delitem 7152,100; - setlook 1,1; - 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; - 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 Zeny,Zeny-99800; - delitem 973,3; - delitem 974,3; - delitem 901,100; - delitem 1094,100; - delitem 1020,100; - delitem 1060,100; - delitem 7152,100; - setlook 1,2; - 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; - 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 Zeny,Zeny-99800; - delitem 973,3; - delitem 974,3; - delitem 901,100; - delitem 1094,100; - delitem 1020,100; - delitem 1060,100; - delitem 7152,100; - setlook 1,3; - 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; - 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 Zeny,Zeny-99800; - delitem 973,3; - delitem 974,3; - delitem 901,100; - delitem 1094,100; - delitem 1020,100; - delitem 1060,100; - delitem 7152,100; - setlook 1,4; - 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; - 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 Zeny,Zeny-99800; - delitem 973,3; - delitem 974,3; - delitem 901,100; - delitem 1094,100; - delitem 1020,100; - delitem 1060,100; - delitem 7152,100; - setlook 1,5; - 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; - 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 Zeny,Zeny-99800; - delitem 973,3; - delitem 974,3; - delitem 901,100; - delitem 1094,100; - delitem 1020,100; - delitem 1060,100; - delitem 7152,100; - setlook 1,6; - 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; - 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 Zeny,Zeny-99800; - delitem 973,3; - delitem 974,3; - delitem 901,100; - delitem 1094,100; - delitem 1020,100; - delitem 1060,100; - delitem 7152,100; - setlook 1,7; - 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; - 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 Zeny,Zeny-99800; - delitem 973,3; - delitem 974,3; - delitem 901,100; - delitem 1094,100; - delitem 1020,100; - delitem 1060,100; - delitem 7152,100; - setlook 1,8; - 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; - 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 Zeny,Zeny-99800; - delitem 973,3; - delitem 974,3; - delitem 901,100; - delitem 1094,100; - delitem 1020,100; - delitem 1060,100; - delitem 7152,100; - setlook 1,9; - 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; - 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 Zeny,Zeny-99800; - delitem 973,3; - delitem 974,3; - delitem 901,100; - delitem 1094,100; - delitem 1020,100; - delitem 1060,100; - delitem 7152,100; - setlook 1,10; - 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; - 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 Zeny,Zeny-99800; - delitem 973,3; - delitem 974,3; - delitem 901,100; - delitem 1094,100; - delitem 1020,100; - delitem 1060,100; - delitem 7152,100; - setlook 1,11; - 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; - 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 Zeny,Zeny-99800; - delitem 973,3; - delitem 974,3; - delitem 901,100; - delitem 1094,100; - delitem 1020,100; - delitem 1060,100; - delitem 7152,100; - setlook 1,12; - 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; - 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 Zeny,Zeny-99800; - delitem 973,3; - delitem 974,3; - delitem 901,100; - delitem 1094,100; - delitem 1020,100; - delitem 1060,100; - delitem 7152,100; - setlook 1,13; - 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; - 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 Zeny,Zeny-99800; - delitem 973,3; - delitem 974,3; - delitem 901,100; - delitem 1094,100; - delitem 1020,100; - delitem 1060,100; - delitem 7152,100; - setlook 1,14; - 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; - 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 Zeny,Zeny-99800; - delitem 973,3; - delitem 974,3; - delitem 901,100; - delitem 1094,100; - delitem 1020,100; - delitem 1060,100; - delitem 7152,100; - setlook 1,15; - 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; - 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 Zeny,Zeny-99800; - delitem 973,3; - delitem 974,3; - delitem 901,100; - delitem 1094,100; - delitem 1020,100; - delitem 1060,100; - delitem 7152,100; - setlook 1,16; - 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; - 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 Zeny,Zeny-99800; - delitem 973,3; - delitem 974,3; - delitem 901,100; - delitem 1094,100; - delitem 1020,100; - delitem 1060,100; - delitem 7152,100; - setlook 1,17; - 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; - 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 Zeny,Zeny-99800; - delitem 973,3; - delitem 974,3; - delitem 901,100; - delitem 1094,100; - delitem 1020,100; - delitem 1060,100; - delitem 7152,100; - setlook 1,18; - 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; - 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 Zeny,Zeny-99800; - delitem 973,3; - delitem 974,3; - delitem 901,100; - delitem 1094,100; - delitem 1020,100; - delitem 1060,100; - delitem 7152,100; - setlook 1,19; - 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; +//===== Athena Script ======================================== +//= Hair Dresser +//===== By: ================================================== +//= [Muad_Dib] 1.0 (The Prometheus Project) +//===== Current Version: ===================================== +//= 1.1 +//===== 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] +//= 1.1 Removed Duplicates [Silent] +//============================================================ + +alberta.gat,137,37,6 script Stylist#01 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; + 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 Zeny,Zeny-99800; + delitem 973,3; + delitem 974,3; + delitem 901,100; + delitem 1094,100; + delitem 1020,100; + delitem 1060,100; + delitem 7152,100; + setlook 1,1; + 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; + 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 Zeny,Zeny-99800; + delitem 973,3; + delitem 974,3; + delitem 901,100; + delitem 1094,100; + delitem 1020,100; + delitem 1060,100; + delitem 7152,100; + setlook 1,2; + 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; + 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 Zeny,Zeny-99800; + delitem 973,3; + delitem 974,3; + delitem 901,100; + delitem 1094,100; + delitem 1020,100; + delitem 1060,100; + delitem 7152,100; + setlook 1,3; + 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; + 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 Zeny,Zeny-99800; + delitem 973,3; + delitem 974,3; + delitem 901,100; + delitem 1094,100; + delitem 1020,100; + delitem 1060,100; + delitem 7152,100; + setlook 1,4; + 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; + 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 Zeny,Zeny-99800; + delitem 973,3; + delitem 974,3; + delitem 901,100; + delitem 1094,100; + delitem 1020,100; + delitem 1060,100; + delitem 7152,100; + setlook 1,5; + 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; + 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 Zeny,Zeny-99800; + delitem 973,3; + delitem 974,3; + delitem 901,100; + delitem 1094,100; + delitem 1020,100; + delitem 1060,100; + delitem 7152,100; + setlook 1,6; + 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; + 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 Zeny,Zeny-99800; + delitem 973,3; + delitem 974,3; + delitem 901,100; + delitem 1094,100; + delitem 1020,100; + delitem 1060,100; + delitem 7152,100; + setlook 1,7; + 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; + 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 Zeny,Zeny-99800; + delitem 973,3; + delitem 974,3; + delitem 901,100; + delitem 1094,100; + delitem 1020,100; + delitem 1060,100; + delitem 7152,100; + setlook 1,8; + 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; + 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 Zeny,Zeny-99800; + delitem 973,3; + delitem 974,3; + delitem 901,100; + delitem 1094,100; + delitem 1020,100; + delitem 1060,100; + delitem 7152,100; + setlook 1,9; + 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; + 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 Zeny,Zeny-99800; + delitem 973,3; + delitem 974,3; + delitem 901,100; + delitem 1094,100; + delitem 1020,100; + delitem 1060,100; + delitem 7152,100; + setlook 1,10; + 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; + 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 Zeny,Zeny-99800; + delitem 973,3; + delitem 974,3; + delitem 901,100; + delitem 1094,100; + delitem 1020,100; + delitem 1060,100; + delitem 7152,100; + setlook 1,11; + 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; + 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 Zeny,Zeny-99800; + delitem 973,3; + delitem 974,3; + delitem 901,100; + delitem 1094,100; + delitem 1020,100; + delitem 1060,100; + delitem 7152,100; + setlook 1,12; + 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; + 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 Zeny,Zeny-99800; + delitem 973,3; + delitem 974,3; + delitem 901,100; + delitem 1094,100; + delitem 1020,100; + delitem 1060,100; + delitem 7152,100; + setlook 1,13; + 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; + 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 Zeny,Zeny-99800; + delitem 973,3; + delitem 974,3; + delitem 901,100; + delitem 1094,100; + delitem 1020,100; + delitem 1060,100; + delitem 7152,100; + setlook 1,14; + 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; + 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 Zeny,Zeny-99800; + delitem 973,3; + delitem 974,3; + delitem 901,100; + delitem 1094,100; + delitem 1020,100; + delitem 1060,100; + delitem 7152,100; + setlook 1,15; + 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; + 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 Zeny,Zeny-99800; + delitem 973,3; + delitem 974,3; + delitem 901,100; + delitem 1094,100; + delitem 1020,100; + delitem 1060,100; + delitem 7152,100; + setlook 1,16; + 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; + 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 Zeny,Zeny-99800; + delitem 973,3; + delitem 974,3; + delitem 901,100; + delitem 1094,100; + delitem 1020,100; + delitem 1060,100; + delitem 7152,100; + setlook 1,17; + 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; + 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 Zeny,Zeny-99800; + delitem 973,3; + delitem 974,3; + delitem 901,100; + delitem 1094,100; + delitem 1020,100; + delitem 1060,100; + delitem 7152,100; + setlook 1,18; + 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; + 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 Zeny,Zeny-99800; + delitem 973,3; + delitem 974,3; + delitem 901,100; + delitem 1094,100; + delitem 1020,100; + delitem 1060,100; + delitem 7152,100; + setlook 1,19; + 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; + 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 Zeny,Zeny-99800; + delitem 973,3; + delitem 974,3; + delitem 901,100; + delitem 1094,100; + delitem 1020,100; + delitem 1060,100; + delitem 7152,100; + setlook 1,1; + 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; + 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 Zeny,Zeny-99800; + delitem 973,3; + delitem 974,3; + delitem 901,100; + delitem 1094,100; + delitem 1020,100; + delitem 1060,100; + delitem 7152,100; + setlook 1,2; + 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; + 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 Zeny,Zeny-99800; + delitem 973,3; + delitem 974,3; + delitem 901,100; + delitem 1094,100; + delitem 1020,100; + delitem 1060,100; + delitem 7152,100; + setlook 1,3; + 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; + 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 Zeny,Zeny-99800; + delitem 973,3; + delitem 974,3; + delitem 901,100; + delitem 1094,100; + delitem 1020,100; + delitem 1060,100; + delitem 7152,100; + setlook 1,4; + 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; + 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 Zeny,Zeny-99800; + delitem 973,3; + delitem 974,3; + delitem 901,100; + delitem 1094,100; + delitem 1020,100; + delitem 1060,100; + delitem 7152,100; + setlook 1,5; + 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; + 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 Zeny,Zeny-99800; + delitem 973,3; + delitem 974,3; + delitem 901,100; + delitem 1094,100; + delitem 1020,100; + delitem 1060,100; + delitem 7152,100; + setlook 1,6; + 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; + 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 Zeny,Zeny-99800; + delitem 973,3; + delitem 974,3; + delitem 901,100; + delitem 1094,100; + delitem 1020,100; + delitem 1060,100; + delitem 7152,100; + setlook 1,7; + 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; + 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 Zeny,Zeny-99800; + delitem 973,3; + delitem 974,3; + delitem 901,100; + delitem 1094,100; + delitem 1020,100; + delitem 1060,100; + delitem 7152,100; + setlook 1,8; + 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; + 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 Zeny,Zeny-99800; + delitem 973,3; + delitem 974,3; + delitem 901,100; + delitem 1094,100; + delitem 1020,100; + delitem 1060,100; + delitem 7152,100; + setlook 1,9; + 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; + 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 Zeny,Zeny-99800; + delitem 973,3; + delitem 974,3; + delitem 901,100; + delitem 1094,100; + delitem 1020,100; + delitem 1060,100; + delitem 7152,100; + setlook 1,10; + 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; + 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 Zeny,Zeny-99800; + delitem 973,3; + delitem 974,3; + delitem 901,100; + delitem 1094,100; + delitem 1020,100; + delitem 1060,100; + delitem 7152,100; + setlook 1,11; + 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; + 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 Zeny,Zeny-99800; + delitem 973,3; + delitem 974,3; + delitem 901,100; + delitem 1094,100; + delitem 1020,100; + delitem 1060,100; + delitem 7152,100; + setlook 1,12; + 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; + 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 Zeny,Zeny-99800; + delitem 973,3; + delitem 974,3; + delitem 901,100; + delitem 1094,100; + delitem 1020,100; + delitem 1060,100; + delitem 7152,100; + setlook 1,13; + 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; + 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 Zeny,Zeny-99800; + delitem 973,3; + delitem 974,3; + delitem 901,100; + delitem 1094,100; + delitem 1020,100; + delitem 1060,100; + delitem 7152,100; + setlook 1,14; + 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; + 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 Zeny,Zeny-99800; + delitem 973,3; + delitem 974,3; + delitem 901,100; + delitem 1094,100; + delitem 1020,100; + delitem 1060,100; + delitem 7152,100; + setlook 1,15; + 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; + 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 Zeny,Zeny-99800; + delitem 973,3; + delitem 974,3; + delitem 901,100; + delitem 1094,100; + delitem 1020,100; + delitem 1060,100; + delitem 7152,100; + setlook 1,16; + 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; + 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 Zeny,Zeny-99800; + delitem 973,3; + delitem 974,3; + delitem 901,100; + delitem 1094,100; + delitem 1020,100; + delitem 1060,100; + delitem 7152,100; + setlook 1,17; + 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; + 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 Zeny,Zeny-99800; + delitem 973,3; + delitem 974,3; + delitem 901,100; + delitem 1094,100; + delitem 1020,100; + delitem 1060,100; + delitem 7152,100; + setlook 1,18; + 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; + 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 Zeny,Zeny-99800; + delitem 973,3; + delitem 974,3; + delitem 901,100; + delitem 1094,100; + delitem 1020,100; + delitem 1060,100; + delitem 7152,100; + setlook 1,19; + 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 index 9dcaa6425..ca5f72011 100644 --- a/npc/merchants/icecream.txt +++ b/npc/merchants/icecream.txt @@ -1,61 +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; - set Zeny,Zeny-100*@input; - getitem 536,@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 +//===== 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; + set Zeny,Zeny-100*@input; + getitem 536,@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 index 1f30e8078..494ed8b14 100644 --- a/npc/merchants/inn.txt +++ b/npc/merchants/inn.txt @@ -1,138 +1,138 @@ -//===== eAthena Script ======================================= -//= Inn Npcs -//===== By: ================================================== -//= Darkchild (1.1) -//= Playtester (1.2) -//===== Current Version: ===================================== -//= 1.4 -//===== 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] -//= 1.2 Rewrote inn script [Playtester] -//= 1.3 Added (finally) Rachel Inn Maid. Official warp -//= and save points[erKURITA] -//= 1.4 Added Hugel inn [erKurita] -//============================================================ - - -//======================== 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; - warp "prt_in.gat",237,102; -} -// East Side Inn ------------------ -prt_in.gat,61,141,2 script Inn Maid::Ahlma#01 53,{ - - callfunc "F_InnMaid","[Ahlma]","East Inn","prt_in.gat",64,136; - warp "prt_in.gat",49,173; -} - -//======================== Alberta ==================================== -// North -------------------------- -alberta_in.gat,32,142,5 script Inn Maid::Moira 53,{ - - callfunc "F_InnMaid","[Moira]","North Inn","alberta_in.gat",26,138; - warp "alberta_in.gat",18,188; -} -// South ----------------------------- -alberta_in.gat,55,142,8 script Inn Maid::Tina 53,{ - - callfunc "F_InnMaid","[Tina]","South Inn","alberta_in.gat",60,140; - warp "alberta_in.gat",68,188; -} - -//====================== Geffen ====================================== -geffen_in.gat,70,64,5 script Inn Maid::Betty 53,{ - - callfunc "F_InnMaid","[Betty]","Geffen Inn","geffen_in.gat",74,60; - warp "geffen_in.gat",106,106; -} - -//======================= Payon ====================================== -payon_in01.gat,131,62,5 script Inn Maid::SunHee 53,{ - - callfunc "F_InnMaid","[Sun Hee]","Payon Inn","payon_in01.gat",132,56; - warp "payon_in01.gat",140,15; -} - -//======================== 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; - warp "morocc_in.gat",174,144; -} -// South -------------------------------- -morocc_in.gat,80,100,5 script Inn Maid::Shala 53,{ - - callfunc "F_InnMaid","[Shala]","South Inn","morocc_in.gat",78,95; - warp "morocc_in.gat",74,128; -} - -//======================== Rachel ==================================== -ra_in01.gat,376,69,4 script Inn Keeper 931,{ - - callfunc "F_InnMaid","[Annie]","Rachel Inn","ra_in01.gat",375,58; - warp "ra_in01.gat",384,128; -} - -//======================== Hugel ==================================== -hu_in01.gat,246,107,3 script Inn Maid::Receptionist 53,{ - - callfunc "F_InnMaid","[Receptionist]","Hugel Inn","hu_in01.gat",263,95; - warp "hu_in01",267,5; -} - -//======================= Inn Function ============================== -function script F_InnMaid { - mes getarg(0); - mes "Welcome to '" + getarg(1) + "'."; - mes "How may I help you?"; - next; - menu "Save",Msave, "Take a Rest -> 5000 zeny",Mrent, "Cancel",Mend; - - Msave: - mes getarg(0); - mes "Your respawn point"; - mes "has been saved."; - mes "Thank you,"; - mes "please come again."; - savepoint getarg(2),getarg(3),getarg(4); - close; - Mrent: - mes getarg(0); - if(Zeny < 5000){ - mes "I'm sorry, but the service charge"; - mes "is 5,000 zeny. Please make sure"; - mes "that you have enough money to check"; - mes "in next time, okay?"; - close; - } - set Zeny,Zeny - 5000; - percentheal 100,100; - mes "Thank you."; - mes "I hope you"; - mes "enjoy your rest~"; - close2; - return; - - Mend: - mes getarg(0); - mes "I am waiting for a job to do."; - close; -} +//===== eAthena Script ======================================= +//= Inn Npcs +//===== By: ================================================== +//= Darkchild (1.1) +//= Playtester (1.2) +//===== Current Version: ===================================== +//= 1.4 +//===== 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] +//= 1.2 Rewrote inn script [Playtester] +//= 1.3 Added (finally) Rachel Inn Maid. Official warp +//= and save points[erKURITA] +//= 1.4 Added Hugel inn [erKurita] +//============================================================ + + +//======================== 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; + warp "prt_in.gat",237,102; +} +// East Side Inn ------------------ +prt_in.gat,61,141,2 script Inn Maid::Ahlma#01 53,{ + + callfunc "F_InnMaid","[Ahlma]","East Inn","prt_in.gat",64,136; + warp "prt_in.gat",49,173; +} + +//======================== Alberta ==================================== +// North -------------------------- +alberta_in.gat,32,142,5 script Inn Maid::Moira 53,{ + + callfunc "F_InnMaid","[Moira]","North Inn","alberta_in.gat",26,138; + warp "alberta_in.gat",18,188; +} +// South ----------------------------- +alberta_in.gat,55,142,8 script Inn Maid::Tina 53,{ + + callfunc "F_InnMaid","[Tina]","South Inn","alberta_in.gat",60,140; + warp "alberta_in.gat",68,188; +} + +//====================== Geffen ====================================== +geffen_in.gat,70,64,5 script Inn Maid::Betty 53,{ + + callfunc "F_InnMaid","[Betty]","Geffen Inn","geffen_in.gat",74,60; + warp "geffen_in.gat",106,106; +} + +//======================= Payon ====================================== +payon_in01.gat,131,62,5 script Inn Maid::SunHee 53,{ + + callfunc "F_InnMaid","[Sun Hee]","Payon Inn","payon_in01.gat",132,56; + warp "payon_in01.gat",140,15; +} + +//======================== 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; + warp "morocc_in.gat",174,144; +} +// South -------------------------------- +morocc_in.gat,80,100,5 script Inn Maid::Shala 53,{ + + callfunc "F_InnMaid","[Shala]","South Inn","morocc_in.gat",78,95; + warp "morocc_in.gat",74,128; +} + +//======================== Rachel ==================================== +ra_in01.gat,376,69,4 script Inn Keeper 931,{ + + callfunc "F_InnMaid","[Annie]","Rachel Inn","ra_in01.gat",375,58; + warp "ra_in01.gat",384,128; +} + +//======================== Hugel ==================================== +hu_in01.gat,246,107,3 script Inn Maid::Receptionist 53,{ + + callfunc "F_InnMaid","[Receptionist]","Hugel Inn","hu_in01.gat",263,95; + warp "hu_in01",267,5; +} + +//======================= Inn Function ============================== +function script F_InnMaid { + mes getarg(0); + mes "Welcome to '" + getarg(1) + "'."; + mes "How may I help you?"; + next; + menu "Save",Msave, "Take a Rest -> 5000 zeny",Mrent, "Cancel",Mend; + + Msave: + mes getarg(0); + mes "Your respawn point"; + mes "has been saved."; + mes "Thank you,"; + mes "please come again."; + savepoint getarg(2),getarg(3),getarg(4); + close; + Mrent: + mes getarg(0); + if(Zeny < 5000){ + mes "I'm sorry, but the service charge"; + mes "is 5,000 zeny. Please make sure"; + mes "that you have enough money to check"; + mes "in next time, okay?"; + close; + } + set Zeny,Zeny - 5000; + percentheal 100,100; + mes "Thank you."; + mes "I hope you"; + mes "enjoy your rest~"; + close2; + return; + + Mend: + mes getarg(0); + mes "I am waiting for a job to do."; + close; +} diff --git a/npc/merchants/kunai_maker.txt b/npc/merchants/kunai_maker.txt index f836befdf..9e1d3459c 100644 --- a/npc/merchants/kunai_maker.txt +++ b/npc/merchants/kunai_maker.txt @@ -1,97 +1,97 @@ -//===== eAthena Script ======================================= -//= Kunai "Trader" @ que_ng.gat -//===== By: ================================================== -//= erKURITA -//===== Current Version: ===================================== -//= 1.0 -//===== Compatible With: ===================================== -//= eAthena 1.0 -//===== Description: ========================================= -//= NPC that trades you a few shurikens + ninja stones for -//= elemental kunais. -//===== Additional Comments: ================================= -//= 1.0 Added the npc. It uses a function that sends the item -//= id of the 2 required items plus the amount. Can trade -//= up to 500 units (5,000 kunais) at once. [erKURITA] -//============================================================ -que_ng.gat,72,29,3 script Kunai Seller 83,{ -mes "[Jin]"; -mes "Hi, I sell elemental enchanted kunais. I'll trade you some elemental stones and one kind of shuriken for a determined elemental Kunai"; -next; -mes "[Jin]"; -mes "What would you like to trade some? It's free"; -switch(select("10 Poison Kunais:10 Icycle Kunais:10 Rough Wind Kunais:10 Black Soil Kunai:10 Explosion Kunai:Nothing at the Moment")) { -//Callfunc usage: callfunc "Kunai_Trade",itemreqid1,itemreqct1,itemreqid2,itemreqct2,itemidtrade; - case 1: - callfunc "Kunai_Trade",13250,20,7524,1,13259; - goto L_Bye; - case 2: - callfunc "Kunai_Trade",13251,8,7522,2,13255; - goto L_Bye; - case 3: - callfunc "Kunai_Trade",13252,4,7523,2,13257; - goto L_Bye; - case 4: - callfunc "Kunai_Trade",13253,2,7524,1,13256; - goto L_Bye; - case 5: - callfunc "Kunai_Trade",13254,1,7521,2,13258; - goto L_Bye; - case 6: - goto L_Bye; - } -L_Bye: - next; - mes "[Jin]"; - mes "Good bye and hope to see you again then"; - close; -} - -function script Kunai_Trade { - next; - mes "[Jin]"; - if (MaxWeight*50/100 < Weight) { - if (MaxWeight*90/100 < Weight) { - mes "Sorry but you have more than 90% weight. Your kunais might drop. I can't give you anything."; - return; - } - mes "You have 50% or more weight, do you still want to continue?"; - menu "Yes",-,"No, thanks",L_Return; - } - - mes "Would you like to trade my 10 "+getitemname(getarg(4))+" for your "+getarg(1)+" "+getitemname(getarg(0))+" and "+getarg(3)+" "+getitemname(getarg(2))+" ?"; - switch(select("Yes:I'll think about it")) { - case 1: - next; - mes "[Jin]"; - if (countitem(getarg(0)) < getarg(1) || countitem(getarg(2)) < getarg(3)) { - mes "Sorry but you're missing one of the required items. Please get them"; - close; - } else - mes "How many do you want to trade? I can only trade you ^FF0000500^000000 units at once."; - mes "^00FF001 Unit^000000 ^FF0000=^000000 ^0000FF10 Kunais^000000 of your desire"; - input @trade; - next; - mes "[Jin]"; - if (@trade > 500) { - mes "Sorry, but I told you I could only trade you 500 units at once. Try again"; - close; - } else if (@trade < 1) { - mes "Sorry, but 1 unit is the minimun I can trade. Try again please."; - close; - } else if ((countitem(getarg(0)) < @trade*getarg(1)) || (countitem(getarg(2)) < @trade*getarg(3))) { - mes "Sorry, but you don't have enough items to trade "+@trade+" unit(s). Get more please"; - close; - } else - mes "Here you go, enjoy them"; - delitem getarg(0),getarg(1)*@trade; - delitem getarg(2),getarg(3)*@trade; - getitem getarg(4),10*@trade; - next; - return; - case 2: - return; - } -L_Return: - return; -} +//===== eAthena Script ======================================= +//= Kunai "Trader" @ que_ng.gat +//===== By: ================================================== +//= erKURITA +//===== Current Version: ===================================== +//= 1.0 +//===== Compatible With: ===================================== +//= eAthena 1.0 +//===== Description: ========================================= +//= NPC that trades you a few shurikens + ninja stones for +//= elemental kunais. +//===== Additional Comments: ================================= +//= 1.0 Added the npc. It uses a function that sends the item +//= id of the 2 required items plus the amount. Can trade +//= up to 500 units (5,000 kunais) at once. [erKURITA] +//============================================================ +que_ng.gat,72,29,3 script Kunai Seller 83,{ +mes "[Jin]"; +mes "Hi, I sell elemental enchanted kunais. I'll trade you some elemental stones and one kind of shuriken for a determined elemental Kunai"; +next; +mes "[Jin]"; +mes "What would you like to trade some? It's free"; +switch(select("10 Poison Kunais:10 Icycle Kunais:10 Rough Wind Kunais:10 Black Soil Kunai:10 Explosion Kunai:Nothing at the Moment")) { +//Callfunc usage: callfunc "Kunai_Trade",itemreqid1,itemreqct1,itemreqid2,itemreqct2,itemidtrade; + case 1: + callfunc "Kunai_Trade",13250,20,7524,1,13259; + goto L_Bye; + case 2: + callfunc "Kunai_Trade",13251,8,7522,2,13255; + goto L_Bye; + case 3: + callfunc "Kunai_Trade",13252,4,7523,2,13257; + goto L_Bye; + case 4: + callfunc "Kunai_Trade",13253,2,7524,1,13256; + goto L_Bye; + case 5: + callfunc "Kunai_Trade",13254,1,7521,2,13258; + goto L_Bye; + case 6: + goto L_Bye; + } +L_Bye: + next; + mes "[Jin]"; + mes "Good bye and hope to see you again then"; + close; +} + +function script Kunai_Trade { + next; + mes "[Jin]"; + if (MaxWeight*50/100 < Weight) { + if (MaxWeight*90/100 < Weight) { + mes "Sorry but you have more than 90% weight. Your kunais might drop. I can't give you anything."; + return; + } + mes "You have 50% or more weight, do you still want to continue?"; + menu "Yes",-,"No, thanks",L_Return; + } + + mes "Would you like to trade my 10 "+getitemname(getarg(4))+" for your "+getarg(1)+" "+getitemname(getarg(0))+" and "+getarg(3)+" "+getitemname(getarg(2))+" ?"; + switch(select("Yes:I'll think about it")) { + case 1: + next; + mes "[Jin]"; + if (countitem(getarg(0)) < getarg(1) || countitem(getarg(2)) < getarg(3)) { + mes "Sorry but you're missing one of the required items. Please get them"; + close; + } else + mes "How many do you want to trade? I can only trade you ^FF0000500^000000 units at once."; + mes "^00FF001 Unit^000000 ^FF0000=^000000 ^0000FF10 Kunais^000000 of your desire"; + input @trade; + next; + mes "[Jin]"; + if (@trade > 500) { + mes "Sorry, but I told you I could only trade you 500 units at once. Try again"; + close; + } else if (@trade < 1) { + mes "Sorry, but 1 unit is the minimun I can trade. Try again please."; + close; + } else if ((countitem(getarg(0)) < @trade*getarg(1)) || (countitem(getarg(2)) < @trade*getarg(3))) { + mes "Sorry, but you don't have enough items to trade "+@trade+" unit(s). Get more please"; + close; + } else + mes "Here you go, enjoy them"; + delitem getarg(0),getarg(1)*@trade; + delitem getarg(2),getarg(3)*@trade; + getitem getarg(4),10*@trade; + next; + return; + case 2: + return; + } +L_Return: + return; +} diff --git a/npc/merchants/milk_trader.txt b/npc/merchants/milk_trader.txt index 42be03f63..559c1cc0d 100644 --- a/npc/merchants/milk_trader.txt +++ b/npc/merchants/milk_trader.txt @@ -1,61 +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: - set zeny, zeny - (@amount*20); - delitem 713, @amount; - getitem 519, @amount; - - 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; -} +//===== 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: + set zeny, zeny - (@amount*20); + delitem 713, @amount; + getitem 519, @amount; + + 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/novice_exchange.txt b/npc/merchants/novice_exchange.txt index 6c2dda72b..a0e6535b2 100644 --- a/npc/merchants/novice_exchange.txt +++ b/npc/merchants/novice_exchange.txt @@ -1,159 +1,159 @@ -//===== eAthena Script ======================================== -//= Novice Goods Exchanger -//===== By: ================================================== -//= ???, eAthena Team -//===== Current Version: ===================================== -//= 1.1a -//===== Compatible With: ===================================== -//= eAthena 1.0+ -//===== Description: ========================================= -//= Exchanges your cheap loot to Red Potions. -//= Official NPC. -//===== Additional Comments: ================================= -//= 1.1 Made it as a function. U can add your own Merchs [Lupus] -//= 1.1a Fixed item select [KarLaeda] -//============================================================ - -function script F_NMerch { - mes "["+getarg(0)+"]"; - if((Weight*100)/MaxWeight >= 90){ - mes "You will exceed your weight limit if you exchange for the Red Potions."; - close; - } - mes "Good day!"; - mes "Do you have any collection items such as "+getitemname(getarg(1))+" or "+getitemname(getarg(3))+"?"; - if(getarg(5)) - mes "...how about "+getitemname(getarg(5))+"?.."; - mes "Oh, yeah, I need those for something."; - next; - mes "["+getarg(0)+"]"; - mes "Of course I am not asking you to give those for free!"; - mes "How about... if I give you 1 Red"; - mes "Potion for "+getarg(2)+" "+getitemname(getarg(1))+" or "+getarg(4)+" "+getitemname(getarg(3))+"?"; - if(getarg(5)) - mes "Or "+getarg(6)+" "+getitemname(getarg(5))+"?"; - next; - switch (select("Sure!:Think you're ripping me off...:No, thanks")) { - case 1: - mes "["+getarg(0)+"]"; - mes "So which item do you bring me?"; - mes ""+getitemname(getarg(1))+"? "+getitemname(getarg(3))+"?"; - if(getarg(5)) - mes "Or "+getitemname(getarg(5))+"?"; - next; - if(getarg(5)) - set @i,select(""+getitemname(getarg(1))+"",""+getitemname(getarg(3))+"",""+getitemname(getarg(5))+"","Cancel"); - else - set @i,select(""+getitemname(getarg(1))+"",""+getitemname(getarg(3))+"","Cancel"); - if(@i==4 || (@i==3 && !getarg(5))) { - mes "["+getarg(0)+"]"; - mes "Sure, no problem."; - close; - } - set @item,getarg(@i*2-1); - set @amount,getarg(@i*2); - set @have,countitem(@item); - if(@have < @amount) { - mes "["+getarg(0)+"]"; - mes "Hey, where are all those"; - mes getitemname(@item)+" you promised?"; - close; - } - mes "["+getarg(0)+"]"; - mes "Okay, let me take a look at the stuff you brought."; - next; - set @max,@have / @amount; - mes "["+getarg(0)+"]"; - mes "You have total "+@have+" "+getitemname(@item)+"..."; - mes "I can give you"; - mes "total "+@max+" Red Potion for those."; - next; - mes "["+getarg(0)+"]"; - mes "What do you say? Deal?"; - next; - if(select("Deal.:No deal.")==2) { - mes "["+getarg(0)+"]"; - mes "Bah~ whatever."; - mes "Bah!"; - close; - } - mes "["+getarg(0)+"]"; - mes "You know the exact number of Red Potions"; - mes "you can receive for "+getitemname(@item)+", don't you?"; - next; - mes "["+getarg(0)+"]"; - mes "You can get Red Potions"; - mes "from minimum 1 to maximum 100 at once."; - mes "If you change your mind, enter '0'"; - mes "to cancel."; - while(1) { - next; - input @val; - if(@val<0 || @val>100) { - mes "["+getarg(0)+"]"; - mes "Uh oh, the number you entered"; - mes "seemed incorrect."; - mes "You'd better check how many Red"; - mes "Potions you can get."; - continue; - } - break; - } - mes "["+getarg(0)+"]"; - if(@val == 0) { - mes "What...how the hell did you even"; - mes "bother to talk to me?"; - mes "Leave, I don't deal with whimsical"; - mes "people."; - close; - } - if(@val > @max) { - mes "Uh oh, the number you entered"; - mes "seemed incorrect."; - mes "You'd better check how many Red"; - mes "Potions you can get."; - close; - } - delitem @item,@amount*@val; - getitem 501,@val; - mes "There you go!"; - mes "Thanks, it was a good deal."; - close; - case 2: - mes "["+getarg(0)+"]"; - mes "Did you say I am ripping you off?!"; - mes "You got to know how ignorant that comment was!"; - next; - mes "["+getarg(0)+"]"; - mes "When you check the price of each item,"; - mes "I am doing a losing business."; - mes "If you don't want to do then, fine!"; - close; - case 3: - mes "["+getarg(0)+"]"; - mes "Hah, no problem."; - mes "Bah!"; - close; - } -} - -prontera.gat,123,102,5 script Merchant#1 85,{ - callfunc "F_NMerch","Merchant",935,5,914,10,909,10; -} - -geffen.gat,173,88,5 script Merchant#2 85,{ - callfunc "F_NMerch","Merchant",935,5,915,6,909,10; -} - -morocc.gat,180,259,3 script Merchant#3 85,{ - callfunc "F_NMerch","Merchant",935,5,916,7,909,10; -} - -aldebaran.gat,152,63,5 script Merchant#4 85,{ - callfunc "F_NMerch","Merchant",955,1,916,7,909,10; -} - -payon.gat,200,134,5 script Merchant#5 85,{ - //we remove 3rd item, by adding 0,0 - callfunc "F_NMerch","Merchant",902,6,909,10,0,0; +//===== eAthena Script ======================================== +//= Novice Goods Exchanger +//===== By: ================================================== +//= ???, eAthena Team +//===== Current Version: ===================================== +//= 1.1a +//===== Compatible With: ===================================== +//= eAthena 1.0+ +//===== Description: ========================================= +//= Exchanges your cheap loot to Red Potions. +//= Official NPC. +//===== Additional Comments: ================================= +//= 1.1 Made it as a function. U can add your own Merchs [Lupus] +//= 1.1a Fixed item select [KarLaeda] +//============================================================ + +function script F_NMerch { + mes "["+getarg(0)+"]"; + if((Weight*100)/MaxWeight >= 90){ + mes "You will exceed your weight limit if you exchange for the Red Potions."; + close; + } + mes "Good day!"; + mes "Do you have any collection items such as "+getitemname(getarg(1))+" or "+getitemname(getarg(3))+"?"; + if(getarg(5)) + mes "...how about "+getitemname(getarg(5))+"?.."; + mes "Oh, yeah, I need those for something."; + next; + mes "["+getarg(0)+"]"; + mes "Of course I am not asking you to give those for free!"; + mes "How about... if I give you 1 Red"; + mes "Potion for "+getarg(2)+" "+getitemname(getarg(1))+" or "+getarg(4)+" "+getitemname(getarg(3))+"?"; + if(getarg(5)) + mes "Or "+getarg(6)+" "+getitemname(getarg(5))+"?"; + next; + switch (select("Sure!:Think you're ripping me off...:No, thanks")) { + case 1: + mes "["+getarg(0)+"]"; + mes "So which item do you bring me?"; + mes ""+getitemname(getarg(1))+"? "+getitemname(getarg(3))+"?"; + if(getarg(5)) + mes "Or "+getitemname(getarg(5))+"?"; + next; + if(getarg(5)) + set @i,select(""+getitemname(getarg(1))+"",""+getitemname(getarg(3))+"",""+getitemname(getarg(5))+"","Cancel"); + else + set @i,select(""+getitemname(getarg(1))+"",""+getitemname(getarg(3))+"","Cancel"); + if(@i==4 || (@i==3 && !getarg(5))) { + mes "["+getarg(0)+"]"; + mes "Sure, no problem."; + close; + } + set @item,getarg(@i*2-1); + set @amount,getarg(@i*2); + set @have,countitem(@item); + if(@have < @amount) { + mes "["+getarg(0)+"]"; + mes "Hey, where are all those"; + mes getitemname(@item)+" you promised?"; + close; + } + mes "["+getarg(0)+"]"; + mes "Okay, let me take a look at the stuff you brought."; + next; + set @max,@have / @amount; + mes "["+getarg(0)+"]"; + mes "You have total "+@have+" "+getitemname(@item)+"..."; + mes "I can give you"; + mes "total "+@max+" Red Potion for those."; + next; + mes "["+getarg(0)+"]"; + mes "What do you say? Deal?"; + next; + if(select("Deal.:No deal.")==2) { + mes "["+getarg(0)+"]"; + mes "Bah~ whatever."; + mes "Bah!"; + close; + } + mes "["+getarg(0)+"]"; + mes "You know the exact number of Red Potions"; + mes "you can receive for "+getitemname(@item)+", don't you?"; + next; + mes "["+getarg(0)+"]"; + mes "You can get Red Potions"; + mes "from minimum 1 to maximum 100 at once."; + mes "If you change your mind, enter '0'"; + mes "to cancel."; + while(1) { + next; + input @val; + if(@val<0 || @val>100) { + mes "["+getarg(0)+"]"; + mes "Uh oh, the number you entered"; + mes "seemed incorrect."; + mes "You'd better check how many Red"; + mes "Potions you can get."; + continue; + } + break; + } + mes "["+getarg(0)+"]"; + if(@val == 0) { + mes "What...how the hell did you even"; + mes "bother to talk to me?"; + mes "Leave, I don't deal with whimsical"; + mes "people."; + close; + } + if(@val > @max) { + mes "Uh oh, the number you entered"; + mes "seemed incorrect."; + mes "You'd better check how many Red"; + mes "Potions you can get."; + close; + } + delitem @item,@amount*@val; + getitem 501,@val; + mes "There you go!"; + mes "Thanks, it was a good deal."; + close; + case 2: + mes "["+getarg(0)+"]"; + mes "Did you say I am ripping you off?!"; + mes "You got to know how ignorant that comment was!"; + next; + mes "["+getarg(0)+"]"; + mes "When you check the price of each item,"; + mes "I am doing a losing business."; + mes "If you don't want to do then, fine!"; + close; + case 3: + mes "["+getarg(0)+"]"; + mes "Hah, no problem."; + mes "Bah!"; + close; + } +} + +prontera.gat,123,102,5 script Merchant#1 85,{ + callfunc "F_NMerch","Merchant",935,5,914,10,909,10; +} + +geffen.gat,173,88,5 script Merchant#2 85,{ + callfunc "F_NMerch","Merchant",935,5,915,6,909,10; +} + +morocc.gat,180,259,3 script Merchant#3 85,{ + callfunc "F_NMerch","Merchant",935,5,916,7,909,10; +} + +aldebaran.gat,152,63,5 script Merchant#4 85,{ + callfunc "F_NMerch","Merchant",955,1,916,7,909,10; +} + +payon.gat,200,134,5 script Merchant#5 85,{ + //we remove 3rd item, by adding 0,0 + callfunc "F_NMerch","Merchant",902,6,909,10,0,0; } \ No newline at end of file diff --git a/npc/merchants/quivers.txt b/npc/merchants/quivers.txt index f54aa884d..0d7eba5b3 100644 --- a/npc/merchants/quivers.txt +++ b/npc/merchants/quivers.txt @@ -1,151 +1,151 @@ -//===== eAthena Script ======================================== -//= Arrow Quiver Event -//===== By: ================================================== -//= Muad_Dib (Prometheus Project) -//===== Current Version: ===================================== -//= 1.1 -//===== 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] -//= 1.1 Added Holy Arrow Quivers [Playtester] -//============================================================ - - -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,"Holy Arrow Quiver",Q13; - -// 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; -Q13: - callsub sF_Make, 1772,500,12183, "Holy 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: - set Zeny, Zeny - (getarg(1)*@amount); - delitem getarg(0), (@amount*@arrownum); - getitem getarg(2), @amount; - mes "[Inventor Jaax]"; - mes "There you go~!"; - mes "Here are your " +getarg(3)+ "."; - 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; +//===== eAthena Script ======================================== +//= Arrow Quiver Event +//===== By: ================================================== +//= Muad_Dib (Prometheus Project) +//===== Current Version: ===================================== +//= 1.1 +//===== 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] +//= 1.1 Added Holy Arrow Quivers [Playtester] +//============================================================ + + +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,"Holy Arrow Quiver",Q13; + +// 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; +Q13: + callsub sF_Make, 1772,500,12183, "Holy 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: + set Zeny, Zeny - (getarg(1)*@amount); + delitem getarg(0), (@amount*@arrownum); + getitem getarg(2), @amount; + mes "[Inventor Jaax]"; + mes "There you go~!"; + mes "Here are your " +getarg(3)+ "."; + 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 index 1ea743dc3..bb15ccb4e 100644 --- a/npc/merchants/refine.txt +++ b/npc/merchants/refine.txt @@ -1,821 +1,821 @@ -//===== Freya Script ========================================= -//= Refining NPCs -//===== By: ================================================== -//= Syrus22 (1.1) dafide18 (1.4) Skotlex (1.5) -//===== Current Version: ===================================== -//= 2.1 -//===== 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] -//= 1.8a - Fixed wrong indication thanks to NeoSaro [Lupus] -//= 1.9 - Rewrote repairman, removed the Steel from repair cost [DracoRPG] -//= 2.0 - Fixed missed equppment presence check. Thx2 Coltaro [Lupus] -//= 2.0a - Added weight checks thanks to Neouni [Playtester] -//= 2.0b - Fixed the names of Lighthalzen and Einbroch refiners thanks to Maud_Dib [Kargha] -//= 2.1 - Removed Duplicates [Silent] -//============================================================ - - -//========================================================= -// 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; - if(checkweight(986,1) == 0 ) goto L_OverWeight; - set Zeny, Zeny - 30000; - getitem 986,1; - mes "[Christopher Guillenrow]"; - mes "This is the cheapest one but it's very efficient."; - next; - goto L_Thanks; - sM_OriAnvil: - if(Zeny < 120000) goto L_NoZeny; - if(checkweight(987,1) == 0 ) goto L_OverWeight; - set Zeny, Zeny - 120000; - getitem 987,1; - mes "[Christopher Guillenrow]"; - mes "Ah! Ye have a good eye for anvils. This here is the proper anvil for a Blacksmith."; - next; - goto L_Thanks; - sM_GolAnvil: - if(Zeny < 300000) goto L_NoZeny; - if(checkweight(988,1) == 0 ) goto L_OverWeight; - set Zeny, Zeny - 300000; - mes "[Christopher Guillenrow]"; - mes "This is the best anvil in my workshop! With this ye'll be the best Blasksmith in no time."; - 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; - if(checkweight(612,@input) == 0 ) goto L_OverWeight; - set Zeny, Zeny - (150 * @input); - getitem 612, @input; - goto L_Thanks; - sM_IrHam: - if(Zeny < 1000) goto L_NoZeny; - if(checkweight(613,1) == 0 ) goto L_OverWeight; - set Zeny, Zeny - 1000; - getitem 613,1; - goto L_Thanks; - sM_GldHam: - if(Zeny < 3000) goto L_NoZeny; - if(checkweight(614,1) == 0 ) goto L_OverWeight; - set Zeny, Zeny - 3000; - getitem 614,1; - goto L_Thanks; - sM_OriHam: - if(Zeny < 5000) goto L_NoZeny; - if(checkweight(615,1) == 0 ) goto L_OverWeight; - 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_OverWeight: - mes "[Christopher Guillenrow]"; - mes "You don't seem to have enough strength to carry this."; - 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 Manthasman 826,{ - set @name$,"Manthasman Pruhag"; - callfunc "refinemain"; - end; -} -lhz_in02.gat,282,20,7 script Fulerr 869,{ - set @name$,"Fulerr"; - 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; - set Zeny,Zeny-@price; - delitem @material,1; - -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; - set Zeny,Zeny - @fullprice; - delitem @material,@refinecnt; - 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 " + @fullprice + " Zeny... Is that ok?"; - next; - menu "Yes...",-,"No...",Lcancel; - if(@refinecheck > @safe) goto Lwarn; - if((countitem(@material) < @refinecnt) || (Zeny < @fullprice)) goto Lcancel2; - set Zeny,Zeny - @fullprice; - delitem @material,@refinecnt; - 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; - set Zeny,Zeny - @fullprice; - delitem @material,@refinecnt; - 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: - 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 - 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 Tirehaus 86,{ - set @name$,"Tirehaus"; - callfunc "phramain"; - end; -} -lhz_in02.gat,278,24,3 script Krugg 86,{ - set @name$,"Krugg"; - 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; - set Zeny,Zeny-@value*@ammount; - getitem @itemid,@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 Matestein 84,{ - set @name$,"Matestein"; - callfunc "orimain"; - end; -} -lhz_in02.gat,281,24,5 script Fruel 84,{ - set @name$,"Fruel"; - 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#01 88,{ - set @name$,"Repairman"; - callfunc "repairmain"; - end; -} -morocc_in.gat,71,40,2 script Repairman#02 99,{ - set @name$,"Repairman"; - callfunc "repairmain"; - end; -} -lhz_in02.gat,284,14,3 script Repairman#03 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."; - next; - if(getbrokenid(1)==NULL) { - mes "[" + @name$ + "]"; - mes "Looks like you don't need anything repaired today..."; - close; - } - set @choice,select(getitemname(getbrokenid(1)),getitemname(getbrokenid(2)), - getitemname(getbrokenid(3)),getitemname(getbrokenid(4)),getitemname(getbrokenid(5)), - getitemname(getbrokenid(6)),getitemname(getbrokenid(7)),getitemname(getbrokenid(8)), - getitemname(getbrokenid(9)),getitemname(getbrokenid(10))); - mes "[" + @name$ + "]"; - mes "You're gonna repair " + getitemname(getbrokenid(@choice)) + "."; - mes "To repair this, I need " + @repairprice + " Zeny."; - mes "Continue?"; - next; - if(select("Yes","No") == 2) { - mes "[" + @name$ + "]"; - mes "Ok, but don't expect to be using that..."; - close; - } - if (Zeny < @repairprice) { - mes "[" + @name$ + "]"; - mes "Is it all you got?"; - mes "Unfortunately, I have kids to feed..."; - close; - } - set Zeny,Zeny-@repairprice; - repair(@choice); - close; - -} +//===== Freya Script ========================================= +//= Refining NPCs +//===== By: ================================================== +//= Syrus22 (1.1) dafide18 (1.4) Skotlex (1.5) +//===== Current Version: ===================================== +//= 2.1 +//===== 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] +//= 1.8a - Fixed wrong indication thanks to NeoSaro [Lupus] +//= 1.9 - Rewrote repairman, removed the Steel from repair cost [DracoRPG] +//= 2.0 - Fixed missed equppment presence check. Thx2 Coltaro [Lupus] +//= 2.0a - Added weight checks thanks to Neouni [Playtester] +//= 2.0b - Fixed the names of Lighthalzen and Einbroch refiners thanks to Maud_Dib [Kargha] +//= 2.1 - Removed Duplicates [Silent] +//============================================================ + + +//========================================================= +// 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; + if(checkweight(986,1) == 0 ) goto L_OverWeight; + set Zeny, Zeny - 30000; + getitem 986,1; + mes "[Christopher Guillenrow]"; + mes "This is the cheapest one but it's very efficient."; + next; + goto L_Thanks; + sM_OriAnvil: + if(Zeny < 120000) goto L_NoZeny; + if(checkweight(987,1) == 0 ) goto L_OverWeight; + set Zeny, Zeny - 120000; + getitem 987,1; + mes "[Christopher Guillenrow]"; + mes "Ah! Ye have a good eye for anvils. This here is the proper anvil for a Blacksmith."; + next; + goto L_Thanks; + sM_GolAnvil: + if(Zeny < 300000) goto L_NoZeny; + if(checkweight(988,1) == 0 ) goto L_OverWeight; + set Zeny, Zeny - 300000; + mes "[Christopher Guillenrow]"; + mes "This is the best anvil in my workshop! With this ye'll be the best Blasksmith in no time."; + 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; + if(checkweight(612,@input) == 0 ) goto L_OverWeight; + set Zeny, Zeny - (150 * @input); + getitem 612, @input; + goto L_Thanks; + sM_IrHam: + if(Zeny < 1000) goto L_NoZeny; + if(checkweight(613,1) == 0 ) goto L_OverWeight; + set Zeny, Zeny - 1000; + getitem 613,1; + goto L_Thanks; + sM_GldHam: + if(Zeny < 3000) goto L_NoZeny; + if(checkweight(614,1) == 0 ) goto L_OverWeight; + set Zeny, Zeny - 3000; + getitem 614,1; + goto L_Thanks; + sM_OriHam: + if(Zeny < 5000) goto L_NoZeny; + if(checkweight(615,1) == 0 ) goto L_OverWeight; + 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_OverWeight: + mes "[Christopher Guillenrow]"; + mes "You don't seem to have enough strength to carry this."; + 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 Manthasman 826,{ + set @name$,"Manthasman Pruhag"; + callfunc "refinemain"; + end; +} +lhz_in02.gat,282,20,7 script Fulerr 869,{ + set @name$,"Fulerr"; + 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; + set Zeny,Zeny-@price; + delitem @material,1; + +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; + set Zeny,Zeny - @fullprice; + delitem @material,@refinecnt; + 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 " + @fullprice + " Zeny... Is that ok?"; + next; + menu "Yes...",-,"No...",Lcancel; + if(@refinecheck > @safe) goto Lwarn; + if((countitem(@material) < @refinecnt) || (Zeny < @fullprice)) goto Lcancel2; + set Zeny,Zeny - @fullprice; + delitem @material,@refinecnt; + 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; + set Zeny,Zeny - @fullprice; + delitem @material,@refinecnt; + 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: + 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 + 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 Tirehaus 86,{ + set @name$,"Tirehaus"; + callfunc "phramain"; + end; +} +lhz_in02.gat,278,24,3 script Krugg 86,{ + set @name$,"Krugg"; + 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; + set Zeny,Zeny-@value*@ammount; + getitem @itemid,@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 Matestein 84,{ + set @name$,"Matestein"; + callfunc "orimain"; + end; +} +lhz_in02.gat,281,24,5 script Fruel 84,{ + set @name$,"Fruel"; + 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#01 88,{ + set @name$,"Repairman"; + callfunc "repairmain"; + end; +} +morocc_in.gat,71,40,2 script Repairman#02 99,{ + set @name$,"Repairman"; + callfunc "repairmain"; + end; +} +lhz_in02.gat,284,14,3 script Repairman#03 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."; + next; + if(getbrokenid(1)==NULL) { + mes "[" + @name$ + "]"; + mes "Looks like you don't need anything repaired today..."; + close; + } + set @choice,select(getitemname(getbrokenid(1)),getitemname(getbrokenid(2)), + getitemname(getbrokenid(3)),getitemname(getbrokenid(4)),getitemname(getbrokenid(5)), + getitemname(getbrokenid(6)),getitemname(getbrokenid(7)),getitemname(getbrokenid(8)), + getitemname(getbrokenid(9)),getitemname(getbrokenid(10))); + mes "[" + @name$ + "]"; + mes "You're gonna repair " + getitemname(getbrokenid(@choice)) + "."; + mes "To repair this, I need " + @repairprice + " Zeny."; + mes "Continue?"; + next; + if(select("Yes","No") == 2) { + mes "[" + @name$ + "]"; + mes "Ok, but don't expect to be using that..."; + close; + } + if (Zeny < @repairprice) { + mes "[" + @name$ + "]"; + mes "Is it all you got?"; + mes "Unfortunately, I have kids to feed..."; + close; + } + set Zeny,Zeny-@repairprice; + repair(@choice); + close; + +} diff --git a/npc/merchants/renters.txt b/npc/merchants/renters.txt index 2bd71a844..0c530710c 100644 --- a/npc/merchants/renters.txt +++ b/npc/merchants/renters.txt @@ -1,182 +1,182 @@ -//===== eAthena Script ======================================= -//= Renters -//===== By: ================================================== -//= kobra_k88, mod by Lupus -//===== Current Version: ===================================== -//= 1.6a -//===== 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 "+@price+"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 "+@price+"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 "+@price+"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; -} +//===== eAthena Script ======================================= +//= Renters +//===== By: ================================================== +//= kobra_k88, mod by Lupus +//===== Current Version: ===================================== +//= 1.6a +//===== 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 "+@price+"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 "+@price+"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 "+@price+"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 index 97f645e41..163de45f7 100644 --- a/npc/merchants/scrolls_arrows.txt +++ b/npc/merchants/scrolls_arrows.txt @@ -1,38 +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 +//===== 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 index 67bbff1cb..4a2d2b1ca 100644 --- a/npc/merchants/shops.txt +++ b/npc/merchants/shops.txt @@ -1,351 +1,351 @@ -//===== eAthena Script ======================================= -//= Shops -//===== By: ================================================== -//= eAthena Dev Team -//===== Current Version: ===================================== -//= 1.9a -//===== Compatible With: ===================================== -//= eAthena 7.15 + -//===== Description: ========================================= -//= -//===== Additional Comments: ================================= -//= For earlier update notes see the bottom. -//= 1.22 Thx8) Removed Berserk Potions from all shops but Comodo [Lupus] -//= 1.3 Added Gunslinger shops. Credits goes to RockmanEXE for the info [erKURITA] -//= Added Bucket Hat to Flu Mask dealer and modified it's name to a more logical one :P [erKURITA] -//= 1.4 Added an ingredient seller to Morroc, thanks to Muad_Dib [MasterOfMuppets] -//= a Removed doubled Morocc Ing.Seller, arranged the rest Ing.Sellers according to the city names [Lupus] -//= 1.4b Commented out temp Gunslinger shops. [Lupus] -//= 1.5 Removed Temp gunslinger shops and moved up the official ones. [erKURITA] -//= Added Official Ninja shops in their correct location and commented a few -//= shops. Thanks to RockmanEXE and Muad_Dib [erKURITA] -//= 1.6 Implemented a missing Tool Shop in Lighthalzen [MasterOfMuppets] -//= 1.7 Added some missing iRO - Lighthalzen NPCs [Musashiden] -//= 1.8 Added Rachel Official shops. Special Thanks to RockmanEXE. [erKURITA] -//= 1.9 Uncommented Homunculus shop, since Homunculus is working on trunk now. [Evera] -//= 1.9a Pet Merchant -> Lighthalzen [erKURITA] -//============================================================ - - -//======================================================= -//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 -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 -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 -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,175,97,4 shop Weapon Dealer 82,1146:-1,1245:-1 -//alberta_in.gat,18,59,5 shop Miner 48,1010:-1,1011:-1 -alberta.gat,167,135,4 shop Ingredient Seller 712,579:-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,22,47,4 shop Weapon Dealer 713,1146:-1,1245:-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 -//Uncommented for homunculus on trunk -alde_alche.gat,38,184,2 shop Homunculus Supplies 755,7143:-1,7141:-1,7140:-1,12040:-1 -aldebaran.gat,166,109,7 shop Ingredient Seller 750,580:-1,7482:-1 //temp goods - -//======================================================= -//AMATSU -//======================================================= -//|Removed the following shops according to RockmanEXe's info. Some were removed anyway. -//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 -//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 -//|<= end of removed shops -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 -amatsu.gat,205,150,2 shop Ingredient Seller 83,7453:-1,579:-1 -//| Official Ninja Shops -que_ng.gat,72,31,2 shop Shuriken Dealer 83,13250:-1,13251:-1,13252:-1,13253:-1,13254:-1 -que_ng.gat,73,26,5 shop Tool Dealer 83,2117:-1,7521:-1,7522:-1,7523:-1,7524:-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,1901:-1,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 -comodo.gat,224,164,4 shop Food Seller 750,7455:-1 - -cmd_fild07.gat,257,126,5 shop Tool Dealer 83,1770:-1,501:-1,502:-1,503:-1,504:-1,645:-1,656:-1,601:-1,602:-1,611:-1,1065:-1 -cmd_fild07.gat,250,98,2 shop Weapon Dealer 49,1401:-1,1404:-1,1407:-1,1451:-1,1454:-1,1457:-1,1460:-1,1463:-1,1410:-1 -cmd_fild07.gat,277,85,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 - -//======================================================= -//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 -ein_in01.gat,119,26,4 shop Weapon Dealer 855,1247:-1,1248:-1,1249:-1,13000:-1 -einbroch.gat,138,66,3 shop Head Gear Dealer 850,5114:-1,2218:-1 -einbroch.gat,82,199,3 shop Paddler 855,512:-1,645:-1,1750:-1,501:-1 -//Official Gunslingers shops. -que_ng.gat,179,91,4 shop Gunner#Gun Seller 900,13150:-1,13102:-1,13151:-1,13154:-1,13155:-1 -que_ng.gat,180,79,4 shop Gunner#Ammo Seller 900,13200:-1,13201:-1,13202:-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,22,171,6 shop Weapon Dealer 84,1146:-1,1245:-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 -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 -geffen.gat,135,64,3 shop Ingredient Seller 750,580:-1,7482:-1 //temp coords, temp goods - -//======================================================= -//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 -hugel.gat,77,167,3 shop Food Seller 892,522:-1,512:-1,513:-1,515:-1,516:-1,535:-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 -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 Gardener 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 -lighthalzen.gat,124,129,8 shop Vegetable Gardener 91,515:-1,516:-1,535:-1 -lighthalzen.gat,222,191,4 shop Pet Merchant 125,537:-1,643:-1,10013:-1,10014:-1 -lhz_in02.gat,286,95,4 shop Begginer's Merchant 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 Wand 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,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 -lhz_in03.gat,239,106,4 shop Tool Dealer 850,501:-1,502:-1,506:-1,645:-1,656:-1,601:-1,602:-1,1065:-1,611:-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 -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 -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.gat,120,97,5 shop Ingredient Seller 86,7452:-1,7453:-1,7454:-1,7455:-1,7456:-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 -//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 -niflheim.gat,205,158,1 shop Ingredient Seller 795,581:-1 //temp coords, temp spr ID - -//======================================================= -//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 -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 -prontera.gat,48,58,7 shop Vegetable Gardener 91,515:-1,516:-1,535:-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 -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 -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,164,140,4 shop Weapon Dealer 66,1146:-1,1245:-1 - -//======================================================= -//RACHEL -//======================================================= -ra_in01.gat,175,364,3 shop Armor Dealer 919,2101:-1,2103:-1,2403:-1,2405:-1,2503:-1,2321:-1,2314:-1,2309:-1,2335:-1,2628:-1 -ra_in01.gat,254,300,3 shop Tool Dealer 931,512:-1,513:-1 -ra_in01.gat,257,269,3 shop Tool Dealer 919,501:-1,502:-1,503:-1,504:-1,506:-1,645:-1,656:-1,601:-1,602:-1,611:-1,1065:-1,610:-1 -ra_in01.gat,176,389,3 shop Weapon Dealer 931,1201:-1,1207:-1,1216:-1,1107:-1,1122:-1,1116:-1,1154:-1,1407:-1,1457:-1,1354:-1,1519:-1,13003:-1,1601:-1,1604:-1,1607:-1 -rachel.gat,65,80,0 shop Vegetable Gardener 919,515:-1,535:-1,516:-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 -// 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,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 Tool 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,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 -yuno_in03.gat,176,22,3 shop Scroll Seller 89,7433:-1 //Temp shop in Yuno that sells Blank Scrolls -yuno.gat,133,171,2 shop Ingredient Seller 750,7457:-1,7482:-1 - - -//======================================================= -// ST. CAPITOLINA ABBEY -//====================================== -//= Monk shop, sells Knuckle weapons) -//======================================================= -prt_monk.gat,135,263,3 shop Blacksmith 726,1801:-1,1803:-1,1805:-1 - -//===== Additional Comments(old): ================================= -//= 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] -//= 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] -//= 1.19a Added Food Seller selling Mastela Fruit in Hugel (Update item_db for the correct price!) [Poki#3] -//= 1.20 Added 3 weapons shops, thx2 Muad_Dib [Lupus] -//= 1.21 Added another weapon dealer to Einbroch, thanks to Muad_Dib [MasterOfMuppets] -//= - Fixed up the missing sprites for you Lupus :) -//= - Guys, I suggest we crop these comments and put them at the bottom soon +//===== eAthena Script ======================================= +//= Shops +//===== By: ================================================== +//= eAthena Dev Team +//===== Current Version: ===================================== +//= 1.9a +//===== Compatible With: ===================================== +//= eAthena 7.15 + +//===== Description: ========================================= +//= +//===== Additional Comments: ================================= +//= For earlier update notes see the bottom. +//= 1.22 Thx8) Removed Berserk Potions from all shops but Comodo [Lupus] +//= 1.3 Added Gunslinger shops. Credits goes to RockmanEXE for the info [erKURITA] +//= Added Bucket Hat to Flu Mask dealer and modified it's name to a more logical one :P [erKURITA] +//= 1.4 Added an ingredient seller to Morroc, thanks to Muad_Dib [MasterOfMuppets] +//= a Removed doubled Morocc Ing.Seller, arranged the rest Ing.Sellers according to the city names [Lupus] +//= 1.4b Commented out temp Gunslinger shops. [Lupus] +//= 1.5 Removed Temp gunslinger shops and moved up the official ones. [erKURITA] +//= Added Official Ninja shops in their correct location and commented a few +//= shops. Thanks to RockmanEXE and Muad_Dib [erKURITA] +//= 1.6 Implemented a missing Tool Shop in Lighthalzen [MasterOfMuppets] +//= 1.7 Added some missing iRO - Lighthalzen NPCs [Musashiden] +//= 1.8 Added Rachel Official shops. Special Thanks to RockmanEXE. [erKURITA] +//= 1.9 Uncommented Homunculus shop, since Homunculus is working on trunk now. [Evera] +//= 1.9a Pet Merchant -> Lighthalzen [erKURITA] +//============================================================ + + +//======================================================= +//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 +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 +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 +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,175,97,4 shop Weapon Dealer 82,1146:-1,1245:-1 +//alberta_in.gat,18,59,5 shop Miner 48,1010:-1,1011:-1 +alberta.gat,167,135,4 shop Ingredient Seller 712,579:-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,22,47,4 shop Weapon Dealer 713,1146:-1,1245:-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 +//Uncommented for homunculus on trunk +alde_alche.gat,38,184,2 shop Homunculus Supplies 755,7143:-1,7141:-1,7140:-1,12040:-1 +aldebaran.gat,166,109,7 shop Ingredient Seller 750,580:-1,7482:-1 //temp goods + +//======================================================= +//AMATSU +//======================================================= +//|Removed the following shops according to RockmanEXe's info. Some were removed anyway. +//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 +//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 +//|<= end of removed shops +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 +amatsu.gat,205,150,2 shop Ingredient Seller 83,7453:-1,579:-1 +//| Official Ninja Shops +que_ng.gat,72,31,2 shop Shuriken Dealer 83,13250:-1,13251:-1,13252:-1,13253:-1,13254:-1 +que_ng.gat,73,26,5 shop Tool Dealer 83,2117:-1,7521:-1,7522:-1,7523:-1,7524:-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,1901:-1,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 +comodo.gat,224,164,4 shop Food Seller 750,7455:-1 + +cmd_fild07.gat,257,126,5 shop Tool Dealer 83,1770:-1,501:-1,502:-1,503:-1,504:-1,645:-1,656:-1,601:-1,602:-1,611:-1,1065:-1 +cmd_fild07.gat,250,98,2 shop Weapon Dealer 49,1401:-1,1404:-1,1407:-1,1451:-1,1454:-1,1457:-1,1460:-1,1463:-1,1410:-1 +cmd_fild07.gat,277,85,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 + +//======================================================= +//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 +ein_in01.gat,119,26,4 shop Weapon Dealer 855,1247:-1,1248:-1,1249:-1,13000:-1 +einbroch.gat,138,66,3 shop Head Gear Dealer 850,5114:-1,2218:-1 +einbroch.gat,82,199,3 shop Paddler 855,512:-1,645:-1,1750:-1,501:-1 +//Official Gunslingers shops. +que_ng.gat,179,91,4 shop Gunner#Gun Seller 900,13150:-1,13102:-1,13151:-1,13154:-1,13155:-1 +que_ng.gat,180,79,4 shop Gunner#Ammo Seller 900,13200:-1,13201:-1,13202:-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,22,171,6 shop Weapon Dealer 84,1146:-1,1245:-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 +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 +geffen.gat,135,64,3 shop Ingredient Seller 750,580:-1,7482:-1 //temp coords, temp goods + +//======================================================= +//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 +hugel.gat,77,167,3 shop Food Seller 892,522:-1,512:-1,513:-1,515:-1,516:-1,535:-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 +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 Gardener 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 +lighthalzen.gat,124,129,8 shop Vegetable Gardener 91,515:-1,516:-1,535:-1 +lighthalzen.gat,222,191,4 shop Pet Merchant 125,537:-1,643:-1,10013:-1,10014:-1 +lhz_in02.gat,286,95,4 shop Begginer's Merchant 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 Wand 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,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 +lhz_in03.gat,239,106,4 shop Tool Dealer 850,501:-1,502:-1,506:-1,645:-1,656:-1,601:-1,602:-1,1065:-1,611:-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 +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 +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.gat,120,97,5 shop Ingredient Seller 86,7452:-1,7453:-1,7454:-1,7455:-1,7456:-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 +//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 +niflheim.gat,205,158,1 shop Ingredient Seller 795,581:-1 //temp coords, temp spr ID + +//======================================================= +//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 +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 +prontera.gat,48,58,7 shop Vegetable Gardener 91,515:-1,516:-1,535:-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 +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 +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,164,140,4 shop Weapon Dealer 66,1146:-1,1245:-1 + +//======================================================= +//RACHEL +//======================================================= +ra_in01.gat,175,364,3 shop Armor Dealer 919,2101:-1,2103:-1,2403:-1,2405:-1,2503:-1,2321:-1,2314:-1,2309:-1,2335:-1,2628:-1 +ra_in01.gat,254,300,3 shop Tool Dealer 931,512:-1,513:-1 +ra_in01.gat,257,269,3 shop Tool Dealer 919,501:-1,502:-1,503:-1,504:-1,506:-1,645:-1,656:-1,601:-1,602:-1,611:-1,1065:-1,610:-1 +ra_in01.gat,176,389,3 shop Weapon Dealer 931,1201:-1,1207:-1,1216:-1,1107:-1,1122:-1,1116:-1,1154:-1,1407:-1,1457:-1,1354:-1,1519:-1,13003:-1,1601:-1,1604:-1,1607:-1 +rachel.gat,65,80,0 shop Vegetable Gardener 919,515:-1,535:-1,516:-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 +// 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,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 Tool 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,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 +yuno_in03.gat,176,22,3 shop Scroll Seller 89,7433:-1 //Temp shop in Yuno that sells Blank Scrolls +yuno.gat,133,171,2 shop Ingredient Seller 750,7457:-1,7482:-1 + + +//======================================================= +// ST. CAPITOLINA ABBEY +//====================================== +//= Monk shop, sells Knuckle weapons) +//======================================================= +prt_monk.gat,135,263,3 shop Blacksmith 726,1801:-1,1803:-1,1805:-1 + +//===== Additional Comments(old): ================================= +//= 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] +//= 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] +//= 1.19a Added Food Seller selling Mastela Fruit in Hugel (Update item_db for the correct price!) [Poki#3] +//= 1.20 Added 3 weapons shops, thx2 Muad_Dib [Lupus] +//= 1.21 Added another weapon dealer to Einbroch, thanks to Muad_Dib [MasterOfMuppets] +//= - Fixed up the missing sprites for you Lupus :) +//= - Guys, I suggest we crop these comments and put them at the bottom soon //============================================================ \ No newline at end of file diff --git a/npc/merchants/shuriken_maker.txt b/npc/merchants/shuriken_maker.txt index 1ae9583b1..2e09ff24a 100644 --- a/npc/merchants/shuriken_maker.txt +++ b/npc/merchants/shuriken_maker.txt @@ -1,161 +1,161 @@ -//===== eAthena Script ======================================== -//= Shuriken Blacksmith -//===== By: ================================================== -//= Au{R}oN -//===== Current Version: ===================================== -//= 1.2c -//===== Compatible With: ===================================== -//= eAthena 1.0+ -//===== Description: ========================================= -//= Shuriken Weapon Maker. -//===== Additional Comments: ================================= -//= Converted from Aegis -//= 1.0 Added the 4 Shuriken. [Au{R}oN] -//= 1.1 Fix getitem bugs and add if ninja job check. [Au{R}oN] -//= 1.2 more bugs fixed,wrong labels, missing stuf, etc[Lupus] -//= 1.2a added missing next; -//= 1.2b Thanks to $ephiroth, fixed wrong ingredient lists -//============================================================ - -que_ng.gat,22,62,3 script Taitsu 709,{ - - mes "[Taitsu]"; - if(Class!=Job_Ninja){ - mes "Sorry, but I can use my ability only for Ninja Class."; - close; - } - mes "Hello"; - mes "I'm Taitsu, the Blacksmith of Fuuma Ninja."; - next; - mes "[Taitsu]"; - mes "Due to a burst of interest, my life became very miserable."; - mes "So, I'm taking everything from the beginning, but haven't made weapon in a long time..."; - next; - mes "[Taitsu]"; - mes "However, in terms of making Fuuma weapons, no one can make them any better then mine."; - mes "Here, take a look."; - next; - menu "Fuuma Shuriken Beneki",M_BENEKI,"Fuuma Shuriken Daisharin",M_DAIS, - "Fuuma Shuriken Daisharin [4]",M_DAIS4,"Fuuma Shuriken Rekka",M_REKKA; - -//=====================BENEKI======================== -M_BENEKI: - mes "[Taitsu]"; - mes "For making ^FF0000Fuuma Shuriken Beneki^000000"; - mes "you need these items:"; - mes "50 Steel, 20 Harpy's Feathers, 5 Oridecon, and 90.000z."; - mes "Do you want it?"; - next; - menu "Yes",-,"No Thanks",M_NOPE; - - mes "[Taitsu]"; - mes "So let me check for your items..."; - set @z,90000; - if(Zeny < @z) goto L_NOZENY; - if(countitem(999)<50 || countitem(7115)<20 || countitem(984)<5) goto L_NOITEMS; - set Zeny,Zeny-@z; - delitem 999,50; - delitem 7115,20; - delitem 984,5; - next; - getitem 13300,1; - mes "[Taitsu]"; - mes "Ok, enjoy with your new weapon."; - close; - -//=====================DAISHARIN======================== -M_DAIS: - mes "[Taitsu]"; - mes "For making ^FF0000Fuuma Shuriken Daisharin^000000"; - mes "you need these items:"; - mes "30 Steel, 100 Tassels, 2 Oridecon, and 40.000z."; - mes "Do you want it?"; - next; - menu "Yes",-,"No Thanks",M_NOPE; - - mes "[Taitsu]"; - mes "So let me check for your items..."; - set @z,40000; - if(Zeny < @z) goto L_NOZENY; - if(countitem(999)<30 || countitem(7301)<100 || countitem(984)<2) goto L_NOITEMS; - set Zeny,Zeny-@z; - delitem 999,30; - delitem 7301,100; - delitem 984,2; - next; - getitem 13301,1; - mes "[Taitsu]"; - mes "Ok, enjoy with your new weapon."; - close; - -//=====================DAISHARIN4======================== -M_DAIS4: - mes "[Taitsu]"; - mes "For making ^FF0000Fuuma Shuriken Daisharin[4]^000000"; - mes "you need these items:"; - mes "20 Cracked Diamonds, 1 Fuuma Shuriken Daisharin, 3 Oridecon, and 40.000z."; - mes "Do you want it?"; - next; - menu "Yes",-,"No Thanks",M_NOPE; - - mes "[Taitsu]"; - mes "So let me check for your items..."; - set @z,40000; - if(Zeny < @z) goto L_NOZENY; - if(countitem(733)<20 || countitem(13301)<1 || countitem(984)<3) goto L_NOITEMS; - set Zeny,Zeny-@z; - delitem 733,20; - delitem 13301,1; - delitem 984,3; - next; - getitem 13302,1; - mes "[Taitsu]"; - mes "Ok, enjoy with your new weapon."; - close; - -//=====================REKKA======================== -M_REKKA: - mes "[Taitsu]"; - mes "For making ^FF0000Fuuma Shuriken Rekka^000000"; - mes "you need these items:"; - mes "50 Steel, 100 Live Coal, 100 Burning Heart, 50 Burning Stone and 78.000z."; - mes "Do you want it?"; - next; - menu "Yes",-,"No Thanks",M_NOPE; - - mes "[Taitsu]"; - mes "So let me check for your items..."; - set @z,78000; - if(Zeny < @z) goto L_NOZENY; - if(countitem(999)<50 || countitem(7098)<100 || countitem(7097)<100 || countitem(7521)<50) goto L_NOITEMS; - set Zeny,Zeny-@z; - delitem 999,50; - delitem 7098,100; - delitem 7097,100; - delitem 7521,50; - next; - getitem 13303,1; - mes "[Taitsu]"; - mes "Ok, enjoy with your new weapon."; - close; - -//=====================I'M SORRY======================== -L_NOITEMS: - next; - mes "[Taitsu]"; - mes "Sorry, but you don't have all the required items."; - emotion e_sry; - close; - -L_NOZENY: - next; - mes "[Taitsu]"; - mes "I'm sorry, but you need "+@z+"z"; - emotion e_cash; - close; - -M_NOPE: - mes "[Taitsu]"; - mes "OK, came back when you want."; - close; +//===== eAthena Script ======================================== +//= Shuriken Blacksmith +//===== By: ================================================== +//= Au{R}oN +//===== Current Version: ===================================== +//= 1.2c +//===== Compatible With: ===================================== +//= eAthena 1.0+ +//===== Description: ========================================= +//= Shuriken Weapon Maker. +//===== Additional Comments: ================================= +//= Converted from Aegis +//= 1.0 Added the 4 Shuriken. [Au{R}oN] +//= 1.1 Fix getitem bugs and add if ninja job check. [Au{R}oN] +//= 1.2 more bugs fixed,wrong labels, missing stuf, etc[Lupus] +//= 1.2a added missing next; +//= 1.2b Thanks to $ephiroth, fixed wrong ingredient lists +//============================================================ + +que_ng.gat,22,62,3 script Taitsu 709,{ + + mes "[Taitsu]"; + if(Class!=Job_Ninja){ + mes "Sorry, but I can use my ability only for Ninja Class."; + close; + } + mes "Hello"; + mes "I'm Taitsu, the Blacksmith of Fuuma Ninja."; + next; + mes "[Taitsu]"; + mes "Due to a burst of interest, my life became very miserable."; + mes "So, I'm taking everything from the beginning, but haven't made weapon in a long time..."; + next; + mes "[Taitsu]"; + mes "However, in terms of making Fuuma weapons, no one can make them any better then mine."; + mes "Here, take a look."; + next; + menu "Fuuma Shuriken Beneki",M_BENEKI,"Fuuma Shuriken Daisharin",M_DAIS, + "Fuuma Shuriken Daisharin [4]",M_DAIS4,"Fuuma Shuriken Rekka",M_REKKA; + +//=====================BENEKI======================== +M_BENEKI: + mes "[Taitsu]"; + mes "For making ^FF0000Fuuma Shuriken Beneki^000000"; + mes "you need these items:"; + mes "50 Steel, 20 Harpy's Feathers, 5 Oridecon, and 90.000z."; + mes "Do you want it?"; + next; + menu "Yes",-,"No Thanks",M_NOPE; + + mes "[Taitsu]"; + mes "So let me check for your items..."; + set @z,90000; + if(Zeny < @z) goto L_NOZENY; + if(countitem(999)<50 || countitem(7115)<20 || countitem(984)<5) goto L_NOITEMS; + set Zeny,Zeny-@z; + delitem 999,50; + delitem 7115,20; + delitem 984,5; + next; + getitem 13300,1; + mes "[Taitsu]"; + mes "Ok, enjoy with your new weapon."; + close; + +//=====================DAISHARIN======================== +M_DAIS: + mes "[Taitsu]"; + mes "For making ^FF0000Fuuma Shuriken Daisharin^000000"; + mes "you need these items:"; + mes "30 Steel, 100 Tassels, 2 Oridecon, and 40.000z."; + mes "Do you want it?"; + next; + menu "Yes",-,"No Thanks",M_NOPE; + + mes "[Taitsu]"; + mes "So let me check for your items..."; + set @z,40000; + if(Zeny < @z) goto L_NOZENY; + if(countitem(999)<30 || countitem(7301)<100 || countitem(984)<2) goto L_NOITEMS; + set Zeny,Zeny-@z; + delitem 999,30; + delitem 7301,100; + delitem 984,2; + next; + getitem 13301,1; + mes "[Taitsu]"; + mes "Ok, enjoy with your new weapon."; + close; + +//=====================DAISHARIN4======================== +M_DAIS4: + mes "[Taitsu]"; + mes "For making ^FF0000Fuuma Shuriken Daisharin[4]^000000"; + mes "you need these items:"; + mes "20 Cracked Diamonds, 1 Fuuma Shuriken Daisharin, 3 Oridecon, and 40.000z."; + mes "Do you want it?"; + next; + menu "Yes",-,"No Thanks",M_NOPE; + + mes "[Taitsu]"; + mes "So let me check for your items..."; + set @z,40000; + if(Zeny < @z) goto L_NOZENY; + if(countitem(733)<20 || countitem(13301)<1 || countitem(984)<3) goto L_NOITEMS; + set Zeny,Zeny-@z; + delitem 733,20; + delitem 13301,1; + delitem 984,3; + next; + getitem 13302,1; + mes "[Taitsu]"; + mes "Ok, enjoy with your new weapon."; + close; + +//=====================REKKA======================== +M_REKKA: + mes "[Taitsu]"; + mes "For making ^FF0000Fuuma Shuriken Rekka^000000"; + mes "you need these items:"; + mes "50 Steel, 100 Live Coal, 100 Burning Heart, 50 Burning Stone and 78.000z."; + mes "Do you want it?"; + next; + menu "Yes",-,"No Thanks",M_NOPE; + + mes "[Taitsu]"; + mes "So let me check for your items..."; + set @z,78000; + if(Zeny < @z) goto L_NOZENY; + if(countitem(999)<50 || countitem(7098)<100 || countitem(7097)<100 || countitem(7521)<50) goto L_NOITEMS; + set Zeny,Zeny-@z; + delitem 999,50; + delitem 7098,100; + delitem 7097,100; + delitem 7521,50; + next; + getitem 13303,1; + mes "[Taitsu]"; + mes "Ok, enjoy with your new weapon."; + close; + +//=====================I'M SORRY======================== +L_NOITEMS: + next; + mes "[Taitsu]"; + mes "Sorry, but you don't have all the required items."; + emotion e_sry; + close; + +L_NOZENY: + next; + mes "[Taitsu]"; + mes "I'm sorry, but you need "+@z+"z"; + emotion e_cash; + close; + +M_NOPE: + mes "[Taitsu]"; + mes "OK, came back when you want."; + close; } \ No newline at end of file diff --git a/npc/merchants/socket_enchant.txt b/npc/merchants/socket_enchant.txt index 6685231b9..ba61b71e0 100644 --- a/npc/merchants/socket_enchant.txt +++ b/npc/merchants/socket_enchant.txt @@ -1,844 +1,844 @@ -//===== eAthena Script ======================================= -//= Socket Enchant -//===== By: ================================================== -//= Sousuke_PL -//===== Current Version: ===================================== -//= 0.3 -//===== Compatible With: ===================================== -//= eAthena SVN -//===== Description: ========================================= -//= item loses all element refinement and upgrades but -//= cards too? -//===== Additional Comments: ================================= -//= 0.1a added missing L_No: to 2 funcs [Lupus] -//= 0.1b Removed duplicates [Toms] -//= 0.2 Added missing next;'s [Evera] -//= 0.3 Fixed Zweihander[+] id [Lupus] -//============================================================ - - -lhz_in02.gat,281,35,5 script Socket Enchant 84,{ - - mes "[Socket Enchant]"; - mes "Hello."; - mes "How can I help you?"; - next; - menu "Upgrade my item",-,"Nothing",L_Not; - - mes "[Socket Enchant]"; - mes "This is weapon or armor?"; - next; - menu "Weapon",L_Weapon1,"Armor",L_Armor1; - - -//============================================================ -//= Weapon -//============================================================ - - L_WaepJump: - mes "[Socket Enchant]"; - mes "Choose the number of page. Type 1 to 5:"; - next; - input @weapsite; - if(@weapsite > 5 || @weapsite < 1) goto L_WaepJump; - - if(@weapsite == 1) goto L_Weapon1; - if(@weapsite == 2) goto L_Weapon2; - if(@weapsite == 3) goto L_Weapon3; - if(@weapsite == 4) goto L_Weapon4; - if(@weapsite == 5) goto L_Weapon5; - - - L_Weapon1: - - close2; - mes "[Socket Enchant]"; - mes "Please choose your item:"; - next; - menu "Trident[2]",Trident,"Rope[3]",Rope,"Violin[3]",Violin,"Chain[2]",Chain,"Gladius[2]",Gladius,"Gakkung Bow[1]",Gakkung_Bow,"Next",L_Weapon2,"Jump to page...",L_WaepJump; - - L_Weapon2: - - close2; - mes "[Socket Enchant]"; - mes "Please choose your item:"; - next; - menu "Pike[3]",Pike,"Haedonggum[1]",Haedonggum,"Lute[2]",Lute,"Wire Whip[2]",Wire_Whip,"Waghnak[3]",Waghnak,"Arbalest[1]",Arbalest,"Next",L_Weapon3,"Jump to page...",L_WaepJump; - - L_Weapon3: - - close2; - mes "[Socket Enchant]"; - mes "Please choose your item:"; - next; - menu "Hunter Bow",Hunter_Bow,"(Int) Survivor's Rod",Int_Survivors_Rod,"Zweihander",Zweihander,"Flamberge",Flamberge,"Infiltrator",Infiltrator,"Ballista",Ballista,"Next",L_Weapon4,"Jump to page...",L_WaepJump; - - L_Weapon4: - - close2; - mes "[Socket Enchant]"; - mes "Please choose your item:"; - next; - menu "Stunner",Stunner,"Berserk",Berserk,"Claymore",Claymore,"Gungnir",Gungnir,"Poison Knife",Poison_Knife,"Sucsamad",Sucsamad,"Next",L_Weapon5,"Jump to page...",L_WaepJump; - - L_Weapon5: - - close2; - mes "[Socket Enchant]"; - mes "Please choose your item:"; - next; - menu "Ginnungagap",Ginnungagap,"Cutlus",Cutlus,"Crescent Scythe",Crescent_Scythe,"Ice Pick",Ice_Pick,"(Dex) Survivor's Rod",Dex_Survivors_Rod,"Next",L_Weapon1,"Jump to page...",L_WaepJump; - - - Trident: - set @olditem,1460; - set @newitem,1461; - callfunc "f_weapon_c"; - - Rope: - set @olditem,1950; - set @newitem,1951; - callfunc "f_weapon_c"; - - Violin: - set @olditem,1901; - set @newitem,1902; - callfunc "f_weapon_c"; - - Chain: - set @olditem,1519; - set @newitem,1520; - callfunc "f_weapon_b"; - - Gladius: - set @olditem,1219; - set @newitem,1220; - callfunc "f_weapon_b"; - - Gakkung_Bow: - set @olditem,1714; - set @newitem,1716; - callfunc "f_weapon_b"; - - Pike: - set @olditem,1407; - set @newitem,1408; - callfunc "f_weapon_b"; - - Haedonggum: - set @olditem,1123; - set @newitem,1128; - callfunc "f_weapon_b"; - - Lute: - set @olditem,1905; - set @newitem,1906; - callfunc "f_weapon_b"; - - Wire_Whip: - set @olditem,1954; - set @newitem,1955; - callfunc "f_weapon_b"; - - Waghnak: - set @olditem,1801; - set @newitem,1802; - callfunc "f_weapon_b"; - - Arbalest: - set @olditem,1713; - set @newitem,1715; - callfunc "f_weapon_b"; - - Hunter_Bow: - set @olditem,1718; - set @newitem,1726; - callfunc "f_weapon_a"; - - Int_Survivors_Rod: - set @olditem,1619; - set @newitem,1620; - callfunc "f_weapon_a"; - - Zweihander: - set @olditem,1168; - set @newitem,1171; - callfunc "f_weapon_a3"; - - Flamberge: - set @olditem,1129; - set @newitem,1149; - callfunc "f_weapon_a"; - - Infiltrator: - set @olditem,1261; - set @newitem,1266; - callfunc "f_weapon_a2"; - - Ballista: - set @olditem,1722; - set @newitem,1727; - callfunc "f_weapon_a"; - - Stunner: - set @olditem,1522; - set @newitem,1532; - callfunc "f_weapon_a"; - - Berserk: - set @olditem,1814; - set @newitem,1816; - callfunc "f_weapon_a"; - - Claymore: - set @olditem,1163; - set @newitem,1172; - callfunc "f_weapon_a"; - - Gungnir: - set @olditem,1413; - set @newitem,1418; - callfunc "f_weapon_s"; - - Poison_Knife: - set @olditem,1239; - set @newitem,13016; - callfunc "f_weapon_s"; - - Sucsamad: - set @olditem,1236; - set @newitem,13018; - callfunc "f_weapon_s"; - - Ginnungagap: - set @olditem,13002; - set @newitem,13019; - callfunc "f_weapon_s"; - - Cutlus: - set @olditem,1135; - set @newitem,13400; - callfunc "f_weapon_s"; - - Crescent_Scythe: - set @olditem,1466; - set @newitem,1476; - callfunc "f_weapon_s"; - - Ice_Pick: - set @olditem,1230; - set @newitem,13017; - callfunc "f_weapon_s2"; - - Dex_Survivors_Rod: - set @olditem,1617; - set @newitem,1618; - callfunc "f_weapon_s2"; - - - -//============================================================ -//= Armor -//============================================================ - - L_ArmorJump: - mes "[Socket Enchant]"; - mes "Choose the number of page. Type 1 to 6:"; - next; - input @armorsite; - if(@armorsite > 6 || @armorsite < 1) goto L_ArmorJump; - - if(@armorsite == 1) goto L_Armor1; - if(@armorsite == 2) goto L_Armor2; - if(@armorsite == 3) goto L_Armor3; - if(@armorsite == 4) goto L_Armor4; - if(@armorsite == 5) goto L_Armor5; - if(@armorsite == 6) goto L_Armor6; - - - L_Armor1: - - close2; - mes "[Socket Enchant]"; - mes "Please choose your item:"; - next; - menu "Mantle",Mantle,"Coat",Coat,"Circlet",Circlet,"Biretta",Biretta,"Mirror Shield",Mirror_Shield,"Chain Mail",Chain_Mail,"Shield",Shield,"Bongun Hat",Bongun_Hat,"Next",L_Armor2,"Jump to page...",L_ArmorJump; - - L_Armor2: - - close2; - mes "[Socket Enchant]"; - mes "Please choose your item:"; - next; - menu "Saint's Robe",Saints_Robe,"Silk Robe",Silk_Robe,"Boots",Boots,"Shoes",Shoes,"Muffler",Muffler,"Guard",Guard,"Buckler",Buckler,"Munak Hat",Munak_Hat,"Next",L_Armor3,"Jump to page...",L_ArmorJump; - - L_Armor3: - - close2; - mes "[Socket Enchant]"; - mes "Please choose your item:"; - next; - menu "Gemmed Sallet",Gemmed_Sallet,"Bucket Hat",Bucket_Hat,"Memory Book",Memory_Book,"Tights",Tights,"Legion Plate Armor",Legion_Plate_Armor,"Full Plate",Full_Plate,"Thief Clothes",Thief_Clothes,"Next",L_Armor4,"Jump to page...",L_ArmorJump; - - L_Armor4: - - close2; - mes "[Socket Enchant]"; - mes "Please choose your item:"; - next; - menu "Greaves",Greaves,"Coif",Coif,"Manteau",Manteau,"Helm",Helm,"Ninja Suit",Ninja_Suit,"Orc Helm",Orc_Helm,"Ancient Cape",Ancient_Cape,"Next",L_Armor5,"Jump to page...",L_ArmorJump; - - L_Armor5: - - close2; - mes "[Socket Enchant]"; - mes "Please choose your item:"; - next; - menu "Monk Hat",Monk_Hat,"Golden Gear",Golden_Gear,"Brooch",Brooch,"Tiara",Tiara,"Sphinx Hat",Sphinx_Hat,"Robe of Cast",Robe_of_Cast,"Earring",Earring,"Next",L_Armor6,"Jump to page...",L_ArmorJump; - - L_Armor6: - - close2; - mes "[Socket Enchant]"; - mes "Please choose your item:"; - next; - menu "Ring",Ring,"Bow Thimble",Bow_Thimble,"Majestic Goat",Majestic_Goat,"Spiky Band",Spiky_Band,"Bone Helm",Bone_Helm,"Corsair",Corsair,"Crown",Crown,"Next",L_Armor1,"Jump to page...",L_ArmorJump; - - - Mantle: - set @olditem,2307; - set @newitem,2308; - callfunc "f_armor_c"; - - Coat: - set @olditem,2309; - set @newitem,2310; - callfunc "f_armor_c"; - - Circlet: - set @olditem,2232; - set @newitem,2233; - callfunc "f_armor_c"; - - Biretta: - set @olditem,2216; - set @newitem,2217; - callfunc "f_armor_c"; - - Mirror_Shield: - set @olditem,2107; - set @newitem,2108; - callfunc "f_armor_b"; - - Chain_Mail: - set @olditem,2314; - set @newitem,2315; - callfunc "f_armor_b"; - - Shield: - set @olditem,2105; - set @newitem,2106; - callfunc "f_armor_b"; - - Bongun_Hat: - set @olditem,5046; - set @newitem,5168; - callfunc "f_armor_b"; - - Saints_Robe: - set @olditem,2325; - set @newitem,2326; - callfunc "f_armor_b2"; - - Silk_Robe: - set @olditem,2321; - set @newitem,2322; - callfunc "f_armor_b2"; - - Boots: - set @olditem,2405; - set @newitem,2406; - callfunc "f_armor_b2"; - - Shoes: - set @olditem,2403; - set @newitem,2404; - callfunc "f_armor_b2"; - - Muffler: - set @olditem,2503; - set @newitem,2504; - callfunc "f_armor_b2"; - - Guard: - set @olditem,2101; - set @newitem,2102; - callfunc "f_armor_b2"; - - Buckler: - set @olditem,2103; - set @newitem,2104; - callfunc "f_armor_b2"; - - Munak_Hat: - set @olditem,2264; - set @newitem,5167; - callfunc "f_armor_a"; - - Gemmed_Sallet: - set @olditem,2230; - set @newitem,2231; - callfunc "f_armor_a2"; - - Bucket_Hat: - set @olditem,5114; - set @newitem,5120; - callfunc "f_armor_a2"; - - Memory_Book: - set @olditem,2109; - set @newitem,2121; - callfunc "f_armor_a2"; - - Tights: - set @olditem,2330; - set @newitem,2331; - callfunc "f_armor_a2"; - - Legion_Plate_Armor: - set @olditem,2341; - set @newitem,2342; - callfunc "f_armor_a2"; - - Full_Plate: - set @olditem,2316; - set @newitem,2317; - callfunc "f_armor_a2"; - - Thief_Clothes: - set @olditem,2335; - set @newitem,2336; - callfunc "f_armor_a2"; - - Greaves: - set @olditem,2411; - set @newitem,2412; - callfunc "f_armor_a2"; - - Coif: - set @olditem,5092; - set @newitem,5093; - callfunc "f_armor_a2"; - - Manteau: - set @olditem,2505; - set @newitem,2506; - callfunc "f_armor_a2"; - - Helm: - set @olditem,2228; - set @newitem,2229; - callfunc "f_armor_a2"; - - Ninja_Suit: - set @olditem,2337; - set @newitem,2359; - callfunc "f_armor_a2"; - - Orc_Helm: - set @olditem,2299; - set @newitem,5157; - callfunc "f_armor_a2"; - - Ancient_Cape: - set @olditem,2507; - set @newitem,2525; - callfunc "f_armor_a2"; - - Monk_Hat: - set @olditem,2251; - set @newitem,5158; - callfunc "f_armor_a2"; - - Golden_Gear: - set @olditem,2246; - set @newitem,5159; - callfunc "f_armor_a2"; - - Brooch: - set @olditem,2605; - set @newitem,2625; - callfunc "f_armor_a2"; - - Tiara: - set @olditem,2234; - set @newitem,5164; - callfunc "f_armor_s2"; - - Sphinx_Hat: - set @olditem,5053; - set @newitem,5166; - callfunc "f_armor_s"; - - Robe_of_Cast: - set @olditem,2343; - set @newitem,2360; - callfunc "f_armor_s"; - - Earring: - set @olditem,2602; - set @newitem,2622; - callfunc "f_armor_s"; - - Ring: - set @olditem,2601; - set @newitem,2621; - callfunc "f_armor_s"; - - Bow_Thimble: - set @olditem,2619; - set @newitem,2671; - callfunc "f_armor_s"; - - Majestic_Goat: - set @olditem,2256; - set @newitem,5160; - callfunc "f_armor_s2"; - - Spiky_Band: - set @olditem,2258; - set @newitem,5161; - callfunc "f_armor_s2"; - - Bone_Helm: - set @olditem,5017; - set @newitem,5162; - callfunc "f_armor_s2"; - - Corsair: - set @olditem,5019; - set @newitem,5163; - callfunc "f_armor_s2"; - - Crown: - set @olditem,2235; - set @newitem,5165; - callfunc "f_armor_s2"; - -//============================================================ -//= Other -//============================================================ - - L_Not: - mes "[Socket Enchant]"; - mes "Bye~!"; - close; - -} - -//============================================================ -//= Functions add slots -//============================================================ - -function script addslot { - - mes "[Socket Enchant]"; - mes "Upgrade cost "+@addprice+" zeny and ^5533FF"+@itemupname$+"^000000."; - next; - mes "[Socket Enchant]"; - mes "Are you sure? Remember that it can fail."; - mes "Do you want to continue?"; - next; - menu "Yes",-,"No",L_No; - - - if(countitem(@olditem)<1) goto L_NoItem; - if(Zeny<@addprice) goto L_NoZeny; - if(countitem(@itemup)<@itemupiece) goto L_NoItemUp; - - delitem @itemup,@itemupiece; - set Zeny,Zeny-@addprice; - delitem @olditem,1; - if(@rateit 5 || @weapsite < 1) goto L_WaepJump; + + if(@weapsite == 1) goto L_Weapon1; + if(@weapsite == 2) goto L_Weapon2; + if(@weapsite == 3) goto L_Weapon3; + if(@weapsite == 4) goto L_Weapon4; + if(@weapsite == 5) goto L_Weapon5; + + + L_Weapon1: + + close2; + mes "[Socket Enchant]"; + mes "Please choose your item:"; + next; + menu "Trident[2]",Trident,"Rope[3]",Rope,"Violin[3]",Violin,"Chain[2]",Chain,"Gladius[2]",Gladius,"Gakkung Bow[1]",Gakkung_Bow,"Next",L_Weapon2,"Jump to page...",L_WaepJump; + + L_Weapon2: + + close2; + mes "[Socket Enchant]"; + mes "Please choose your item:"; + next; + menu "Pike[3]",Pike,"Haedonggum[1]",Haedonggum,"Lute[2]",Lute,"Wire Whip[2]",Wire_Whip,"Waghnak[3]",Waghnak,"Arbalest[1]",Arbalest,"Next",L_Weapon3,"Jump to page...",L_WaepJump; + + L_Weapon3: + + close2; + mes "[Socket Enchant]"; + mes "Please choose your item:"; + next; + menu "Hunter Bow",Hunter_Bow,"(Int) Survivor's Rod",Int_Survivors_Rod,"Zweihander",Zweihander,"Flamberge",Flamberge,"Infiltrator",Infiltrator,"Ballista",Ballista,"Next",L_Weapon4,"Jump to page...",L_WaepJump; + + L_Weapon4: + + close2; + mes "[Socket Enchant]"; + mes "Please choose your item:"; + next; + menu "Stunner",Stunner,"Berserk",Berserk,"Claymore",Claymore,"Gungnir",Gungnir,"Poison Knife",Poison_Knife,"Sucsamad",Sucsamad,"Next",L_Weapon5,"Jump to page...",L_WaepJump; + + L_Weapon5: + + close2; + mes "[Socket Enchant]"; + mes "Please choose your item:"; + next; + menu "Ginnungagap",Ginnungagap,"Cutlus",Cutlus,"Crescent Scythe",Crescent_Scythe,"Ice Pick",Ice_Pick,"(Dex) Survivor's Rod",Dex_Survivors_Rod,"Next",L_Weapon1,"Jump to page...",L_WaepJump; + + + Trident: + set @olditem,1460; + set @newitem,1461; + callfunc "f_weapon_c"; + + Rope: + set @olditem,1950; + set @newitem,1951; + callfunc "f_weapon_c"; + + Violin: + set @olditem,1901; + set @newitem,1902; + callfunc "f_weapon_c"; + + Chain: + set @olditem,1519; + set @newitem,1520; + callfunc "f_weapon_b"; + + Gladius: + set @olditem,1219; + set @newitem,1220; + callfunc "f_weapon_b"; + + Gakkung_Bow: + set @olditem,1714; + set @newitem,1716; + callfunc "f_weapon_b"; + + Pike: + set @olditem,1407; + set @newitem,1408; + callfunc "f_weapon_b"; + + Haedonggum: + set @olditem,1123; + set @newitem,1128; + callfunc "f_weapon_b"; + + Lute: + set @olditem,1905; + set @newitem,1906; + callfunc "f_weapon_b"; + + Wire_Whip: + set @olditem,1954; + set @newitem,1955; + callfunc "f_weapon_b"; + + Waghnak: + set @olditem,1801; + set @newitem,1802; + callfunc "f_weapon_b"; + + Arbalest: + set @olditem,1713; + set @newitem,1715; + callfunc "f_weapon_b"; + + Hunter_Bow: + set @olditem,1718; + set @newitem,1726; + callfunc "f_weapon_a"; + + Int_Survivors_Rod: + set @olditem,1619; + set @newitem,1620; + callfunc "f_weapon_a"; + + Zweihander: + set @olditem,1168; + set @newitem,1171; + callfunc "f_weapon_a3"; + + Flamberge: + set @olditem,1129; + set @newitem,1149; + callfunc "f_weapon_a"; + + Infiltrator: + set @olditem,1261; + set @newitem,1266; + callfunc "f_weapon_a2"; + + Ballista: + set @olditem,1722; + set @newitem,1727; + callfunc "f_weapon_a"; + + Stunner: + set @olditem,1522; + set @newitem,1532; + callfunc "f_weapon_a"; + + Berserk: + set @olditem,1814; + set @newitem,1816; + callfunc "f_weapon_a"; + + Claymore: + set @olditem,1163; + set @newitem,1172; + callfunc "f_weapon_a"; + + Gungnir: + set @olditem,1413; + set @newitem,1418; + callfunc "f_weapon_s"; + + Poison_Knife: + set @olditem,1239; + set @newitem,13016; + callfunc "f_weapon_s"; + + Sucsamad: + set @olditem,1236; + set @newitem,13018; + callfunc "f_weapon_s"; + + Ginnungagap: + set @olditem,13002; + set @newitem,13019; + callfunc "f_weapon_s"; + + Cutlus: + set @olditem,1135; + set @newitem,13400; + callfunc "f_weapon_s"; + + Crescent_Scythe: + set @olditem,1466; + set @newitem,1476; + callfunc "f_weapon_s"; + + Ice_Pick: + set @olditem,1230; + set @newitem,13017; + callfunc "f_weapon_s2"; + + Dex_Survivors_Rod: + set @olditem,1617; + set @newitem,1618; + callfunc "f_weapon_s2"; + + + +//============================================================ +//= Armor +//============================================================ + + L_ArmorJump: + mes "[Socket Enchant]"; + mes "Choose the number of page. Type 1 to 6:"; + next; + input @armorsite; + if(@armorsite > 6 || @armorsite < 1) goto L_ArmorJump; + + if(@armorsite == 1) goto L_Armor1; + if(@armorsite == 2) goto L_Armor2; + if(@armorsite == 3) goto L_Armor3; + if(@armorsite == 4) goto L_Armor4; + if(@armorsite == 5) goto L_Armor5; + if(@armorsite == 6) goto L_Armor6; + + + L_Armor1: + + close2; + mes "[Socket Enchant]"; + mes "Please choose your item:"; + next; + menu "Mantle",Mantle,"Coat",Coat,"Circlet",Circlet,"Biretta",Biretta,"Mirror Shield",Mirror_Shield,"Chain Mail",Chain_Mail,"Shield",Shield,"Bongun Hat",Bongun_Hat,"Next",L_Armor2,"Jump to page...",L_ArmorJump; + + L_Armor2: + + close2; + mes "[Socket Enchant]"; + mes "Please choose your item:"; + next; + menu "Saint's Robe",Saints_Robe,"Silk Robe",Silk_Robe,"Boots",Boots,"Shoes",Shoes,"Muffler",Muffler,"Guard",Guard,"Buckler",Buckler,"Munak Hat",Munak_Hat,"Next",L_Armor3,"Jump to page...",L_ArmorJump; + + L_Armor3: + + close2; + mes "[Socket Enchant]"; + mes "Please choose your item:"; + next; + menu "Gemmed Sallet",Gemmed_Sallet,"Bucket Hat",Bucket_Hat,"Memory Book",Memory_Book,"Tights",Tights,"Legion Plate Armor",Legion_Plate_Armor,"Full Plate",Full_Plate,"Thief Clothes",Thief_Clothes,"Next",L_Armor4,"Jump to page...",L_ArmorJump; + + L_Armor4: + + close2; + mes "[Socket Enchant]"; + mes "Please choose your item:"; + next; + menu "Greaves",Greaves,"Coif",Coif,"Manteau",Manteau,"Helm",Helm,"Ninja Suit",Ninja_Suit,"Orc Helm",Orc_Helm,"Ancient Cape",Ancient_Cape,"Next",L_Armor5,"Jump to page...",L_ArmorJump; + + L_Armor5: + + close2; + mes "[Socket Enchant]"; + mes "Please choose your item:"; + next; + menu "Monk Hat",Monk_Hat,"Golden Gear",Golden_Gear,"Brooch",Brooch,"Tiara",Tiara,"Sphinx Hat",Sphinx_Hat,"Robe of Cast",Robe_of_Cast,"Earring",Earring,"Next",L_Armor6,"Jump to page...",L_ArmorJump; + + L_Armor6: + + close2; + mes "[Socket Enchant]"; + mes "Please choose your item:"; + next; + menu "Ring",Ring,"Bow Thimble",Bow_Thimble,"Majestic Goat",Majestic_Goat,"Spiky Band",Spiky_Band,"Bone Helm",Bone_Helm,"Corsair",Corsair,"Crown",Crown,"Next",L_Armor1,"Jump to page...",L_ArmorJump; + + + Mantle: + set @olditem,2307; + set @newitem,2308; + callfunc "f_armor_c"; + + Coat: + set @olditem,2309; + set @newitem,2310; + callfunc "f_armor_c"; + + Circlet: + set @olditem,2232; + set @newitem,2233; + callfunc "f_armor_c"; + + Biretta: + set @olditem,2216; + set @newitem,2217; + callfunc "f_armor_c"; + + Mirror_Shield: + set @olditem,2107; + set @newitem,2108; + callfunc "f_armor_b"; + + Chain_Mail: + set @olditem,2314; + set @newitem,2315; + callfunc "f_armor_b"; + + Shield: + set @olditem,2105; + set @newitem,2106; + callfunc "f_armor_b"; + + Bongun_Hat: + set @olditem,5046; + set @newitem,5168; + callfunc "f_armor_b"; + + Saints_Robe: + set @olditem,2325; + set @newitem,2326; + callfunc "f_armor_b2"; + + Silk_Robe: + set @olditem,2321; + set @newitem,2322; + callfunc "f_armor_b2"; + + Boots: + set @olditem,2405; + set @newitem,2406; + callfunc "f_armor_b2"; + + Shoes: + set @olditem,2403; + set @newitem,2404; + callfunc "f_armor_b2"; + + Muffler: + set @olditem,2503; + set @newitem,2504; + callfunc "f_armor_b2"; + + Guard: + set @olditem,2101; + set @newitem,2102; + callfunc "f_armor_b2"; + + Buckler: + set @olditem,2103; + set @newitem,2104; + callfunc "f_armor_b2"; + + Munak_Hat: + set @olditem,2264; + set @newitem,5167; + callfunc "f_armor_a"; + + Gemmed_Sallet: + set @olditem,2230; + set @newitem,2231; + callfunc "f_armor_a2"; + + Bucket_Hat: + set @olditem,5114; + set @newitem,5120; + callfunc "f_armor_a2"; + + Memory_Book: + set @olditem,2109; + set @newitem,2121; + callfunc "f_armor_a2"; + + Tights: + set @olditem,2330; + set @newitem,2331; + callfunc "f_armor_a2"; + + Legion_Plate_Armor: + set @olditem,2341; + set @newitem,2342; + callfunc "f_armor_a2"; + + Full_Plate: + set @olditem,2316; + set @newitem,2317; + callfunc "f_armor_a2"; + + Thief_Clothes: + set @olditem,2335; + set @newitem,2336; + callfunc "f_armor_a2"; + + Greaves: + set @olditem,2411; + set @newitem,2412; + callfunc "f_armor_a2"; + + Coif: + set @olditem,5092; + set @newitem,5093; + callfunc "f_armor_a2"; + + Manteau: + set @olditem,2505; + set @newitem,2506; + callfunc "f_armor_a2"; + + Helm: + set @olditem,2228; + set @newitem,2229; + callfunc "f_armor_a2"; + + Ninja_Suit: + set @olditem,2337; + set @newitem,2359; + callfunc "f_armor_a2"; + + Orc_Helm: + set @olditem,2299; + set @newitem,5157; + callfunc "f_armor_a2"; + + Ancient_Cape: + set @olditem,2507; + set @newitem,2525; + callfunc "f_armor_a2"; + + Monk_Hat: + set @olditem,2251; + set @newitem,5158; + callfunc "f_armor_a2"; + + Golden_Gear: + set @olditem,2246; + set @newitem,5159; + callfunc "f_armor_a2"; + + Brooch: + set @olditem,2605; + set @newitem,2625; + callfunc "f_armor_a2"; + + Tiara: + set @olditem,2234; + set @newitem,5164; + callfunc "f_armor_s2"; + + Sphinx_Hat: + set @olditem,5053; + set @newitem,5166; + callfunc "f_armor_s"; + + Robe_of_Cast: + set @olditem,2343; + set @newitem,2360; + callfunc "f_armor_s"; + + Earring: + set @olditem,2602; + set @newitem,2622; + callfunc "f_armor_s"; + + Ring: + set @olditem,2601; + set @newitem,2621; + callfunc "f_armor_s"; + + Bow_Thimble: + set @olditem,2619; + set @newitem,2671; + callfunc "f_armor_s"; + + Majestic_Goat: + set @olditem,2256; + set @newitem,5160; + callfunc "f_armor_s2"; + + Spiky_Band: + set @olditem,2258; + set @newitem,5161; + callfunc "f_armor_s2"; + + Bone_Helm: + set @olditem,5017; + set @newitem,5162; + callfunc "f_armor_s2"; + + Corsair: + set @olditem,5019; + set @newitem,5163; + callfunc "f_armor_s2"; + + Crown: + set @olditem,2235; + set @newitem,5165; + callfunc "f_armor_s2"; + +//============================================================ +//= Other +//============================================================ + + L_Not: + mes "[Socket Enchant]"; + mes "Bye~!"; + close; + +} + +//============================================================ +//= Functions add slots +//============================================================ + +function script addslot { + + mes "[Socket Enchant]"; + mes "Upgrade cost "+@addprice+" zeny and ^5533FF"+@itemupname$+"^000000."; + next; + mes "[Socket Enchant]"; + mes "Are you sure? Remember that it can fail."; + mes "Do you want to continue?"; + next; + menu "Yes",-,"No",L_No; + + + if(countitem(@olditem)<1) goto L_NoItem; + if(Zeny<@addprice) goto L_NoZeny; + if(countitem(@itemup)<@itemupiece) goto L_NoItemUp; + + delitem @itemup,@itemupiece; + set Zeny,Zeny-@addprice; + delitem @olditem,1; + if(@rateit