//=========================
// [] The PlutoEA Project []
// http://opensvn.csie.org/PlutoEA
// -----------------------------------------
// - } } -
//=========================
// : TRO (EP12)
// w[JG}pȥs
// Ӷѳݽլd
//=========================

//@ȥs(EP11.1)
payon,140,151,5	script	@ȥs::}	84,{
	mes "[@ȥs]";
	mes "ڬOb@ZΨW";
	mes "i楴}޳NAA";
	mes "M]HouO";
	mes "}pƱӤwA";
	mes "Lo@O~H";
	mes "ỡ}F";
	next;
	mes "[@ȥs]";
	mes "ҾڴNOAFڤ~";
	mes "LH֦oا޳N?";
	mes "NNO}޳N";
	mes "S²աA`A";
	mes "Aa}˳ƶ?";
	mes "|̷Ӹ˳ƪPOΥơA";
	mes "\v]|ҤPAADD";
	next;
	switch(select("Z::Aťť:")) {
	case 1:
		mes "[@ȥs]";
		mes "Z... OKAZ";
		mes "̧@~רӬݡA";
		mes "4ءACŬO̮eA";
		mes "SŬO̧xAD";
		mes "פǧa";
		next;
		switch(select("C:B:A:S")) {
		case 1:
			mes "[@ȥs]";
			mes "ACšAƱڬA׹";
			mes "@CŪZO?";
			next;
			switch(select("w礨u:@l:p^")) {
			case 1: setarray .@sk[0],1,1460,1461,40,66,200,1010,10; break;
			case 2: setarray .@sk[0],1,1950,1951,40,66,200,1010,10; break;
			case 3: setarray .@sk[0],1,1901,1902,40,66,200,1010,10; break;
			}
			break;
		case 2:
			mes "[@ȥs]";
			mes "A藍BųAڬA׹";
			mes "@BŪZO?";
			next;
			switch(select(":`uC:}:BL:FC:|S^:K@l:M:ȧBp}")) {
			case 1: setarray .@sk[0],1,1519,1520,40,61,300,1010,10; break;
			case 2: setarray .@sk[0],2,1219,1220,40,61,300,984,1,999,5; break;
			case 3: setarray .@sk[0],2,1714,1716,40,61,300,984,2,999,5; break;
			case 4: setarray .@sk[0],1,1407,1408,40,61,300,1010,10; break;
			case 5: setarray .@sk[0],2,1123,1128,40,61,300,984,2,999,5; break;
			case 6: setarray .@sk[0],1,1905,1906,40,61,300,1011,10; break;
			case 7: setarray .@sk[0],1,1954,1955,40,61,300,1011,10; break;
			case 8: setarray .@sk[0],1,1801,1802,40,61,300,1010,10; break;
			case 9: setarray .@sk[0],2,1713,1715,40,61,300,984,2,999,5; break;
			}
			break;
		case 3:
			mes "[@ȥs]";
			mes "ARתAA? naA";
			mes "AƱڬA׹@تZO?";
			next;
			switch(select("yH}:ͦs](INT):jC:C:b:Qj:g:M {:QrC")) {
			case 1: setarray .@sk[0],2,1718,1726,40,61,500,984,2,999,10; break;
			case 2: setarray .@sk[0],2,1619,1620,40,61,500,984,2,999,10; break;
			case 3: setarray .@sk[0],2,1168,1171,40,61,800,984,5,999,10; break;
			case 4: setarray .@sk[0],2,1129,1149,40,61,500,984,2,999,10; break;
			case 5: setarray .@sk[0],2,1261,1266,40,61,700,984,5,999,10; break;
			case 6: setarray .@sk[0],2,1722,1727,40,61,500,984,5,999,10; break;
			case 7: setarray .@sk[0],2,1522,1532,40,61,700,984,2,999,10; break;
			case 8: setarray .@sk[0],2,1814,1816,40,61,700,984,5,999,10; break;
			case 9: setarray .@sk[0],2,1163,1172,40,61,700,984,5,999,10; break;
			}
			break;
		case 4:
			mes "[@ȥs]";
			mes "A@AS! ŸŸŸ...";
			mes "...An@SŪZO?!";
			next;
			switch(select("襧:ruC:}ҵu@:еuC:ddC:gC:I:ͦs](DEX)")) {
			case 1: setarray .@sk[0],2,1413,1418,40,51,1000,984,5,999,10; break;
			case 2: setarray .@sk[0],2,1239,13016,40,51,1000,984,5,999,10; break;
			case 3: setarray .@sk[0],2,1230,13017,40,51,1000,984,5,999,10; break;
			case 4: setarray .@sk[0],2,1236,13018,40,51,1000,984,5,999,10; break;
			case 5: setarray .@sk[0],2,13002,13019,40,51,1000,984,5,999,10; break;
			case 6: setarray .@sk[0],2,1135,13400,40,51,1000,984,5,999,10; break;
			case 7: setarray .@sk[0],2,1466,1476,40,51,1000,984,5,999,10; break;
			case 8: setarray .@sk[0],2,1617,1618,40,51,2000,984,5,999,10; break;
			}
			break;
		}
		break;
	case 2:
		mes "[@ȥs]";
		mes ".. OKAj";
		mes "̧@~רӬݡA";
		mes "4ءACŬO̮eA";
		mes "SŬO̧xAD";
		mes "פǧa";
		next;
		switch(select("C:B:A:S" )) {
		case 1:
			mes "[@ȥs]";
			mes "ACšAƱڬA׹";
			mes "@CŪO?";
			next;
			switch(select("j:j:YT:t¾U")) {
			case 1: setarray .@sk[0],1,2307,2308,40,66,200,999,3; break;
			case 2: setarray .@sk[0],1,2309,2310,40,66,200,999,3; break;
			case 3: setarray .@sk[0],1,2232,2233,40,66,200,999,3; break;
			case 4: setarray .@sk[0],1,2216,2217,40,66,200,999,3; break;
			}
			break;
		case 2:
			mes "[@ȥs]";
			mes "A藍BųAڬA׹";
			mes "@BŪO?";
			next;
			switch(select(":Kl:t¾:~T:Ԥhu:u:ܪ:K:::DU")) {
			case 1:  setarray .@sk[0],1,2107,2108,40,61,250,999,5; break;
			case 2:  setarray .@sk[0],1,2314,2315,40,61,250,999,5; break;
			case 3:  setarray .@sk[0],1,2325,2326,40,61,300,999,5; break;
			case 4:  setarray .@sk[0],1,2321,2322,40,61,300,999,5; break;
			case 5:  setarray .@sk[0],1,2405,2406,40,61,300,999,5; break;
			case 6:  setarray .@sk[0],1,2403,2404,40,61,300,999,5; break;
			case 7:  setarray .@sk[0],1,2503,2504,40,61,300,999,5; break;
			case 8:  setarray .@sk[0],1,2101,2102,40,61,300,999,5; break;
			case 9:  setarray .@sk[0],1,2103,2104,40,61,300,999,5; break;
			case 10: setarray .@sk[0],1,2105,2106,40,61,250,999,5; break;
			case 11: setarray .@sk[0],1,5046,5168,40,61,250,999,5; break;
			}
			break;
		case 3:
			mes "[@ȥs]";
			mes "ARתAA? naA";
			mes "AƱڬA׹@بO?";
			next;
			switch(select("_Y:nOU::򨭫K:ȪZ:KZ:s餧:u:פkUl:O:Y:ԪA :~HY:BO:tU:U:ӱOw:ʹU")) {
			case 1:  setarray .@sk[0],1,2230,2231,40,61,400,985,1; break;
			case 2:  setarray .@sk[0],1,5114,5120,40,61,400,985,1; break;
			case 3:  setarray .@sk[0],1,2109,2121,40,61,400,985,1; break;
			case 4:  setarray .@sk[0],1,2330,2331,40,61,400,985,1; break;
			case 5:  setarray .@sk[0],1,2341,2342,40,61,400,985,1; break;
			case 6:  setarray .@sk[0],1,2316,2317,40,61,400,985,1; break;
			case 7:  setarray .@sk[0],1,2335,2336,40,61,400,985,1; break;
			case 8:  setarray .@sk[0],1,2411,2412,40,61,400,985,1; break;
			case 9:  setarray .@sk[0],1,5092,5093,40,61,400,985,1; break;
			case 10: setarray .@sk[0],1,2505,2506,40,61,400,985,1; break;
			case 11: setarray .@sk[0],1,2228,2229,40,61,400,985,1; break;
			case 12: setarray .@sk[0],1,2337,2359,40,61,400,985,1; break;
			case 13: setarray .@sk[0],1,2299,5157,40,61,400,985,1; break;
			case 14: setarray .@sk[0],1,2507,2525,40,61,400,985,1; break;
			case 15: setarray .@sk[0],1,2251,5158,40,61,400,985,1; break;
			case 16: setarray .@sk[0],1,2246,5159,40,61,400,985,1; break;
			case 17: setarray .@sk[0],1,2605,2625,40,61,400,985,1; break;
			case 18: setarray .@sk[0],1,2264,5167,40,61,300,985,1; break;
			}
			break;
		case 4:
			mes "[@ȥs]";
			mes "A@AS! ŸŸŸ...";
			mes "...An@SŪO?!";
			next;
			switch(select("sY:yv:sY:sU:a:Za:HਭU:Ч@̥~T:O:Oq٫:gM")) {
			case 1:  setarray .@sk[0],1,2256,5160,40,51,2000,985,2; break;
			case 2:  setarray .@sk[0],1,2258,5161,40,51,2000,985,2; break;
			case 3:  setarray .@sk[0],1,5017,5162,40,51,2000,985,2; break;
			case 4:  setarray .@sk[0],1,5019,5163,40,51,2000,985,2; break;
			case 5:  setarray .@sk[0],1,2235,5165,40,51,2000,985,2; break;
			case 6:  setarray .@sk[0],1,2234,5164,40,51,2000,985,2; break;
			case 7:  setarray .@sk[0],1,5053,5166,40,51,1000,985,2; break;
			case 8:  setarray .@sk[0],1,2343,2360,40,51,1000,985,2; break;
			case 9:  setarray .@sk[0],1,2602,2622,40,51,1000,985,2; break;
			case 10: setarray .@sk[0],1,2601,2621,40,51,1000,985,2; break;
			case 11: setarray .@sk[0],1,2619,2671,40,51,1000,985,2; break;
			}
			break;
		}
		break;
	case 3:
		mes "[@ȥs]";
		mes "ASQť... YnA@";
		mes "ܪܡAѩڬOy";
		mes "}NvAҥHPC֭p";
		mes "״Ig~qƦu@A`ıo";
		mes "oAbùJȶV";
		mes "˳ơA}\vhV";
		next;	
		mes "[@ȥs]";
		mes "MOLtA`ıo";
		mes "UOC媺˳ƷUe}..";
		mes "M@Ѫܨ˳";
		mes "]NwF... L";
		mes "\vܬOȱoDDժ";
		next;
		mes "[@ȥs]";
		mes "M]O]˳";
		mes "ӧ󶶤ɭP\v󰪡A";
		mes "uOOBƱL...";
		next;
		mes "[@ȥs]";
		mes "t~A٦n`N";
		mes "@IOAK|һA";
		mes "A+7 OM@";
		mes "OɡAVکeUnb";
		mes "O}ܡAAıo";
		mes "̶ڷ|@өO?";
		next;
		mes "[@ȥs]";
		mes "׬OHڷNKաAYA";
		mes "ۦP˦W٪˳Ʈ";
		mes "|޹誺Nѧ";
		mes "bQ˳ƤW}";
		mes "N";
		next;
		mes "[@ȥs]";
		mes "^FF0000YDnbSw˳ƤW";
		mes "}ܡAna@";
		mes "PW٪˳ƴNFA";
		mes "PW٦Q}";
		mes "˳Ƴ̦nm";
		mes "OBA^000000";
		next;
		mes "[@ȥs]";
		mes "pGSBzܡA";
		mes "U@bN˳ƤW";
		mes "X{}Gɧڥi";
		mes "td? нTˬd";
		next;
		mes "[@ȥs]";
		mes "ڤΦAFa? nFA";
		mes "ʻDp@! nn";
		mes "Dԥ}O? ڤ]n";
		mes "kfLl";
		close;
	case 4:
		mes "[@ȥs]";
		mes "ԧ";
		close;
	}
	mes "[@ȥs]";
	mes "A" +getitemname(.@sk[1])+ "AOKAӪܡA";
	if (.@sk[0] == 1) {
		mes "OάO ^FF0000" +.@sk[5] / 10+ "U^000000At~nǳƪ";
		mes "ƬO ^FF0000" +getitemname(.@sk[6])+ " " +.@sk[7]+ "^000000.";
	}
	else if (.@sk[0] == 2) {
		mes "O ^FF0000" +.@sk[5] / 10+ "U^000000At~nǳƪ";
		mes "ƬO^FF0000" +getitemname(.@sk[6])+ " " +.@sk[7]+ "^000000A^FF0000" +getitemname(.@sk[8])+ " " +.@sk[9]+ "^000000A";
	}
	mes "M" +getitemname(.@sk[1])+ "z]naL";
	next;
	mes "[@ȥs]";
	mes "ƩMOγaF? ٦A";
	mes "YѮɧơB˳Ƴ|";
	mes "AoIn{MAY";
	mes "}\F ȩΤwn";
	mes "d]|AnʰOF";
	next;
	if (select("eUL}u@:|dbUAD") == 2 ) {
		mes "[@ȥs]";
		mes "U|A";
		close;
	}
	switch(.@sk[0]) {
	case 1:
		if((Zeny < .@sk[5]*1000) || (countitem(.@sk[6]) < .@sk[7]) || (!countitem(.@sk[1]))) {
			mes "[@ȥs]";
			mes "³J! Ƥ!";
			mes "ЧAƻAӧa?!";
			close;
		}
		break;
	case 2:
		if((Zeny < .@sk[5]*1000) || (countitem(.@sk[6]) < .@sk[7]) || (countitem(.@sk[8]) < .@sk[9]) || (!countitem(.@sk[1]))) {
			mes "[@ȥs]";
			mes "³J! Ƥ!";
			mes "ЧAƻAӧa?!";
			close;
		}
		break;
	}
	mes "[@ȥs]";
	mes "}lia!";
	mes "në꺡";
	next;
	set .@skrand,rand(1,100);
	if((.@skrand > .@sk[3]) && (.@skrand < .@sk[4])) {
		if(.@sk[4] == 51) specialeffect EF_LORD;
		else specialeffect EF_SANCTUARY;
		mes "[@ȥs]";
		mes "OK... GoA\FA";
		mes "ܺ}GO? `߮";
		delitem .@sk[1],1;
		delitem .@sk[6],.@sk[7];
		if(.@sk[0] == 2) delitem .@sk[8],.@sk[9];
		set Zeny,Zeny - .@sk[5]*1000;
		getitem .@sk[2],1;
		next;
		mes "[@ȥs]";
		mes "wUAQo!";
		close;
	}
	else {
		specialeffect EF_FREEZING;
		mes "[@ȥs]";
		mes "... 藍_AѤFA";
		mes "LڨSoAoO";
		mes "ѷNAuOB𤣨ΡA";
		mes "ЧAOӶˤ";
		delitem .@sk[1],1;
		delitem .@sk[6],.@sk[7];
		if(.@sk[0] == 2) delitem .@sk[8],.@sk[9];
		set Zeny,Zeny - .@sk[5]*1000;
		next;
		mes "[@ȥs]";
		mes "wUAQo!";
		close;
	}
}

