Rate item exchange

//======================================
//        _____ _           _ _
//       / ____| |         | (_)
//      | |  __| | __ _  __| |_ _   _ ___
//      | | |_ | |/ _` |/ _` | | | | / __|
//      | |__| | | (_| | (_| | | |_| \__ \
//       \_____|_|\__,_|\__,_|_|\__,_|___/
//
//===== rAthena Script =====================
//= Exchange Poring Card for Faber Card
//===== Créditos: =========================
//= Gladius
//===== NPC Version: =======================
//== 1.0
//======================================

prontera,153,168,5	script	Item Changer	61,{

	set .ns$,"^00B2EE[Item Changer]^000000";
	set .@poring, 4001;
	set .@chance, 30;

	mes .ns$;
	mes "Do you want to exchange a poring card for a faber card? Has 25% success.";
	switch(select("^3CB371[»]^000000 Exchange Poring Card","^ff0000[»]^000000 No")){

	case 1:
	next;
	if(countitem(.@poring) < 1){
	mes .ns$;
	mes "You don't have "+getitemname(.@poring)+" for exchange.";
	close;
	}

	delitem .@poring,1;

	if(.@chance >= rand(100)){
			getitem 4002,1;
			mes .ns$;
			mes "The exchange conversion was a success!";
			close;
			}

	mes .ns$;
	mes "I'm sorry but I failed to exchange conversion.";
	close;

		case 2:
			close;
	}
}