//===== rAthena Script =======================================
//= Advanced Refiner
//===== By: ==================================================
//= Euphy
//===== Current Version: =====================================
//= 1.0
//===== Compatible With: =====================================
//= rAthena SVN
//===== Description: =========================================
//= [Official Conversion]
//= Refiner that uses Enriched ores to increase upgrade success.
//= After a conversation with Doddler, it's been established that
//= the advanced refiner works similar the the "Bubble Gum" item.
//= The success percentage is not "increased" however, if it fails
//= You get a second try. This tries twice at the same time,
//= effectively giving you a re-roll on your attempt.
//===== Additional Comments: =================================
//= 1.0 Added Malangdo Refiner "Holink". [Euphy]
//============================================================

malangdo,221,174,6	script	ֿ#mal_cash	559,{
	disable_items;
	mes "[ֿ]";
	mes " '~' ֿ~";
	mes "Ĵʦ, ֿ~";
	mes "һֻè, ʦ޿˵ľʦ~";
	mes "ҵŮΪҽ, ֿ~";
	mes "ܵĻֿ~ 뾫?";
	next;
	setarray .@position$[1],"- ͷ","- ","- ","- ","- ","- Ь","- װƷ","- װƷ","- ͷ","- ͷ";
	set .@menu$,"";
	for(set .@i,1; .@i<=10; set .@i,.@i+1)
		set .@menu$, .@menu$+((getequipisequiped(.@i))?getequipname(.@i):.@position$[.@i]+"-[δװ]")+":";
	set .@part, select(.@menu$);
	if (!getequipisequiped(.@part)) {
		mes "[ֿ]";
		switch(.@part) {
		case 1:
			mes "ҵʦ˵, ~";
			mes "Ҳű...";
			break;
		case 2:
			mes "ûʲôÿ, !!";
			break;
		case 3:
			mes "? ôװֵƷ...?";
			break;
		case 4:
			mes "? ôװֵƷ...?";
			break;
		case 5:
			mes "? 㾹Ȼʲôû.";
			break;
		case 6:
			mes "Kyang~! , ~.";
			break;
		case 7:
		case 8:
			mes "? װƷ?";
			break;
		case 9:
		case 10:
			mes "? ֪ͷλõľ, ?~";
			break;
		}
		close;
	}
	if (!getequipisenableref(.@part)) {
		mes "[ֿ]";
		mes "ʹʦҲ޷, .";
		close;
	}
	if (getequiprefinerycnt(.@part) >= 10) {
		mes "[ֿ]";
		mes "~ ľ. 嶼, ?~";
		close;
	}
	mes "[ֿ]";
	switch(getequipweaponlv(.@part)) {
	default:
	case 0: // Armor
		set .@price,15000;
		set .@material,7619; //Enriched_Elunium
		set .@type$,"armor";
		mes "Ҫϵ, ~";
		break;
	case 1: // Level 1 Weapon
		set .@price,500;
		set .@material,7620; //Enriched_Oridecon
		set .@type$,"weapon";
		mes ", һ1...?";
		break;
	case 2: // Level 2 Weapon
		set .@price,2000;
		set .@material,7620; //Enriched_Oridecon
		set .@type$,"weapon";
		mes ", һ2...?";
		break;
	case 3: // Level 3 Weapon
		set .@price,20000;
		set .@material,7620; //Enriched_Oridecon
		set .@type$,"weapon";
		mes " ~~ һ3~~";
		break;
	case 4: // Level 4 Weapon
		set .@price,50000;
		set .@material,7620; //Enriched_Oridecon
		set .@type$,"weapon";
		mes "-!... һ4...!";
		mes "ֻ2.";
		mes "Ǵʦѧ... -!!";
		break;
	}
	mes "ξø ^ff9999"+getitemname(.@material)+"^000000  ^ff9999"+.@price+"^000000 Zeny, ~";
	mes "Want to continue, ?~";
	next;
	if(select("Yes!!:No!!") == 2) {
		mes "[ֿ]";
		mes "Kyack!!";
		mes "㾹Ȼžʦֿ, ?~";
		close;
	}
	if (getequippercentrefinery(.@part) < 100) {
		mes "[ֿ]";
		mes "!!";
		if (.@type$ == "armor")
			mes "Ѿ֪ٴ, .";
		else {
			mes "Σ. Σ~";
			mes "ССľ, ~";
			next;
			mes "[ֿ]";
		}
		mes "׷װĸ߾ֵĻ.";
		mes "Ǻпܻھ, .";
		next;
		mes "[ֿ]";
		mes " "+.@type$+" , ";
		mes "ԾҲò, . ... ";
		mes "^ff0000Ƭ͸ħ^000000Ҳһ.";
		mes "޷Ԥ, 㻹ȥ, ~?";
		next;
		if(select("- ǵҪ!!:- ð!!") == 2) {
			mes "[ֿ]";
			mes "! ǵѡ, .";
			mes "!!";
			mes "ҶҾʦֿ˶, ~";
			close;
		}
	}
	if (countitem(.@material) == 0 || Zeny < .@price) {
		mes "[ֿ]";
		mes "Ĳû.";
		mes "ҪΪ֧ ^ff9999"+getitemname(.@material)+"^000000  ^ff9999"+.@price+"^000000 Zeny, ~";
		mes "㶨Щ, ~";
		close;
	}
	delitem .@material,1;
	set Zeny, Zeny-.@price;
	if (getequippercentrefinery(.@part) > rand(100) || getequippercentrefinery(.@part) > rand(100)) {
		successrefitem .@part;
		mes "[ֿ]";
		mes "~ ~ !  ˷ ~";
		next;
		emotion e_kis;
		mes "[ֿ]";
		mes "!! ޵, !!";
		mes "ĸͽ~";
		mes "ֿ!!";
		mes "һɹľ, !!";
		close;
	}
	failedrefitem .@part;
	mes "[ֿ]";
	mes "~ ~ Kyaaak!!";
	next;
	switch(rand(1,5)) {
		case 1: emotion e_sob; break;
		case 2: emotion e_swt2; break;
		case 3: emotion e_wah; break;
		case 4: emotion e_hmm; break;
		case 5: emotion e_lv2; break;
	}
	mes "[ֿ]";
	mes "!! Aaaaakk~~!!!!";
	mes "Kyaaak!! ʧ, !!";
	next;
	mes "[ֿ]";
	mes "......";
	mes "......";
	mes "~ һ~ , ...";
	next;
	mes "[ֿ]";
	mes ".... ʦ˵.";
	mes "ʧ˳ɹ֮ĸ...";
	mes ", Ҫס, ʧܻɹĿʼ.";
	close;
}
