Added Shadow item Refiner

1 files changed, 146 insertions, 0 deletions

diff --git a/npc/re/merchants/shadow_refiner.txt b/npc/re/merchants/shadow_refiner.txt
new file mode 100644
index 000000000..5bb888d87
--- /dev/null
+++ b/npc/re/merchants/shadow_refiner.txt
@@ -0,0 +1,146 @@
+//===== Hercules Script ====================================== 
+//= Shadow Refiner
+//===== By: ================================================== 
+//= Dastgir
+//===== Current Version: ===================================== 
+//= 1.0
+//===== Description: ========================================= 
+//= [Aegis Conversion]
+//===== Additional Comments: ================================= 
+//= 1.0 First Version [Dastgir]
+//============================================================ 
+
+itemmall,31,76,3	script	Shadow Blacksmith#nomal	4_F_JOB_BLACKSMITH,{
+	disable_items;
+	mes "[Shadow Blacksmith]";
+	mes "Do you want to refine a Shadow item?.";
+	mes "Please choose the part you want to refine.";
+	next;
+	setarray .@position$[0],"Armor","Weapon","Shield","Shoes","Earring","Pendant";
+	for (.@i=EQI_SHADOW_ARMOR; .@i<=EQI_SHADOW_ACC_L; .@i++){
+		.@menu$ = .@menu$+((getequipisequiped(.@i))?getequipname(.@i):"^8C8C8C"+.@position$[.@i-EQI_SHADOW_ARMOR]+" [Not Equipped]^000000")+":";
+	}
+	.@menu$ = .@menu$+"Refine Info";
+	.@SelectedPart = select(.@menu$);
+	if (.@SelectedPart == 7){
+		mes "[Shadow Blacksmith]";
+		mes "Shadow item will gain extra bonus effect by the refine level, same as normal weapon/armour items.";
+		next;
+		mes "[Shadow Blacksmith]";
+		mes "Following are refining effect for each Shadow item parts.";
+		mes "Weapon: ATK, MATK + 1 increase for each +1 refine success.";
+		mes "Etc: HP + 10 increase for each +1 refine success.";
+		next;
+		mes "[Shadow Blacksmith]";
+		mes "You need Oridecon and Elunium for Shadow item refine ingredient, along with refine fee 20000 zeny.";
+		next;
+		mes "[Shadow Blacksmith]";
+		mes "When +5 or higher refining Shadow item can be destroyed, please use Enriched or HD ingredient for the refinement.";
+		close;
+	}
+	.@SelectedPart += EQI_SHADOW_ARMOR-1;
+	while(1){
+		mes "[Shadow Blacksmith]";
+		mes "20000 zeny will be spent as a refine fee.";
+		mes "Choose the ingredient and start refining.";
+		next;
+		.@index = 0;
+		if (.@SelectedPart != EQI_SHADOW_WEAPON)
+			.@index = 1;
+		setarray .@s_weapon1[0],Oridecon,Elunium;
+		setarray .@s_weapon2[0],Enriched_Oridecon,Enriched_Elunium;
+		setarray .@s_weapon3[0],HD_Oridecon,HD_Elunium;
+		if (countitem(.@s_weapon1[.@index]))
+			.@mate$[0] = getitemname(.@s_weapon1[.@index]);
+		else{
+			.@mate$[0] = "^8C8C8C"+ getitemname(.@s_weapon1[.@index]) +"^000000";
+			.@miss[0] = 1;
+		}
+		if (countitem(.@s_weapon2[.@index]))
+			.@mate$[1] = getitemname(.@s_weapon2[.@index]);
+		else{
+			.@mate$[1] = "^8C8C8C"+ getitemname(.@s_weapon2[.@index]) +"^000000";
+			.@miss[1] = 1;
+		}
+		if (getequiprefinerycnt(.@SelectedPart) > 6 && countitem(.@s_weapon3[.@index])) 
+			.@mate$[2] = getitemname(.@s_weapon3[.@index]);
+		else {
+			.@mate$[2] = "^8C8C8C"+ getitemname(.@s_weapon3[.@index]) +"^000000";
+			.@miss[2] = 1;
+		}
+		//-----------------------------------------------------------------------------
+		.@option = select("Cancel",.@mate$[0],.@mate$[1],.@mate$[2]);
+		if (.@option == 1){
+			mes "[Shadow Blacksmith]";
+			mes "You've cancelled refining.";
+			close;
+		}
+		.@option -= 2;
+		if (.@option==2){	//HD
+			if (getequiprefinerycnt(.@SelectedPart) < 7){
+				mes "[Shadow Blacksmith]";
+				mes "HD ingredient is only possible to use for +7 or higher refine level items.";
+				close;
+			}
+			.@hoihoi = 1;
+		}
+		if (.@miss[.@option]){
+			mes "[Shadow Blacksmith]";
+			mes "You do not have proper ingredient for this refining.";
+			close;
+		}
+		.@choose = getd(".@s_weapon"+(.@option+1)+"["+ .@index +"]");
+		if (Zeny < 20000) {
+			mes "[Shadow Blacksmith]";
+			mes "You do not have enough refine fee.";
+			close;
+		}
+		if (getequiprefinerycnt(.@SelectedPart) > 9) {
+			mes "[Shadow Blacksmith]";
+			mes "Shadow item refining is only possible until +10 level.";
+			close;
+		}
+		if (!getequipisenableref(.@SelectedPart)) {
+			mes "[Shadow Blacksmith]";
+			mes "This item cannot be refined.";
+			close;
+		}
+		if (getequippercentrefinery(.@SelectedPart) < 100) {
+			mes "[Shadow Blacksmith]";
+			mes "Safety guaranteed refine limit for shadow item is until +4.";
+			if (!.@hoihoi) {
+				mes "If you try more refining, item might get broken when failed. Still want to refine?";
+			}
+			else {
+				mes "If you try more refining, item refine level might go down when failed. Still want to refine?";
+			}
+			next;
+			if (select("Proceed","Cancel") == 2) {
+				mes "[Shadow Blacksmith]";
+				mes "You've cancelled refining.";
+				close;
+			}
+		}
+		//-----------------------------------------------------------------------------
+		mes "[Shadow Blacksmith]";
+		mes "Here we go--!!!";
+		next;
+		delitem .@choose,1;
+		Zeny -= 20000;
+		if (getequippercentrefinery(.@SelectedPart) > rand(100) || getequippercentrefinery(.@SelectedPart) > rand(100)) {
+			successrefitem .@SelectedPart;
+			mes "[Shadow Blacksmith]";
+			mes "Refine was successful.";
+			next;
+		}
+		else {
+			if (.@hoihoi)
+				downrefitem .@SelectedPart;
+			else
+				failedrefitem .@SelectedPart;
+			mes "[Shadow Blacksmith]";
+			mes "Oh no.. Refine was failed.";
+			close;
+		}
+	}
+}
\ No newline at end of file