//===== eAthena Script ============
//= New hats from kRO Sakray on 2005-05-31
//===== By: =========================
//= Lorky, Lupus
//===== Current Version: ===================
//= 0.6
//===== Compatible With: =====================
//= eAthena 1.0
//===== Description: ============================================
//Hats lists:
//	Hat of the Investigator
//	Baby Suckle (Baby Rubber Nipple)
//	Mystic rose
//	Red Bonnet
//	Well-Baked Toast
//	Mask of Zealotus
//	Fashionable Warm Hat
//	n/a Soldier's Felt Hat (no info)
//===== Additional Comments: ==========================================
// 03.06.2005	:: Lorky ::	First release 0.1a
// 0.1b Fixed some missing things with temp IDs. [Lupus]
// 		Could someone correct wrong info, names, coords, etc? ^___-
// 0.1c Fixed hats shop. It shouldn't sell slotted hats.
// 0.2 Fixed Detective Hat items (by Ishizu-chan) [Lupus]
// 0.3 Added Zealotus mask quest with correct items [Lupus]
// 0.4 Fixed some sprites, npc names and coords [Lupus]
// 0.5 Removed temp shops, Black Clothes -> Piece of Black Quartz, thx to vicious_Pucca for note [Lupus]
// 0.5a Updated detective hat to ask for the correct items [Kayla]
// 0.6 Fixed possible exploits. Update yuor servers! [Lupus]
//=====================================================================

//Links (some info related to these headgears)
//http://translate.google.com/translate?hl=en&sl=ja&u=http://www11.big.or.jp/~top/2005/0625/head.htm
//http://eathena.deltaanime.net/board/index.php?showtopic=34214
//http://www.ragnainfo.net/forums/viewtopic.php?t=79677&start=0&postdays=0&postorder=asc&highlight=


//Quest Hats
//-------------------------------------------------------------------------------------------------
//Baby Suckle ID 5110
lighthalzen.gat,360,310,4	script	Boy	818,{  
	mes "[Boy]";
	mes "...MA...Ma..ma...";
	emotion 43;
	next;
	menu "Wow! Give me Baby Suckle!",-,"Nice Boy!",L_EXIT;

	mes "[Boy]";
	mes "Rrr..Rrr.. (^FF3300Royal jelly^000000)";			//526
	mes "Bu.. Ba...Ba-Bu-bi (^FF3300Baby Bottle^000000)";	//7270	(nursing bottle of baby )
	mes "Pa-Pa..Paxfi.. (^FF3300Pacifier^000000)";			//10004
	mes "Nu..Noos rie.. (^FF3300Nose Ring^000000)";			//941	(Nose Wheel)
	next;

	if(countitem(526)<1 || countitem(7270)<1 || countitem(10004)<1 || countitem(941)<1) goto L_EXIT;//Items: Royal_Jelly, Baby_Bottle, Pacifier, Nose_Ring,
	delitem 526,1;//Items: Royal_Jelly,
	delitem 7270,1;//Items: Baby_Bottle,
	delitem 10004,1;//Items: Pacifier,
	delitem 941,1;//Items: Nose_Ring,
	mes "[Boy]";
	mes "Th-anke...";
	emotion 43;
	getitem 5110,1;//Items: Baby_Rubber_Nipple,
	next;

L_EXIT:
	mes "[Boy]";
	mes "...B...Bye...";
	emotion 28;
	close;
	
}

//-------------------------------------------------------------------------------------------------
//Detective hat (Hat_of_the_Investigator) ID 5108
lighthalzen.gat,140,68,4	script	Morris	818,{
	mes "[Morris]";
	mes "Do you want a ^FF3300Hat of the Investigator^000000?"; 
	next;
	menu "Of course, I do",-,"No, thanks",L_EXIT;

	mes "[Morris]";
	mes "Ok then, I shall make one for you.";

	if(countitem(611)<10 || countitem(7301)<1887 || countitem(5120)<1 || Zeny<50000) goto L_NOITEM;//Items: Magnifier, Tassel, Wide_Bunker_Hat_,
	delitem 611,10;   //Items: Magnifier,
	delitem 7301,1887;  //Tassel//Items: Tassel,
	delitem 5120,1;   //Items: Wide_Bunker_Hat_,
	set Zeny,Zeny-50000;
	mes "[Morris]";
	mes "Very well. Now I can make it...";
	next;
	mes "[Morris]";
	mes "Enjoy.";
	getitem 5108,1;//Items: Detective_Hat,
	close;

L_NOITEM:
	mes "[Morris]";
	mes "Bring me:";
	mes "^FF3300 10 Magnifiers^000000,";
	mes "^FF3300 1887 Tassel^000000,";
	mes "^FF3300 1 Wide Bunker Hat [1]^000000,";
	mes "and ^FF3300 50,000 zeny.^000000";
	close;

L_EXIT:
	mes "[Morris]";
	mes "Bye.";
	close;
}

