//===== rAthena Script ======================================= 
//= HD Refiners
//===== By: ==================================================
//= Euphy
//===== Current Version: =====================================
//= 1.0
//===== Compatible With: =====================================
//= rAthena SVN
//===== Description: =========================================
//= [Official Conversion]
//= Refiners that use HD ores to refine equipment. Upon
//= failure, the equipment is not destroyed; rather, its
//= refine level decreases by 1. The success rate is identical
//= to that for Enriched ores.
//= - "Blacksmith Mighty Hammer" only refines from +7~9.
//= - "Basta" only refines from +10 and up.
//===== Additional Comments: =================================
//= 1.0 First version. [Euphy]
//============================================================

// Blacksmith Mighty Hammer (+7~9)
//============================================================
-	script	::MightyHammer	-1,{
	disable_items;
	mes "[ ء]";
	mes ", һ, Ʒǳ.";
	mes "ֻȼ ^CC0000+7  +9^000000 ֮װ.";
	next;
	mes "[ ء]";
	mes "ҿھʧܵʱıװ, װ½һȼ, ǲǺΰ?";
	next;
	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 "Ǹ, һʦ.";
			break;
		case 2:
			mes "ҵ, һΪϵ.";
			break;
		case 3:
		case 4:
			mes "֫ɲҵר.";
			break;
		case 5:
			mes "Ҫװ!";
			break;
		case 6:
			mes "ų?";
			break;
		case 7:
		case 8:
			mes "װƷ?";
			break;
		case 9:
			mes "?";
			break;
		case 10:
			mes "? Ҹ?";
			break;
		}
		close;
	}
	if (!getequipisenableref(.@part)) {
		mes "[ ء]";
		mes "װܾ.";
		close;
	}
	if (getequiprefinerycnt(.@part) < 7 || getequiprefinerycnt(.@part) > 9) {
		mes "[ ء]";
		mes "ֵֻ +7  +9 ֮װ.";
		close;
	}
	switch(getequipweaponlv(.@part)) {
	default:
	case 0:
		set .@price,20000;
		set .@material,6241; //HD_Elunium
		break;
	case 1:
	case 2:
	case 3:
	case 4:
		set .@price,20000;
		set .@material,6240; //HD_Oridecon
		break;
	}
	mes "[ ء]";
	mes "װҪ֧ ^ff9999"+getitemname(.@material)+"^000000  20,000 zeny .";
	mes "׼òϺǮ?";
	next;
	if(select("- :- ") == 2) {
		mes "[ ء]";
		mes "װҰ.";
		close;
	}
	if (getequippercentrefinery(.@part) < 100) {
		mes "[ ء]";
		mes "ȥװܻʧ.";
		mes "ʧܵĻ, ήһ.";
		mes "Ƿ?";
		next;
		if(select("- :- ") == 2) {
			mes "[ ء]";
			mes "ֻЩºʧܵ, Żһ˫ĳɾ.";
			close;
		}
	}
	if (countitem(.@material) == 0 || Zeny < .@price) {
		mes "[ ء]";
		mes "ղŲ˵һ׼?";
		close;
	}
	delitem .@material,1;
	set Zeny, Zeny-.@price;
	mes "[ ء]";
	mes "! ! !";
	if (getequippercentrefinery(.@part) > rand(100) || getequippercentrefinery(.@part) > rand(100)) {
		successrefitem .@part;
		next;
		emotion e_no1;
		mes "[ ء]";
		mes "ÿҵԺ.";
		mes "Ҿ֪ɹ, ȥ, Ʒ!";
		close;
	}
	downrefitem .@part;
	next;
	emotion e_omg;
	mes "[ ء]";
	mes "ѽ!!";
	next;
	mes "[ ء]";
	mes "ԹҰľֵŪ1.";
	close;
}
prt_in,59,54,3	duplicate(MightyHammer)	ء#prt	826
morocc_in,65,30,3	duplicate(MightyHammer)	ء#morocc	826
payon,148,176,3	duplicate(MightyHammer)	ء#pay	826
alberta_in,16,56,3	duplicate(MightyHammer)	ء#alb	826
yuno_in01,171,18,3	duplicate(MightyHammer)	ء#yuno	826
ein_in01,22,82,3	duplicate(MightyHammer)	ء#ein	826
lhz_in02,280,19,3	duplicate(MightyHammer)	ء#lhz	826

