Hi all. I want to show you my version of Exchanger.
Sorry for my English, and thx for Google Translate
In the next version, I want to make an exchange Kafra Points to TCG Card, Cash Point's to Kafra Points and Kafra Point's to Cash point's.
And I want to make a purchase TCG Card,Cash Point's, Kafra Points.
If you have any suggestions/ wishes.write here.
This npc can exchange Cash Points to TCG Card, TCG Card to Cash points, TCG Card to Kafra Points
set .cash_tcg,1; 0 : Disable, 1 : enable ;
Enable/Disable exchange Cash Point's to TCG Card.
set .tcg_cash,1; //| 0 : Disable, 1 : enable ;
Enable/Disable exchange TCG Card to Cash Point's.
set .tcg_kafra,1; //| 0 : Disable, 1 : enable ;
Enable/Disable exchange TCG Card to Kafra Point's.
//by shushei //for all //1.0 version map,x,y,6 script name sprite,{ //---------------------------------------------------------------------------------------------------// set @cost_trade,500; //| Cost for trade;------------------------------------// //----------------------------------------------|----------------------------------------------------// set .@npc$, "^0000FF[NPC :: Trader]^000000"; //| Name of NPC;---------------------------------------// //----------------------------------------Trades func:-----------------------------------------------// set .cash_tcg,1; //| 0 : Disable, 1 : enable ;--------------------------// //----------------------------------------------|----------------------------------------------------// set .tcg_cash,1; //| 0 : Disable, 1 : enable ;--------------------------// //----------------------------------------------|----------------------------------------------------// set .tcg_kafra,1; //| 0 : Disable, 1 : enable ;--------------------------// //---------------------------------------------------------------------------------------------------// mes .@npc$; mes "What you want exchange"; next; switch(select("Exchange ^0000FF["+#CASHPOINTS+" CASH/"+#KAFRAPOINTS+" KAFRA/"+countitem(7227)+" TCG]^000000","Exit")){ case 1: mes .@npc$; mes "For exchange you need:"; mes "^ff0000•^000000 ^0000FF"+@cost_trade+" z.^000000"; next; if(zeny<@cost_trade){ mes .@npc$; mes "^ff0000»^000000 ^0000FFI need ^FF0000"+@cost_trade+" z.But you do not have this. ^000000"; close; } else { mes .@npc$; mes "Okay."; next; switch(select(" TCG›Cash point : TCG›Kafra point : Cash point›TCG")){ case 1: if(.tcg_cash){ callfunc "trade_tcgcash"; dispbottom "You exchange "+@tcg+" TCG Card.And now you have "+#CASHPOINTS+" Cash Points"; close; }else{ mes .@npc$; mes "Function is disabled"; close;} case 2: if(.tcg_kafra){ callfunc "trade_tcgkafra"; dispbottom "You exchange "+@tcg+" TCG Card.And now you have "+#KAFRAPOINTS+" Kafra Points"; close; }else{ mes .@npc$; mes "Function is disabled"; close; } case 3: if(.cash_tcg){ callfunc "trade_cashtcg"; dispbottom "Now you have "+countitem(7227)+" Tcg Card"; dispbottom "And "+#CASHPOINTS+" Cash Point's"; close; }else{ mes .@npc$; mes "Function is disabled."; close; } } } case 2: mes .@npc$; mes "Good Luck."; close; } } function script trade_tcgcash { mes "^FF0000["+strcharinfo(0)+"]^000000"; mes "1 ^0000FFTCG Card^000000 = 10 ^FF0000Cash Point's^000000"; next; mes "^FF0000["+strcharinfo(0)+"]^000000"; mes "enter the amount of exchange."; input @tcg; next; if(countitem(7227)<@tcg) { mes "^FF0000["+strcharinfo(0)+"]^000000"; mes "^ff0000»^000000 ^0000FFI do not have a TCG Card^000000"; close;} delitem 7227,@tcg; set #CASHPOINTS,#CASHPOINTS+10*@tcg; return; } function script trade_tcgkafra { mes "^FF0000["+strcharinfo(0)+"]^000000"; mes "1 ^0000FFTCG Card^000000 = 5 ^FF0000Kafra Point's^000000"; next; mes "^FF0000["+strcharinfo(0)+"]^000000"; mes "enter the amount of exchange"; input @tcg; next; if(countitem(7227)<@tcg) { mes "^FF0000["+strcharinfo(0)+"]^000000"; mes "^ff0000»^000000 ^0000FFI do not have a TCG Card^000000"; close;} delitem 7227,@tcg; set #KAFRAPOINTS,#KAFRAPOINTS+5*@tcg; return; } function script trade_cashtcg { mes "^FF0000["+strcharinfo(0)+"]^000000"; mes "10 ^0000FFCash Point's^000000 = 1 ^FF0000TCG Card^000000"; next; mes "^FF0000["+strcharinfo(0)+"]^000000"; mes "enter the amount TCG for exchange."; input @cash; next; if(#CASHPOINTS<@cash*10) { mes "^FF0000["+strcharinfo(0)+"]^000000"; mes "^ff0000»^000000 ^0000FFI do not have Cash Point's^000000"; close;} set #CASHPOINTS,#CASHPOINTS-@cash*10; getitem 7227,@cash; return; } [/CODebox]
