Draco_Coin_Exchanger

//================ rAthena / eAthena Script ===========================
//================= Credits : =========================================
//====================== All Credits go to Rikimaru ===================
//================== on rathena.org for making the Script =============
//========== Function : ===============================================
//===== exchanges Draco Coins into Skulls or Cash =====================
//============= Version : =============================================
//====== v. 1.0 : Finished the Script [ Rikimaru ] ====================
//====== v. 1.1 : Fixed a little Bug [ Rikimaru ] =====================
//========== DO NOT REMOVE MY CREDITS!! ===============================
MAPNAME,XXX,YYY,DIRECTION	script	Draco Coin Exchanger	904,{//CHANGE MAPNAME,X-Coord,Y-Coord,and direction
//========= Settings : ================================================
set .@dracon$,"[ Draco Coin Exchanger ]";
set .dracocoinid,XXXX;// CHANGE THE XXXX TO THE DRACO COIN ID!!!!
set .skullid,XXXX;// CHANGE THE XXXX TO THE SKULL ID!!!!
//======== End of Settings ============================================
mes .@dracon$;
mes "Hello " + strcharinfo(0) + ",I'm";
mes "able to exchange your";
mes "Draco Coins to Cash or";
mes "Skulls.What do you want";
mes "me to do for you?";
next;
switch(select("Exchange to Cash:Exchange to Skulls:Nothing")) {
	case 1:
	mes .@dracon$;
	mes "Okay you can exchange :";
	mes "10 Draco Coins to 100 Cash";
	mes "30 Draco Coins to 350 Cash";
	mes "and 50 Draco Coins to 700 Cash";
	next;
	mes .@dracon$;
	mes "Please Input the amount";
	mes "of Draco Coins,which you";
	mes "want to exchange!";
	next;
	input @dracoamount;
	if (@dracoamount == 10) goto cash1;
	if (@dracoamount == 30) goto cash2;
	if (@dracoamount == 50) goto cash3;
	mes .@dracon$;
	mes "Sorry you didn't input the correct amount!";
	close;
//
	cash1:
	mes .@dracon$;
	delitem .dracocoinid,@dracoamount;
	set #CASHPOINTS,#CASHPOINTS + 100;
	dispbottom "You receive 100 Cashpoints!";
	mes "Current Balance = "+#CASHPOINTS+" Cashpoints";
	close;
//
	cash2:
	mes .@dracon$;
	delitem .dracocoinid,@dracoamount;
	set #CASHPOINTS,#CASHPOINTS + 350;
	dispbottom "You receive 350 Cashpoints!";
	mes "Current Balance = "+#CASHPOINTS+" Cashpoints";
	close;
//
	cash3:
	mes .@dracon$;
	delitem .dracocoinid,@dracoamount;
	set #CASHPOINTS,#CASHPOINTS + 700;
	dispbottom "You receive 700 Cashpoints!";
	mes "Current Balance = "+#CASHPOINTS+" Cashpoints";
	close;
//
	case 2:
	mes .@dracon$;
	mes "Okay you can exchange:";
	mes "10 Draco Coins for 100 Skulls";
	mes "30 Draco Coins for 350 Skulls";
	mes "and 50 Draco Coins for 700 Skulls";
	next;
	mes .@dracon$;
	mes "Please input the amount of";
	mes "Draco Coins you want to exchange!";
	next;
	input @dracoskullamount;
	if (@dracoskullamount == 10) goto skull1;
	if (@dracoskullamount == 30) goto skull2;
	if (@dracoskullamount == 50) goto skull3;
	mes .@dracon$;
	mes "Sorry you didn't input the correct amount!";
	close;
//
	skull1:
	mes .@dracon$;
	delitem .dracocoinid,@dracoskullamount;
	getitem .skullid,100;
	mes "You received 100 Skulls.";
	close;
//
	skull2:
	mes .@dracon$;
	delitem .dracocoinid,@dracoskullamount;
	getitem .skullid,350;
	mes "You received 350 Skulls.";
	close;
//
	skull3:
	mes .@dracon$;
	delitem .dracocoinid,@dracoskullamount;
	getitem .skullid,700;
	mes "You received 700 Skulls.";
	close;
//
	case 3:
	mes .@dracon$;
	mes "Okay goodbye!";
	close;
	}
}