//===================================
// [] The PlutoEA Project []
// http://opensvn.csie.org/PlutoEA
// -----------------------------------------
// -  } -
//===================================
//= G3.0
//= ƺ@G¦B
//===================================

//===================================
// Jh֡Av~c
//===================================
geffen_in,110,172,0	script	Jh#1	63,{
	mes "[Jh]";
	mes "wzӨJhKKQC";
	mes "o̳cҦvΪ~C";
	mes "zݭnO?";
	next;
	switch(select("ڷQnRKzC:ڷQnRv~C:ڷQnRݡC:ڷQns@ۡC:C")) {
	case 1:
		mes "[Jh]";
		mes "Ψӻs@ZKzMOVwݶVnC";
		mes "LzӤ]DAUwݻWNUQC";
		mes "ziH̳yۤvg٪pܦXAC";
		next;
		switch(select("Kz - 30000C:Kz - 120000C:Kz - 300000:wKzC:C")) {
		case 1:
			if (Zeny < 30000) {
				mes "[Jh]";
				mes "zҾ֦I`nڽ߿浹zaI";
				close;
			}
			getitem 986,1; // Anvil
			set Zeny,Zeny-30000;
			mes "[Jh]";
			mes "oO۷GFC";
			mes "`AD`P±zʶRCpGݭnܡAwzAץ{СC";
			close;
		case 2:
			if (Zeny < 120000) {
				mes "[Jh]";
				mes "zҾ֦I`nڽ߿浹zaI";
				close;
			}
			getitem 987,1; // Oridecon_Anvil
			set Zeny,Zeny-120000;
			mes "[Jh]";
			mes "zIKKӾ֦Kz̰_X]noӵ{סC";
			mes "`AD`P±zʶRCpGݭnܡAwzAץ{СC";
			close;
		case 3:
			if (Zeny < 300000) {
				mes "[Jh]";
				mes "zҾ֦I`nڽ߿浹zaI";
				close;
			}
			getitem 988,1; // Golden_Anvil
			set Zeny,Zeny-300000;
			mes "[Jh]";
			mes "zҿܪoӬOKzγ̰w̬Rݩһs!";
			mes "unFoӡA۫Hz̩wiH@WjKKC";
			mes "`AD`P±zʶRCpGݭnܡAwzAץ{СC";
			close;
		case 4:
			mes "[Jh]";
			mes "ڭ̩Q̨ScKzwKzC";
			mes "Dǻ''һs@KzOOwgyǩ@...γoص{װwݰKzuکQ̨SA䥦Q]|C";
			close;
		case 5:
			mes "[Jh]";
			mes "pGݭnܡAwzAץ{СCкCC";
			close;
		}
	case 2:
		mes "[Jh]";
		mes "jKKMonΰjDC";
		mes "pGbJhKKQʶRD㪺ܡA";
		mes "z@wiH@WjKKC";
		mes "ݬݨ@عD̦z߷NaI";
		next;
		switch(select("aκql - 150C:Kl - 1000C:l - 3000C:l - 5000C:C")) {
		case 1:
			mes "[Jh]";
			mes "oOs@ݪݫ~!!";
			next;
			mes "[Jh]";
			mes "nAаݱznʶRhּƶq?";
			mes "ܽЫ'0'C";
			next;
			while(1) {
				input .@input;
				if (.@input == 0) {
					mes "[Jh]";
					mes "wgCкCC";
					close;
				}
				else if ((.@input < 0) || (.@input > 500)) {
					mes "[Jh]";
					mes "бNʶRƶq500ӥHUC";
					next;
				}
				else {
					break;
				}
			}
			set .@sell,.@input * 150;
			if (Zeny < .@sell) {
				mes "[Jh]";
				mes "zҾ֦I`nڽ߿浹zaI";
				close;
			}
			if (checkweight(612,.@input) == 0) {
				mes "[Jh]";
				mes "bF褧eХz@Uz~C";
				close;
			}
			getitem 612,.@input;
			set Zeny,Zeny-.@sell;
			mes "[Jh]";
			mes "D`P±zʶRCpGݭnܡAwzAץ{СC";
			close;
		case 2:
			mes "[Jh]";
			mes "nAаݱznʶRhּƶq?";
			mes "ܽЫ'0'C";
			next;
			while(1) {
				input .@input;
				if (.@input == 0) {
					mes "[Jh]";
					mes "wgCкCC";
					close;
				}
				else if ((.@input < 0) || (.@input > 500)) {
					mes "[Jh]";
					mes "бNʶRƶq500ӥHUC";
					next;
				}
				else {
					break;
				}
			}
			set .@sell,.@input * 1000;
			if (Zeny < .@sell) {
				mes "[Jh]";
				mes "zҾ֦I`nڽ߿浹zaI";
				close;
			}
			if (checkweight(613,.@input) == 0) {
				mes "[Jh]";
				mes "bF褧eХz@Uz~C";
				close;
			}
			getitem 613,.@input;
			set Zeny,Zeny-.@sell;
			mes "[Jh]";
			mes "D`P±zʶRCpGݭnܡAwzAץ{СC";
			close;
		case 3:
			mes "[Jh]";
			mes "nAаݱznʶRhּƶq?";
			mes "ܽЫ'0'C";
			next;
			while(1) {
				input .@input;
				if (.@input == 0) {
					mes "[Jh]";
					mes "wgCкCC";
					close;
				}
				else if ((.@input < 0) || (.@input > 500)) {
					mes "[Jh]";
					mes "бNʶRƶq500ӥHUC";
					next;
				}
				else {
					break;
				}
			}
			set .@sell,.@input * 3000;
			if (Zeny < .@sell) {
				mes "[Jh]";
				mes "zҾ֦I`nڽ߿浹zaI";
				close;
			}
			if (checkweight(614,.@input) == 0) {
				mes "[Jh]";
				mes "bF褧eХz@Uz~C";
				close;
			}
			getitem 614,.@input;
			set Zeny,Zeny-.@sell;
			mes "[Jh]";
			mes "D`P±zʶRCpGݭnܡAwzAץ{СC";
			close;
		case 4:
			mes "[Jh]";
			mes "nAаݱznʶRhּƶq?";
			mes "ܽЫ'0'C";
			next;
			while(1) {
				input .@input;
				if (.@input == 0) {
					mes "[Jh]";
					mes "wgCкCC";
					close;
				}
				else if ((.@input < 0) || (.@input > 500)) {
					mes "[Jh]";
					mes "бNʶRƶq500ӥHUC";
					next;
				}
				else {
					break;
				}
			}
			set .@sell,.@input * 5000;
			if (Zeny < .@sell) {
				mes "[Jh]";
				mes "zҾ֦I`nڽ߿浹zaI";
				close;
			}
			if (checkweight(615,.@input) == 0) {
				mes "[Jh]";
				mes "bF褧eХz@Uz~C";
				close;
			}
			getitem 615,.@input;
			set Zeny,Zeny-.@sell;
			mes "[Jh]";
			mes "D`P±zʶRCpGݭnܡAwzAץ{СC";
			close;
		case 5:
			mes "[Jh]";
			mes "pGݭnܡAwzAץ{СCкCC";
			close;
		}
	case 3:
		mes "[Jh]";
		mes "ӱzOҿΪOɳfڡI";
		mes "AzQnʶRتݩO?";
		next;
		switch(select("jƪZΪ-jƯżƤ@ - 200C:jƪZΪ-jƯżƤG - 1000C:פC")) {
		case 1:
			mes "[Jh]";
			mes "nAаݱznʶRhּƶq?";
			mes "ܽЫ'0'C";
			next;
			while(1) {
				input .@input;
				if (.@input == 0) {
					mes "[Jh]";
					mes "wgCкCC";
					close;
				}
				else if ((.@input < 0) || (.@input > 500)) {
					mes "[Jh]";
					mes "бNʶRƶq500ӥHUC";
					next;
				}
				else {
					break;
				}
			}
			set .@sell,.@input * 200;
			if (Zeny < .@sell) {
				mes "[Jh]";
				mes "zҾ֦I`nڽ߿浹za...iOpg窺C...";
				close;
			}
			if (checkweight(1010,.@input) == 0) {
				mes "[Jh]";
				mes "bF褧eХz@Uz~C";
				close;
			}
			getitem 1010,.@input; // Phracon
			set Zeny,Zeny-.@sell;
			mes "[Jh]";
			mes "D`P±zʶRCpGݭnܡAwzAץ{СC";
			close;
		case 2:
			mes "[Jh]";
			mes "nAаݱznʶRhּƶq?";
			mes "ܽЫ'0'C";
			next;
			while(1) {
				input .@input;
				if (.@input == 0) {
					mes "[Jh]";
					mes "wgCкCC";
					close;
				}
				else if ((.@input < 0) || (.@input > 500)) {
					mes "[Jh]";
					mes "бNʶRƶq500ӥHUC";
					next;
				}
				else {
					break;
				}
			}
			set .@sell,.@input * 1000;
			if (Zeny < .@sell) {
				mes "[Jh]";
				mes "zҾ֦I`nڽ߿浹za...iOpg窺C...";
				close;
			}
			if (checkweight(1011,.@input) == 0) {
				mes "[Jh]";
				mes "bF褧eХz@Uz~C";
				close;
			}
			getitem 1011,.@input; // Emveretarcon
			set Zeny,Zeny-.@sell;
			mes "[Jh]";
			mes "D`P±zʶRCpGݭnܡAwzAץ{СC";
			close;
		case 3:
			mes "[Jh]";
			mes "pGݭnܡAwzAץ{СCкCC";
			close;
		}
	case 4:
		mes "[Jh]";
		mes "iHΨӴҪݦݻPTءC";
		mes "unUӭۨӴҡANiHҥX«׬۷ݡC";
		mes "zQns@تݩO?";	//SnextAX
		switch(select("ڷQns@ݡC:ڷQns@TC:פC")) {
		case 1:
			if (countitem(756) < 5) {
				mes "[Jh]";
				mes "nOSӯݭ۪ܡAڬOSks@XݨӪC";
				close;
			}
			else {
				delitem 756,5;  //Oridecon_Stone
				getitem 984,1; // Oridecon
				mes "[Jh]";
				mes "haIoOwnnzݡC";
				mes "pGݭnܡAwzAץ{СC";
				close;
			}
		case 2:
			if (countitem(757) < 5) {
				mes "[Jh]";
				mes "nOSӾT۪ܡAڬOSks@XTӪC";
				close;
			}
			else {
				delitem 757,5;  //Elunium_Stone
				getitem 985,1; // Elunium
				mes "[Jh]";
				mes "haIoOwnnzTC";
				mes "pGݭnܡAwzAץ{СC";
				close;
			}
		case 3:
			mes "[Jh]";
			mes "D`P±zʶRCpGݭnܡAwzAץ{СC";
			close;
		}
	case 5:
		mes "[Jh]";
		mes "pGݭnܡAwzAץ{СCкCC";
		close;
	}
}

