/*================================================
- 腳本名稱：選擇性裝備附魔 Ver 1.3
- 腳本作者：阿神ˇ(a20775689@raidcall.com.tw)
- 測試環境：eAthena.rAthena.SeAr.3CeAM
- 更新內容：
- Ver 1.3 新增選擇洞數附魔 getarg(1) 值須>0
		  若>4則出現選擇洞數選單
- Ver 1.2 新增case 6-10
- Ver 1.1 顯示資訊(洞數、卡片)
- Ver 1.0 完成架構
- 使用方法：
*[新增Item_db] 21600,Enchant_S,附魔精煉石,0,50,,70,,,,,0xFFFFFFFF,7,2,,,,,,{ callfunc("Enchant_S",1,2); },{},{}
Enchant_S = 該腳本函數
1 = str,agi,vit,int,dex,luk 隨機+1(以此類推 1: 隨機+1 2:隨機+2 3:隨機+3 .....)
2 = 在裝備的第二洞上面嵌入附魔石(以此類推 1: 第一洞 2:第二洞 3:第三洞 4:第四洞 5:選擇你要第幾洞 無填入預設第四洞)
>>>各位大哥大姐轉載請保留以上，萬分感激<<<
================================================*/
function	script	Enchant_S	{
	switch(getarg(0)){
		case 1:
			setarray .@s,4700,4710,4720,4730,4740,4750;
			break;
		case 2:
			setarray .@s,4701,4711,4721,4731,4741,4751;
			break;
		case 3:
			setarray .@s,4702,4712,4722,4732,4742,4752;
			break;
		case 4:
			setarray .@s,4703,4713,4723,4733,4743,4753;
			break;
		case 5:
			setarray .@s,4704,4714,4724,4734,4744,4754;
			break;
		case 6:
			setarray .@s,4705,4715,4725,4735,4745,4755;
			break;
		case 7:
			setarray .@s,4706,4716,4726,4736,4746,4756;
			break;
		case 8:
			setarray .@s,4707,4717,4727,4737,4747,4757;
			break;
		case 9:
			setarray .@s,4708,4718,4728,4738,4748,4758;
			break;
		case 10:
			setarray .@s,4709,4719,4729,4739,4749,4759;
			break;
	}
	while(set(.@i,.@i+1)&&.@i<=10) {
		if(getequipweaponlv(.@i)>0) set .@color$,"^0000AA";
		else set .@color$,"^006400";
		set .@menu$,.@menu$+("鑲嵌 - "+.@color$+""+getitemname(getequipid(.@i))+"^000000")+":";
	}
	select(.@menu$);
	if(getitemname(getequipid(@menu))=="null") {
		mes "^888888您沒有裝備這項物品!!";
		close;
	}
	set .@focus,@menu;
	mes "^888888[訊息]";
	mes "裝備: "+.@color$+""+getitemname(getequipid(.@focus))+"["+getitemslots(getequipid(.@focus))+"]";
	mes "^888888洞數(1): ^A0522D"+getitemname(getequipcardid(.@focus,0));
	mes "^888888洞數(2): ^2F4F4F"+getitemname(getequipcardid(.@focus,1));
	mes "^888888洞數(3): ^339900"+getitemname(getequipcardid(.@focus,2));
	mes "^888888洞數(4): ^0000AA"+getitemname(getequipcardid(.@focus,3));
	next;
	if(select("確定鑲嵌","取消")==2)
		close;
	if(getarg(1,0)){
		if(getarg(1)<5)
			set .@select,getarg(1);
		else
			set .@select,select("1","2","3","4");
		switch(.@select){
			case 1:
				getitem2 getequipid(.@focus),1,1,getequiprefinerycnt(.@focus),0,.@s[rand(getarraysize(.@s))],getequipcardid(.@focus,1),getequipcardid(.@focus,2),getequipcardid(.@focus,3);
				break;
			case 2:
				getitem2 getequipid(.@focus),1,1,getequiprefinerycnt(.@focus),0,getequipcardid(.@focus,0),.@s[rand(getarraysize(.@s))],getequipcardid(.@focus,2),getequipcardid(.@focus,3);
				break;
			case 3:
				getitem2 getequipid(.@focus),1,1,getequiprefinerycnt(.@focus),0,getequipcardid(.@focus,0),getequipcardid(.@focus,1),.@s[rand(getarraysize(.@s))],getequipcardid(.@focus,3);
				break;
			case 4:
				getitem2 getequipid(.@focus),1,1,getequiprefinerycnt(.@focus),0,getequipcardid(.@focus,0),getequipcardid(.@focus,1),getequipcardid(.@focus,2),.@s[rand(getarraysize(.@s))];
				break;
		}
		delitem2 getequipid(.@focus),1,1,getequiprefinerycnt(.@focus),0,getequipcardid(.@focus,0),getequipcardid(.@focus,1),getequipcardid(.@focus,2),getequipcardid(.@focus,3);
		specialeffect2 154;
		close;
	}
	getitem2 getequipid(.@focus),1,1,getequiprefinerycnt(.@focus),0,getequipcardid(.@focus,0),getequipcardid(.@focus,1),getequipcardid(.@focus,2),.@s[rand(getarraysize(.@s))];
	delitem2 getequipid(.@focus),1,1,getequiprefinerycnt(.@focus),0,getequipcardid(.@focus,0),getequipcardid(.@focus,1),getequipcardid(.@focus,2),getequipcardid(.@focus,3);
	specialeffect2 154;
close;
}