//========================
// [] The PlutoEA Project []
// http://opensvn.csie.org/PlutoEA
// -----------------------------------------
// - Vƻs@ } -
//========================
//= G1.3c
//========================

morocc_in,146,99,3	script	KWO~	58,{
	mes "[Vƻs@ KWO~]";
	mes "...";
	mes "jPӶoؤѮ@oؤѮ@VƳ̦nLF.";
	next;
	switch(select(":V:")) {
	case 1:
		mes "[Vƻs@ KWO~]";
		mes "ڹzS...";
		mes "LzQťڪLhܧڥiHzť.";
		mes "i঳@Ie znť?";
		next;
		if (select("ť:ť") == 1) {
			mes "[Vƻs@ KWO~]";
			mes "ڥXƤeڪO@V.";
			mes "ܪɶ, ڪ|V.";
			mes "٦...";
			mes "ڶͯfh@ɭԧڪSUӰVƪu@....";
			mes "ɭԷ|Qo˪...";
			next;
			mes "[Vƻs@ KWO~]";
			mes "ڤw.. ۵MwVƪu@ҥH~ ɭԧaXOƱ.";
			mes "L... ڲ{bwg^a~Ӯa~. Vƪu@... iFFۤvW... ou@... wgF15~F.";
			next;
			mes "[Vƻs@ KWO~]";
			mes "̪~}lFѧڪP....";
			mes "ڪ@JҦOqbVƪu@...";
			next;
			mes "[Vƻs@ KWO~]";
			mes "O]LQnXڤۤ....";
			next;
			mes "[Vƻs@ KWO~]";
			mes "u... 򪾹D?... {bڴNOo... eX~ڥi HťCbܪɭ, ڶ}lFѧڪP.";
			mes "@a. MڪS\Lڤ@w|Xڤۤ.";
			close;
		}
		mes "[Vƻs@ KWO~]";
		mes "ګ.. ]O..";
		mes "ַ|ťVƤu. ....";
		close;
	case 2:
		mes "[Vƻs@ KWO~]";
		mes "na! pGzn. ڤ@w|XzQnC.";
		mes "LznC⪺V? C⤣@˻]@.";
		mes "zQD? ]CeX, C⤣e.";
		mes "dUnıoOܶQ. oӬVƸ̭ڪF .";
		next;
		switch(select("V:V:ŦV:V:V:V:զV:¦V:")) {
		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 "[Vƻs@ KWO~]";
			mes "ooo!! oO?";
			mes "{b~nܥDN uOL`...";
			close;
		}
	case 3:
		mes "[Vƻs@ KWO~]";
		mes "oOڧj ڦVľ޳N.";
		mes "pGݭnڥiD iHzuf.";
		close;
	}

S_MakeDye:
	mes "[Vƻs@ KWO~]";
	switch(getarg(0)) {
	case 1:
		mes "... nVƻݭn30Ӭ⪺į٦MMŲ~l.";
		mes "OO3000.";
		mes "! zӷǳƦnF... iH}lu@F?";
		setarray .@item[0], 507, 973, 713;
		setarray .@count[0], 30,   1,   1;
		set .@cost,3000;
		set .@dyestuff,975;
		break;
	case 2:
		mes "... nVƻݭn30Ӷ⪺į٦MM Ų~l.";
		mes "OO3000.";
		mes "! zӷǳƦnF... iH}lu@F?";
		setarray .@item[0], 508, 973, 713;
		setarray .@count[0], 30,   1,   1;
		set .@cost,3000;
		set .@dyestuff,976;
		break;
	case 3:
		mes "... nŦVƻݭn20Ŧ⪺į٦MMŲ~l.";
		mes "OO3500.";
		mes "! zӷǳƦnF... iH}lu@F?";
		setarray .@item[0], 510, 973, 713;
		setarray .@count[0], 20,   1,   1;
		set .@cost,3500;
		set .@dyestuff,978;
		break;
	case 4:
		mes "... nVƻݭnŦį 5ӡMį20, į20ӡMM, ٦MMŲ~l.";
		mes "ܦhƤnd OO5000.";
		mes "! zӷǳƦnF... iH}lu@F?";
		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 "... nܦVƻݭn20Ӭ⪺į, 20Ӷ⪺į, M, ٦VXMŲ~l.";
		mes "OO5000.";
		mes "! zӷǳƦnF... iH}lu@F?";
		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 "... nVƻݭn10Ŧ⪺įM30Ӭ⪺į, ѾM, ٦MVXŲ~l.";
		mes "OO5000.";
		mes "! zӷǳƦnF... iH}lu@F?";
		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 "... nզVƻݭn30ӥզ⪺į٦MMŲ~l.";
		mes "OO3000.";
		mes "! zӷǳƦnF... iH}lu@F?";
		setarray .@item[0], 509, 973, 713;
		setarray .@count[0], 30,   1,   1; 
		set .@cost,3000;
		set .@dyestuff,982;
		break;
	case 8:
		mes "... n¦VƻݭnU30Ӷ⪺į, Ŧį, M, ٦VXMŲ~l.";
		mes "oӤ ҥHn7000.";
		mes "! zӷǳƦnF... iH}lu@F?";
		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("V:") == 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 "[Vƻs@ KWO~]";
			mes " ...";
			mes "γoاưXH NC. znAhƾ.";
			close;
		}
		for (set .@i, 0; .@i < .@size ; set .@i, .@i+1)
			delitem .@item[.@i], .@count[.@i];
		set zeny,zeny-.@cost;
		getitem .@dyestuff,1;
		mes "[Vƻs@ KWO~]";
		mes "F! o򧹬AߦXۧڤ";
		mes "JӬݬ... oCOh򪺻H!";
		next;
		mes "[Vƻs@ KWO~]";
		mes "ݭns@䥦Vƪ, Aӧڧa";
		close;
	}
	mes "[Vƻs@ KWO~]";
	mes "ooo!! oO?";
	mes "{b~nܥDN uOL`...";
	return;
}