//===========================================
// [ڤ] The PlutoEA Project []
// http://opensvn.csie.org/PlutoEA
// -----------------------------------------
// - ҩʦүү - дJA
//===========================================
alberta_in.gat,16,28,4	script	ҩʦүү	61,{
	mes "[ҩʦүү]";
	mes ".......?";
	next;
	switch (select("ҩˮ:Ի:ȡҩˮĸʾ:ȡ")) {
	case 1:
		mes "[ҩʦүү]";
		mes "Ʒȫ?Ҫһҩˮ?";
		next;
		switch (select("ɫҩˮ:ɫҩˮ:ɫҩˮ:ɫҩˮ:ɫҩˮ:ɫҩˮ:")) {
		case 1:
			setarray .@need,507,713;
			setarray .@amount,2,1;
			set .@price,3;
			set .@gain,501;
			break;
		case 2:
			setarray .@need,507,508,713;
			setarray .@amount,1,1,1;
			set .@price,5;
			set .@gain,502;
			break;
		case 3:
			setarray .@need,508,713;
			setarray .@amount,2,1;
			set .@price,10;
			set .@gain,503;
			break;
		case 4:
			setarray .@need,509,713;
			setarray .@amount,2,1;
			set .@price,20;
			set .@gain,504;
			break;
		case 5:
			setarray .@need,510,713;
			setarray .@amount,2,1;
			set .@price,30;
			set .@gain,505;
			break;
		case 6:
			setarray .@need,511,713;
			setarray .@amount,2,1;
			set .@price,3;
			set .@gain,506;
			break;
		case 7:
			close;
		}
		if(Zeny<.@price) {
			mes "[ҩʦүү]";
			mes "ҩˮҪһЩǮ!Ҫ ! ɵ!";
			mes "ȥ!";
			close;
		}
		set .@size,getarraysize(.@need);
		for(set .@i,0; .@i<.@size; set .@i,.@i+1) {
			set .@max[.@i],countitem(getelementofarray(.@need,.@i)) / getelementofarray(.@amount,.@i);
		}
		if(.@price)
			set .@max[.@i],Zeny / .@price;
		else
			set .@size,.@size-1;
		for(set .@i,0; .@i<.@size; set .@i,.@i+1) {
			if(.@max[0] > .@max[1])
				deletearray .@max[0],1;
			else
				deletearray .@max[1],1;
		}
		if(.@max==0) {
			mes "[ҩʦүү]";
			mes "ҩˮ϶û!Ҫ ! ɵ!";
			mes "ȥ!";
			close;
		}
		mes "[ҩʦүү]";
		mes "Ҫ?";
		next;
		switch (select("ȫ:޶:")) {
		case 1:
			set .@num,.@max;
			break;
		case 2:
			mes "[ҩʦүү]";
			mes "д 100 .Ըд 0 .";
			mes "ռĲϿ" +.@max+" ƿ.";
			while(1) {
				next;
				input .@num;
				if(.@num>100 || .@num<0) {
					mes "[ҩʦүү]";
					mes "ֻ100!";
					continue;
				}
				break;
			}
			if(.@num==0) {
				mes "[ҩʦүү]";
				mes "ȥ!";
				close;
			}
			if(.@num > .@max) {
				mes "[ҩʦүү]";
				mes "?";
				close;
			}
			break;
		case 3:
			mes "[ҩʦүү]";
			mes "!";
			close;
		}
		if(@menu==2) {
			delitem 507,.@num;
			delitem 508,.@num;
		}
		else {
			delitem .@need[0],.@num*2;
		}
		delitem 713,.@num;
		set Zeny,Zeny-.@price*.@num;
		getitem .@gain,.@num;
		mes "[ҩʦүү]";
		mes ".ûȥ.";
		mes "ס! ⿿ҩﲻǰ취!";
		close;
	case 2:
		mes "[ҩʦүү]";
		mes "ҩˮĻָ.ֻǰ...";
		mes "...ʹ˻ǰ.";
		mes "ҩˮֻҩһ...ֻ.";
		close;
	case 3:
		mes "[ҩʦүү]";
		mes "...ЩСһǷ... ,һϸ.";
		next;
		mes "[ҩʦүү]";
		mes "ҩǿֱʹõ,Ҹ˵طҩˮ,Ч.";
		next;
		mes "[ҩʦүү]";
		mes ",Ҿͻҩˮ,ѵ,Ҫһ,ҵǮ,Ŀܶ.";
		next;
		mes "[ҩʦүү]";
		mes "ɫҩˮ - ^0098E5 ɫҩ x2, ƿ x1, 3 .^000000";
		mes "ɫҩˮ - ^0098E5 ɫҩ x1, ɫҩ x1, ƿ x1, 5 .^000000";
		mes "ɫҩˮ - ^0098E5 ɫҩ x2, ƿ x1, 10 .^000000";
		next;
		mes "[ҩʦүү]";
		mes "ɫҩˮ - ^0098E5 ɫҩ x2, ƿ x1, 20 .^000000";
		mes "ɫҩˮ - ^0098E5 ɫҩ x2, ƿ x1, 30 .^000000";
		mes "ɫҩˮ - ^0098E5 ɫҩ x2, ƿ x1, 3 .^000000";
		close;
	case 4:
		mes "[ҩʦүү]";
		mes "ֵ,лҪ˵,ʲôҲû˵߹ȥ!";
		close;
	}
}
