//===== 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]
//= Translated By 45б
//============================================================
//ע: ʱ,  L_Busy 滻Ϊ L_Dye(滻,)
//============================================================ 


// װʦ ǲ ---------------------------------------------------
prt_in,229,46,6	script	װʦ ǲ	55,{
	mes "[װʦ ǲ]";
	mes "11... 12... ... . ܹڽɶǰ. ! Ҳ֪. ʲôҪ?";
M_Menu:
	next;
	menu "-Ի",L_Talk,"-·Ⱦɫ",L_Dye,"-۸б",L_PriceList,"-ȡ",L_End;
	
L_Talk:
	mes "[װʦ ǲ]";
	mes "Ը.... ҿнӵĹ... !";
	mes "¬ ׵üӶŮ⼸쿴ܲ.";
	next;
	mes "[װʦ ǲ]";
	mes "ǿǳû⵽.";
	mes "ҲΪ͸ʱʲôĵط.";
	next;
	mes "[װʦ ǲ]";
	mes "˵, ˭ûɫ·װ, ·չʾԸ, òķ֮һ.";
	next;
	mes "[װʦ ǲ]";
	mes "... һ뵽, Ҿ;ҵĹֵûʱ.  ṩҪķ.";
	next;
	mes "[װʦ ǲ]";
	mes "Ҳܸо? ֯ƤɫȾ޻?.....";
	next;
	mes "[װʦ ǲ]";
	mes "ʹʱܳҲܻʱ, һװʱ.....";
	mes "ǿֺͻϲ뵽Ĺ!!";
	goto M_Menu;

L_Dye:
	mes "[װʦ ǲ]";
	mes "... Ҫ? ... ܰ.";
	next;
	mes "[װʦ ǲ]";
	mes "ѡʺɫ.";
	next;
	if(Sex==0) goto Female_dye;
//=================================
// ·Ⱦɫ
//=================================

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_Alchemist) 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 "-ͨɫ",L_Dye_Default,"-ɫ",L_Dye_Black,"-ɫ",L_Dye_Blue,"-ɫ",L_Dye_Green,"-ȡ",L_End;
L_Swordman_M:
	set @black, 1;
	set @blue, 2;
	set @green, 3;
	menu "-ͨɫ",L_Dye_Default,"-ɫ",L_Dye_Black,"-ɫ",L_Dye_Blue,"-ɫ",L_Dye_Green,"-ȡ",L_End;
L_Mage_M:
	set @red, 1;
	set @violet, 2;
	set @orange, 3;
	set @white, 4;
	menu "-ͨɫ",L_Dye_Default,"-ɫ",L_Dye_Red,"-ɫ",L_Dye_Violet,"-ɫ",L_Dye_Orange,"-ɫ",L_Dye_White,"-ȡ",L_End;
L_Archer_M:
	set @black, 1;
	set @violet, 2;
	set @green, 3;
	menu "-ͨɫ",L_Dye_Default,"-ɫ",L_Dye_Black,"-ɫ",L_Dye_Violet,"-ɫ",L_Dye_Green,"-ȡ",L_End;
L_Acolyte_M:
	set @blue, 1;
	set @red, 2;
	set @white, 3;
	set @black, 4;
	menu "-ͨɫ",L_Dye_Default,"-ɫ",L_Dye_Blue,"-ɫ",L_Dye_Red,"-ɫ",L_Dye_White,"-ɫ",L_Dye_Black,"-ȡ",L_End;
L_Merchant_M:
	set @black, 1;
	set @blue, 2;
	set @green, 3;
	menu "-ͨɫ",L_Dye_Default,"-ɫ",L_Dye_Black,"-ɫ",L_Dye_Blue,"-ɫ",L_Dye_Green,"-ȡ",L_End;
