Shadow Refine - unoffical

function	script	shadowrefine	{
	disable_items;
	mes "["+ getarg(0) +"]";
	mes "I am the best forger of all time!";
	mes "I will not refine any current equipment.";
	mes "I will only refine Shadow equipment.";
	next;
	mes "["+ getarg(0) +"]";
	mes "If you want me to provide my services, you must first have a shadow equipment equipped.";
	mes "What do you want me to refine??";
	next;

	setarray .@posicion$[1],"Shadow Armor","Shadow Weapon","Shadow Shield","Shadow Shoes","Shadow Earing","Shadow Pendant";
	.@smenu$ = "";
	for(.@it = 1; .@it<=20; .@it++) {
		if (getequipisequiped(.@it>=15 && .@int <=20)) {
			.@smenu$ += .@posicion$[.@it] + "-" + "[" + getequipname(.@it) + "]";
			.@equipado = 1;
		}
		.@smenu$ += ":";
	}
	if (.@equipado == 0) {
		mes "[" + getarg(0) + "]";
		mes "You do not have any shadow equipment equipped at this time.";
		close;
	}
	.@parte = select(.@smenu$);

	if (!getequipisequiped(.@parte)) {
		mes "[" + getarg(0) + "]";
		mes "You have nothing equipped";
		mes "Come back once you have equipped the equipment.";
		emotion e_an;
		close;
	}
	if (!getequipisenableref(.@parte)) {
		mes "[" + getarg(0) + "]";
		mes "I dont think i can";
		mes "Refine this item after all..";
		close;
	}

	if (getequiprefinerycnt(.@parte) >= 10) {
		mes "["+ getarg(0) +"]";
		mes "I can not refine this";
		mes "anymore. its reached";
		mes "Its maximum level!";
		close;
	}
	.@refineitemid = getequipid(.@parte);
	.@refinerycnt = getequiprefinerycnt(.@parte);
		.@type$ = "Armor";
		.@material = 6223; //Carnium
		.@price = 100000;
		.@safe = 4;
		mes "["+ getarg(0) +"]";
		mes "Hmm a Shadow gear.";
		mes "Do you want me to refine it?,";
		mes "I will need 1 ^003366Carnium^000000 y 100,000 zeny.";
	next;
	mes "Are you sure you want to?";
	next;
	if(select("Yes:No") == 2){
		mes "["+ getarg(0) +"]";
		mes "Hmm ... what do you think? ... right? ...";
		close;
	}
	if (getarg(1) != 1) {
		if (getequippercentrefinery(.@parte) < 100) {
			mes "["+ getarg(0) +"]";
			mes "This "+.@type$+" has been refined many times.";
			mes "There is a chance it will break if we try again.";
			mes "I am sure to break it, but there is a possibility.";
			next;
			mes "["+ getarg(0) +"]";
			mes "But it may happen that ^FF0000Decrease the level of refining^000000 of the "+.@type$+",";
			next;
			mes "["+ getarg(0) +"]";
			mes "Do you want me to refine it yet?";
			mes "Ive warned you what can happen.";
			next;
			if(select("Yes.:No.") == 2) {
				mes "["+ getarg(0) +"]";
				mes "Well, there is no challenge in that...";
				mes "No risk... nothing is lost.";
				close;
			}
		}
		if (countitem(.@material) < 1 || Zeny < .@price) {
			mes "["+ getarg(0) +"]";
			mes "Hmm, seem you do not have enough zeny or "+getitemname(.@material)+".";
			mes "Return when you gather the items needed.";
			close;
		}
		Zeny -= .@price;
		delitem .@material,1;

		//custom checks
		if (getequipisequiped(.@parte) == 0) {
			mes "[" + getarg(0) + "]";
			mes "Look at this, you dont have the items.";
			close;
		}
		if (getequiprefinerycnt(.@parte) != .@refinerycnt || getequipid(.@parte) != .@refineitemid) {
			mes "[" + getarg(0) + "]";
			emotion e_an;
			mes "Wait a minute.";
			mes "Do you think im stupid!?!";
			mes "You changed the items when I did not look at you! Get out of here!";
			close;
		}

		if (getequippercentrefinery(.@parte) > rand(100)) {
			mes "Clang! Clang! Clang! Clang!";
			successrefitem .@parte;
			next;
			emotion e_no1;
			mes "["+ getarg(0) +"]";
			mes "Excellent! I achieved it!";
			mes "I am the best smith out!.";
			close;
		} else {
			if (rand(100) < 80) {
				mes "["+ getarg(0) +"]";
				mes "Clang! Clang! Clang! Clang!";
				downrefitem .@parte, 3;
				next;
				emotion (!rand(5))?e_cash:e_omg;
				mes "["+ getarg(0) +"]";
				mes "Waaahhh!!!";
				next;
				mes "["+ getarg(0) +"]";
				mes "Oh no!";
				mes "The level of low refining.";
			} else {
				mes "["+ getarg(0) +"]";
				mes "Clang! Clang! Clang!";
				failedrefitem .@parte;
				next;
				emotion (!rand(5))?e_cash:e_omg;
				mes "["+ getarg(0) +"]";
				mes "Hmmm!";
				next;
				mes "["+ getarg(0) +"]";
				mes "Oh no! It failed to refine.";
				mes "I cannot belive this!";
			}
			mes "There must be a mistake, I'm the best forger of all time.";
			mes "This cannot be happening!";
			next;
			mes "["+ getarg(0) +"]";
			mes "I promise the next time i will do a better job! You can be sure of that!";
			close;
		}
	}
}
moc_para01,45,185,4	script	Shadow Refiner#prt	4_M_DWARF,{
	callfunc "shadowrefine","Shadow Refiner",0;
	end;
}

moc_para01,32,170,4	shop	Shadow Armor	4_F_KAFRA3,24000:250000,24024:250000,24029:250000,24027:250000,24030:250000,24242:250000,24081:250000,24112:250000,24216:250000
moc_para01,32,174,2	shop	Shadow Weapon	4_F_KAFRA5,24001:250000,24019:250000,24022:250000,24031:250000,24110:250000,24152:250000,24223:250000,24227:250000,24233:250000
moc_para01,35,174,2	shop	Shadow Shield	4_F_KAFRA4,24002:250000,24026:250000,24039:250000,24044:250000,24083:250000,24113:250000,24182:250000,24232:250000,24241:250000
moc_para01,36,170,2	shop	Shadow Shoes	4_F_KAFRA6,24003:250000,24025:250000,24045:250000,24082:250000,24085:250000,24092:250000,24111:250000,24181:250000,24240:250000
moc_para01,36,166,2	shop	Shadow Earing	4_F_KAFRA8,24004:250000,24018:250000,24021:250000,24049:250000,24079:250000,24102:250000,24109:250000,24153:250000,24225:250000
moc_para01,32,166,2	shop	Shadow Pendant	4_F_KAFRA7,24005:250000,24020:250000,24023:250000,24046:250000,24047:250000,24048:250000,24080:250000,24169:250000,24185:250000