//================================
// [] The PlutoEA Project []
// http://opensvn.csie.org/PlutoEA
// -----------------------------------------
// - ]Oqۥ洫 - 
//================================
//= * JA
//================================

payon,173,238,5	script	Ǩ̼w	754,{
	mes "[Ǩ̼w]";
	mes "zn~";
	mes "pGAӬۦPm]OqۨӵڪܡA";
	mes "ڷ|WAPm]Oq۳!";
	next;
	switch (select("Ŧ]Oq۴]Oq!:]Oq۴]Oq!:]Oq۴Ŧ]Oq!")) {
	case 1:
		set .@itemid,717;
		set .@gain,716;
		break;
	case 2:
		set .@itemid,716;
		set .@gain,715;
		break;
	case 3:
		set .@itemid,715;
		set .@gain,717;
		break;
	}
	if(countitem(.@itemid)<2) {
		mes "[Ǩ̼w]";
		mes "!";
		mes "oBͧAb}!";
		mes getitemname(.@itemid)+ "S2Ӫ";
		mes getitemname(.@gain)+ "NSkAO!";
		close;
	}
	set .@max,countitem(.@itemid)/2;
	mes "[Ǩ̼w]";
	mes "...";
	mes "γoǮthiH" +.@max+ "";
	mes "" +getitemname(.@gain)+ "";
	mes "An洫XөO?";
	next;
	switch (select("ڭnҦ:ڭnwX:")) {
	case 1:
		set .@num,.@max;
		break;
	case 2:
		mes "[Ǩ̼w]";
		mes "ݭnXөO?";
		mes "ХH100ӬW";
		while(1) {
			next;
			input .@num;
			if(.@num > 100) {
				mes "[Ǩ̼w]";
				mes "?";
				mes "uవ100ӥHU!?";
				continue;
			}
			break;
		}
		if(.@num > .@max)
			close;
		if(.@num <= 0) {
			mes "[Ǩ̼w]";
			mes "O}F";
			close;
		}
		break;
	case 3:
		mes "[Ǩ̼w]";
		mes "o˰...";
		mes "pGݭn洫";
		mes "ΫȮHɳiH";
		close;
	}
	delitem .@itemid,.@num*2;
	getitem .@gain,.@num;
	mes "[Ǩ̼w]";
	mes "ӡAAn";
	mes getitemname(.@gain)+ "bo";
	mes "ݭnHɦAӧڧa!";
	mes "...? yWF?";
	close;
}