L_Thief_M:
	set @green, 1;
	set @red, 2;
	set @white, 4;
	menu "-ͨɫ",L_Dye_Default,"-ɫ",L_Dye_Green,"-ɫ",L_Dye_Red,"-ɫ",L_Dye_White,"-ȡ",L_End;
L_Swordman2_M:
	set @violet, 1;
	set @red, 3;
	set @black, 4;
	menu "-ͨɫ",L_Dye_Default,"-ɫ",L_Dye_Violet,"-ɫ",L_Dye_Red,"-ɫ",L_Dye_Black,"-ȡ",L_End;
L_Acolyte2_M:
	set @blue, 1;
	set @green, 2;
	set @red, 3;
	set @white, 4;
	menu "-ͨɫ",L_Dye_Default,"-ɫ",L_Dye_Blue,"-ɫ",L_Dye_Green,"-ɫ",L_Dye_Red,"-ɫ",L_Dye_White,"-ȡ",L_End;
L_Mage2_M:
	set @blue, 1;
	set @green, 3;
	set @black, 4;
	menu "-ͨɫ",L_Dye_Default,"-ɫ",L_Dye_Blue,"-ɫ",L_Dye_Green,"-ɫ",L_Dye_Black,"-ȡ",L_End;
L_Merchant2_M:
	set @black, 1;
	set @green, 2;
	set @white, 3;
	menu "-ͨɫ",L_Dye_Default,"-ɫ",L_Dye_Black,"-ɫ",L_Dye_Green,"-ɫ",L_Dye_White,"-ȡ",L_End;
L_Archer2_M:
	set @black, 1;
	set @blue, 2;
	set @green, 3;
	menu "-ͨɫ",L_Dye_Default,"-ɫ",L_Dye_Black,"-ɫ",L_Dye_Blue,"-ɫ",L_Dye_Green,"-ȡ",L_End;
L_Thief2_M:
	set @blue, 1;
	menu "-ͨɫ",L_Dye_Default,"-ɫ",L_Dye_Blue,"-ȡ",L_End;
L_Super_Novice_M:
	set @violet, 1;
	set @blue, 2;
	set @green, 3;
	set @black, 4;
	menu "-ͨɫ",L_Dye_Default,"-ɫ",L_Dye_Violet,"-ɫ",L_Dye_Blue,"-ɫ",L_Dye_Green,"-ɫ",L_Dye_Black,"-ȡ",L_End;


//=================================
// Ů·Ⱦɫ
//=================================	
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_Alchemist) 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 "-ͨɫ",L_Dye_Default,"-ɫ",L_Dye_Blue,"-ɫ",L_Dye_Red,"-ɫ",L_Dye_Green,"-ɫ",L_Dye_Black,"-ȡ",L_End;
L_Swordman_F:
	set @red, 1;
	set @green, 3;
	set @black, 4;
	menu "-ͨɫ",L_Dye_Default,"-ɫ",L_Dye_Red,"-ɫ",L_Dye_Green,"-ɫ",L_Dye_Black,"-ȡ",L_End;
L_Mage_F:
	set @red, 1;
	set @violet, 2;
	set @white, 3;
	set @black, 4;
	menu "-ͨɫ",L_Dye_Default,"-ɫ",L_Dye_Red,"-ɫ",L_Dye_Violet,"-ɫ",L_Dye_White,"-ɫ",L_Dye_Black,"-ȡ",L_End;
L_Archer_F:
	set @red, 1;
	set @green, 2;
	set @white, 3;
	set @black, 4;
	menu "-ͨɫ",L_Dye_Default,"-ɫ",L_Dye_Red,"-ɫ",L_Dye_Green,"-ɫ",L_Dye_White,"-ɫ",L_Dye_Black,"-ȡ",L_End;
L_Acolyte_F:
	set @red, 1;
	set @green, 3;
	set @black, 4;
	menu "-ͨɫ",L_Dye_Default,"-ɫ",L_Dye_Red,"-ɫ",L_Dye_Green,"-ɫ",L_Dye_Black,"-ȡ",L_End;