lhz_in02,281,35,5	duplicate(})	@ȥs#lhz	84,0,0
prt_in,33,70,5	duplicate(})	@ȥs#prt	84,0,0
morocc,51,41,5	duplicate(})	@ȥs#moc	84,0,0


//@ȥs(EP12)
payon,236,199,3	script	pȥs	86,{
	getinventorylist;
	if ( @inventorylist_count > 99 ) {
		mes "- Цbo̼Ȱ@U !! -";
		mes "- Aa~ӦhF -";
		mes "- ҥHo~ -";
		mes "- Ч⨭W~ -";
		mes "- AӬDԧa -";
		close;
	}
	mes "[pȥs]";
	mes "ڬOb@ZΨW";
	mes "i楴}޳NpȥsA";
	mes "MoO۷Wu@...";
	mes "L\hֽM";
	mes "q}h";
	next;
	mes "[pȥs]";
	mes "M@ȥsǱµ";
	mes "j޳N... äeA";
	mes "ҥHڪ٬O";
	mes "p";
	next;
	mes "[pȥs]";
	mes "CЧڪɭԡA";
	mes "N軡|֭ӤH";
	mes "SALk٬O";
	mes "ܻ{uɧ";
	next;
	mes "[pȥs]";
	mes "hھǨ줣֪FA";
	mes "uOg|O_णt";
	mes "ݡAoӦⴤA";
	mes "ثeگవNOO";
	mes "Huؼo";
	next;
	mes "[pȥs]";
	mes "꦳@ƱJL";
	mes "iH... QզS";
	mes "fۭ... FA";
	mes "NڨSa!";
	next;
	mes "[pȥs]";
	mes "FAAQn}";
	mes "˳ƶ? ̤P˳ơA";
	mes "OAһݧơB\v";
	mes "]P... ЧAMw";
	mes "ڦAVAnF";
	next;
	switch(select("Z::\Ʊ?:Aťť:")) {
	case 1:
		mes "[pȥs]";
		mes "Z... ZjP̧@~";
		mes "רӰϤܡA@";
		mes "4šACŬO̮eA";
		mes "SŬO̧xA";
		mes "Dפǧa";
		set @sockettype,1;
		next;
		switch(select("C:B:A:S")) {
		case 1:
			mes "[pȥs]";
			mes "CŶ? o˰! Ʊ";
			mes "ڬAAȭ@ظ˳ƩO?";
			next;
			switch(select("aF:F:F:F")) {
			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 "[pȥs]";
			mes "BŶ? o˰! Ʊ";
			mes "ڬAAȭ@ظ˳ƩO?";
			next;
			switch(select("~H:sM:")) {
			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 "[pȥs]";
			mes "AŶ? u! Ʊ";
			mes "ڦb@ظ˳ƤW}O?";
			next;
			switch(select("suC:îb:Fb:BFb:Fb::\]:k@l:Ǫj:[:FC")) {
			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 "[pȥs]";
			mes "z! c! S! ŸŸŸ......";
			mes "...An˭@SŪ˳ƩO?";
			next;
			switch(select("F:}ҵuC:sC:dbuC:uC _:tQrP:C")) {
			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 "[pȥs]";
		mes "... j̧@~";
		mes "רӰϤܡA@";
		mes "4šACŬO̮eA";
		mes "SŬO̧xA";
		mes "Dפǧa";
		set @sockettype,2;
		next;
		switch(select("C:B:A:S")) {
		case 1:
			mes "[pȥs]";
			mes "CŶ? o˰! Ʊ";
			mes "ڬAAȭ@ظ˳ƩO?";
			next;
			switch(select("V鸪Y:ǤhU:va:ǥʹU")) {
			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 "[pȥs]";
			mes "BŶ? o˰! Ʊ";
			mes "ڬAAȭ@ظ˳ƩO?";
			next;
			switch(select("u\٫:]c")) {
			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 "[pȥs]";
			mes "AŶ? u! Ʊ";
			mes "ڦb@ظ˳ƤW}O?";
			next;
			switch(select("sYy:¦֭u")) {
			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 "[pȥs]";
			mes "z! c! S! ŸŸŸ......";
			mes "...An˭@SŪ˳ƩO?";
			next;
			switch(select("]k~M:ѦR:jѨϤ:Ũm:T")) {
			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 "[pȥs]";
		mes "..S! uO@ơA";
		mes "@m{ڤH";
		mes "iHhI... ڤ]ȳQ";
		mes "dơAҥHڤ]";
		mes "KiDA";
		next;
		mes "[pȥs]";
		mes "M\v...";
		mes "O۹諸ƻݭnܦhA";
		mes "O]ܶQYAҥH";
		mes "YϤ}FAڤ]h";
		mes "ӨSH|eUa";
		next;
		mes "[pȥs]";
		mes "......";
		next;
		mes "[pȥs]";
		mes ".............";
		next;
		mes "[pȥs]";
		mes ".............";
		next;
		mes "[pȥs]";
		mes "ڬݧAn... ";
		mes "jA";
		mes "ťnFAЧAOK...";
		mes "U@QıܡA";
		mes "ڷ|QײzܺG";
		next;
		mes "[pȥs]";
		mes "\v90%A[Wݭn";
		mes " 2өM2A";
		mes "e@~NOnb";
		mes "ӶYW}...";
		next;
		mes "[pȥs]";
		mes "ڻqѦHebo";
		mes "˳ƤWʤOTҪ...";
		mes "ڨëD]T";
		mes "~QhʥA";
		mes "uOQQd|";
		next;
		switch(select("eUL:")) {
		case 1:
			mes "[pȥs]";
			mes ".................";
			next;
			mes "[pȥs]";
			mes ".................";
			next;
			mes "[pȥs]";
			mes "..AAO";
			mes "ڦATjէڤF";
			mes "F! F! F!";
			next;
			mes "[pȥs]";
			mes "ڤn! n...";
			next;
			mes "[pȥs]";
			mes "ڻn...";
			next;
			mes "[pȥs]";
			mes "...n...";
			next;
			mes "[pȥs]";
			mes ".................";
			next;
			mes "[pȥs]";
			mes "......";
			next;
			mes "[pȥs]";
			mes "D! oOҥ~n?";
			mes "LdUODA";
			mes "OH]nOu";
			mes "K";
			next;
			mes "[pȥs]";
			mes "^FF0000һݧƦ 2ӡAO";
			mes "^FF00002A٦򥻸˳";
			mes "^FF0000ӶY... \vO90%A^000000";
			mes "F? NKXA";
			mes "{bWʤuo";
			next;
			if ( Zeny < 200000000 || countitem(5022) < 1 || countitem(969) < 2 ) {
				mes "[pȥs]";
				mes "...";
				next;
				mes "[pȥs]";
				mes "Ƥ! uO! ";
				mes "NneUڹ!";
				mes "YϤUƻƦAӡA";
				mes "ڤ]|AAԧԧ";
				close;
			}
			mes "[pȥs]";
			mes "ǳƶ}ua?";
			mes "ANëQ\a";
			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 "[pȥs]";
				mes "GܲzQ! z... 90%\v";
				mes "GMܥiaA}";
				mes "ܺ}G! HA";
				next;
				mes "[pȥs]";
				mes "ڥuAo@!";
				mes "dUOHa_";
				mes "oơADFa?";
				close;
			}
			else {
				specialeffect EF_SUI_EXPLOSION;
				delitem 5022,1;
				delitem 969,2;
				set zeny,zeny-200000000;
				mes "[pȥs]";
				mes "... ³AѤF...";
				mes "ǹB𤣦n.. }K";
				mes "|ѪɭԡA..";
				mes "MoѤFA۫H";
				mes "U@wiH\w";
				next;
				mes "[pȥs]";
				mes "wUAQo";
				close;
			}
		case 2:
			mes "[pȥs]";
			mes "A藍iH";
			mes "iDHO?";
			mes "դFa?";
			close;
		}
	case 4:
		mes "[pȥs]";
		mes "AQAť@UA";
		mes "... SnA";
		mes "FAu@";
		mes "iѧAѦ";
		next;
		mes "[pȥs]";
		mes "NO̺m׻P";
		mes "PA}\v";
		mes "]|H@ˡAM";
		mes "oػkOܦھ...";
		mes "CӧTɬۦP";
		next;
		mes "[pȥs]";
		mes "ĴpbYǧ̡A";
		mes "ת˳ƥ}";
		mes "\v|VAӦ";
		mes "hOCmת˳ơA";
		mes "}\voV...";
		next;
		mes "[pȥs]";
		mes "U@}ѪܡA˳";
		mes "N|}HHϤFA";
		mes "ڷM]D`ƱiH";
		mes "\... LbO@";
		mes "O߶OOu@";
		next;
		mes "[pȥs]";
		mes "٦@ݭn`N";
		mes "Ʊ... AY";
		mes "ۦP˳ƨӮɡAֳ";
		mes "Lkws|";
		mes "@Ӹ˳ƤW}";
		next;
		mes "[pȥs]";
		mes "^FF0000ҥH}ɡAɶq";
		mes "^FF0000nPɫPW";
		mes "^FF0000˳ơAHKbƱ檺";
		mes "^FF0000˳ƤW}U@ѪܡA";
		mes "^FF0000GN]Qo^000000";
		next;
		mes "[pȥs]";
		mes "аȥATT{L~A";
		mes "AөeUڧaA";
		mes "·ЧAF";
		close;
	case 5:
		mes "[pȥs]";
		mes "NSko";
		close;
	}
}

function	script	Func_Socket	{
	mes "[pȥs]";
	mes getitemname(getarg(1))+"...ܦn! ӪܡA";
	if (getarg(0) == 1) {
		mes "^FF0000Oά"+getarg(5) / 10+"UAƬO"+getitemname(getarg(6))+" "+getarg(7)+"ӡA";
	}
	else if (getarg(0) == 2) {
		mes "^FF0000Oά"+getarg(5) / 10+"UAƬO";
		mes "^FF0000"+getitemname(getarg(6))+" "+getarg(7)+"өM"+getitemname(getarg(8))+" "+getarg(9)+"ӡA";
	}
	mes "^FF0000"+getitemname(getarg(1))+"zҷM";
	mes "^FF0000]nǳƧ^000000";
	next;
	mes "[pȥs]";
	mes "ƩMOγaF?";
	mes "٦U@ѮɧƩM˳";
	mes "|AYϬ}\FA";
	mes "ȩΤwWhdA";
	mes "|AnʰOF";
	next;
	if ( select("ڭn}:Ua") == 2 ) {
		mes "[pȥs]";
		mes "wUA";
		close;
	}
	switch(getarg(0)) {
	case 1:
		if((Zeny < getarg(5)*1000) || (countitem(getarg(6)) < getarg(7)) || (!countitem(getarg(1)))) {
			mes "[pȥs]";
			mes "... ǮƤA";
			mes "ЧAAT{@Ua";
			close;
		}
		break;
	case 2:
		if((Zeny < getarg(5)*1000) || (countitem(getarg(6)) < getarg(7)) || (countitem(getarg(8)) < getarg(9)) || (!countitem(getarg(1)))) {
			mes "[pȥs]";
			mes "... ǮƤA";
			mes "ЧAAT{@Ua";
			close;
		}
		break;
	}
	mes "[pȥs]";
	mes "}lia? ЧA";
	mes "ë꺡\A";
	next;
	set .@socketrand,rand(1,100);
	if((.@socketrand > getarg(3)) && (.@socketrand < getarg(4))) {
		specialeffect EF_LORD;
		mes "[pȥs]";
		mes "OK... GD`QA\!";
		mes "}ܺ}GO? ߧA";
		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 "[pȥs]";
		mes "wUAQo";
		close;
	}
	else {
		specialeffect EF_SUI_EXPLOSION;
		mes "[pȥs]";
		mes "... ³AѤF...";
		mes "ǹB𤣦n.. }K";
		mes "|ѪɭԡA..";
		mes "MoѤFA۫H";
		mes "U@wiH\w";
		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 "[pȥs]";
		mes "wUAQo";
		close;
	}
}

moc_ruins,154,86,3	duplicate(pȥs)	pȥs#moc	86
prontera,244,169,5	duplicate(pȥs)	pȥs#prt	86
lighthalzen,96,137,4	duplicate(pȥs)	pȥs#lhz	86

// C~
payon,143,143,7	script	C~#pay::}2	97,{
	mes "[C~]";
	mes "b˳ƤW}ɡA˳";
	mes "ﶵ]|";
	mes "ܪiAoI";
	mes "`N";
	next;
	mes "[C~]";
	mes "ڡA٦.. ]upO";
	mes "H۸˳ƪPb~W";
	mes "@|Ӭ}ΡA";
	mes "ҥHnݲMFAM";
	mes "ëDҦ˳ƳOp";
	next;
	mes "[C~]";
	mes "ڤ]q{b_VOŪ";
	mes "ӥ}vŦnF";
	close;
}

lhz_in02,269,33,5	duplicate(}2)	C~#lhz	97,0,0
prt_in,31,57,1	duplicate(}2)	C~#prt	97,0,0
morocc,60,42,3	duplicate(}2)	C~#moc	97,0,0