//=========================================================
//  աA㭵ùJJh
//=========================================================
ein_in01,38,29,0	script	 	63,{
	if (checkweight(1201,1) == 0) {
		mes "- yU!!                 -";
		mes "- eAaFӦhFF.  -";
		mes "- մAqa.    -";
		close;
	}
	mes "[ ]";
	mes "w{KKB͡A";
	mes "o̳cP妳Ҧӫ~";
	mes "AiDڻݭnFO";
	next;
	switch(select("ʶRKz:ʶR媫~:ʶR:ҭ:")) {
	case 1:
		mes "[ ]";
		mes "KzO大򥻪~ڡA";
		mes "ѩOӭnA¤i۳BåA";
		mes "ĳA̦nu誺åpO?";
		next;
		switch(select("Kz - 30000z:Kz - 120000z:Kz - 300000z:wKz:")) {
		case 1:
			if (zeny < 30000) {
				mes "[ ]";
				mes "AfUp";
				mes "ǻOuCڬݥuవӪMa?";
				close;
			}
			getitem 986,1; //Anvil
			set zeny,zeny-30000;
			mes "[ ]";
			mes "OӪGʯणåڡA";
			mes "`§AʡAY٦ݭnFɻ@nNnF";
			close;
		case 2:
			if (zeny < 120000) {
				mes "[ ]";
				mes "AfUp";
				mes "ǻOuCڬݥuవӪMa?";
				close;
			}
			getitem 987,1; //Oridecon_Anvil
			set zeny,zeny-120000;
			mes "[ ]";
			mes "GMAKKܤ֭noص{תKz~ڡA";
			mes "`§AʡAY٦ݭnFɻ@nNnF";
			close;
		case 3:
			if (zeny < 300000) {
				mes "[ ]";
				mes "AfUp";
				mes "ǻOuCڬݥuవӪMa?";
				close;
			}
			getitem 988,1; //Golden_Anvil
			set zeny,zeny-300000;
			mes "[ ]";
			mes "AʤFKzAڴNDAƤFuqKKް!";
			mes "ƱAa۳ǫΪKzAbӻs@XuqZa";
			close;
		case 4:
			mes "[ ]";
			mes "bڭ̨̩ScKzwKzA";
			mes "γ\OѶǻKzs@H''ҰNiण@ˤF...";
			mes "oӧwݪ~AȬOڭ̩QAa]䤣쪺";
			close;
		case 5:
			mes "[ ]";
			mes "Y٦ݭnFɻ@nNnFAA";
			close;
		}
	case 2:
		mes "[ ]";
		mes "qεۻs@Zɷ|ݭnܦhƪ..";
		mes "Aӻһݭn~o̳A";
		mes "ЧAܧAQnåa";
		next;
		switch(select("aκql- 150z.:Kl- 1000z.:l- 3000z.:l- 5000z.:")) {
		case 1:
			set .@item,612;
			set .@item_cost,150;
			set .@item_weight,200;
			mes "[ ]";
			mes "nݴҮɳoåOn!!";
			next;
			break;
		case 2:
			set .@item,613;
			set .@item_cost,1000;
			set .@item_weight,200;
			break;
		case 3:
			set .@item,614;
			set .@item_cost,3000;
			set .@item_weight,300;
			break;
		case 4:
			set .@item,615;
			set .@item_cost,5000;
			set .@item_weight,400;
			break;
		case 5:
			mes "[ ]";
			mes "Y٦ݭnFɻ@nNnFAA";
			close;
		}
		mes "[ ]";
		mes "AAnʶRh֭өO?";
		mes "Qn пJ '0'";
		next;
		while(1) {
			input .@input;
			if (.@input == 0) {
				mes "[ ]";
				mes "FAA";
				close;
			}
			else if ((.@input < 0) || (.@input > 500)) {
				mes "[ ]";
				mes "пJ500 ӥHU.";
				next;
			}
			else {
				break;
			}
		}
		set .@sell,.@input * .@item_cost;
		if (zeny < .@sell) {
			mes "[ ]";
			mes "HAثeҾ֦...";
			mes "O檺Aڤ]ߥͷN";
			close;
		}
		if (checkweight(.@item,.@input) == 0) {
			mes "[ ]";
			mes "A...";
			mes "ynݰڡAb~eЧAzAI]a.";
			close;
		}
		set zeny,zeny-.@sell;
		getitem .@item,.@input;
		mes "[ ]";
		mes "`§AʡAY٦ݭnFɻ@nNnF";
		close;
	case 3:
		mes "[ ]";
		mes "Aӥ諸O«׸åaA";
		mes "ӨӡAAnʶR@تݩO?";
		next;
		switch(select("jƪZ-żƤ@- 200z:jƪZ-żƤG- 1000z:")) {
		case 1:
			set .@item,1010;
			set .@item_price,200;
			break;
		case 2:
			set .@item,1011;
			set .@item_price,1000;
			break;		
		case 3:
			mes "[ ]";
			mes "Y٦ݭnFɻ@nNnFAA";
			close;
		}
		mes "[ ]";
		mes "AAnʶRXөO?";
		mes "Qn пJ '0'";
		next;
		while(1) {
			input .@input;
			if (.@input == 0) {
				mes "[ ]";
				mes "FAA";
				close;
			}
			else if ((.@input < 0) || (.@input > 500)) {
				mes "[ ]";
				mes "пJ500 ӥHU";
				next;
			}
			else {
				break;
			}
		}
		set .@sell,.@input * .@item_price;
		if (zeny < .@sell) {
			mes "[ ]";
			mes "AnڡANRFo@IIF褣s@XZ ЧAʰOo@I";
			close;
		}
		if (checkweight(.@item,.@input) == 0) {
			mes "[ ]";
			mes "A...";
			mes "ynݰڡAb~eЧAzAI]a.";
			close;
		}
		getitem .@item,.@input;
		set zeny,zeny-.@sell;
		mes "[ ]";
		mes "`§AʡAY٦ݭnFɻ@nNnF";
		close;
	case 4:
		mes "[ ]";
		mes "iҪݬOuݩMTڡA";
		mes "Uۮ5ӭۨӴҪܥis@X«׸ݡA";
		mes "Ө.. Ans@X˪ݩO?";
		switch(select("ڭns@:ڭns@T:")) {
		case 1:
			if (countitem(756) < 5) {
				mes "[ ]";
				mes "ڤOLSݭ5ӪܡAs@Xݰ";
				close;
			}
			else {
				delitem 756,5; //Oridecon_Stone
				getitem 984,1; //Oridecon
				mes "[ ]";
				mes "ӡAwnݦbo̰ڡAwAHHaA";
				close;
			}
		case 2:
			if (countitem(757) < 5) {
				mes "[ ]";
				mes "ڤOLST5ӪܡAs@XT";
				close;
			}
			else {
				delitem 757,5; //Elunium_Stone
				getitem 985,1; //Elunium
				mes "[ ]";
				mes "ӡAwnTbo̰ڡAwAHHaA";
				close;
			}
		case 3:
			mes "[ ]";
			mes "Y٦ݭnFɻ@nNnFAA";
			close;
		}
	case 5:
		mes "[ ]";
		mes "Y٦ݭnFɻ@nNnFAA";
		close;
	}
}

