//===========================================
// [ڤ] The PlutoEA Project []
// http://opensvn.csie.org/PlutoEA
// -----------------------------------------
// - EP12 ű -
//===========================================
// ̫ʧִܲ
// SeAr1.1
//===========================================

//ǲ(EP12)
-	script	ǲ#dummy::SocketEnchant2	-1,{
	getinventorylist;
	if ( @inventorylist_count > 99 ) {
		mes "- ͣһ !! -";
		mes "- ЯƷ̫ -";
		mes "- ԲܻƷ -";
		mes "- ϵƷ֮ -";
		mes "- ս -";
		close;
	}
	mes "[ǲ]";
	mes "һ";
	mes "д򶴵ļԱǲ";
	mes "Ȼ൱Ĺ...";
	mes "Ȥ";
	mes "";
	next;
	mes "[ǲ]";
	mes "Ȼǲڸ";
	mes "󲿷ֵļ... ף";
	mes "ҵı»";
	mes "Զ";
	next;
	mes "[ǲ]";
	mes "ÿεҵʱ";
	mes "ͱԹ˵ٸ˵";
	mes "ʣ˵˵";
	mes "ָ";
	next;
	mes "[ǲ]";
	mes "ѧٶ";
	mes "ֻǾвǷܲ";
	mes "ڴȴ̫аգ";
	mes "Ŀǰľȫ";
	mes "ԸĿꆪ";
	next;
	mes "[ǲ]";
	mes "ʵһ";
	mes "... 볢Ե";
	mes "Ÿ... ˣ";
	mes "͵û˵!";
	next;
	mes "[ǲ]";
	mes "ˣҪ򶴵";
	mes "װ? ͬװ";
	mes "ѣϡɹʵ";
	mes "Ҳͬ... Ⱦ";
	mes "˵";
	next;
	switch(select("::粻?:˵:ȡ")) {
	case 1:
		mes "[ǲ]";
		mes "... ҵ";
		mes "׶ֵĻֳ";
		mes "4C׵ģ";
		mes "Sѵģ";
		mes "ѡ׶ˮ׼";
		set @sockettype,1;
		next;
		switch(select("C:B:A:S")) {
		case 1:
			mes "[ǲ]";
			mes "C? ! ôϣ";
			mes "Ϊһװ?";
			next;
			switch(select("֮:ˮ֮:֮:֮")) {
			case 1: callfunc "Func_Socket",1,1554,1569,40,66,200,1010,10; break;
			case 2: callfunc "Func_Socket",1,1553,1568,40,66,200,1010,10; break;
			case 3: callfunc "Func_Socket",1,1556,1571,40,66,200,1010,10; break;
			case 4: callfunc "Func_Socket",1,1555,1570,40,66,200,1010,10; break;
			}
			break;
		case 2:
			mes "[ǲ]";
			mes "B? ! ôϣ";
			mes "Ϊһװ?";
			next;
			switch(select("˸:䵶:ä֮")) {
			case 1: callfunc "Func_Socket",1,1304,1309,40,61,200,984,1; break;
			case 2: callfunc "Func_Socket",1,1113,1114,40,61,200,984,1; break;
			case 3: callfunc "Func_Socket",1,1523,1538,40,61,300,984,1; break;
			}
			break;
		case 3:
			mes "[ǲ]";
			mes "A? ! ôϣ";
			mes "һװϴ?";
			next;
			switch(select("̽:ȭ:ȭ:ȭ:ȭ:ƽ֮::Ůı:ֵǹ:Ұì:֮")) {
			case 1: callfunc "Func_Socket",1,13001,13030,40,61,500,984,2; break;
			case 2: callfunc "Func_Socket",1,1257,1276,40,61,500,984,2; break;
			case 3: callfunc "Func_Socket",1,1258,1277,40,61,500,984,2; break;
			case 4: callfunc "Func_Socket",1,1256,1275,40,61,500,984,2; break;
			case 5: callfunc "Func_Socket",1,1259,1278,40,61,500,984,2; break;
			case 6: callfunc "Func_Socket",1,1524,1539,40,61,500,984,2; break;
			case 7: callfunc "Func_Socket",1,1918,1922,40,61,500,984,2; break;
			case 8: callfunc "Func_Socket",1,1970,1976,40,61,500,984,2; break;
			case 9: callfunc "Func_Socket",1,1477,1479,40,61,500,984,2; break;
			case 10: callfunc "Func_Socket",1,1474,1480,40,61,500,984,2; break;
			case 11: callfunc "Func_Socket",1,1167,1178,40,61,500,984,2; break;
			}
			break;
		case 4:
			mes "[ǲ]";
			mes "! ! S! ......";
			mes "...ҪŪһSװ?";
			next;
			switch(select("֮ì:Ƽ׶̽::ж̽:̽ Թ:ʥʮ:֮")) {
			case 1: callfunc "Func_Socket",2,1468,1481,40,51,1000,984,5,999,10; break;
			case 2: callfunc "Func_Socket",2,1225,13032,40,51,1000,984,5,999,10; break;
			case 3: callfunc "Func_Socket",2,1166,1180,40,51,1000,984,5,999,10; break;
			case 4: callfunc "Func_Socket",2,1224,13031,40,51,1000,984,5,999,10; break;
			case 5: callfunc "Func_Socket",2,1232,13033,40,51,1000,984,5,999,10; break;
			case 6: callfunc "Func_Socket",2,1528,1540,40,51,1000,984,5,999,10; break;
			case 7: callfunc "Func_Socket",2,1169,1179,40,51,1000,984,5,999,10; break;
			}
			break;
		}
		break;
	case 2:
		mes "[ǲ]";
		mes "... ߴҵ";
		mes "׶ֵĻֳ";
		mes "4C׵ģ";
		mes "Sѵģ";
		mes "ѡ׶ˮ׼";
		set @sockettype,2;
		next;
		switch(select("C:B:A:S")) {
		case 1:
			mes "[ǲ]";
			mes "C? ! ôϣ";
			mes "Ϊһװ?";
			next;
			switch(select("տͷ:ѧʿñ::ѧñ")) {
			case 1: callfunc "Func_Socket",1,2253,5351,40,66,100,999,3; break;
			case 2: callfunc "Func_Socket",1,5012,5347,40,66,100,999,3; break;
			case 3: callfunc "Func_Socket",1,2244,5348,40,66,100,999,5; break;
			case 4: callfunc "Func_Socket",1,5016,5349,40,66,100,999,5; break;
			}
			break;
		case 2:
			mes "[ǲ]";
			mes "B? ! ôϣ";
			mes "Ϊһװ?";
			next;
			switch(select("ýָ:ħЬ")) {
			case 1: callfunc "Func_Socket",1,2609,2715,40,61,300,999,5; break;
			case 2: callfunc "Func_Socket",1,2409,2432,40,61,300,999,5; break;
			}
			break;
		case 3:
			mes "[ǲ]";
			mes "A? ! ôϣ";
			mes "һװϴ?";
			next;
			switch(select("ͷ:ɫƤﳤѥ")) {
			case 1: callfunc "Func_Socket",1,2287,5350,40,61,500,985,1; break;
			case 2: callfunc "Func_Socket",1,2425,2434,40,61,500,985,1; break;
			}
			break;
		case 4:
			mes "[ǲ]";
			mes "! ! S! ......";
			mes "...ҪŪһSװ?";
			next;
			switch(select("ħ::ʹ֮::ǿ")) {
			case 1: callfunc "Func_Socket",1,2334,2372,40,51,1000,985,1; break;
			case 2: callfunc "Func_Socket",1,2327,2373,40,51,1000,985,1; break;
			case 3: callfunc "Func_Socket",1,2111,2128,40,51,1000,985,1; break;
			case 4: callfunc "Func_Socket",1,2522,2523,40,51,1000,985,1; break;
			case 5: callfunc "Func_Socket",1,2339,2371,40,51,1000,985,1; break;
			}
			break;
		}
		break;
	case 3:
		mes "[ǲ]";
		mes "..ûʲô! ֻһ£";
		mes "һֱ";
		mes "ȥ... Ҳ±";
		mes "𱸣Ҳ";
		mes "";
		next;
		mes "[ǲ]";
		mes "Ȼɹʼ...";
		mes "ԵĲҪܶ࣬";
		mes "ҲܹĹϵ";
		mes "ʹˣҲ";
		mes "Ӧû˻ίа";
		next;
		mes "[ǲ]";
		mes "......";
		next;
		mes "[ǲ]";
		mes ".............";
		next;
		mes "[ǲ]";
		mes ".............";
		next;
		mes "[ǲ]";
		mes "ҿȤ... ";
		mes "ΪѵĽ͸";
		mes "ˣ㱣...";
		mes "һĻ";
		mes "һᱻĺܲ";
		next;
		mes "[ǲ]";
		mes "ɹΪ90%Ҫ";
		mes "ƽ 22ڽң";
		mes "ǰҵҪ";
		mes "̫ͷϴ...";
		next;
		mes "[ǲ]";
		mes "˵ǰ";
		mes "װ϶нɵ...";
		mes "ʵҲн";
		mes "Ųȥģ";
		mes "ֻǲ뱻";
		next;
		switch(select("ί:ȡ")) {
		case 1:
			mes "[ǲ]";
			mes ".................";
			next;
			mes "[ǲ]";
			mes ".................";
			next;
			mes "[ǲ]";
			mes "..ʲʲô";
			mes "ǿҲ";
			mes "! ! !";
			next;
			mes "[ǲ]";
			mes "ҲҪ! Ҫ...";
			next;
			mes "[ǲ]";
			mes "˵Ҫ...";
			next;
			mes "[ǲ]";
			mes "...Ҫ...";
			next;
			mes "[ǲ]";
			mes ".................";
			next;
			mes "[ǲ]";
			mes "......";
			next;
			mes "[ǲ]";
			mes "֪! ?";
			mes "ǧø֪";
			mes "ԱҲҪԱ";
			mes "";
			next;
			mes "[ǲ]";
			mes "^FF0000лƽ 2Ϊ";
			mes "^FF00002ڽңлװ";
			mes "^FF0000̫ͷ... ɹ90%^000000";
			mes "? Ǿʹȣ";
			mes "϶";
			next;
			if ( Zeny < 200000000 || countitem(5022) < 1 || countitem(969) < 2 ) {
				mes "[ǲ]";
				mes "...";
				next;
				mes "[ǲ]";
				mes "ϲ! ǵ! ";
				mes "ͲҪί!";
				mes "ʹ´α";
				mes "Ҳ㣬";
				close;
			}
			mes "[ǲ]";
			mes "ô׼?";
			mes "˳ɹ";
			next;
			set .@socketrand,rand(100);
			if ( .@socketrand > 9 ) {
				specialeffect EF_LORD;
				delitem 5022,1;
				delitem 969,2;
				set zeny,zeny-200000000;
				getitem 5353,1;
				mes "[ǲ]";
				mes "! ... 90%ĳɹ";
				mes "Ȼܿɿ";
				mes "Ư! ";
				next;
				mes "[ǲ]";
				mes "ֻһ!";
				mes "ǧ˼";
				mes "£֪˰?";
				close;
			}
			else {
				specialeffect EF_SUI_EXPLOSION;
				delitem 5022,1;
				delitem 969,2;
				set zeny,zeny-200000000;
				mes "[ǲ]";
				mes "... лรʧ...";
				mes ".. ";
				mes "ʧܵʱ..";
				mes "Ȼʧˣ";
				mes "´һԳɹ";
				next;
				mes "[ǲ]";
				mes "ôӭ´Æ";
				close;
			}
		case 2:
			mes "[ǲ]";
			mes "Բ";
			mes "κ?";
			mes "˰?";
			close;
		}
	case 4:
		mes "[ǲ]";
		mes "һ˵ร";
		mes "... ʵûʲô";
		mes "͵ˣֻһ";
		mes "ṩο";
		next;
		mes "[ǲ]";
		mes "";
		mes "ͬ򶴵ĳɹ";
		mes "Ҳ֮һȻ";
		mes "˵Ǻи...";
		mes "ÿȷͬ";
		next;
		mes "[ǲ]";
		mes "Ʃ˵ĳЩ";
		mes "߾ȵװ򶴵";
		mes "ɹʻԽߣЩ";
		mes "ǵ;ȵװ";
		mes "򶴵ĳɹȴԽ...";
		next;
		mes "[ǲ]";
		mes "һʧܵĻװ";
		mes "ͻ֧ˣ";
		mes "ҵȻҲǳϣ";
		mes "ɹ... ʵһ";
		mes "ķĹ";
		next;
		mes "[ǲ]";
		mes "һҪע";
		mes "... ţ";
		mes "ͬװʱ˭";
		mes "޷Ԥ⾿ֵ";
		mes "һװϴ";
		next;
		mes "[ǲ]";
		mes "^FF0000Եʱ";
		mes "^FF0000Ҫͬʱͬ";
		mes "^FF0000װڲϣ";
		mes "^FF0000װϴ򶴺һʧܵĻ";
		mes "^FF0000ǺͲ놪^000000";
		next;
		mes "[ǲ]";
		mes "ȷ";
		mes "ίҰɣ";
		mes "鷳";
		close;
	case 5:
		mes "[ǲ]";
		mes "Ǿû취";
		close;
	}
}

