mes "Hey, I remember you! I already told you that you may only complete this quest once.";
close; }
mes "Greeting, lad. I found a really nifty item while I was picking mushrooms near Glast Heim.";
next;
menu "Keep talking",-, "Leave", M_Leave;
mes "[Old Woman]";
mes "I have never seen an item like this before. I am told it can be placed inside am accessory that has a slot avaiable in it.";
if(select("Keep Talking:Leave")==2) goto M_Leave;
mes .@n$;
mes "I have never seen an item like this before. I am told it can be placed inside any accessory with a slot available.";
next;
mes "[Old Woman]";
mes "If you're interested in this item, tell me and I'll tell you what you need for me to make you one of your own. I can only give one of these to each player, so once you finish this quest once, you may not do it again.";
mes .@n$;
mes "If you're interested in this item, I'll tell you what you need for me to make you one of your own. I can only give one of these to each player, so once you finish this quest, you may not do it again.";
next;
menu "Tell me more about it",-, "Nah, I don't care about it", M_Leave;
mes "[Old Woman]";
mes "I believe the item is called a ^FF0000Berzebub Card^000000. It can make any spell caster cast spells really fast!";
if(select("Tell me more about it:Nah, I don't care about it")==2) goto M_Leave;
mes .@n$;
mes "I believe the item is called a ^FF0000Berzebub Card^000000. It makes you cast spells really fast!";
next;
mes "[Old Woman]";
mes .@n$;
mes "I need all of the following items:";
mes "^0080FF25^000000 Emperiums";
mes "^0080FF100^000000 Witched Starsands";
mes "^0080FF200^000000 Needles of Alarm";
mes "^0080FF10^000000 Worn Out Scrolls";
mes "^0080FF2^000000 Biblies";
mes "^0080FF1^000000 Wand of the Occult";
mes "^0080FF20^000000 Opals";
for(set .@i,0; .@i<getarraysize(.@Items); set .@i,.@i+2) {
mes " ~ "+.@Items[.@i+1]+"x "+getitemname(.@Items[.@i]);
if (countitem(.@Items[.@i]) < .@Items[.@i+1]) set .@nr,1; }
next;
menu "I have all that!",-, "I'll get those ASAP", M_Leave;
mes "[Old Woman]";
mes "Anyone can say they have the items, but do they really have them? Let's take a look here...";
mes "11... 12... Mmm... good. I think I'll be able to finish before tonight<68>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;
function Dyes;
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
//=================================
set .@EnableDyes,1; // Disable (set to 0) if palettes cause errors [see note v2.4]
mes "Life may have gotten a bit 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 .n$;
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 .n$;
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 .n$;
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 .n$;
mes "Can you feel it too? The energy that is released when rough fabric and leather are brought to life with color?.....";
next;
mes .n$;
mes "Although the process is very tedious and time consuming, the joy and happiness I feel when a dress is finished more than makes up for all of the hard work!!";
break;
case 2:
mes .n$;
if (!.@EnableDyes) {
mes "Sorry, I'm too busy with other jobs to dye your clothes."; break; }
mes "Oh... you need my work? Well... okay, sounds good.";
next;
mes .n$;
mes "Please choose a color";
mes "that suits you.";
next;
set .@eac, eaclass();
switch(roclass(eaclass()&EAJ_UPPERMASK)) {
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;
set .@menu$, .@menu$+"- "+.@DyeName$[getarg(.@i)]+":"; }
set .@menu$, .@menu$+"- ^777777Cancel^000000";
set .@s, select(.@menu$)-1;
if (.@s==.@i-2) goto L_End;
mes .n$;
if (!.@s) {
mes "I can change your dye to";
mes "the default for free.";
mes "Are you sure?";
next;
if(select("Yes:No")==2) goto L_End;
mes .n$;
setlook 7,0;
mes "Your clothes have been dyed "+.@DyeName$[0]+".";
close; }
if (!countitem(.@DyeItems[getarg((.@s-1)*2)])) {
mes "For me to dye your clothes, I'll need the appropriate Dyestuffs. Please check my price list for the information.";
close; }
if (Zeny < 10000) {
mes "I'm sorry, but you don't have enough money.";
close; }
delitem .@DyeItems[getarg((.@s-1)*2)],1;
set Zeny, Zeny-10000;
setlook 7, ((.@s)?(getarg((.@s-1)*2+1)):0);
mes "Your clothes have been dyed "+((.@s)?.@DyeName$[getarg((.@s-1)*2)]:.@DyeName$[0])+".";
close; }
}
Reference in New Issue
Block a user
Blocking a user prevents them from interacting with repositories, such as opening or commenting on pull requests or issues. Learn more about blocking a user.
euphyy