izlude,147,127,6	script	Refiner	63,{ 
	if( BaseLevel < 35 ) {
		mes "["+.npcname$+"]";
		if ( !Sex ) {
			mes "Aio oae ?iay e?anaaeoa!";
			mes "Eiaaa noaiaou ^3355FF35 aaciaiai o?iaiy^000000";
			mes "i?eoiae e y aoao iiiiaaou oaaa.";
		} else {
			mes "I?eyoaeu,";
			mes "iaaa?enu nia?aea iiuoa,";
			mes "noaiu ^3355FF35 aaciaiai o?iaiy^000000";
			mes "e iinea ia?auaeny ca iiiiuu?.";
		}
		mes "^888888~Caoi?ea - yoi iie eii?e!^000000";
		close;
		end;
	}

	mes "["+.npcname$+"]";
	mes "Io caa?iaa, a?o?ie.";
	mes "?ai iiii?u?";
	next;

L_Menu:
	switch(select("^888888 ByeBye^000000:License:Work")) {
		case 1:
			goto L_ByeBye;
		case 2:
			goto L_License;
		default:
			goto L_Work;
	}

	// ia anyeee neo?ae
	close;
	end;

L_Menu2:
	mes "["+.npcname$+"]";
	mes "Io oae ?aai aaeaai?";
	next;
	goto L_Menu;


L_Work:

	setarray .@pos$[1],"Upper Headgear","Armor","Left hand","Right hand","Garment","Footgear","Left Accessory","Right Accessory","Mid Headgear","Lower Headgear";
	set .@menu$,"";
	for (set .@i,1; .@i<=10; set .@i,.@i+1) {
		if (getequipisequiped(.@i))
			set .@menu$, .@menu$+.@pos$[.@i]+" - ^0055FF"+getequipname(.@i)+"^000000";
		set .@menu$, .@menu$+":";
	}
	set .@part, select(.@menu$);
	set .@id, getequipid(.@part);

	// I?iaa?yai aiionoeiinou i?aaiaoa
	if( .allowed[0] ) { // anee 0, oi ana i?aaiaou aiionoeiu
		for(set .@n,0; .@n<getarraysize(.allowed); set .@n,.@n+1)
			if( .allowed[.@n] == .@id ) {
				goto L_Allowed;
			}
	} else {
		goto L_Allowed;
	}

	// I?aaiao ia iaeaai a nienea
	mes "["+.npcname$+"]";
	mes "I?inoe, ii n ^0055FF"+getequipname(.@part)+"^000000";
	mes "y ia ?aaioa?.";
	next;
	goto L_Menu2;


L_Allowed:
	setarray .@poshex[1],0x0100,0x0010,0x0020,0x0002,0x0004,0x0040,0x0008,0x0080,0x0200,0x0001;


	// Aa??i aaiiua io?iiai i?aaiaoa ec eiaaioa?y
	set .@found, 0;
	getinventorylist;
	for(set .@i,0; .@i<@inventorylist_count; set .@i,.@i+1)
		if (@inventorylist_id[.@i] == .@id && @inventorylist_equip[.@i]&.@poshex[.@part] ) {
			set .@found, 1;
			break;
		}

	if( !.@found ) {
		// Ioeaea eee ian iuoa?ony iaiaioou
		goto L_ByeBye;
	}

	// Nia?aea noieiinou
	mes "["+.npcname$+"]";
	mes "Aey ^0055FF"+getequipname(.@part)+"^000000";
	mes "n oaay aoaao: ^FF5500"+.price[getequipweaponlv(.@part)]+"^000000z";
	mes "I?enooiei e ?aaioa?";
	next;
	if( select("^888888 Iaai iiaoiaou^000000:I?enooiaai") == 1 ) {
		goto L_Menu2;
	}

	// I?iaa?yai anou ee i?aaiao a neioa
	if( !getequipisequiped(.@part) ) {
		emotion e_what;
		mes "["+.npcname$+"]";
		mes "...";
		close;
	}

	if( Zeny < .price[getequipweaponlv(.@part)] ) {
		mes "["+.npcname$+"]";
		if ( !Sex ) {
			mes "E?anaaeoa,";
		} else {
			mes "Ecaeie i?eyoaeu,";
		}
		mes "ii oaaa iaoaaoaao ^FF5500"+(.price[getequipweaponlv(.@part)]-Zeny)+"^000000z.";
		emotion e_sry;
		close;
	}

	// Nienuaaai caie
	set Zeny, Zeny-.price[getequipweaponlv(.@part)];

	// Caiiieiaai ana aaiiua i aaue
	set .@refine, @inventorylist_refine[.@i]; // aey iaeaiueeo iiaeieia
	set .@identify, @inventorylist_identify[.@i];
	set .@attribute, @inventorylist_attribute[.@i];
	set .@card1, @inventorylist_card1[.@i];
	set .@card2, @inventorylist_card2[.@i];
	set .@card3, @inventorylist_card3[.@i];
	set .@card4, @inventorylist_card4[.@i];


	deletearray @inventorylist_id[0],getarraysize(@inventorylist_id);
	deletearray @inventorylist_amount[0],getarraysize(@inventorylist_amount);
	deletearray @inventorylist_equip[0],getarraysize(@inventorylist_equip);
	deletearray @inventorylist_refine[0],getarraysize(@inventorylist_refine);
	deletearray @inventorylist_identify[0],getarraysize(@inventorylist_identify);
	deletearray @inventorylist_attribute[0],getarraysize(@inventorylist_attribute);
	deletearray @inventorylist_card1[0],getarraysize(@inventorylist_card1);
	deletearray @inventorylist_card2[0],getarraysize(@inventorylist_card2);
	deletearray @inventorylist_card3[0],getarraysize(@inventorylist_card3);
	deletearray @inventorylist_card4[0],getarraysize(@inventorylist_card4);
	deletearray @inventorylist_expire[0],getarraysize(@inventorylist_expire);

	// Aey ia?aea i?iaa?ei oain ia iieiieo
	if( rand(1, 100) <= .breakrate ) {

// oldversion compatibility
//	breakequip(.@part); // Comment this line if usind old athena or eA-Mod

// and uncomment this part
/* 
			unequip(.@part);
			delitem2 .@id, 1, .@identify, .@refine, .@attribute, .@card1, .@card2, .@card3, .@card4;

			getitem2 .@id, 1, .@identify, .@refine, 1, .@card1, .@card2, .@card3, .@card4;
*/

		goto L_Oops;
	}

	// Iieiiee ia auei, a e?aii neo?aa Oniao!
	specialeffect 154; // Forge Success


	set .@newrefine, rand(11);

// oldversion compatibility
	delequip(.@part); // Comment this line if usind old athena or eA-Mod

// and uncomment this part
/*
		unequip(.@part);
		delitem2 .@id, 1, .@identify, .@refine, .@attribute, .@card1, .@card2, .@card3, .@card4;
*/

	getitem2 .@id, 1, .@identify, .@newrefine, .@attribute, .@card1, .@card2, .@card3, .@card4;
// ?aaioaao iaei??aeoii
//	equip .@id;

	// Aaoia?aea eee ie?aai ia eciaieeinu, aanaei ?a ;)
	if( .@newrefine <= .@refine ) {
		mes "["+.npcname$+"]";
		mes "?eciu ea?a.";
		next;
		emotion e_heh;
		mes "["+.npcname$+"]";
		mes "Aoia? oaay an? ono?aeaaao.";
		close;
	}

	mes "["+.npcname$+"]";
	mes "Iieiue oniao!";
	next;
	emotion e_proud;
	mes "["+.npcname$+"]";
	mes "Iiniio?e eae y oi?io!";
	close;
	end;

L_Oops:

	specialeffect 155;
	mes "["+.npcname$+"]";
	mes "Oin,";
	mes "io i?inoe, auaaao e oaeia";
	next;
	emotion e_sry;
	mes "["+.npcname$+"]";
	mes "A e?aii neo?aa ou caoiae au?!";
	close;
	end;

L_License:
	mes "["+.npcname$+"]";
	mes "Aa an? i?inoi:";
	mes "aa??i oai? aauu, oi?ei...";
	mes "a ?acoeuoao eae iieo?eony.";
	next;
	mes "["+.npcname$+"]";
	mes "Ii?ii e neiiaou, a ii?ii";
	mes "e iieo?eou caoi?eo oo?a,";
	mes "eee iao aca?oa a e?iae?";
	next;
	goto L_Menu2;

L_ByeBye:
	mes "["+.npcname$+"]";
	if ( !Sex ) {
		mes "Caoiae au?, e?anaaeoa!";
	} else {
		mes "Io eaau, auaae io?ee!";
	}

	close;
	end;

OnInit:

	set .npcname$, "Nieo"; // Eiy NPC a aeaeiaao

	set .breakrate, 30; // Oain iieiiaou aauu (iaeneiaeuii 100)

	// Oaiu ia o?iaie (0 o?iaaiu aey a?iiuee)
	setarray .price[0],5000,5000,10000,15000,25000,50000;

	// Aiionoeiua i?aaiaou (anee ia?aui ea?o 0, oi aac ia?aie?aiee)
	setarray .allowed[0],0;

	end;

}