[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 [email protected]$,"[ 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 [email protected]$;
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 [email protected]$;
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 [email protected]$;
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 [email protected]$;
mes "Sorry you didn't input the correct amount!";
close;
//
cash1:
mes [email protected]$;
delitem .dracocoinid,@dracoamount;
set #CASHPOINTS,#CASHPOINTS + 100;
dispbottom "You receive 100 Cashpoints!";
mes "Current Balance = "+#CASHPOINTS+" Cashpoints";
close;
//
cash2:
mes [email protected]$;
delitem .dracocoinid,@dracoamount;
set #CASHPOINTS,#CASHPOINTS + 350;
dispbottom "You receive 350 Cashpoints!";
mes "Current Balance = "+#CASHPOINTS+" Cashpoints";
close;
//
cash3:
mes [email protected]$;
delitem .dracocoinid,@dracoamount;
set #CASHPOINTS,#CASHPOINTS + 700;
dispbottom "You receive 700 Cashpoints!";
mes "Current Balance = "+#CASHPOINTS+" Cashpoints";
close;
//
case 2:
mes [email protected]$;
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 [email protected]$;
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 [email protected]$;
mes "Sorry you didn't input the correct amount!";
close;
//
skull1:
mes [email protected]$;
delitem .dracocoinid,@dracoskullamount;
getitem .skullid,100;
mes "You received 100 Skulls.";
close;
//
skull2:
mes [email protected]$;
delitem .dracocoinid,@dracoskullamount;
getitem .skullid,350;
mes "You received 350 Skulls.";
close;
//
skull3:
mes [email protected]$;
delitem .dracocoinid,@dracoskullamount;
getitem .skullid,700;
mes "You received 700 Skulls.";
close;
//
case 3:
mes [email protected]$;
mes "Okay goodbye!";
close;
}
}
[/codeBOX]

If this helped you let me know about it.

Edited January 12, 2012 by Rikimaru