[Request] Coin to Skull And Cash

[PapaZola]

hello

may i have script function like this

10 Draco Coin Exchange to 100 Skull

10 Draco Coin Exchange to 100 Cash

30 Draco Coin Exchange to 350 Skull

30 Draco Coin Exchange to 350 Cash

50 Draco Coin Exchange to 700 Skull

50 Draco Coin Exchange to 700 Cash

[Rikimaru]

I did it for you,you've got to change some things in the Script,but it's working , I tested it.

http://pastebin.com/eXUkiwJq

//================ 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;
}
}
[/codeBOX]

If this helped you let me know about it.

Edited January 12, 2012 by Rikimaru