//=====================================================================================
// Zv
//=====================================================================================
prt_in,63,60,4	script	Js	85,{
	callfunc "refinemain","Js",21,23;
	end;
}
alberta_in,28,58,4	script	pwQ	85,{
	callfunc "refinemain","pwQ PְҮ]",18,4;
	end;
}
payon,144,173,4	script	wF	88,{
	mes "[wF]";
	mes "JMӤFNOhoܡAXAnv˳ƨӧa!";
	mes "";
	next;
	if (getequipisequiped(1) == 0) set .@strRetPart1$,"Y-[Lk˸m]";
	else set .@strRetPart1$,getequipname(1);
	if (getequipisequiped(2) == 0) set .@strRetPart2$,"-[Lk˸m]";
	else set .@strRetPart2$,getequipname(2);
	if (getequipisequiped(3) == 0) set .@strRetPart3$,"-[Lk˸m]";
	else set .@strRetPart3$,getequipname(3);
	if (getequipisequiped(4) == 0) set .@strRetPart4$,"k-[Lk˸m]";
	else set .@strRetPart4$,getequipname(4);
	if (getequipisequiped(5) == 0) set .@strRetPart5$,"~T-[Lk˸m]";
	else set .@strRetPart5$,getequipname(5);
	if (getequipisequiped(6) == 0) set .@strRetPart6$,"cl-[Lk˸m]";
	else set .@strRetPart6$,getequipname(6);
	if (getequipisequiped(7) == 0) set .@strRetPart7$,"˹~1-[Lk˸m]";
	else set .@strRetPart7$,getequipname(7);
	if (getequipisequiped(8) == 0) set .@strRetPart8$,"˹~2-[Lk˸m]";
	else set .@strRetPart8$,getequipname(8);
	if (getequipisequiped(9) == 0) set .@strRetPart9$,"Y2-[Lk˸m]";
	else set .@strRetPart9$,getequipname(9);
	if (getequipisequiped(10) == 0) set .@strRetPart10$,"Y3-[Lk˸m]";
	else set .@strRetPart10$,getequipname(10);
	set .@i,select(.@strRetPart1$,.@strRetPart2$,.@strRetPart3$,.@strRetPart4$,.@strRetPart5$,
				.@strRetPart6$,.@strRetPart7$,.@strRetPart8$,.@strRetPart9$,.@strRetPart10$);
	mes "[wF]";
	if(getequipisequiped(.@i)==0) {
		switch(.@i) {
		case 1:
			mes "ګܦASŸA}!YA]|ܪo!";
			break;
		case 2:
			mes "ګܦASŸA}!A쩳S߭nv?";
			break;
		case 3:
		case 4:
			mes "ګܦASŸA}!";
			break;
		case 5:
			mes "ګܦASŸA}!A쩳Qn!";
			break;
		case 6:
			mes "ڳ̰QAoطRôMHa}ߪHF!";
			break;
		case 7:
		case 8:
			mes "AnӴMڶ}ߪܡANںuXh!";
			break;
		case 9:
		case 10:
			mes "Ab򰭸ܰ!ڻFګܦ!";
			break;
		}
		close;
	}
	if(getequipisenableref(.@i)==0) {
		mes "ЧAhOaݰݧa!o˳ƤvC";
		close;
	}
	if(getequipisidentify(.@i)==0) {
		mes "DOFASv...";
		close;
	}
	if(getequiprefinerycnt(.@i)>=10) {
		mes "...";
		mes "DO֪vƨ򰶤jAo˳Ƥwgv̰šAAvFC";
		close;
	}
	if(.price[0]==0 || .itemid[0]==0) {
		setarray .price,2000,50,200,5000,20000;
		setarray .itemid,985,1010,1011,984,984;
	}
	set .@wlv,getequipweaponlv(.@i);
	switch(.@wlv) {
	case 0:
		mes "nvܻݭn^ff9999T^000000HζO2000C@򳣤֡C";
		mes "ATwnv?!";
		break;
	case 1:
		mes "nvܻݭn^ff9999jƪZΪ-jƯżƤ@^000000HζO50C@򳣤֡C";
		mes "v1Zuݭnܤ֪ɶAATwnv?!";
		break;
	case 2:
		mes "nvܻݭn^ff9999jƪZΪ-jƯżƤG^000000HζO200C@򳣤֡C";
		mes "ATwnv?!";
		break;
	case 3:
		mes "nvܻݭn^ff9999^000000HζO5000C@򳣤֡C";
		mes "n[Sj㨭FC{b..}la!";
		break;
	case 4:
		mes "nvܡAݭn^ff9999^000000HζO20000...";
		mes "~CALaݤ]O@˪C";
		mes "4Z...OQNıonġC";
		mes "{bN}la?!";
		break;
	}
	next;
	if(select("O:_")==2) {
		mes "[wF]";
		mes "}򪱯!!";
		close;
	}
	if(getequippercentrefinery(.@i) < 100) {
		mes "[wF]";
		mes "r...|OH˸ƱO?!";
		mes "nOA~vܡAi|yla!";
		next;
		if(.@wlv==0) {
			mes "nOA~vܡA";
			mes "i|yla! ADa?";
			mes " ^FF0000AAQF!!";
			mes "^000000...ATwnv?!";
		}
		else {
			mes "nOlaܥiN~ϥΤF!!";
			mes "bحdMSx";
			mes "^FF0000QF!!";
			mes " ^FF0000AAQF!!";
			mes "^000000ATw٭n~v?";
		}

		next;
		if(select("O:_")==2) {
			mes "[wF]";
			mes "uQ!ڦn٭nӷЧ!";
			mes "֨a!";
			close;
		}
	}
	if(countitem(.itemid[.@wlv])<1 || Zeny<.price[.@wlv]) {
		mes "[wF]";
		mes "@򳣤֡CQvܡAhsIAӧa!";
		close;
	}
	delitem .itemid[.@wlv],1;
	set Zeny,Zeny-.price[.@wlv];
	mes "[wF]";
	mes "! ! !";
	if(getequippercentrefinery(.@i) > rand(100)) {
		successrefitem .@i;
		emotion 0;
		next;
		mes "[wF]";
		mes "שv!";
		mes "wUb{C";
	}
	else {
		failedrefitem .@i;
		emotion 32;
		next;
		mes "[wF]";
		mes ".......";
		next;
		mes "[wF]";
		mes "... .. uOѡC";
		mes "...oبƱOܥ`AHͤNOo˹...";
		mes "MjhƪHoQ..";
	}
	close;
}
morocc_in,73,38,6	script	ȩԥ	99,{
	mes "[ȩԥ FC]";
	mes "ڬO~FzKK~";
	mes "ȩԥ FC~";
	mes "F賣vKK~";
	mes "AQnv򶵥ةO?";
	next;
	if (getequipisequiped(1) == 0) set .@strRetPart1$,"Y-[Lk˸m]";
	else set .@strRetPart1$,getequipname(1);
	if (getequipisequiped(2) == 0) set .@strRetPart2$,"-[Lk˸m]";
	else set .@strRetPart2$,getequipname(2);
	if (getequipisequiped(3) == 0) set .@strRetPart3$,"-[Lk˸m]";
	else set .@strRetPart3$,getequipname(3);
	if (getequipisequiped(4) == 0) set .@strRetPart4$,"k-[Lk˸m]";
	else set .@strRetPart4$,getequipname(4);
	if (getequipisequiped(5) == 0) set .@strRetPart5$,"~T-[Lk˸m]";
	else set .@strRetPart5$,getequipname(5);
	if (getequipisequiped(6) == 0) set .@strRetPart6$,"cl-[Lk˸m]";
	else set .@strRetPart6$,getequipname(6);
	if (getequipisequiped(7) == 0) set .@strRetPart7$,"˹~1-[Lk˸m]";
	else set .@strRetPart7$,getequipname(7);
	if (getequipisequiped(8) == 0) set .@strRetPart8$,"˹~2-[Lk˸m]";
	else set .@strRetPart8$,getequipname(8);
	if (getequipisequiped(9) == 0) set .@strRetPart9$,"Y2-[Lk˸m]";
	else set .@strRetPart9$,getequipname(9);
	if (getequipisequiped(10) == 0) set .@strRetPart10$,"Y3-[Lk˸m]";
	else set .@strRetPart10$,getequipname(10);
	set .@i,select(.@strRetPart1$,.@strRetPart2$,.@strRetPart3$,.@strRetPart4$,.@strRetPart5$,
				.@strRetPart6$,.@strRetPart7$,.@strRetPart8$,.@strRetPart9$,.@strRetPart10$);
	mes "[ȩԥ FC]";
	if(getequipisequiped(.@i)==0) {
		switch(.@i) {
		case 1:
			mes "nnڧAYvoo@I?";
			break;
		case 2:
			mes "ӧa!ڷ|ΧڼvAC";
			break;
		case 3:
			mes "ܩp{b٨Sا޳NbAˤWbC...";
			break;
		case 4:
			mes "ܩp{b٨Sا޳NbAkˤWbC!";
			break;
		case 5:
			mes "A֦˸mؤS~TO?";
			break;
		case 6:
			mes "A}uOqC!";
			break;
		case 7:
		case 8:
			mes "AOظ˹~?";
			break;
		case 9:
		case 10:
			mes "AOظ˹~?";
			mes "AӤ|OYLa?";
			break;
		}
		close;
	}
	if(getequipisenableref(.@i)==0) {
		mes "AoӶجOLkvس!";
		close;
	}
	if(getequipisidentify(.@i)==0) {
		mes "AoӶجOŲwس!";
		close;
	}
	if(getequiprefinerycnt(.@i)>=10) {
		mes "oZwgv̰šALkAvF..";
		close;
	}
	if(.price[0]==0 || .itemid[0]==0) {
		setarray .price,2000,50,200,5000,20000;
		setarray .itemid,985,1010,1011,984,984;
	}
	set .@wlv,getequipweaponlv(.@i);
	switch(.@wlv) {
	case 0:
		mes "nvAҿܪo˳ƻݭn";
		mes "^ff9999T^000000HζO2000C";
		mes "An~?~";
		break;
	case 1:
		mes "~ nv1Zܹ...";
		mes "ݭn ^ff9999jƪZΪ-jƯżƤ@^000000HζO50~";
		mes "An~?";
		break;
	case 2:
		mes "~ nv2Zܹ...";
		mes "ݭn ^ff9999jƪZΪ-jƯżƤG^000000HζO200~";
		mes "An~?";
		break;
	case 3:
		mes "~ nv3Zܹ...";
		mes "ݭn^ff9999^000000HζO5000C";
		mes "An~?";
		break;
	case 4:
		mes "!...4Z...ڤ]OѤ~Ĥ@ݨC";
		mes "nvܻݭn^ff9999^000000HζO20000AAiH?";
		mes "An~?";
		break;
	}
	next;
	if(select("O:_")==2) {
		mes "[ȩԥ FC]";
		mes "...Ψ򻰡C";
		close;
	}
	if(getequippercentrefinery(.@i) < 100) {
		mes "[ȩԥ FC]";
		if(.@wlv==0) {	//㪺ɭ
			mes "z!!";
			mes "nOA~vܡAi|yla!";
		}
		else {		//Zɭ
			mes "z!!";
			mes "MI!MI!";
			mes "ݨӳoZwgvܦhFˤl~";
		}
		next;
		mes "nOA~vܡA";
		mes "i|yla!";
		mes "ATwnv?~";
		next;
		mes "nOlaܥiN~ϥΤF!!";
		mes "bحdMSx";
		mes "^FF0000QF!!";
		mes " ^FF0000AAQF!!";
		mes "^000000ATw٭n~v?";
		next;
		if(select("O:_")==2) {
			mes "[ȩԥ FC]";
			mes "o";
			mes "Lܻ^ӡAɭԤjxի_I@U]Oa~";
			close;
		}
	}
	if(countitem(.itemid[.@wlv])<1 || Zeny<.price[.@wlv]) {
		mes "[ȩԥ FC]";
		mes "nOSN^a";
		mes "Yۤvn...";
		close;
	}
	delitem .itemid[.@wlv],1;
	set Zeny,Zeny-.price[.@wlv];
	mes "[ȩԥ FC]";
	mes "! ! !";
	if(getequippercentrefinery(.@i) > rand(100)) {
		successrefitem .@i;
		emotion 30;
		next;
		mes "[ȩԥ FC]";
		mes "Perfect!!";
		mes "~F...";
		mes "v]kvȩԥ̡@FC~";
		mes "ѤSv\";
	}
	else {
		failedrefitem .@i;
		emotion 16;
		next;
		mes "[ȩԥ FC]";
		mes "OH!! MY GOD~~!!!!";
		mes "r!! ѤF!!";
		mes "......";
		mes "......";
		mes "ZbvL{laFC";
		next;
		mes "[ȩԥ FC]";
		mes "....";
		mes "nnOoѪаV..jHn";
		mes "Ѭ\~";
	}
	close;
}
yuno_in01,171,22,6	script	}S	88,{
	mes "[}S]";
	mes "w... {A o̬O...";
	mes "̴ΪKKQ...";
	next;
	if (getequipisequiped(1) == 0) set .@strRetPart1$,"Y-[Lk˸m]";
	else set .@strRetPart1$,getequipname(1);
	if (getequipisequiped(2) == 0) set .@strRetPart2$,"-[Lk˸m]";
	else set .@strRetPart2$,getequipname(2);
	if (getequipisequiped(3) == 0) set .@strRetPart3$,"-[Lk˸m]";
	else set .@strRetPart3$,getequipname(3);
	if (getequipisequiped(4) == 0) set .@strRetPart4$,"k-[Lk˸m]";
	else set .@strRetPart4$,getequipname(4);
	if (getequipisequiped(5) == 0) set .@strRetPart5$,"~T-[Lk˸m]";
	else set .@strRetPart5$,getequipname(5);
	if (getequipisequiped(6) == 0) set .@strRetPart6$,"cl-[Lk˸m]";
	else set .@strRetPart6$,getequipname(6);
	if (getequipisequiped(7) == 0) set .@strRetPart7$,"˹~1-[Lk˸m]";
	else set .@strRetPart7$,getequipname(7);
	if (getequipisequiped(8) == 0) set .@strRetPart8$,"˹~2-[Lk˸m]";
	else set .@strRetPart8$,getequipname(8);
	if (getequipisequiped(9) == 0) set .@strRetPart9$,"Y2-[Lk˸m]";
	else set .@strRetPart9$,getequipname(9);
	if (getequipisequiped(10) == 0) set .@strRetPart10$,"Y3-[Lk˸m]";
	else set .@strRetPart10$,getequipname(10);
	set .@i,select(.@strRetPart1$,.@strRetPart2$,.@strRetPart3$,.@strRetPart4$,.@strRetPart5$,
				.@strRetPart6$,.@strRetPart7$,.@strRetPart8$,.@strRetPart9$,.@strRetPart10$);
	mes "[}S]";
	if(getequipisequiped(.@i)==0) {
		mes "..........";
		close;
	}
	if(getequipisenableref(.@i)==0) {
		mes ".....o... ˳... Lk...";
		close;
	}
	if(getequipisidentify(.@i)==0) {
		mes "x...";
		mes "AoӶجOŲwحC...";
		close;
	}
	if(getequiprefinerycnt(.@i)>=10) {
		mes "...u..F`A ... |...";
		mes "v̰...";
		close;
	}
	if(.price[0]==0) {
		setarray .price,2000,50,200,5000,20000;
		setarray .itemid,985,1010,1011,984,984;
	}
	set .@wlv,getequipweaponlv(.@i);
	switch(.@wlv) {
	case 0:
		mes "^ff9999T^000000... O2000.....";
		mes "....An~?...";
		next;
		if(select("O:_")==2) {
			mes "[}S]";
			mes "... HA@.....";
			close;
		}
		break;
	case 1:
		mes "^ff9999jƪZΪ-jƯżƤ@^000000...";
		mes "O50.....";
		mes "....An~?...";
		next;
		if(select("O:_")==2) {
			mes "[}S]";
			mes "... HA@.....";
			close;
		}
		break;
	case 2:
		mes "^ff9999jƪZΪ-jƯżƤG^000000...";
		mes "O200.....";
		mes "....An~?...";
		next;
		if(select("O:")==2) {
			mes "[}S]";
			mes "... HA@.....";
			close;
		}
		break;
	case 3:
		mes "^ff9999^000000... 5000.....";
		mes " ....N}lo?";
		next;
		if(select("O:_")==2) {
			mes "[}S]";
			mes "... HA@.....";
			close;
		}
		break;
	case 4:
		mes "^ff9999^000000... 20000.....";
		mes " ....N}lo?";
		next;
		if(select("O:_")==2) {
			mes "[}S]";
			mes "... HA@.....";
			close;
		}
		break;
	}
	if(getequippercentrefinery(.@i) < 100) {
		mes "[}S]";
		mes "@U...o...IMI...";
		mes "wgWL...vF";
		next;
		mes "A.. v...";
		mes "|...la";
		mes "ЧA...sҼ{ ...";
		mes "Y^FF0000ϥ^000000...N...·ФF";
		next;
		mes ".....ATw...";
		mes "...٭n~v?...";
		next;
		if(select("O:_")==2) {
			mes "[}S]";
			mes "...... ܦn...";
			mes "Фpߪ... ϥ....";
			close;
		}
	}
	if(countitem(.itemid[.@wlv])<1 || Zeny<.price[.@wlv]) {
		mes "[}S]";
		mes ".....AƤ...";
		mes "Ц^hAǳ...";
		close;
	}
	delitem .itemid[.@wlv],1;
	set Zeny,Zeny-.price[.@wlv];
	mes "[}S]";
	mes "! ! !";
	if(getequippercentrefinery(.@i) > rand(100)) {
		successrefitem .@i;
		emotion 9;
		next;
		mes "[}S]";
		mes "...w...";
		mes ".....±zϥ...";
	}
	else {
		failedrefitem .@i;
		emotion 0;
		next;
		mes "[}S]";
		mes ".......";
		next;
		mes "[}S]";
		mes ".....Oڪ...";
		mes "...ڦNĵiLA|o˪...";
		mes ".....U@ЧAwϥ.....";
	}
	close;
}
ein_in01,24,87,6	script	Ҷ𴵰	826,{
	mes "[Ҷ𴵰 GJ]";
	mes "KKKAڪDAϤߡAAOӧMa?ѬDԤ@iESMIFa";
	next;
	if (getequipisequiped(1) == 0) set .@strRetPart1$,"Y-[Lk˸m]";
	else set .@strRetPart1$,getequipname(1);
	if (getequipisequiped(2) == 0) set .@strRetPart2$,"-[Lk˸m]";
	else set .@strRetPart2$,getequipname(2);
	if (getequipisequiped(3) == 0) set .@strRetPart3$,"-[Lk˸m]";
	else set .@strRetPart3$,getequipname(3);
	if (getequipisequiped(4) == 0) set .@strRetPart4$,"k-[Lk˸m]";
	else set .@strRetPart4$,getequipname(4);
	if (getequipisequiped(5) == 0) set .@strRetPart5$,"~T-[Lk˸m]";
	else set .@strRetPart5$,getequipname(5);
	if (getequipisequiped(6) == 0) set .@strRetPart6$,"cl-[Lk˸m]";
	else set .@strRetPart6$,getequipname(6);
	if (getequipisequiped(7) == 0) set .@strRetPart7$,"˹~1-[Lk˸m]";
	else set .@strRetPart7$,getequipname(7);
	if (getequipisequiped(8) == 0) set .@strRetPart8$,"˹~2-[Lk˸m]";
	else set .@strRetPart8$,getequipname(8);
	if (getequipisequiped(9) == 0) set .@strRetPart9$,"Y2-[Lk˸m]";
	else set .@strRetPart9$,getequipname(9);
	if (getequipisequiped(10) == 0) set .@strRetPart10$,"Y3-[Lk˸m]";
	else set .@strRetPart10$,getequipname(10);
	set .@i,select(.@strRetPart1$,.@strRetPart2$,.@strRetPart3$,.@strRetPart4$,.@strRetPart5$,
				.@strRetPart6$,.@strRetPart7$,.@strRetPart8$,.@strRetPart9$,.@strRetPart10$);
	mes "[Ҷ𴵰 GJ]";
	if(getequipisequiped(.@i)==0) {
		switch(.@i) {
		case 1:
			mes "nnڧAYMoo@I?";
			break;
		case 2:
			mes "ӧa!ڷ|ΧڹűyMA˳";
			break;
		case 3:
			mes "ܩp{b٨Sا޳NbAˤWbC..";
			break;
		case 4:
			mes "ܩp{b٨Sا޳NbAkˤWbC!";
			break;
		case 5:
			mes "A֦˸mؤS~TO?";
			break;
		case 6:
			mes "A}uOqC!";
			break;
		case 7:
		case 8:
			mes "AOظ˹~?";
			break;
		case 9:
		case 10:
			mes "AOظ˹~?";
			mes "AӤ|OYLa?";
			break;
		}
		close;
	}
	if(getequipisenableref(.@i)==0) {
		mes "AoӶجOLkMس!";
		close;
	}
	if(getequipisidentify(.@i)==0) {
		mes "AoӶجOŲwس!";
		close;
	}
	if(getequiprefinerycnt(.@i)>=10) {
		mes "oZwgM̰šALkAMF..";
		close;
	}
	if(.price[0]==0 || .itemid[0]==0) {
		setarray .price,2000,50,2000,5000,20000;
		setarray .itemid,985,1010,1011,984,984;
	}
	set .@wlv,getequipweaponlv(.@i);
	switch(.@wlv) {
	case 0:
		mes "nvAҿܪo˳ƻݭn ^ff9999T^000000";
		mes "HζO2000AAn~?";
		break;
	case 1:
		mes "AQnMZ1Z!";
		mes "ݭn^ff9999jƪZΪ-jƯżƤ@^000000";
		mes "HζO50AAn~?";
		break;
	case 2:
		mes "AQnMZ2Z!";
		mes "ݭn^ff9999jƪZΪ-jƯżƤG^000000";
		mes "HζO200AAn~?";
		break;
	case 3:
		mes "AQnMZ4Z!";
		mes "ݭn^ff9999^000000HζO5000";
		mes "An~?";
		break;
	case 4:
		mes "AQnMZ4Z!";
		mes "ݭn^ff9999^000000HζO20000";
		mes "An~?";
		break;
	}
	next;
	if(select("O:_")==2) {
		mes "[Ҷ𴵰 GJ]";
		mes "YϧAڤ]Sk...";
		close;
	}
	if(getequippercentrefinery(.@i) < 100) {
		mes "[Ҷ𴵰 GJ]";
		mes "z!!";
		mes "ݨӳoZwgMܦhFˤl...";
		mes "nOA~MܡAi|yla!";
		next;
		mes "nOlaܥiN~ϥΤF!!";
		mes "bحd]N^FF0000@_!!";
		mes " ^FF0000ܦiA˳Ʒ|laӮ!";
		mes "^000000ATw٭n~M?";
		next;
		if(select("O:_")==2) {
			mes "[Ҷ𴵰 GJ]";
			mes "ܦnA";
			mes "pGӹLLzMZAӳylaA";
			mes "ڤ߱]|a";
			close;
		}
	}
	if(countitem(.itemid[.@wlv])<1 || Zeny<.price[.@wlv]) {
		mes "[Ҷ𴵰 GJ]";
		mes "oǴNOAҾ֦Ҧ~?";
		mes "MܥiAOAƤAڤ]bRUAAAڥIX]ӱonҦì!";
		close;
	}
	delitem .itemid[.@wlv],1;
	set Zeny,Zeny-.price[.@wlv];
	mes "[Ҷ𴵰 GJ]";
	mes "! ! !";
	if(getequippercentrefinery(.@i) > rand(100)) {
		successrefitem .@i;
		emotion 18;
		next;
		mes "[Ҷ𴵰 GJ]";
		mes "haIwgnFA";
		mes "n[SMXu誺ZFAZܱjFA@w]ܰa!";
	}
	else {
		failedrefitem .@i;
		emotion 4;
		next;
		mes "[Ҷ𴵰 GJ]";
		mes "K!!!";
		next;
		mes "[Ҷ𴵰 GJ]";
		mes "...";
		mes ".....";
		mes ".......IIIII";
		mes "........AܩMڪOAOSᮬ";
	}
	close;
}
lhz_in02,282,20,7	script	ּ	869,{
	mes "[ּ]";
	mes " ... AQnM?";
	mes " .. ڥiHAMҦ~A";
	mes " ....";
	next;
	if (getequipisequiped(1) == 0) set .@strRetPart1$,"Y-[Lk˸m]";
	else set .@strRetPart1$,getequipname(1);
	if (getequipisequiped(2) == 0) set .@strRetPart2$,"-[Lk˸m]";
	else set .@strRetPart2$,getequipname(2);
	if (getequipisequiped(3) == 0) set .@strRetPart3$,"-[Lk˸m]";
	else set .@strRetPart3$,getequipname(3);
	if (getequipisequiped(4) == 0) set .@strRetPart4$,"k-[Lk˸m]";
	else set .@strRetPart4$,getequipname(4);
	if (getequipisequiped(5) == 0) set .@strRetPart5$,"~T-[Lk˸m]";
	else set .@strRetPart5$,getequipname(5);
	if (getequipisequiped(6) == 0) set .@strRetPart6$,"cl-[Lk˸m]";
	else set .@strRetPart6$,getequipname(6);
	if (getequipisequiped(7) == 0) set .@strRetPart7$,"˹~1-[Lk˸m]";
	else set .@strRetPart7$,getequipname(7);
	if (getequipisequiped(8) == 0) set .@strRetPart8$,"˹~2-[Lk˸m]";
	else set .@strRetPart8$,getequipname(8);
	if (getequipisequiped(9) == 0) set .@strRetPart9$,"Y2-[Lk˸m]";
	else set .@strRetPart9$,getequipname(9);
	if (getequipisequiped(10) == 0) set .@strRetPart10$,"Y3-[Lk˸m]";
	else set .@strRetPart10$,getequipname(10);
	set .@i,select(.@strRetPart1$,.@strRetPart2$,.@strRetPart3$,.@strRetPart4$,.@strRetPart5$,
				.@strRetPart6$,.@strRetPart7$,.@strRetPart8$,.@strRetPart9$,.@strRetPart10$);
	mes "[ּ]";
	if(getequipisequiped(.@i)==0) {
		switch(.@i) {
		case 1:
			mes "... YOMa";
			break;
		case 2:
			mes "..";
			mes "pG⨭MѤFA]Oڪd";
			break;
		case 3:
			mes "AouڥMF";
			break;
		case 4:
			mes "... ⰵM";
			break;
		case 5:
			mes "bIWuYvo?";
			break;
		case 6:
			mes "AA}oh٦סAI";
			break;
		case 7:
		case 8:
			mes "AoتFLkM..";
			break;
		case 9:
		case 10:
			mes ".. z䥦äF";
			mes "AӤ|OYLa?";
			break;
		}
		close;
	}
	if(getequipisenableref(.@i)==0) {
		mes "AoǪFOLkMF";
		close;
	}
	if(getequipisidentify(.@i)==0) {
		mes "AoǪFOŲwF";
		close;
	}
	if(getequiprefinerycnt(.@i)>=10) {
		mes "oZwLkAMF..";
		close;
	}
	if(.price[0]==0 || .itemid[0]==0) {
		setarray .price,2000,50,2000,5000,20000;
		setarray .itemid,985,1010,1011,984,984;
	}
	set .@wlv,getequipweaponlv(.@i);
	switch(.@wlv) {
	case 0:
		mes "UȭnvAҿܪo~ܻݭn";
		mes "^ff9999T^000000HζO2000A";
		mes "An~?~";
		break;
	case 1:
		mes "AQnMZ1Z!";
		mes "KKAUȷQnMAҷQn~ݭn^ff9999jƪZΪ-jƯżƤ@^000000HζO50A";
		mes "An~?";
		break;
	case 2:
		mes "AQnMZ2Z!";
		mes "KKAUȷQnMAҷQn~ݭn^ff9999jƪZΪ-jƯżƤG^000000HζO2000A";
		mes "An~?";
		break;
	case 3:
		mes "AQnMZ3Z!";
		mes "KKAUȷQnMAҷQn~ݭn^ff9999^000000HζO5000A";
		mes "An~?";
		break;
	case 4:
		mes "AQnMZ4Z!";
		mes "KKAUȷQnMAҷQn~ݭn^ff9999^000000HζO20000A";
		mes "An~?";
		break;
	}
	next;
	if(select("O:O")==2) {
		mes "[ּ]";
		mes "UȧAwܨNSk...";
		close;
	}
	if(getequippercentrefinery(.@i) < 100) {
		mes "[ּ]";
		if(.@wlv==0) {
			mes "z!!";
			mes "owgA";
			mes "gLnhMFAYA~Mܥi|yla..";
		}
		else {
			mes "z!!";
			mes "oZwgA";
			mes "gLnhMFAYA~Mܥi|yla..";
		}
		next;
		mes "nOlaܡA";
		mes "N~ϥΤFK";
		mes "bحdMSʡA";
		mes "^FF0000|";
		mes "^FF0000]|";
		mes "^000000KK...ATwAn~?";
		next;
		if(select("O:O")==2) {
			mes "[ּ]";
			mes "KK...!";
			mes "pGڧOHZMѪ...";
			mes "AڵLktd";
			close;
		}
	}
	if(countitem(.itemid[.@wlv])<1 || Zeny<.price[.@wlv]) {
		mes "[ּ]";
		mes "KK U...?";
		mes "ݨӧƤ...";
		mes "Ƥܧڤ]Sk";
		close;
	}
	delitem .itemid[.@wlv],1;
	set Zeny,Zeny-.price[.@wlv];
	mes "[ּ]";
	mes "! ! !";
	if(getequippercentrefinery(.@i) > rand(100)) {
		successrefitem .@i;
		emotion 18;
		next;
		mes "[ּ]";
		mes "KK..ha! wgnFA";
		mes "ˡAMڬݰ_ӤˡAٮA..UwAAӧr";
	}
	else {
		failedrefitem .@i;
		emotion 4;
		next;
		mes "[ּ]";
		mes "KKKKKK!!!";
		next;
		mes "[ּ]";
		mes "KK..";
		mes "KKKKA";
		mes "IKKKKA";
		mes "AUȯuOprA";
		mes "ڦNiDLA....";
		mes "............";
	}
	close;
}

