//========================
// [ڤ] The PlutoEA Project []
// http://opensvn.csie.org/PlutoEA
// -----------------------------------------
// - Ũþű -
//========================
//= 汾1.1
//========================

morocc,183,94,3	script	#cash	85,{
	mes "[]";
	mes "רŶߵ";
	mes "ҿΪװרеƷ";
	mes "ҪװרеһƷأ";
	next;
	set .@strRetPart1$,getequipname(1);
	set .@strRetPart2$,getequipname(2);
	set .@strRetPart3$,getequipname(3);
	set .@strRetPart4$,getequipname(4);
	set .@strRetPart5$,getequipname(5);
	set .@strRetPart6$,getequipname(6);
	set .@strRetPart7$,getequipname(7);
	set .@strRetPart8$,getequipname(8);
	set .@strRetPart9$,getequipname(9);
	set .@strRetPart10$,getequipname(10);

	set .@menu$,.@strRetPart1$+":"+.@strRetPart2$+":"+.@strRetPart3$+":"+.@strRetPart4$+":"+.@strRetPart5$+":"+.@strRetPart6$+":"+.@strRetPart7$+":"+.@strRetPart8$+":"+.@strRetPart9$+":"+.@strRetPart10$;

	switch(select(.@menu$)) {
	case 1:
		set .@part,1;
		if (getequipisequiped(1) == 0) {
			mes "[]";
			mes "ҪҪҰͷԶεĴһ㰡?";
			close;
		}
		break;
	case 2:
		set .@part,2;
		if (getequipisequiped(2) == 0) {
			mes "[]";
			mes "ɣһȫ";
			close;
		}
		break;
	case 3:
		set .@part,3;
		if (getequipisequiped(3) == 0) {
			mes "[]";
			mes "ܱǸڻûּװϻȭҮ..";
			close;
		}
		break;
	case 4:
		set .@part,4;
		if (getequipisequiped(4) == 0) {
			mes "[]";
			mes "ܱǸڻûּװϻȭҮ";
			close;
		}
		break;
	case 5:
		set .@part,5;
		if (getequipisequiped(5) == 0) {
			mes "[]";
			mes "ӵеװĿû²?";
			close;
		}
		break;
	case 6:
		set .@part,6;
		if (getequipisequiped(6) == 0) {
			mes "[]";
			mes "Ľ治ͨĳҮ";
			close;
		}
		break;
	case 7:
		set .@part,7;
		if (getequipisequiped(7) == 0) {
			mes "[]";
			mes "˵װƷ?";
			close;
		}
		break;
	case 8:
		set .@part,8;
		if (getequipisequiped(8) == 0) {
			mes "[]";
			mes "˵װƷ?";
			close;
		}
		break;
	case 9:
		set .@part,9;
		if (getequipisequiped(9) == 0) {
			mes "[]";
			mes "˵װƷ? ָĸòͷλ?";
			close;
		}
		break;
	case 10:
		set .@part,10;
		if (getequipisequiped(10) == 0) {
			mes "[]";
			mes "˵װƷ? ָĸòͷλ?";
			close;
		}
		break;
	}

	if (getequipisenableref(.@part) == 0) {
		mes "[]";
		mes "˵Ŀ޷εĿ!...";
		close;
	}
	if (getequipisidentify(.@part) == 0) {
		mes "[]";
		mes "ûͨ޷..";
		close;
	}
	if (getequiprefinerycnt(.@part) >= 10) {
		mes "[]";
		mes "Ѿεߵȼ޷ٶ..";
		close;
	}
	// Make sure you have the neccessary items and Zeny to refine your items
	// Determines chance of failure and verifies that you want to continue.
	switch(getequipweaponlv(.@part)) {
	case 1: callsub S_RefineValidate,1,7620,50,.@part; break;
	case 2: callsub S_RefineValidate,2,7620,200,.@part; break;
	case 3: callsub S_RefineValidate,3,7620,5000,.@part; break;
	case 4: callsub S_RefineValidate,4,7620,20000,.@part; break;
	default: callsub S_RefineValidate,0,7619,2000,.@part; break;
	}

	if (getequippercentrefinery(.@part) > rand(100) || getequippercentrefinery(.@part) > rand(100)) {
		mes "[]";
		mes "ϣϣϣ";
		SuccessRefItem .@part;
		next;
		Emotion e_no1;
		mes "[]";
		mes "ȥɣѾˡþûγôʵˣǿһҲܸ˰ɣ";
		close;
	}
	else {
		mes "[]";
		mes "ϣϣϣ";
		FailedRefItem .@part;
		next;
		if (rand(5) == 1)
			Emotion e_cash;
		else 
			Emotion e_omg;
		mes "[]";
		mes "ȿȿȿȿȿȿȣ";
		next;
		mes "[]";
		mes "...";
		mes "ڶεĳˡ";
		next;
		mes "[]";
		mes "......͸߹";
		close;
	}

S_RefineValidate:
	mes "[]";
	if (getarg(0))
	mes "ҪѡװҪ ^ff9999"+getitemname(getarg(1))+"^000000 Լ "+getarg(2)+" Zeny.";
	mes "Ҫ?";
	next;
	if (select(":ȡ") == 1) {
		if (getequippercentrefinery(getarg(3)) < 100) {
			mes "[]";
			mes "Ѿκܶ˵...";
			mes "ҪټεĻܻร";
			next;
			mes "Ҫ𻵵ĻɾͲܼʹ!!";
			mes "ĿƬ";
			mes "^ff0000ȫʧ!!^000000";
			mes " ˵߱ʧ";
			mes "ȷҪ?";
			next;
			if (select(":ȡ") == 2) {
				mes "[]";
				mes "ܺá";
				mes "̫Ķ𻵣Ҳű仵ġ";
				close;
			}
		}
		if (countitem(getarg(1)) > 0 && Zeny > getarg(2)) {
			delitem getarg(1),1;
			set zeny,zeny-getarg(2);
			return;
		}
		else {
			mes "[]";
			mes "ЩӵеƷ";
			mes "ȻܿϧĲϲ㣬ҲʵڰĪ˵ҸҲӦõҪջ!";
			close;
		}
	}
	else {
		mes "[]";
		mes "ʹ㲻ҪҲû취...";
		close;
	}
}
