prontera,165,203,4	script	Super-Enchanter	100,{
setarray .@blacklist[0],5391,1267,1173,13401,13021,13022,1817,1623,1372,1728,1563,1174,1373,1374,1729,13403,13024,13025,13026,1534,13407,1424,1628,1537,1378,1273,1567,13408,13409,1274,2741,2535,5326,2710;
setarray .option[0], 23011,23012,23013,23014,23015,23017,23018,23019,23020
,23021,23022,23013,23024,23025,23026,23027,23028,23029
,23031,23032,23033,23034,23035,23036,23037,23039,23040
,23041,23042,23043,23044,23045,23046,23047,23048,23049,23050
,23051,23052,23053,23054,23055,23056,23057,23058,23059,23060
,23061,23062,23063,23064,23065,23066,23067,23068,23069,23070
,23071,23072,23073,23074,23075,23076,23077,23078,23079,23080
,23081,23082,23083,23084,23085,23086,23087,23088,23089,23090
,23091,23092,23093,23094;
set .@slot_num, 0;
set .@option, 0;
mes "????????????????????????????????";
mes "^0000FF- Bonus Card ["+countitem(20017)+"/1]^000000";
mes "^0000FF- Zeny ["+zeny+"/300000]^000000";
.@equip = select( "????-??","?????","?????","?????","???????","???????","??????-????","??????-???","????-????","????-????" );
if ( !getequipisequiped( .@equip ) ) {
	next;
	mes "??????????????????????????????????";
	close;
}
for (.@i = 0; .@i < getarraysize(.@blacklist); .@i++) {
	if (countitem(.@blacklist[.@i])) {
		message strcharinfo(0), getitemname(.@blacklist[.@i]) +" ??????????????????????????????????????? Storage ????";
		end;
	}
}
if (countitem(20017)) < 1  {
	next;
	mes "???????????????????";
	mes "^0000FF- Bonus Card ["+countitem(20017)+"/1]^000000";
	mes "^0000FF- Zeny ["+zeny+"/300000]^000000";
	close;	end;
}
if (zeny < 300000)   {
	next;
	mes "???????????????????";
	mes "^0000FF- Bonus Card ["+countitem(20017)+"/1]^000000";
	mes "^0000FF- Zeny ["+zeny+"/300000]^000000";
	close;
}
next;
set .@card_count,getequipcardcnt( .@equip );
for( set .@i,0; .@i < .@card_count; set .@i,.@i + 1 ){
	set .@card_id,getequipcardid( .@equip,.@i );
	if( .@card_id > 4000 && .@card_id <= 4453 ){
		mes "Your equip have a "+getitemname( .@card_id )+" inside. You cant use this service if there are any cards inside it.";
		close;
	}
if ( !getequipisequiped( .@equip ) ) {
	mes "??????????????????????????????????";
	close;
}
mes "^0000FF????????? Slot ???????????????^000000"; 
menu "->^0000FF ????^000000",L_LEFT,"->^0000FF ????^000000",L_MID,"->^0000FF ???^000000",L_RIGHT;

L_LEFT:
	set .@slot_num, 1;
	goto L_Complete;
L_MID:
	set .@slot_num, 2;
	goto L_Complete;
L_RIGHT:
	set .@slot_num, 3;
	goto L_Complete;

L_Complete:
next;
mes "??????????????????????";
mes "????? [ ^0000FF"+getequipname( .@equip )+" ^000000 ]";
mes "?????????????????????????????????????";
mes "???????????????????????? ?????????????????????????????????";
				if(select("???????????????:????????????????") - 1) {
next;
					mes "^55AA88??????????????????????????????^000000";
					close;
				} else {
 set .Random, getarraysize( .option );
delitem 20017,1;
set Zeny,zeny-300000;
//getitem2 .@id, 1,1, .@ref, 0, .@card1, .@option1, .@option2, .@option3;
//getitem2 .@id, 1,1, .@ref, 0, .@option1, .@card2, .@card3, 0;
next;
mes "??????????????????????????";
mes "[ ^0000FF"+getitemname(.option[ rand( .Random ) ])+" ^000000 ]";
mes "????????????????????????????????";
delitem2 .@id, 1,1, .@ref, 0, .@card1, .@card2, .@card3, .@card4;
				if (.@slot_num == 1)
					getitem2 .@id, 1,1, .@ref, 0, .@card1, .option[ rand( .Random ) ], .@card3, .@card4;
				else if (.@slot_num == 2)
					getitem2 .@id, 1,1, .@ref, 0, .@card1, .@card2, .option[ rand( .Random ) ], .@card4;
				else if (.@slot_num == 3)
					getitem2 .@id, 1,1, .@ref, 0, .@card1, .@card2, .@card3, .option[ rand( .Random ) ];
				equip .@id;
close;
}
}