payon,236,199,3	duplicate(SocketEnchant2)	ǲ#pay	86,{
lighthalzen,96,137,3	duplicate(SocketEnchant2)	ǲ#lhz	86
prontera,244,169,5	duplicate(SocketEnchant2)	ǲ#prt	86
moc_ruins,154,86,3	duplicate(SocketEnchant2)	ǲ#moc	86

function	script	Func_Socket	{
	mes "[ǲ]";
	mes getitemname(getarg(1))+"...ܺ! ǸĻ";
	if (getarg(0) == 1) {
		mes "^FF0000Ϊ"+getarg(5) / 10+"ң"+getitemname(getarg(6))+" "+getarg(7)+"";
	}
	else if (getarg(0) == 2) {
		mes "^FF0000Ϊ"+getarg(5) / 10+"ң";
		mes "^FF0000"+getitemname(getarg(6))+" "+getarg(7)+""+getitemname(getarg(8))+" "+getarg(9)+"";
	}
	mes "^FF0000"+getitemname(getarg(1))+"Ȼ";
	mes "^FF0000ҲҪ׼׵^000000";
	next;
	mes "[ǲ]";
	mes "Ϻͷö?";
	mes "һʧʱϺװ";
	mes "ʧʹɹˣ";
	mes "ֵѲȥĿƬ";
	mes "ʧҪ";
	next;
	if ( select("Ҫ:´ΰ") == 2 ) {
		mes "[ǲ]";
		mes "ôӭ´";
		close;
	}
	switch(getarg(0)) {
	case 1:
		if((Zeny < getarg(5)*1000) || (countitem(getarg(6)) < getarg(7)) || (!countitem(getarg(1)))) {
			mes "[ǲ]";
			mes "Ǹ... Щϲ㣬";
			mes "ȷһ°";
			close;
		}
		break;
	case 2:
		if((Zeny < getarg(5)*1000) || (countitem(getarg(6)) < getarg(7)) || (countitem(getarg(8)) < getarg(9)) || (!countitem(getarg(1)))) {
			mes "[ǲ]";
			mes "Ǹ... Щϲ㣬";
			mes "ȷһ°";
			close;
		}
		break;
	}
	mes "[ǲ]";
	mes "ôʼа? ";
	mes "ԲɹǺ";
	next;
	set .@socketrand,rand(1,100);
	if((.@socketrand > getarg(3)) && (.@socketrand < getarg(4))) {
		specialeffect EF_LORD;
		mes "[ǲ]";
		mes "OK... ƺǳ˳ɹ!";
		mes "ĺƯ? ϲ";
		delitem getarg(1),1;
		delitem getarg(6),getarg(7);
		if(getarg(0) == 2) delitem getarg(8),getarg(9);
		set Zeny,Zeny - getarg(5)*1000;
		getitem getarg(2),1;
		next;
		mes "[ǲ]";
		mes "ôӭ´Æ";
		close;
	}
	else {
		specialeffect EF_SUI_EXPLOSION;
		mes "[ǲ]";
		mes "... лรʧ...";
		mes ".. ";
		mes "ʧܵʱ..";
		mes "Ȼʧˣ";
		mes "´һԳɹ";
		delitem getarg(1),1;
		delitem getarg(6),getarg(7);
		if(getarg(0) == 2) delitem getarg(8),getarg(9);
		set Zeny,Zeny - getarg(5)*1000;
		next;
		mes "[ǲ]";
		mes "ôӭ´Æ";
		close;
	}
}
