
// -----------------------------------------
// - Ⱦ ű -
//========================
//= 汾1.3c
//========================

prt_in,223,42,4	script	Ⱦɫ	58,{

	mes "[Ⱦɫ]";
	mes "...";
	mes "ǿҵ̫Ⱦò.";
	next;
	switch(select("Ի:Ⱦ:ȡ")) {
	case 1:
		mes "[Ⱦɫ]";
		mes "Ҷûʲô...";
		mes "ҵĹȥĻҿԽ.";
		mes "һ Ҫ?";
		next;
		if (select(":") == 1) {
			mes "[Ⱦɫ]";
			mes "ҳ֮ǰҰְһֱȾ.";
			mes "ܳʱ, ҰְֻȾ.";
			mes "...";
			mes "ȥʱҰְûͣȾϵĹ....";
			mes "ʱİְ...";
			next;
			mes "[Ⱦɫ]";
			mes "Ҳϲְ.. ȻϲȾϵĹ ʱҳ.";
			mes "... ѾؼҼ̳мҵ. ȾϵĹ... ƭԼϵѪͳ... ݹ... Ѿ15.";
			next;
			mes "[Ⱦɫ]";
			mes "ſʼ˽Ұְֵĸ....";
			mes "ҰְΪʲôһͶеȾϵĹ...";
			next;
			mes "[Ⱦɫ]";
			mes "ΪҪλ֮ɫ....";
			next;
			mes "[Ⱦɫ]";
			mes "... ô֪?... ڵҾ... ǰ굱ҿ ɫ˵ʱ, ҿʼ˽Ұְֵĸ.";
			mes "ư. ȻҰְûгɹһλ֮ɫ.";
			close;
		}
		mes "[Ⱦɫ]";
		mes ".. ˵Ҳ..";
		mes "˭ȾϹĻ. ....";
		close;

	case 2:
		mes "[Ⱦɫ]";
		mes "ð! ҪĻ. һҪɫ.";
		mes "ҪʲôɫȾ? ɫһǮҲһ.";
		mes "֪Ϊʲô? Ϊеɫ, еɫ.";
		mes "ǧҪշѺܹ. Ⱦҵ .";
		next;
		switch(select("ɫȾ:ɫȾ:ɫȾ:ɫȾ:ɫȾ:ɫȾ:ɫȾ:ɫȾ:ȡ")) {
		case 1: callsub S_MakeDye,1,1; break;
		case 2: callsub S_MakeDye,2,1; break;
		case 3: callsub S_MakeDye,3,2; break;
		case 4: callsub S_MakeDye,4,3; break;
		case 5: callsub S_MakeDye,5,4; break;
		case 6: callsub S_MakeDye,6,4; break;
		case 7: callsub S_MakeDye,7,4; break;
		case 8: callsub S_MakeDye,8,4; break;
		case 9:
			mes "[Ⱦɫ]";
			mes "!! ʲô?";
			mes "ڲҪı ...";
			close;
		}

	case 3:
		mes "[Ⱦɫ]";
		mes "ⲻҴţ Ⱦҩļ.";
		mes "Ҫȸ ԸŻ.";
		close;
	}

S_MakeDye:
	mes "[Ⱦɫ]";
	switch(getarg(0)) {
	case 1:
		mes "... ҪɫȾҪ30ɫҩݻкͼͿƿ.";
		mes "շ3000.";
		mes "! Ӧ׼... Կʼ?";
		setarray .@item[0], 507, 973, 713;
		setarray .@count[0], 30,   1,   1;
		set .@cost,3000;
		set .@dyestuff,975;
		break;
	case 2:
		mes "... ҪɫȾҪ30ɫҩݻкͼ ƿ.";
		mes "շ3000.";
		mes "! Ӧ׼... Կʼ?";
		setarray .@item[0], 508, 973, 713;
		setarray .@count[0], 30,   1,   1;
		set .@cost,3000;
		set .@dyestuff,976;
		break;
	case 3:
		mes "... ҪɫȾҪ20ɫҩݻкͼͿƿ.";
		mes "շ3500.";
		mes "! Ӧ׼... Կʼ?";
		setarray .@item[0], 510, 973, 713;
		setarray .@count[0], 20,   1,   1;
		set .@cost,3500;
		set .@dyestuff,978;
		break;
	case 4:
		mes "... ҪɫȾҪɫҩ 5ɫҩ20, ɫҩ20кͼ, кͼͿƿ.";
		mes "кܶĲϲҪ շ5000.";
		mes "! Ӧ׼... Կʼ?";
		setarray .@item[0], 510, 511, 508, 974, 973, 713;
		setarray .@count[0],  5,  20,  20,   1,   1,   1;
		set .@cost,5000;
		set .@dyestuff,979;
		break;
	case 5:
		mes "... ҪɫȾҪ20ɫҩ, 20ɫҩ, кͼ, лϼͿƿ.";
		mes "շ5000.";
		mes "! Ӧ׼... Կʼ?";
		setarray .@item[0], 507, 508, 974, 973, 713;
		setarray .@count[0], 20,  20,   1,   1,   1;
		set .@cost,5000;
		set .@dyestuff,980;
		break;
	case 6:
		mes "... ҪɫȾҪ10ɫҩݣ30ɫҩ, , кͻϼƿ.";
		mes "շ5000.";
		mes "! Ӧ׼... Կʼ?";
		setarray .@item[0], 510, 507, 974, 973, 713;
		setarray .@count[0], 10,  30,   1,   1,   1;
		set .@cost,5000;
		set .@dyestuff,981;
		break;
	case 7:
		mes "... ҪɫȾҪ30ɫҩݻкͼͿƿ.";
		mes "շ3000.";
		mes "! Ӧ׼... Կʼ?";
		setarray .@item[0], 509, 973, 713;
		setarray .@count[0], 30,   1,   1; 
		set .@cost,3000;
		set .@dyestuff,982;
		break;
	case 8:
		mes "... ҪɫȾҪ30ɫɫɫҩ, ɫҩ, кͼ, лϼͿƿ.";
		mes "Ƚ Ҫ7000.";
		mes "! Ӧ׼... Կʼ?";
		setarray .@item[0], 507, 508, 511, 510, 974, 973, 713;
		setarray .@count[0], 30,  30,  30,   5,   1,   1,   1;
		set .@cost,7000;
		set .@dyestuff,983;
		break;
	}
	next;
	if (select("Ⱦ:ȡ") == 1) {
		set .@size, getarraysize(.@item);
		for( set .@i,0 ; .@i < .@size ; set .@i,.@i+1 )
			if( countitem(.@item[.@i]) < .@count[.@i] )
				break;
		if( .@i < .@size || Zeny < .@cost ) {
			mes "[Ⱦɫ]";
			mes " ...";
			mes "ֲ ɫ. Ҫȥռ.";
			close;
		}
		for (set .@i, 0; .@i < .@size ; set .@i, .@i+1)
			delitem .@item[.@i], .@count[.@i];
		set zeny,zeny-.@cost;
		getitem .@dyestuff,1;

		mes "[Ⱦɫ]";
		mes "! ôɫΨг";
		mes "ϸ... ɫǶô˰!";
		next;
		mes "[Ⱦɫ]";
		mes "ҪȾϵĻ, Ұ";
		close;
	}
	mes "[Ⱦɫ]";
	mes "!! ʲô?";
	mes "ڲҪı ...";
	return;
}