//-------------------------------------------------------------------------------------------------
//Mystic rose ID 5117
lhz_in02.gat,103,31,4	script	Margaret Mary	818,{
	mes "[Margaret Mary]";
	mes "Wheee! Don't you just love making youself look pretty!?";
	mes "I love glamourising myself with all the best accessories!";
	next;

	mes "[Margaret Mary]";
	mes "Have you ever heard of a ^FF3300Mystic Rose^000000?";
	mes "I can make you one, and you could be fashionable and mysticly, too!";
	next;
	menu "Make me a ^670000Mystic rose^000000.",-,"No, I dont want one.",L_EXIT;
	
	if(countitem(731) < 10 || countitem(748) < 3 || countitem(982) < 1 || Zeny<50000) goto L_NOITEM;//Items: 2_Carat_Diamond, Witherless_Rose, White_Dyestuff,
	delitem 731,10;//Items: 2_Carat_Diamond,
	delitem 748,3;//Items: Witherless_Rose,
	delitem 982,1;//Items: White_Dyestuff,
	set Zeny,Zeny-50000;
	mes "[Margaret Mary]";
	mes "Wow, thank you! Hand me your items, please.";
	next;
	mes "[Margaret Mary]";
	mes "Enjoy being pretty and mystic!";
	getitem 5117,1;//Items: Mystic_Rose,
	close;
L_NOITEM:
	mes "[Margaret Mary]";
	mes "Well, for me to make you my Mystic rose...";
	mes "I need these materials:";
	mes "^FF3300 10 2-Carat Diamonds^000000,";
	mes "^FF3300 3 Witherless Roses^000000,";
	mes "^FF3300 1 White Dyestuff^000000,";
	mes "and ^FF3300 50,000 zeny.^000000";
	close;
L_EXIT:
	mes "[Margaret Mary]";
	mes "Aww... well, OK then!";
	mes "Be pretty some other time";
	close;
}

//-------------------------------------------------------------------------------------------------
//Red hood (Red Bonnet) ID 5109
lighthalzen.gat,180,88,4	script	Rich Girl	818,{
	mes "[Rich Girl]";
	mes "Hello there! Please, answer my questions.";
	next;
	mes "[Rich Girl]";
	mes "Do you have a grandma?";
	emotion 20;
	next;
	mes "[Rich Girl]";
	mes "Really? I'm sorry. Do you like wolves?";
	next;
	mes "[Rich Girl]";
	mes "Ha! I knew it! And... my last question. Would you like to put on something reddish?";
	emotion 1;
	next;
	mes "[Rich Girl]";
	mes "Just kidding, Have you ever read 'Red-Hood'? I can make to you the very same ^FF3300Red Bonnet^000000.";
	next;
	menu "Please, make it!",-,"No, thanks",L_EXIT;
	if(countitem(10015) < 1 || countitem(975) < 1 || countitem(10007) < 1 || countitem(5032)<1 || Zeny<50000) goto L_NOITEM;//Items: Green_Lace, Scarlet_Dyestuffs, Silk_Ribbon, Sunday_Hat,
	delitem 10015,1;//Items: Green_Lace,
	delitem 975,1;//Items: Scarlet_Dyestuffs,
	delitem 10007,1;//Items: Silk_Ribbon,
	delitem 5032,1;//Items: Sunday_Hat,
	set Zeny,Zeny-50000;
	mes "[Rich Girl]";
	mes "Ok then, I shall make one for you.";
	next;
	mes "[Rich Girl]";
	mes "Now you can drink tea with your grannie and have fun with wolves.";
	getitem 5109,1;//Items: Red_Bonnet,
	close;

L_NOITEM:
	mes "[Rich Girl]";
	mes "Give me:";
	mes "^FF3300 Green Lace^000000,";
	mes "^FF3300 Scarlet Dyestuff ^000000,";
	mes "^FF3300 Silk Ribbon^000000,";
	mes "^FF3300 Sunday Hat ^000000,";
	mes "and ^FF3300 50,000 zeny.^000000";
	close;

L_EXIT:
	mes "[Rich Girl]";
	mes "Well done. Bye.";
	close;
}