// iRO NPC locations:
// moc_para01,38,185,4	duplicate(MightyHammer)	Mighty Hammer#ed	826
// payon,174,133,4	duplicate(MightyHammer)	Mighty Hammer#im	826

// Basta (+10 and up)
//============================================================
-	script	::Basta	-1,{
	disable_items;
	mes "[˹]";
	mes "õ, ˹.";
	mes "Ҳƽľ.";
	mes "ֻ ^CC0000ڵ +10^000000 װ.";
	next;
	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 "ͷѵǸװ?";
			break;
		case 2:
			mes "Ҹ?";
			break;
		case 3:
		case 4:
			mes "֫ɲҵר.";
			break;
		case 5:
			mes "㵽֪֪ʲô?";
			break;
		case 6:
			mes "뾫Ľ, Ҵ, Ӧȥܼ.";
			break;
		case 7:
		case 8:
			mes "װƷ?";
			break;
		case 9:
			mes "ð... ûпκװԾ.";
			break;
		case 10:
			mes "Ҳ, ȥСѧʦȥ.";
			break;
		}
		close;
	}
	if (!getequipisenableref(.@part)) {
		mes "[˹]";
		mes "Ҳܾװ, ȫûа취.";
		close;
	}
	if (getequiprefinerycnt(.@part) < 10) {
		mes "[˹]";
		mes "ѵû߹? ֻᾫ +10 ϵװ.";
		close;
	}
	if (getequiprefinerycnt(.@part) == 20) {
		mes "[˹]";
		mes "װѾ, Ҫٴξ~";
		close;
	}
	switch(getequipweaponlv(.@part)) {
	default:
	case 0:
		set .@price,100000;
		set .@material,6225; //HD_Carnium
		set .@type$,"";
		break;
	case 1:
	case 2:
	case 3:
	case 4:
		set .@price,100000;
		set .@material,6226; //HD_Bradium
		set .@type$,"";
		break;
	}
	mes "[˹]";
	mes "... 뾫װ?";
	mes "Ҫװ, Ҫȡ 1 ^ff9999"+getitemname(.@material)+"^000000  100,000 zeny .";
	mes "ȷҪ?";
	next;
	if(select("- :- ") == 2) {
		mes "[˹]";
		mes "ð. Ը...";
		close;
	}
	if (getequippercentrefinery(.@part) < 100) {
		mes "[˹]";
		mes " "+.@type$+" Ѿ㹻߼.";
		mes "ԾĻ, пܷή.";
		next;
		mes "[˹]";
		mes "Һطͬ.";
		mes "ܻһӵ 3  4... .";
		mes " 1 .";
		next;
		mes "[˹]";
		mes ", սС.";
		mes "ѾеҸ. 㻹?";
		next;
		if(select("- :- ") == 2) {
			mes "[˹]";
			mes "ð~";
			mes "ս, Ҳһǻ۵ı.";
			close;
		}
	}
	if (countitem(.@material) == 0 || Zeny < .@price) {
		mes "[˹]";
		mes "... ûв.";
		mes "㶼.";
		close;
	}
	delitem .@material,1;
	set Zeny, Zeny-.@price;
	mes "Pow! Pow! Pow! Pow!";
	if (getequippercentrefinery(.@part) > rand(100) || getequippercentrefinery(.@part) > rand(100)) {
		successrefitem .@part;
		next;
		emotion e_no1;
		mes "[˹]";
		mes "ܺ! ɵƯ!!";
		mes "õ!";
		close;
	}
	downrefitem .@part;
	next;
	emotion (!rand(5))?e_cash:e_omg;
	mes "[˹]";
	mes "Aaaaaaaaaaak!!!";
	next;
	mes "[˹]";
	mes "!";
	mes "ʧ, ֵ!";
	mes "õ, Ҳÿζ100%ɹ!";
	mes "̫ù.";
	next;
	mes "[˹]";
	mes "´һĸõ! !";
	close;
}
prt_in,57,54,3	duplicate(Basta)	˹#prt	826
morocc_in,68,30,3	duplicate(Basta)	˹#morocc	826
payon,148,174,3	duplicate(Basta)	˹#payon	826
alberta_in,18,56,3	duplicate(Basta)	˹#alberta	826
yuno_in01,173,18,3	duplicate(Basta)	˹#yuno	826
ein_in01,24,82,3	duplicate(Basta)	˹#einbroch	826
lhz_in02,280,17,3	duplicate(Basta)	˹#lighthalzen	826
