summaryrefslogtreecommitdiff
path: root/npc/pre-re/merchants/hair_dyer.txt
diff options
context:
space:
mode:
Diffstat (limited to 'npc/pre-re/merchants/hair_dyer.txt')
-rw-r--r--npc/pre-re/merchants/hair_dyer.txt409
1 files changed, 409 insertions, 0 deletions
diff --git a/npc/pre-re/merchants/hair_dyer.txt b/npc/pre-re/merchants/hair_dyer.txt
new file mode 100644
index 000000000..ed69197ed
--- /dev/null
+++ b/npc/pre-re/merchants/hair_dyer.txt
@@ -0,0 +1,409 @@
+//===== rAthena Script =======================================
+//= Hair Dyer
+//===== By: ==================================================
+//= kobra_k88; L0ne_W0lf
+//===== Current Version: =====================================
+//= 1.5
+//===== Compatible With: =====================================
+//= rAthena SVN
+//===== Description: =========================================
+//= Hair Dyer with standard palletes
+//===== Additional Comments: =================================
+//= Fully working
+//= 1.1 Bugfix: fixed missing menu label LEnd->M_End [Lupus]
+//= 1.2 Rescripted to Aegis 10.3 standards. [L0ne_W0lf]
+//= 1.3 Fixed problem what "freezes" the NPC. (bugreport:509) [Samuray22]
+//= 1.4 Fixed getlook checking the wrong color. (bugreport:2392) [L0ne_W0lf]
+//= 1.5 Added Lighthalzen Hair Dying NPC. [L0ne_W0lf]
+//============================================================
+
+prt_in,243,168,4 script Jovovich 91,{
+ mes "[Hairdresser Jovovich]";
+ mes "Welcome~!";
+ mes "How may I help you?";
+ next;
+ mes "[Hairdresser Jovovich]";
+ if (sex) mes "Oh, no! Your hair is damaged. It seems as if you may need professional treatment. Come sit over here, please. Come.";
+ else {
+ if (rand(20) > 11) {
+ mes "Eh!? Oh my! Oh no no no no! Your hair is sooo damaged! It's not good if you leave your hair like this.";
+ next;
+ mes "[Hairdresser Jovovich]";
+ mes "Would you let me treat your hair? Please?";
+ }
+ else mes "Wow! Your hair would be perfect once it's dyed~ How about dying your hair for a change?";
+ }
+ next;
+ while(1) {
+ switch(select("Dye Hair:Tips and Information:Cancel")) {
+ case 1:
+ mes "[Hairdresser Jovovich]";
+ mes "Yes yes, good choice~";
+ mes "Well then, this is your chance for a make-over, your chance to blossom in beauty! Choose the color you would like.";
+ next;
+ while(1) {
+ if (.@choose_success == 1) {
+ mes "[Hairdresser Jovovich]";
+ mes "What do you think? Did you want a different color?";
+ next;
+ if (select("Yes:No") == 1) {
+ mes "[Hairdresser Jovovich]";
+ mes "Okay! Choose the color that you would like.";
+ next;
+ }
+ else {
+ mes "[Hairdresser Jovovich]";
+ mes "Hmm, I'm sort of disappointed. I wanted to do a better job. But I promise I'll do it better next time. Please come again~";
+ close;
+ }
+ }
+
+ while(1) {
+ switch(select("Red, please.:Yellow, please.:Violet, please.:Orange, please.:Green, please.:Blue, please.:White, please.:Black, please.:Actually, I like my hair as it is.")) {
+ case 1: set .@headpalette,8; break;
+ case 2: set .@headpalette,1; break;
+ case 3: set .@headpalette,2; break;
+ case 4: set .@headpalette,3; break;
+ case 5: set .@headpalette,4; break;
+ case 6: set .@headpalette,5; break;
+ case 7: set .@headpalette,6; break;
+ case 8: set .@headpalette,7; break;
+ case 9:
+ if (.@choose_success != 0) {
+ mes "[Hairdresser Jovovich]";
+ mes "You must like your hair color~";
+ close;
+ }
+ mes "[Hairdresser Jovovich]";
+ mes "Eehh~? You're not going to dye your hair? I'm a little sad...";
+ close;
+ }
+
+ if (.@headpalette == getlook(VAR_HEADPALETTE)) {
+ mes "[Hairdresser Jovovich]";
+ mes "Eh? But that's the hair color you already have. Please choose a different color.";
+ next;
+ }
+ else {
+ switch(.@headpalette) {
+ case 1: callsub S_NoDye,976,"yellow"; break;
+ case 2: callsub S_NoDye,978,"violet"; break;
+ case 3: callsub S_NoDye,979,"orange"; break;
+ case 4: callsub S_NoDye,980,"green"; break;
+ case 5: callsub S_NoDye,981,"blue"; break;
+ case 6: callsub S_NoDye,982,"white"; break;
+ case 7: callsub S_NoDye,983,"black"; break;
+ Case 8: callsub S_NoDye,975,"red"; break;
+ }
+ if (zeny < 1000) {
+ mes "[Hairdresser Jovovich]";
+ mes "The fee is 1000 zeny. Do you not have enough...?";
+ close;
+ }
+
+ switch(.@headpalette) {
+ case 1: delitem 976,1; break; //Lemon_Dyestuffs
+ case 2: delitem 978,1; break; //Violet_Dyestuffs
+ case 3: delitem 979,1; break; //Orange_Dyestuffs
+ case 4: delitem 980,1; break; //Darkgreen_Dyestuffs
+ case 5: delitem 981,1; break; //Cobaltblue_Dyestuffs
+ case 6: delitem 982,1; break; //White_Dyestuffs
+ case 7: delitem 983,1; break; //Black_Dyestuffs
+ case 8: delitem 975,1; break; //Scarlet_Dyestuffs
+ }
+ set Zeny,Zeny-1000;
+ setlook VAR_HEADPALETTE,.@headpalette;
+ set .@choose_success,1;
+ break;
+ }
+
+ }
+
+ }
+
+ case 2:
+ mes "[Hairdresser Jovovich]";
+ mes "When you're feeling down , when you get dumped, when you want to impress someone, or even when you just want to stand out...";
+ next;
+ mes "[Hairdresser Jovovich]";
+ mes "For that special place and time, wouldn't you want a hairstyle of your very own? As long as you have the appropriate dyestuffs, I will make your hair look wonderful.";
+ next;
+ mes "[Hairdresser Jovovich]";
+ mes "And try not to worry too much about the fee. Acquiring beauty is the same as acquiring everything. Hehe~";
+ next;
+ mes "[Hairdresser Jovovich]";
+ mes "* Fees and Information *";
+ mes "- 1 Dyestuffs item of the color of hair you want.";
+ mes "- 1000 zeny fee.";
+ break;
+
+ case 3:
+ mes "[Hairdresser Jovovich]";
+ mes "Men or Women...";
+ mes "Everyone has the right and obligation to be beautiful.";
+ close;
+ }
+
+ }
+
+S_NoDye:
+ if (countitem(getarg(0)) == 0) {
+ mes "[Hairdresser Jovovich]";
+ mes "Eh?! But you need the item '"+getitemname(getarg(0))+"' to dye your hair "+getarg(1)+"...";
+ close;
+ }
+ return;
+}
+
+// Lighthalzen
+lhz_in02,100,134,3 script Hair Dyer#lich 850,{
+ mes "[Rossa]";
+ if (Sex == 1) {
+ mes "Welcome, come in~";
+ mes "Oh, I see that you take";
+ mes "much better care of your";
+ mes "hair than those other boys.";
+ mes "Now would you like to dye";
+ mes "your hair another color?";
+ }
+ else {
+ mes "Oh, wow~ Where did";
+ mes "you get your hair styled?";
+ mes "I love it! But... It would";
+ mes "be even more beautiful if";
+ mes "you dyed your hair. What";
+ mes "do you think about that?";
+ }
+ while (.@choose_success != 2) {
+ next;
+ switch(select("Dye Hair:Coloring Information:Cancel")) {
+ case 1:
+ mes "[Rossa]";
+ mes "Ho ho ho ho~";
+ mes "So which color would";
+ mes "you like to try? Something";
+ mes "vivid or dark? Sexy or cute?";
+ next;
+ while (.@choose_success != 2) {
+ if (.@choose_success == 1) {
+ mes "[Rossa]";
+ mes "Ooh, I like this color!";
+ mes "But would you like to";
+ mes "try a different one?";
+ next;
+ switch(select("Yes:No")) {
+ case 1:
+ mes "[Rossa]";
+ mes "Please select";
+ mes "another color~";
+ next;
+ break;
+ case 2:
+ mes "[Rossa]";
+ mes "An excellent choice~";
+ mes "Alright then, thank you";
+ mes "for using my service and";
+ mes "I hope you come by again!";
+ close2;
+ set .@choose_success,2;
+ break;
+ }
+ }
+ while (.@choose_success != 2) {
+ switch(select("Red, please.:Yellow, please.:Purple, please.:Orange, please.:Green, please.:Blue, please.:White, please.:Dark Brown, please.:I like my hair color.")) {
+ case 1:
+ set .@headpalette,8;
+ break;
+ case 2:
+ set .@headpalette,1;
+ break;
+ case 3:
+ set .@headpalette,2;
+ break;
+ case 4:
+ set .@headpalette,3;
+ break;
+ case 5:
+ set .@headpalette,4;
+ break;
+ case 6:
+ set .@headpalette,5;
+ break;
+ case 7:
+ set .@headpalette,6;
+ break;
+ case 8:
+ set .@headpalette,7;
+ break;
+ case 9:
+ if (.@choose_success != 0) {
+ mes "[Rossa]";
+ mes "Are you sure?";
+ mes "Alright then, you";
+ mes "know what's best for";
+ mes "your beauty and to tell";
+ mes "the truth, I agree with you~";
+ close2;
+ set .@choose_success,2;
+ }
+ else {
+ mes "[Rossa]";
+ mes "Oh, I see. Still, I can't";
+ mes "help but feel so disappointed.";
+ mes "You'd look so good if you dyed";
+ mes "your hair a different color~";
+ close2;
+ set .@choose_success,2;
+ }
+ break;
+ }
+ if (getlook(VAR_HEADPALETTE) == .@headpalette) {
+ mes "[Rossa]";
+ mes "Hmm, your hair color";
+ mes "is still fine, so there's";
+ mes "no need to dye it the same";
+ mes "color again, if that's what";
+ mes "you're worried about.";
+ next;
+ }
+ else {
+ if ((.@headpalette == 8) && (countitem(975) == 0)) {
+ mes "[Rossa]";
+ mes "Oh, I'm sorry dear,";
+ mes "but I can't dye your";
+ mes "hair if you didn't bring";
+ mes "Scarlet Dyestuffs with you...";
+ close2;
+ set .@choose_success,2;
+ break;
+ }
+ else if ((.@headpalette == 1) && (countitem(976) == 0)) {
+ mes "[Rossa]";
+ mes "Oh, I'm sorry dear,";
+ mes "but I can't dye your";
+ mes "hair if you didn't bring";
+ mes "Lemon Dyestuffs with you...";
+ close2;
+ set .@choose_success,2;
+ break;
+ }
+ else if ((.@headpalette == 2) && (countitem(981) == 0)) {
+ mes "[Rossa]";
+ mes "Oh, I'm sorry dear,";
+ mes "but I can't dye your";
+ mes "hair if you didn't bring";
+ mes "Violet Dyestuffs with you...";
+ close2;
+ set .@choose_success,2;
+ break;
+ }
+ else if ((.@headpalette == 3) && (countitem(980) == 0)) {
+ mes "[Rossa]";
+ mes "Oh, I'm sorry dear,";
+ mes "but I can't dye your";
+ mes "hair if you didn't bring";
+ mes "Orange Dyestuffs with you...";
+ close2;
+ set .@choose_success,2;
+ break;
+ }
+ else if ((.@headpalette == 4) && (countitem(979) == 0)) {
+ mes "[Rossa]";
+ mes "Oh, I'm sorry dear,";
+ mes "but I can't dye your";
+ mes "hair if you didn't bring";
+ mes "Darkgreen Dyestuffs";
+ mes "with you. Would you come";
+ mes "back after you get some?";
+ close2;
+ set .@choose_success,2;
+ break;
+ }
+ else if ((.@headpalette == 5) && (countitem(978) == 0)) {
+ mes "[Rossa]";
+ mes "Oh, I'm sorry dear,";
+ mes "but I can't dye your";
+ mes "hair if you didn't bring";
+ mes "Cobaltblue Dyestuffs";
+ mes "with you. Would you come";
+ mes "back after you get some?";
+ close2;
+ set .@choose_success,2;
+ break;
+ }
+ else if ((.@headpalette == 6) && (countitem(982) == 0)) {
+ mes "[Rossa]";
+ mes "Oh, I'm sorry dear,";
+ mes "but I can't dye your";
+ mes "hair if you didn't bring";
+ mes "White Dyestuffs with you...";
+ close2;
+ set .@choose_success,2;
+ break;
+ }
+ else if ((.@headpalette == 7) && (countitem(983) == 0)) {
+ mes "[Rossa]";
+ mes "Oh, I'm sorry dear,";
+ mes "but I can't dye your";
+ mes "hair if you didn't bring";
+ mes "Black Dyestuffs with you...";
+ close2;
+ set .@choose_success,2;
+ break;
+ }
+ if (Zeny < 1000) {
+ mes "[Rossa]";
+ mes "Oh, I'm so sorry dear,";
+ mes "but my service fee is";
+ mes "1,000 zeny. Did you forget";
+ mes "to bring your money with you?";
+ close2;
+ set .@choose_success,2;
+ break;
+ }
+ if (.@headpalette == 8) delitem 975,1; //Scarlet_Dyestuffs
+ else if (.@headpalette == 1) delitem 976,1; //Lemon_Dyestuffs
+ else if (.@headpalette == 2) delitem 981,1; //Violet_Dyestuffs
+ else if (.@headpalette == 3) delitem 980,1; //Orange_Dyestuffs
+ else if (.@headpalette == 4) delitem 979,1; //Darkgreen_Dyestuffs
+ else if (.@headpalette == 5) delitem 978,1; //Cobaltblue_Dyestuffs
+ else if (.@headpalette == 6) delitem 982,1; //White_Dyestuffs
+ else if (.@headpalette == 7) delitem 983,1; //Black_Dyestuffs
+ set zeny,zeny-1000;
+ setlook VAR_HEADPALETTE,.@headpalette;
+ set .@choose_success,1;
+ break;
+ }
+ }
+ }
+ break;
+ case 2:
+ mes "[Rossa]";
+ mes "When you're feeling";
+ mes "down, when you just want";
+ mes "to look nice for the one you";
+ mes "love, or when you just want";
+ mes "a different look, why don't";
+ mes "you dye your hair?";
+ next;
+ mes "[Rossa]";
+ mes "All you need is one";
+ mes "Dyestuffs item of the";
+ mes "color that you want to";
+ mes "dye your hair, as well as";
+ mes "a 1,000 zeny service fee.";
+ mes "I'm here for your beauty needs~";
+ break;
+ case 3:
+ mes "[Rossa]";
+ mes "You know, when you";
+ mes "put some effort into";
+ mes "your appearance, you'll";
+ mes "not only look better, but";
+ mes "you'll feel better about";
+ mes "yourself. Makes sense, right?";
+ close;
+ }
+ }
+ close;
+}