L_Merchant_F:
	set @violet, 1;
	set @green, 3;
	set @black, 4;
	menu "-ͨɫ",L_Dye_Default,"-ɫ",L_Dye_Violet,"-ɫ",L_Dye_Green,"-ɫ",L_Dye_Black,"-ȡ",L_End;
L_Thief_F:
	set @red, 1;
	set @white, 3;
	set @black, 4;
	menu "-ͨɫ",L_Dye_Default,"-ɫ",L_Dye_Red,"-ɫ",L_Dye_White,"-ɫ",L_Dye_Black,"-ȡ",L_End;
L_Swordman2_F:
	set @blue, 1;
	set @white, 3;
	set @black, 4;
	menu "-ͨɫ",L_Dye_Default,"-ɫ",L_Dye_Blue,"-ɫ",L_Dye_White,"-ɫ",L_Dye_Black,"-ȡ",L_End;
L_Acolyte2_F:
	set @red, 1;
	set @green, 2;
	set @white, 3;
	set @black, 4;
	menu "-ͨɫ",L_Dye_Default,"-ɫ",L_Dye_Red,"-ɫ",L_Dye_Green,"-ɫ",L_Dye_White,"-ɫ",L_Dye_Black,"-ȡ",L_End;
L_Mage2_F:
	set @red, 1;
	set @blue, 2;
	set @white, 3;
	set @green, 4;
	menu "-ͨɫ",L_Dye_Default,"-ɫ",L_Dye_Red,"-ɫ",L_Dye_Blue,"-ɫ",L_Dye_White,"-ɫ",L_Dye_Green,"-ȡ",L_End;
L_Merchant2_F:
	set @red, 1;
	set @green, 2;
	set @violet, 3;
	set @black, 4;
	menu "-ͨɫ",L_Dye_Default,"-ɫ",L_Dye_Red,"-ɫ",L_Dye_Green,"-ɫ",L_Dye_Violet,"-ɫ",L_Dye_Black,"-ȡ",L_End;
L_Archer2_F:
	set @blue, 1;
	set @green, 3;
	set @violet, 4;
	menu "-ͨɫ",L_Dye_Default,"-ɫ",L_Dye_Blue,"-ɫ",L_Dye_Green,"-ɫ",L_Dye_Violet,"-ȡ",L_End;
L_Thief2_F:
	set @black, 1;
	set @yellow, 2;
	set @white, 3;
	menu "-ͨɫ",L_Dye_Default,"-ɫ",L_Dye_Black,"-ɫ",L_Dye_Yellow,"-ɫ",L_Dye_White,"-ȡ",L_End;
L_Thief3_F:
	set @yellow, 2;
	set @white, 3;
	menu "-ͨɫ",L_Dye_Default,"-ɫ",L_Dye_Yellow,"-ɫ",L_Dye_White,"-ȡ",L_End;
L_Super_Novice_F:
	set @blue, 1;
	set @red, 2;
	set @green, 3;
	set @black, 4;
	menu "-ͨɫ",L_Dye_Default,"-ɫ",L_Dye_Blue,"-ɫ",L_Dye_Red,"-ɫ",L_Dye_Green,"-ɫ",L_Dye_Black,"-ȡ",L_End;

//=================================
// Ⱦɫű
//=================================

L_Dye_Default:
	mes "[װʦ ǲ]";
	mes "ҿѰ·Ⱦͨɫ.";
	mes "ȷô?";
	next;
	menu "-ǵ",-,"-",L_End;
	mes "[װʦ ǲ]";
	mes ". ָԭ.";
	setlook 7,0;
	close;
L_Dye_Orange:
	mes "[װʦ ǲ]";
	if(countitem(980) < 1) goto sL_NoDye;
	if(Zeny < 10000) goto sL_Zeny;
	delitem 980,1;
	set Zeny, Zeny - 10000;
	mes ". ·Ⱦɫ.";
	setlook 7,@orange;
	close;