//============================================================
//= Main Refiner Function
//============================================================
//= To allow auto safe refining/multiple refining set the
//= second argument to '1' in the function call.
//============================================================
function	script	refinemain	{
	mes "["+getarg(0)+"]";
	mes "ڬOMvZP㪺KKC";
	mes "ڥiHAv˸mؤ~C";
	mes "AQnv˸mؤ@~O?";
	next;
	if (getequipisequiped(1) == 0) set .@strRetPart1$,"Y-[Lk˸m]";
	else set .@strRetPart1$,getequipname(1);
	if (getequipisequiped(2) == 0) set .@strRetPart2$,"-[Lk˸m]";
	else set .@strRetPart2$,getequipname(2);
	if (getequipisequiped(3) == 0) set .@strRetPart3$,"-[Lk˸m]";
	else set .@strRetPart3$,getequipname(3);
	if (getequipisequiped(4) == 0) set .@strRetPart4$,"k-[Lk˸m]";
	else set .@strRetPart4$,getequipname(4);
	if (getequipisequiped(5) == 0) set .@strRetPart5$,"~T-[Lk˸m]";
	else set .@strRetPart5$,getequipname(5);
	if (getequipisequiped(6) == 0) set .@strRetPart6$,"cl-[Lk˸m]";
	else set .@strRetPart6$,getequipname(6);
	if (getequipisequiped(7) == 0) set .@strRetPart7$,"˹~1-[Lk˸m]";
	else set .@strRetPart7$,getequipname(7);
	if (getequipisequiped(8) == 0) set .@strRetPart8$,"˹~2-[Lk˸m]";
	else set .@strRetPart8$,getequipname(8);
	if (getequipisequiped(9) == 0) set .@strRetPart9$,"Y2-[Lk˸m]";
	else set .@strRetPart9$,getequipname(9);
	if (getequipisequiped(10) == 0) set .@strRetPart10$,"Y3-[Lk˸m]";
	else set .@strRetPart10$,getequipname(10);
	set .@i,select(.@strRetPart1$,.@strRetPart2$,.@strRetPart3$,.@strRetPart4$,.@strRetPart5$,
				.@strRetPart6$,.@strRetPart7$,.@strRetPart8$,.@strRetPart9$,.@strRetPart10$);
	mes "["+getarg(0)+"]";
	if(getequipisequiped(.@i)==0) {
		switch(.@i) {
		case 1:
			mes "nnڧAYvoo@I?";
			break;
		case 2:
			mes "ӧa!ڷ|ΧڼvAC";
			break;
		case 3:
			mes "ܩp{b٨Sا޳NbAˤWbC..";
			break;
		case 4:
			mes "ܩp{b٨Sا޳NbAkˤWbC!";
			break;
		case 5:
			mes "A֦˸mؤS~TO?";
			break;
		case 6:
			mes "A}uOqC!";
			break;
		case 7:
		case 8:
			mes "AOظ˹~?";
			break;
		case 9:
		case 10:
			mes "AOظ˹~?";
			mes "AӤ|OYLa?";
			break;
		}
		close;
	}
	if(getequipisenableref(.@i)==0) {
		mes "x...";
		mes "AoӶجOLkvحC...";
		close;
	}
	if(getequipisidentify(.@i)==0) {
		mes "x...";
		mes "AoӶجOŲwحC...";
		close;
	}
	if(getequiprefinerycnt(.@i)>=10) {
		mes "oZwgv̰šALkAvF..";
		close;
	}
	if(.price[0]==0) {
		setarray .price,2000,50,200,5000,20000;
		setarray .itemid,985,1010,1011,984,984;
	}
	set .@wlv,getequipweaponlv(.@i);
	switch(.@wlv) {
	case 0:
		mes "nvAҿܪo˳ƻݭn";
		mes "^ff9999T^000000HζO2000C";
		mes "An~?";
		break;
	case 1:
		mes "AQnvZ1Z!";
		mes "nvܻݭn ^ff9999jƪZΪ-jƯżƤ@^000000HζO50C";
		mes "An~?";
		break;
	case 2:
		mes "AQnvZ2Z!";
		mes "nvܻݭn^ff9999jƪZΪ-jƯżƤG^000000HζO200C";
		mes "An~?";
		break;
	case 3:
		mes "AQnvZ3Z!";
		mes "nvܻݭn^ff9999^000000HζO5000C";
		mes "An~?";
		break;
	case 4:
		mes "AQnvZ4Z!";
		mes "nvܻݭn^ff9999^000000HζO20000C";
		mes "An~?";
		break;
	}
	next;
	if(select("O:_")==2) {
		mes "["+getarg(0)+"]";
		mes "YϧAڤ]Sk...";
		close;
	}
	if(getequippercentrefinery(.@i) < 100) {
		mes "["+getarg(0)+"]";
		mes "z!!";
		mes "ݨӳoZwgvܦhFˤl...";
		mes "nOA~vܡAi|yla!";
		next;
		mes "nOlaܥiN~ϥΤF!!";
		mes "bحdMSx";
		mes "^FF0000QF!!";
		mes " ^FF0000AAQF!!";
		mes "^000000ATw٭n~v?";
		next;
		if(select("O:_")==2) {
			mes "["+getarg(0)+"]";
			mes "ܦnC";
			mes "pGӹLLzvZAӳylaA";
			mes "ڤ߱]|aC";
			close;
		}
	}
	if(countitem(.itemid[.@wlv])<1 || Zeny<.price[.@wlv]) {
		mes "["+getarg(0)+"]";
		mes "oǴNOAҾ֦Ҧ~?";
		mes "MܥiAOAƤڤ]b";
		mes "RUAAڥIX]ӱonҦì!";
		close;
	}
	delitem .itemid[.@wlv],1;
	set Zeny,Zeny-.price[.@wlv];
	mes "["+getarg(0)+"]";
	mes "! ! !";
	if(getequippercentrefinery(.@i) > rand(100)) {
		successrefitem .@i;
		emotion getarg(1);
		next;
		mes "["+getarg(0)+"]";
		mes "ha! wgnFC";
		mes "ݨӧ٬O_MѰ!v޳N@BIShB...";
	}
	else {
		failedrefitem .@i;
		emotion getarg(2);
		next;
		mes "["+getarg(0)+"]";
		mes "yyyyyyy!!!";
		next;
		mes "["+getarg(0)+"]";
		mes "u...yC";
		mes "ZbvL{laFC";
		mes "......NiDLA|o˪!";
	}
	close;
}

