//==============================================================================
// RagnarokOnline Original SlotEnchant Script Ver1.4   by Blaze
//==============================================================================
prt_in.gat,63,56,2	script	技工士	933,{
	mes "[技工士]";
	mes "わしは特定の装備品のスロットを";
	mes "付加させることができる技工士じゃ。";
	mes "今の装備品に満足しないで";
	mes "立派な武具に強化してみないか？";
	next;
	switch(select("スロットを付加する","説明を聞く","やめる")) {
	case 1:
		mes "[技工士]";
		mes "よしよし、久しぶりの出番じゃな。";
		mes "ではスロットを付加したい装備品を";
		mes "選ぶんじゃ。";
		mes "どれでもスロットが付加できるって";
		mes "わけじゃないから注意じゃよ。";
		next;
		set '@e,select(getequipname(1),getequipname(2),getequipname(3),getequipname(4),getequipname(5),
					getequipname(6),getequipname(7),getequipname(8),getequipname(9),getequipname(10));
		if(getequipisequiped('@e)==0) {
			emotion 1;
			mes "[技工士]";
			mes "むむむ……？";
			mes "どこに装備品があるというのかね？";
			mes "わしの目も衰えてしまったのかのう。";
			close;
		}
		if(getequipisidentify('@e)==0) {
			emotion 1;
			mes "[技工士]";
			mes "これは未鑑定品じゃな。";
			mes "ちゃんと鑑定したものを";
			mes "よこしてくれんかのう。";
			close;
		}
		switch(getequipid('@e)) {
		case 1123: //海東剣
			set '@class,2;
			set '@zeny,300000;
			setarray '@need,984,999;
			setarray '@amount,2,5;
			set '@delid,1123;
			set '@getid,1128;
			break;
		case 1129: //フランベルジェ
			set '@class,3;
			set '@zeny,500000;
			setarray '@need,984,999;
			setarray '@amount,2,10;
			set '@delid,1129;
			set '@getid,1149;
			break;
		case 1135: //カトラス
			set '@class,4;
			set '@zeny,1000000;
			setarray '@need,984,999;
			setarray '@amount,5,10;
			set '@delid,1135;
			set '@getid,13400;
			break;
		case 1163: //クレイモア
			set '@class,3;
			set '@zeny,500000;
			setarray '@need,984,999;
			setarray '@amount,2,10;
			set '@delid,1163;
			set '@getid,1172;
			break;
		case 1168: //ツヴァイハンダー
			set '@class,3;
			set '@zeny,800000;
			setarray '@need,984,999;
			setarray '@amount,5,10;
			set '@delid,1168;
			set '@getid,1171;
			break;
		case 1219: //グラディウス
			set '@class,2;
			set '@zeny,300000;
			setarray '@need,984,999;
			setarray '@amount,1,5;
			set '@delid,1219;
			set '@getid,1220;
			break;
		case 1230: //錐
			set '@class,4;
			set '@zeny,2000000;
			setarray '@need,984,999;
			setarray '@amount,5,10;
			set '@delid,1230;
			set '@getid,13017;
			break;
		case 1236: //スクサマッド
			set '@class,4;
			set '@zeny,1000000;
			setarray '@need,984,999;
			setarray '@amount,5,10;
			set '@delid,1236;
			set '@getid,13018;
			break;
		case 1239: //ポイズンナイフ
			set '@class,4;
			set '@zeny,1000000;
			setarray '@need,984,999;
			setarray '@amount,5,10;
			set '@delid,1239;
			set '@getid,13016;
			break;
		case 1261: //裏切り者
			set '@class,3;
			set '@zeny,700000;
			setarray '@need,984,999;
			setarray '@amount,5,10;
			set '@delid,1261;
			set '@getid,1266;
			break;
		case 1407: //パイク
			set '@class,2;
			set '@zeny,300000;
			set '@need,1010;
			set '@amount,10;
			set '@delid,1407;
			set '@getid,1408;
			break;
		case 1413: //グングニール
			set '@class,4;
			set '@zeny,1000000;
			setarray '@need,984,999;
			setarray '@amount,5,10;
			set '@delid,1413;
			set '@getid,1418;
			break;
		case 1460: //トライデント
			set '@class,1;
			set '@zeny,200000;
			set '@need,1010;
			set '@amount,10;
			set '@delid,1460;
			set '@getid,1461;
			break;
		case 1466: //クレセントサイダー
			set '@class,4;
			set '@zeny,1000000;
			setarray '@need,984,999;
			setarray '@amount,5,10;
			set '@delid,1466;
			set '@getid,1476;
			break;
		case 1519: //チェイン
			set '@class,2;
			set '@zeny,300000;
			set '@need,1010;
			set '@amount,10;
			set '@delid,1519;
			set '@getid,1520;
			break;
		case 1522: //スタナー
			set '@class,3;
			set '@zeny,500000;
			setarray '@need,984,999;
			setarray '@amount,2,10;
			set '@delid,1522;
			set '@getid,1532;
			break;
		case 1617: //サバイバルロッド(Dex)
			set '@class,4;
			set '@zeny,2000000;
			setarray '@need,984,999;
			setarray '@amount,5,10;
			set '@delid,1617;
			set '@getid,1618;
			break;
		case 1619: //サバイバルロッド(Int)
			set '@class,3;
			set '@zeny,500000;
			setarray '@need,984,999;
			setarray '@amount,5,10;
			set '@delid,1619;
			set '@getid,1620;
			break;
		case 1713: //アーバレスト
			set '@class,2;
			set '@zeny,300000;
			setarray '@need,984,999;
			setarray '@amount,2,5;
			set '@delid,1713;
			set '@getid,1715;
			break;
		case 1718: //ハンターボウ
			set '@class,3;
			set '@zeny,500000;
			setarray '@need,984,999;
			setarray '@amount,2,10;
			set '@delid,1718;
			set '@getid,1726;
			break;
		case 1722: //バリスタ
			set '@class,3;
			set '@zeny,500000;
			setarray '@need,984,999;
			setarray '@amount,5,10;
			set '@delid,1722;
			set '@getid,1727;
			break;
		case 1801: //バグナウ
			set '@class,2;
			set '@zeny,300000;
			set '@need,1010;
			set '@amount,10;
			set '@delid,1801;
			set '@getid,1802;
			break;
		case 1814: //ベルセルク
			set '@class,3;
			set '@zeny,500000;
			setarray '@need,984,999;
			setarray '@amount,5,10;
			set '@delid,1814;
			set '@getid,1816;
			break;
		case 1901: //バイオリン
			set '@class,1;
			set '@zeny,200000;
			set '@need,1010;
			set '@amount,10;
			set '@delid,1901;
			set '@getid,1902;
			break;
		case 1905: //リュート
			set '@class,1;
			set '@zeny,300000;
			set '@need,1011;
			set '@amount,10;
			set '@delid,1905;
			set '@getid,1906;
			break;
		case 1950: //ロープ
			set '@class,1;
			set '@zeny,200000;
			set '@need,1010;
			set '@amount,10;
			set '@delid,1950;
			set '@getid,1951;
			break;
		case 1954: //ワイヤー
			set '@class,1;
			set '@zeny,300000;
			set '@need,1011;
			set '@amount,10;
			set '@delid,1954;
			set '@getid,1955;
			break;
		case 2101: //ガード
			set '@class,6;
			set '@zeny,300000;
			set '@need,999;
			set '@amount,5;
			set '@delid,2101;
			set '@getid,2102;
			break;
		case 2103: //バックラー
			set '@class,6;
			set '@zeny,300000;
			set '@need,999;
			set '@amount,5;
			set '@delid,2103;
			set '@getid,2104;
			break;
		case 2105: //シールド
			set '@class,6;
			set '@zeny,250000;
			set '@need,999;
			set '@amount,5;
			set '@delid,2105;
			set '@getid,2106;
			break;
		case 2107: //ミラーシールド
			set '@class,6;
			set '@zeny,250000;
			set '@need,999;
			set '@amount,5;
			set '@delid,2107;
			set '@getid,2108;
			break;
		case 2109: //メモライズブック
			set '@class,7;
			set '@zeny,400000;
			set '@need,985;
			set '@amount,1;
			set '@delid,2109;
			set '@getid,2121;
			break;
		case 2216: //ビレタ
			set '@class,5;
			set '@zeny,200000;
			set '@need,999;
			set '@amount,3;
			set '@delid,2216;
			set '@getid,2217;
			break;
		case 2228: //ヘルム
			set '@class,7;
			set '@zeny,400000;
			set '@need,985;
			set '@amount,1;
			set '@delid,2228;
			set '@getid,2229;
			break;
		case 2230: //ジュエルヘルム
			set '@class,7;
			set '@zeny,400000;
			set '@need,985;
			set '@amount,1;
			set '@delid,2230;
			set '@getid,2231;
			break;
		case 2232: //サークレット
			set '@class,5;
			set '@zeny,200000;
			set '@need,999;
			set '@amount,3;
			set '@delid,2232;
			set '@getid,2233;
			break;
		case 2234: //ティアラ
			set '@class,8;
			set '@zeny,1000000;
			set '@need,985;
			set '@amount,2;
			set '@delid,2234;
			set '@getid,5164;
			break;
		case 2235: //クラウン
			set '@class,8;
			set '@zeny,2000000;
			set '@need,985;
			set '@amount,2;
			set '@delid,2235;
			set '@getid,5165;
			break;
		case 2246: //ゴールデンヘッドギア
			set '@class,7;
			set '@zeny,400000;
			set '@need,985;
			set '@amount,1;
			set '@delid,2246;
			set '@getid,5159;
			break;
		case 2251: //聖職者の帽子
			set '@class,7;
			set '@zeny,400000;
			set '@need,985;
			set '@amount,1;
			set '@delid,2251;
			set '@getid,5158;
			break;
		case 2256: //マジェスティックゴート
			set '@class,8;
			set '@zeny,2000000;
			set '@need,985;
			set '@amount,2;
			set '@delid,2258;
			set '@getid,5160;
			break;
		case 2258: //シャープヘッドギア
			set '@class,8;
			set '@zeny,2000000;
			set '@need,985;
			set '@amount,2;
			set '@delid,2258;
			set '@getid,5161;
			break;
		case 2264: //ムナック帽
			set '@class,7;
			set '@zeny,300000;
			set '@need,985;
			set '@amount,1;
			set '@delid,2264;
			set '@getid,5167;
			break;
		case 2299: //オーク族のヘルム
			set '@class,7;
			set '@zeny,400000;
			set '@need,985;
			set '@amount,1;
			set '@delid,2299;
			set '@getid,5157;
			break;
		case 2307: //メントル
			set '@class,5;
			set '@zeny,200000;
			set '@need,999;
			set '@amount,3;
			set '@delid,2307;
			set '@getid,2308;
			break;
		case 2309: //ロングコート
			set '@class,5;
			set '@zeny,200000;
			set '@need,999;
			set '@amount,3;
			set '@delid,2309;
			set '@getid,2310;
			break;
		case 2314: //メイル
			set '@class,6;
			set '@zeny,250000;
			set '@need,999;
			set '@amount,5;
			set '@delid,2314;
			set '@getid,2315;
			break;
		case 2321: //シルクローブ
			set '@class,6;
			set '@zeny,300000;
			set '@need,999;
			set '@amount,5;
			set '@delid,2321;
			set '@getid,2322;
			break;
		case 2325: //セイントローブ
			set '@class,6;
			set '@zeny,300000;
			set '@need,999;
			set '@amount,5;
			set '@delid,2325;
			set '@getid,2326;
			break;
		case 2330: //タイツ
			set '@class,7;
			set '@zeny,400000;
			set '@need,985;
			set '@amount,1;
			set '@delid,2330;
			set '@getid,2331;
			break;
		case 2335: //シーフクロース
			set '@class,7;
			set '@zeny,400000;
			set '@need,985;
			set '@amount,1;
			set '@delid,2335;
			set '@getid,2336;
			break;
		case 2337: //忍者スーツ
			set '@class,7;
			set '@zeny,400000;
			set '@need,985;
			set '@amount,1;
			set '@delid,2337;
			set '@getid,2359;
			break;
		case 2341: //フルプレート
			set '@class,7;
			set '@zeny,400000;
			set '@need,985;
			set '@amount,1;
			set '@delid,2341;
			set '@getid,2342;
			break;
		case 2343: //キャスティングローブ
			set '@class,8;
			set '@zeny,1000000;
			set '@need,985;
			set '@amount,2;
			set '@delid,2343;
			set '@getid,2360;
			break;
		case 2403: //シューズ
			set '@class,6;
			set '@zeny,300000;
			set '@need,999;
			set '@amount,5;
			set '@delid,2403;
			set '@getid,2404;
			break;
		case 2405: //ブーツ
			set '@class,6;
			set '@zeny,300000;
			set '@need,999;
			set '@amount,5;
			set '@delid,2405;
			set '@getid,2406;
			break;
		case 2411: //グリーブ
			set '@class,7;
			set '@zeny,400000;
			set '@need,985;
			set '@amount,1;
			set '@delid,2411;
			set '@getid,2412;
			break;
		case 2503: //マフラー
			set '@class,6;
			set '@zeny,300000;
			set '@need,999;
			set '@amount,5;
			set '@delid,2503;
			set '@getid,2504;
			break;
		case 2505: //マント
			set '@class,7;
			set '@zeny,400000;
			set '@need,985;
			set '@amount,1;
			set '@delid,2505;
			set '@getid,2506;
			break;
		case 2507: //昔の領主のマント
			set '@class,7;
			set '@zeny,400000;
			set '@need,985;
			set '@amount,1;
			set '@delid,2507;
			set '@getid,2525;
			break;
		case 2601: //リング
			set '@class,8;
			set '@zeny,1000000;
			set '@need,985;
			set '@amount,2;
			set '@delid,2601;
			set '@getid,2621;
			break;
		case 2602: //イヤリング
			set '@class,8;
			set '@zeny,1000000;
			set '@need,985;
			set '@amount,2;
			set '@delid,2602;
			set '@getid,2622;
			break;
		case 2605: //ブローチ
			set '@class,7;
			set '@zeny,400000;
			set '@need,985;
			set '@amount,1;
			set '@delid,2605;
			set '@getid,2625;
			break;
		case 2619: //弓用の指貫
			set '@class,8;
			set '@zeny,1000000;
			set '@need,985;
			set '@amount,2;
			set '@delid,2219;
			set '@getid,2671;
			break;
		case 5017: //ボーンヘルム
			set '@class,8;
			set '@zeny,2000000;
			set '@need,985;
			set '@amount,2;
			set '@delid,5017;
			set '@getid,5162;
			break;
		case 5019: //コルセア
			set '@class,8;
			set '@zeny,2000000;
			set '@need,985;
			set '@amount,2;
			set '@delid,5019;
			set '@getid,5163;
			break;
		case 5046: //ボンゴン帽
			set '@class,6;
			set '@zeny,250000;
			set '@need,999;
			set '@amount,5;
			set '@delid,5046;
			set '@getid,5168;
			break;
		case 5053: //スフィンクス帽
			set '@class,8;
			set '@zeny,1000000;
			set '@need,985;
			set '@amount,2;
			set '@delid,5053;
			set '@getid,5166;
			break;
		case 5092: //修道女のヴェール
			set '@class,7;
			set '@zeny,400000;
			set '@need,985;
			set '@amount,1;
			set '@delid,5092;
			set '@getid,5093;
			break;
		case 5114: //やわらかい帽子
			set '@class,7;
			set '@zeny,400000;
			set '@need,985;
			set '@amount,1;
			set '@delid,5114;
			set '@getid,5120;
			break;
		case 13002: //ギンヌンガガップ
			set '@class,4;
			set '@zeny,1000000;
			setarray '@need,984,999;
			setarray '@amount,5,10;
			set '@delid,13002;
			set '@getid,13019;
			break;
		default:
			emotion 9;
			mes "[技工士]";
			mes "ふむむ……";
			mes "残念じゃが、この装備品では";
			mes "スロット付加は無理なようじゃ。";
			mes "別のものにしてくれんかのう。";
			close;
		}
		mes "[技工士]";
		mes "ほほう、" +getitemname('@getid)+ "か。";
		mes "ふむふむ、これならいけそうじゃ。";
		mes "これだと手数料 ^4A4AFF" +'@zeny+ " Zeny^000000と";
		for(set '@i,0; '@amount['@i]!=0; set '@i,'@i+1)
			mes "^4A4AFF" +getitemname('@need['@i])+ " " +'@amount['@i]+ "個^000000";
		mes "が必要じゃな。";
		next;
		mes "[技工士]";
		mes "では早速始めるかい？";
		mes "最後に、^FF0000精錬された物や";
		mes "カードが刺さっているものは";
		mes "スロットを付加する時に全て";
		mes "消えるからよく確認するんじゃよ。^000000";
		next;
		if(select("お願いします","やっぱりやめる")==2) {
			emotion 9;
			mes "[技工士]";
			mes "なんじゃ、つまらんのう。";
			mes "また興味が出てきたら";
			mes "いつでも来るんじゃよ。";
			close;
		}
		if(Zeny < '@zeny) {
			emotion 7;
			mes "[技工士]";
			mes "む、手数料が足りないようじゃぞ。";
			mes "タダで出来るほど";
			mes "世の中甘くないんじゃ。";
			close;
		}
		for(set '@i,0; '@amount['@i]!=0; set '@i,'@i+1)
			if(countitem('@need) < '@amount) {
				emotion 7;
				mes "[技工士]";
				mes "む、材料が足りないようじゃぞ。";
				mes "タダで出来るほど";
				mes "世の中甘くないんじゃ。";
				close;
			}
		mes "[技工士]";
		mes "では始めるぞい。";
		next;
		mes "[技工士]";
		mes "カンカンカン！";
		failedrefitem '@e;
		for(set '@i,0; '@amount['@i]!=0; set '@i,'@i+1)
			delitem '@need['@i],'@amount['@i];
		set Zeny,Zeny-'@zeny;
		//成否判定
		switch('@class) {
		case 1: //武器Cクラス
			set '@rand,2;
			break;
		case 2: //武器Bクラス
			set '@rand,4;
			break;
		case 3: //武器Aクラス
			set '@rand,8;
			break;
		case 4: //武器Sクラス
			set '@rand,16;
			break;
		case 5: //防具Cクラス
			set '@rand,2;
			break;
		case 6: //防具Bクラス
			set '@rand,4;
			break;
		case 7: //防具Aクラス
			set '@rand,8;
			break;
		case 8: //防具Sクラス
			set '@rand,16;
			break;
		}
		if(rand('@rand)) {
			emotion 23;
			next;
			mes "[技工士]";
			mes "……";
			mes "ま、まあこういう日もある。";
			mes "諦めずに次もよろしく頼むぞい。";
			close;
		}
		emotion 5;
		gmcommand "@misceffect 154";
		getitem '@getid,1;
		next;
		mes "[技工士]";
		mes "やったのう！";
		mes "素晴らしい装備の出来上がりじゃ。";
		mes "次もよろしく頼むぞい。";
		close;
	case 2:
		mes "[技工士]";
		mes "スロットエンチャントについて";
		mes "聞きたいのか？";
		mes "こいつは君の装備している装備品の";
		mes "スロットを増加させることができる";
		mes "最新鋭の技術じゃ。";
		next;
		mes "[技工士]";
		mes "スロットを付加するには、";
		mes "装備品とそれに似合った";
		mes "手数料と材料がいるんじゃ。";
		mes "タダでできるほど甘くはないぞい。";
		next;
		mes "[技工士]";
		mes "じゃが、どの装備品でもスロットが";
		mes "増えるってわけじゃないんじゃ。";
		mes "特定の装備品しか増やすことが";
		mes "できないから注意じゃな。";
		next;
		mes "[技工士]";
		mes "それと、^FF0000精錬された物や";
		mes "カードが刺さっているものは";
		mes "スロットを付加する時に全て";
		mes "消えるからよく確認するんじゃよ。^000000";
		next;
		mes "[技工士]";
		mes "あと、この技術はとても危険なんじゃ。";
		mes "失敗して壊してしまうことや、";
		mes "元より能力が落ちてしまうのもある。";
		mes "だが、それを踏まえて";
		mes "やってみる価値はあると思うぞい。";
		close;
	case 3:
		emotion 0;
		mes "[技工士]";
		mes "ほほう。";
		mes "また興味が出てきたら";
		mes "いつでも来るんじゃよ。";
		close;
	}
}