L_Dye_Violet:
	mes "[װʦ ǲ]";
	if(countitem(981) < 1) goto  sL_NoDye;
	if(Zeny < 10000) goto sL_Zeny;
	delitem 981,1;
	set Zeny, Zeny - 10000;
	mes ". ·Ⱦɫ.";
	setlook 7,@violet;
	close;
L_Dye_Red:
	mes "[װʦ ǲ]";
	if(countitem(975) < 1) goto sL_NoDye;
	if(Zeny < 10000) goto sL_Zeny;
	delitem 975,1;
	set Zeny, Zeny - 10000;
	mes ". ·Ⱦ˺ɫ.";
	setlook 7,@red;
	close;
L_Dye_Black:
	mes "[װʦ ǲ]";
	if(countitem(983) < 1) goto sL_NoDye;
	if(Zeny < 10000) goto sL_Zeny;
	delitem 983,1;
	set Zeny, Zeny - 10000;
	mes ". ·Ⱦ˺ɫ.";
	setlook 7,@black;
	close;
L_Dye_Green:
	mes "[װʦ ǲ]";
	if(countitem(979) < 1) goto sL_NoDye;
	if(Zeny < 10000) goto sL_Zeny;
	delitem 979,1;
	set Zeny, Zeny - 10000;
	mes ". ·Ⱦɫ.";
	setlook 7,@green;
	close;
L_Dye_Blue:
	mes "[װʦ ǲ]";
	if(countitem(978) < 1) goto sL_NoDye;
	if(Zeny < 10000) goto sL_Zeny;
	delitem 978,1;
	set Zeny, Zeny - 10000;
	mes ". ·Ⱦɫ.";
	setlook 7,@blue;
	close;
L_Dye_White:
	mes "[װʦ ǲ]";
	if(countitem(982) < 1) goto sL_NoDye;
	if(Zeny < 10000) goto sL_Zeny;
	delitem 982,1;
	set Zeny, Zeny - 10000;
	mes ". ·Ⱦ˰ɫ.";
	setlook 7,@white;
	close;
L_Dye_Yellow:
	mes "[װʦ ǲ]";
	if(countitem(976) < 1) goto sL_NoDye;
	if(Zeny < 10000) goto sL_Zeny;
	delitem 976,1;
	set Zeny, Zeny - 10000;
	mes ". ·Ⱦ˻ɫ.";
	setlook 7,@yellow;
	close;

sL_Sorry:
	mes ", ·, ǰû. ... Ǹ, û취Ⱦɫ.";
	close;

sL_Zeny:
	mes "Һźû㹻ĽǮ.";
	close;

sL_NoDye:
	mes "Ⱦ·, ҪӦȾ. 쿴¼Ŀ.";
	next;

L_Busy:
	mes "Ǹ, ̫æ˲ܸȾ·.";
	goto M_Menu;

L_PriceList:
	mes "[װʦ ǲ]";
	mes "бѡɫǵļǮ:";
	mes " ";
	mes " - ^FF4422ɫ^000000: 10000 zeny, 1  ɫȾ";
	mes " - ^D5A500ɫ^000000: 10000 zeny, 1  ɫȾ";
	mes " - ^AA00AAɫ^000000: 10000 zeny, 1  ɫȾ";
	mes " - ^FF8800ɫ^000000: 10000 zeny, 1  ɫȾ";
	mes " - ^4422FFɫ^000000: 10000 zeny, 1  ɫȾ";
	mes " - ^009500ɫ^000000: 10000 zeny, 1  ɫȾ";
	mes " - ɫ: 10000 zeny, 1  ɫȾ";
	mes " - ɫ: 10000 zeny, 1  ɫȾ";
	goto M_Menu;

L_End:
	mes "[װʦ ǲ]";
	mes "Լڼ. ûո.";
	close;
}