//==============================================================================
// Material Salesmen
//==============================================================================
prt_in,56,69,4	script	ǶV	86,{
	callfunc "phramain","ǶV";
	end;
}
payon,145,178,4	script	BJǼw	88,{
	callfunc "phramain","BJǼw";
	end;
}
morocc_in,63,32,6	script	Fw	99,{
	callfunc "phramain","Fw";
	end;
}
alberta_in,18,59,5	script	d԰Ҳ	86,{
	callfunc "phramain","d԰Ҳ";
	end;
}
yuno_in01,171,26,6	script	wp	88,{
	callfunc "phramain","wp";
	end;
}
ein_in01,15,87,7	script	}ַN	86,{
	callfunc "phramain","}ַN";
	end;
}
lhz_in02,278,24,3	script	ȰǬ_	86,{
	callfunc "phramain","ȰǬ_";
	end;
}

//============================================================
//= Material Salesmen Functions
//============================================================
function	script	phramain	{
	if (checkweight(1201,1) == 0) {
		mes "- yU!!                 -";
		mes "- eAaFӦhFF.  -";
		mes "- մAqa.    -";
		close;
	}
	mes "[" + getarg(0) + "]";
	mes "o̦KοKsZvɩһݭn!";
	mes "o̦vZ1^007777jƪZΪ-jƯżƤ@^000000 P...vZ";
	mes "2^007777jƪZΪ-jƯżƤG^000000";
	mes "ݡC";
	next;
	switch(select("jƪZΪ-jƯżƤ@ - 200:jƪZΪ-jƯżƤG - 1000:߰ݦSL")) {
	case 1:
		set .@material,1010;
		set .@price,200;
		break;
	case 2:
		set .@material,1011;
		set .@price,1000;
		break;
	case 3:
		mes "[" + getarg(0) + "]";
		mes "AݪӬOs@Z1P2HWһݭnݧa!";
		mes "ڷQAӤ]DAݩMT...쥻No...";
		close;
	}
	mes "[" + getarg(0) + "]";
	mes "AQnʶRhּƶq?פЫ'0'C";
	next;
	while(1) {
		input .@input;
		if (.@input == 0) {
			mes "[" + getarg(0) + "]";
			mes "wgפC";
			close;
		}
		else if (.@input < 0 || .@input > 500) {
			mes "[" + getarg(0) + "]";
			mes "бNʶRƶq500ӥHUC";
			next;
		}
		else {
			break;
		}
	}
	set .@sell,.@input * .@price;
	if (Zeny < .@sell) {
		mes "[" + getarg(0) + "]";
		mes "r...ȤHAA";
		mes "ܩpAڭ̬OpgAKy@IA";
		close;
	}
	if (checkweight(.@material,.@input) == 0) {
		mes "[" + getarg(0) + "]";
		mes "c..bFeХz@UA~..";
		close;
	}
	getitem .@material,.@input;
	set Zeny,Zeny-.@sell;
	mes "[" + getarg(0) + "]";
	mes "D`P§AʶRCYݭnAwAHɦAӧڡC";
	close;
}