//-------------------------------------------------------------------------------------------------
//Well-Baked Toast ID 5107
yuno.gat,224,116,4	script	Kacis	818,{
	mes "[Kacis]";
	mes "Do you want a ^FF3300 Well-Baked Toast ^000000?";
	next;
	menu "Please, make one for me",-,"No, thanks. I'm so full",L_EXIT;

	if(countitem(519) < 50 || countitem(548) < 50 || countitem(539) < 50 || countitem(7031)<50) goto L_NOITEM;//Items: Milk, Cheese, Piece_of_Cake, Old_Frying_Pan,
	delitem 519,50;//Items: Milk,
	delitem 548,50;//Items: Cheese,
	delitem 539,50;//Items: Piece_of_Cake,
	delitem 7031,50;//Items: Old_Frying_Pan,
	mes "[Kacis]";
	mes "Good, thank you! Let me just take your items.";
	next;
	mes "[Kacis]";	
	mes "Well done. Be careful, it's hot.";
	getitem 5107,1;//Items: Well_Done_Toast,
	close;

L_NOITEM:
	mes "[Kacis]";
	mes "Well, for me to make you ^FF3300 Well-Baked Toast ^000000...";
	mes "I require these materials:";
	mes "^FF3300 50 Milk, ^000000";
	mes "^FF3300 50 Cheese, ^000000";
	mes "^FF3300 50 Piece of Cake, ^000000";
	mes "^FF3300 50 Old Frying Pan. ^000000";
	close;
L_EXIT:
	mes "[Kacis]";
	mes "Ok. I more to get tasty toasts.";
	close;
}

//-------------------------------------------------------------------------------------------------
// Mask_of_Zealotus id 5121
gl_prison1.gat,138,141,4	script	Zealotus	1200,{
	mes "[Gill Tass]";
	mes "Do you want an unique ^FF3300Mask of Zealotus^000000 ?";
	next;
	menu "Yes, I do!",-,"No, thanks",L_EXIT;

	if(countitem(7315) < 369//Items: Black Quartz Piece
		|| countitem(660) < 1//Items: Forbidden_Red_Candle,
		|| countitem(7263) < 1//Items: Cat's_Eye,
		|| countitem(7099) < 30) goto L_NOITEM;//Items: Worn-out_Magic_Scroll,

	delitem 7315,369;//Items: Black Quartz Piece,
	delitem 660,1;//Items: Forbidden_Red_Candle,
	delitem 7263,1;//Items: Cat's_Eye,
	delitem 7099,30;//Items: Worn-out_Magic_Scroll,
	getnameditem 5121,strcharinfo(0);
	logmes "Quest: Got Zealotus Mask";

	mes "[Gill Tass]";
	mes "Just let me sign your unique Zealotus Mask.";
	mes "So all masks should be signed...";
	close;

L_NOITEM:
	mes "[Gill Tass]";
	mes "All right. Bring me these items:";
	mes "^FF3300 369 Pieces of Black Quartz^000000,";
	mes "^FF3300 1 Forbidden Red Candle^000000,";
	mes "^FF3300 1 Cat's Eye^000000";
	mes "and ^FF3300 30 Worn-out Magic scrolls.^000000";
	close;

L_EXIT:
	mes "[Gill Tass]";
	mes "As you wish...";
	close;
}
//-------------------------------------------------------------------------------------------------
//Fashionable Warm Hat ID 5115
einbech.gat,70,200,7	script	Mater	818,{
	mes "[Mater]";
	mes "Aren't you cold?";
	mes "I can make you a ^FF3300Winter Hat^000000";
	next;
	menu "Please, make one for me",-,"No, thanks",L_EXIT;

	if(countitem(7267) < 999 || countitem(983) < 1 || countitem(749) < 1 || Zeny<50000) goto L_NOITEM;//Items: Tigerskin_Underwear, Black_Dyestuff, Frozen_Rose,
	delitem 7267,999;//Items: Tigerskin_Underwear,
	delitem 983,1;//Items: Black_Dyestuff,
	delitem 749,1;//Items: Frozen_Rose,
	set Zeny,Zeny-50000;
	mes "[Mater]";
	mes "Exellent! Now give me the items.";
	next;
	mes "[Mater]";
	mes "Here you are.";
	getitem 5115,1;//Items: Fashionable_Fur_Hat,
	close;
L_NOITEM:
	mes "[Mater]";
	mes "Please, correct these materials:";	
	mes "^FF3300 999 Tigerskin Underwears^000000,";
	mes "^FF3300 Black Dyestuff^000000,";
	mes "^FF3300 Frozen Rose^000000,";
	mes "and ^FF3300 50,000 zeny.^000000";
	close;
L_EXIT:
	mes "[Mater]";
	mes "Azzz youu wishhhh... Brr-r.";
	close;
}