//===== rAthena Script ======================================= 
//= Armor Enchanter
//===== By: ================================================== 
//= L0ne_W0lf
//===== Current Version: ===================================== 
//= 1.3a
//===== Compatible With: ===================================== 
//= rAthena SVN
//===== Description: ========================================= 
//= [Official Conversion]
//= Add a +1, +2, or +3 random stat to a specified armor.
//===== Additional Comments: ================================= 
//= 1.0 First version.
//= 1.1 Corrected typo (Sit -> Suit) (bugreport:4586)
//= 1.2 Optimized. [Euphy]
//= 1.3 Fixed some typos and optimized a little more. [Daegaladh]
//= 1.3a Added 'disable_items' command. [Euphy]
//============================================================ 

prontera,165,60,2	script	ʵϰħʦ	73,{
	disable_items;
	mes "[ʵϰħʦ]";
	if (Zeny > 399999) {
		mes "һֱоθ,ʹ׵";
		next;
		mes "[ʵϰħʦ]";
		mes "ν׸ħ,ָڿصĲעһͼ";
		next;
		mes "[ʵϰħʦ]";
		mes "ȻҪע,ͬĿӵ,ᰴƷװӴе˳иħ";
		next;
		mes "[ʵϰħʦ]";
		mes ",пܻԲ븽ħĿ׽иħ,^5555ffֻЯ1^000000ҪħĿ׹";
		next;
		mes "[ʵϰħʦ]";
		mes "2ϵĿ׹,,ǲ!";
		next;
		switch(select("޶:һ:߼:´˵")) {
		case 1:
			setarray .@Items[0],2307,2309,2314,2316,2321,2325,2327,2328,2330,2332,2334,2335,2341,2344,2346,2348,2350,2337,2386,2394,2395,2396;
			set .@j,50;
			break;
		case 2:
			setarray .@Items[0],2311,2318,2319,2320,2308,2310,2315,2317,2322,2324,2326,2331,2333,2336,2342,2345,2347,2349,2351;
			set .@j,55;
			set .@k,1;
			break;
		case 3:
			setarray .@Items[0],2364,2365,2391,2374,2375,2376,2377,2378,2379,2380,2381,2382,2387,2388,2389,2390;
			set .@j,60;
			break;
		case 4:
			mes "[ʵϰħʦ]";
			mes "ԺȤĻ,";
			close;
		}
		set .@menu$,"";
		for(set .@i,0; .@i<getarraysize(.@Items); set .@i,.@i+1)
			set .@menu$, .@menu$+getitemname(.@Items[.@i])+((.@k)?" [1]":"")+":";
		callsub S_EnchantArmor, .@Items[select(.@menu$)-1], .@j;
		end;
	}
	else {
		mes "Ҹ׵ĸħ,Ҳ˵רо߼п";
		next;
		mes "[ʵϰħʦ]";
		mes "ȤĻ,40ҺҪħĿ׹Ұ!";
		close;
	}

S_EnchantArmor:
	set .@itemid,getarg(0);
	set .@failrate,getarg(1);
	mes "[ʵϰħʦ]";
	if ((countitem(.@itemid) > 0) && (countitem(.@itemid) < 2)) {
		mes "׸ħҪ40,ҸħЧ,Ȼװһʻ";
		next;
		mes "[ʵϰħʦ]";
		mes "Ҫ,,ô";
		mes "^ff5555еľֵ";
		mes "ԭװĿƬȫʧ^000000,";
		mes "ȷҪħ?";
		next;
		if(select("... ٿһ:Ѿ¶ˣְɣ")==1) {
			mes "[ʵϰħʦ]";
			mes "ȫһ,ף;!";
			close;
		}
		mes "[ʵϰħʦ]";
		mes "ϲð,ǿʼ?";
		close2;
		specialeffect2 EF_MAPPILLAR;
		if (Zeny < 400000) {
			mes "[ʵϰħʦ]";
			mes "Ǹ,û㹻Ľ";
			close;
		}
		progressbar "ffff00",7;
		set zeny,zeny-400000;
		delitem .@itemid,1;
		switch (rand(1,.@failrate)) {
			case 1: set .@addpart,4702;break;
			case 2: set .@addpart,4712;break;
			case 3: set .@addpart,4722;break;
			case 4: set .@addpart,4732;break;
			case 5: set .@addpart,4742;break;
			case 6: set .@addpart,4752;break;
			case 7:
			case 8: set .@addpart,4701;break;
			case 9:
			case 10: set .@addpart,4711;break;
			case 11:
			case 12: set .@addpart,4721;break;
			case 13:
			case 14: set .@addpart,4731;break;
			case 15:
			case 16: set .@addpart,4741;break;
			case 17:
			case 18: set .@addpart,4751;break;
			case 19:
			case 20:
			case 21: set .@addpart,4700;break;
			case 22:
			case 23:
			case 24: set .@addpart,4710;break;
			case 25:
			case 26:
			case 27: set .@addpart,4720;break;
			case 28:
			case 29:
			case 30: set .@addpart,4730;break;
			case 31:
			case 32:
			case 33: set .@addpart,4740;break;
			case 34:
			case 35:
			case 36: set .@addpart,4750;break;
			default:
				specialeffect2 EF_PHARMACY_FAIL;
				mes "[ʵϰħʦ]";
				mes "ź,";
				mes "ίҸħװڸħʧܶ";
				close;
		}
		getitem2 .@itemid, 1, 1, 0, 0, 0, 0, 0, .@addpart;
	}
	else {
		mes "?ʲôûа?";
		mes "^5555ff1^000000ҪħװҰ!";
		close;
	}
}