//==============================================================================
// Ori/Elu Refiners
//==============================================================================
prt_in,63,69,4	script	үSߦ	84,{
	callfunc "orimain","үSߦ";
	end;
}
payon,137,178,4	script	L	88,{
	callfunc "orimain","L";
	end;
}
morocc_in,72,32,6	script	ȫש	99,{
	callfunc "orimain","ȫש Լ֩";
	end;
}
alberta_in,21,63,5	script	մ	84,{
	callfunc "orimain","մ";
	end;
}
yuno_in01,171,22,6	script	wp	88,{
	callfunc "orimain","wp";
	end;
}
ein_in01,18,82,6	script	ҭ׶	84,{
	callfunc "orimain","ҭ׶";
	end;
}
lhz_in02,281,24,5	script	|	84,{
	callfunc "orimain","|";
	end;
}

//============================================================
//= Ori/Elu Functions
//============================================================
function	script	orimain	{
	if (checkweight(1201,1) == 0) {
		mes "- yU!!                 -";
		mes "- eAaFӦhFF.  -";
		mes "- մAqa.    -";
		close;
	}
	mes "[" + getarg(0) + "]";
	mes "unANݩξTۮӵڡA";
	mes "WNiHAүݥHξTA";
	mes "AnUaFӭۨӰ!";
	next;
	switch(select("ү:ҾT:߰ݦݩʥ۬ƶ")) {
	case 1:
		if (countitem(756) > 4) {
			delitem 756,5;  //Oridecon_Stone
			getitem 984,1; // Oridecon
			mes "[" + getarg(0) + "]";
			mes "ha!oOwnnAݡC";
			mes "ƱwHɦAӧڡC";
			close;
		}
		else {
			mes "[" + getarg(0) + "]";
			mes "...AuOR}C";
			mes "ڨSALnOSӯݭ۪ܬOLkүݪ?";
			close;
		}
	case 2:
		if (countitem(757) > 4) {
			delitem 757,5;  //Elunium_Stone
			getitem 985,1; // Elunium
			mes "[" + getarg(0) + "]";
			mes "ha!oOwnnATC";
			mes "ƱwHɦAӧڡC";
			close;
		}
		else {
			mes "[" + getarg(0) + "]";
			mes "...AuOR}C";
			mes "ڨSALnOSӾT۪ܬOLkҾT?";
			close;
		}
	case 3:
		mes "[" + getarg(0) + "]";
		mes "ҿתݩʥ...";
		mes "ڰMݳowgFGQ~AťL";
		mes "ܦhoǻ...٨SڨLO!";
		mes "ťݳU۾֦BaBB";
		mes "ݩ";
		next;
		mes "[" + getarg(0) + "]";
		mes "ťbMZɥ[Jݩʥ۪...һs@XӪZN֦ݩʥ۪WjOqC";
		mes "..Lܻ^ӡAవXoتZHQ@w֦M޳NC";
		close;
	}
}



//=====================================================================================
// Equipment Repairmen
//=====================================================================================
alberta_in,31,65,4	script	ײzu#alb	86,{
	callfunc "repairmain","ײzu";
	end;
}

moc_ruins,107,94,4	script	ײzu#moc	99,{
	callfunc "repairmain","ײzu";
	end;
}

payon,143,165,4	script	ײzu#pay	88,{
	callfunc "repairmain","ײzu";
	end;
}

prt_in,63,54,2	script	ײzu#prt	86,{
	callfunc "repairmain","ײzu";
	end;
}

yuno_in01,175,28,3	script	ײzu#juno	86,{
	callfunc "repairmain","ײzu";
	end;
}

geffen_in,34,166,3	script	ײzu#gef	99,{
	callfunc "repairmain","ײzu";
	end;
}

aldeba_in,38,60,3	script	ײzu#alde	86,{
	callfunc "repairmain","ײzu";
	end;
}

lhz_in02,284,14,3	script	ײzu#lhzrepair	86,{
	callfunc "repairmain","ײzu";
	end;
}

//============================================================
//= Equipment Repair Function
//============================================================
function	script	repairmain	{
	set .@repairprice,5000;
	mes "["+getarg(0)+"]";
	mes "ȫ!";
	mes "Qnײz~ܡH";
	mes "nײz~N浹ڧa!!";
	next;
	switch(select("ڦ~nײz...:{b٨S~nײz")) {
	case 1:
		set .@checkitem,1;
		while (1) {
			if (getbrokenid(.@checkitem) == 0) {
				break;
			}
			set .@checkitem,.@checkitem+1;
		}
		set .@checkitem,.@checkitem-1;
		if (!.@checkitem) {
			mes "["+getarg(0)+"]";
			mes "uAݨӧAuܷ|";
			mes "ާ@~ڡAS@Өl~ڡH";
			mes "AoؤHVhA";
			mes "ڤ[N|~F";
			close;
		}
		set .@totalcost,.@repairprice*.@checkitem;
		mes "["+getarg(0)+"]";
		mes "... AҾ֦~";
		mes "lO " + .@checkitem + "aH";
		mes "ײz@ˬO " + .@repairprice + " ..";
		mes "ײzn" + .@totalcost + "!";
		mes "Anײz?";
		next;
		switch(select("O:_")) {
		case 1:
			if (Zeny < .@totalcost) {
				mes "["+getarg(0)+"]";
				mes "AWwgSF...?";
				mes "٦dpni...";
				close;
			}
			set .@checkitem2,1;
			while (1) {
				if (getbrokenid(.@checkitem2) == 0) {
					break;
				}
				set .@checkitem2,.@checkitem2+1;
			}
			set .@checkitem2,.@checkitem2-1;
			if (.@checkitem == .@checkitem2) {
				set zeny,zeny-.@totalcost;
				while (.@checkitem) {
					repair(.@checkitem);
					set .@checkitem,.@checkitem-1;
				}
				mes "["+getarg(0)+"]";
				mes "ݢ! ײznFA";
				mes "pIϥΧaA";
				mes "~]OͩR..";
				close;
			}
			else {
				mes "["+getarg(0)+"]";
				mes "? ǰD. @U... W";
				mes "Aݭnײz~MAӧ.";
				close;
			}
		case 2:
			mes "["+getarg(0)+"]";
			mes "...ڬOSt";
			mes "Ll~No˩ۤӦnA";
			mes "̦n٬OIײza!";
			close;
		}
	case 2:
		mes "["+getarg(0)+"]";
		mes "... Snײz~";
		mes "NSڪƤF";
		close;
	}
}