Chasewalk Posted November 30, 2020 Posted November 30, 2020 Anyone have credit exchanger like this thanks to all Quote
0 DevJJ Posted November 30, 2020 Posted November 30, 2020 10 hours ago, Chasewalk said: Anyone have credit exchanger like this thanks to all Please specify what will be Credits to Coins? Credits to Zeny? prontera,160,184,5 script Credit Exchanger 416,{ //====================================[Customization Area]==========================// set .npcname$,"^0000EE[Credit Exchanger]^000000"; //NPC Name set .coinname$,"^0000EECredit^000000"; //Name of Item as Coin Used set .CoinID,501; // Credit ID Set to Red Potion set .zeny,10000000; // Credit Price Set by 10,000,000 or 10m set .capzeny,2000000000; //Zeny Capacity Set by 2,000,000,000 or 2b //==============================================================================// // Check Line 89 To Edit The Chat/Pub Name Like This: // waitingroom "Credit Exchanger",0; //==============================================================================// PlayerMode: mes .npcname$; mes "Hello there "+strcharinfo(0); mes "Rule's Of Exchange"; mes "1 ^0000EE"+.coinname$+"^000000 is [^0000EE"+.zeny+"z^000000]"; mes "Zeny Exchange Capacity is [^0000EE"+.capzeny+"z^000000]"; switch(select("(Credits) to (Zeny):(Zeny) to (Credits)")) { Case 1: next; mes .npcname$; mes "How many Credits to exchange?"; mes "Put The Credit Amount"; mes "Put ^0000EE[0]^000000 to Cancel"; mes "1 ^0000EE"+.coinname$+"^000000 is [^0000EE"+.zeny+"z^000000]"; mes "Zeny Exchange Capacity is [^0000EE"+.capzeny+"z^000000]"; next; do{ input @Credit,0,countitem(.CoinID); if( @Credit < 1 ) close; }while( ( ( @Credit * .zeny ) + Zeny ) > .capzeny ); next; mes .npcname$; mes "Thanks"; delitem .CoinID,@Credit; set Zeny, Zeny + ( @Credit * .zeny ); dispbottom "Zeny Exchange Finished"; close; Case 2: next; mes .npcname$; mes "How much Credit you like to Gain?"; mes "Put The Credit Amount"; mes "Put ^0000EE[0]^000000 to Cancel"; mes "1 ^0000EE"+.coinname$+"^000000 is [^0000EE"+.zeny+"z^000000]"; mes "Zeny Exchange Capacity is [^0000EE"+.capzeny+"z^000000]"; next; input @Credit,0,( Zeny / .zeny ); if( @Credit < 1 ) close; next; mes .npcname$; mes "Thanks."; set Zeny, Zeny - ( @Credit * .zeny); getitem .CoinID,@Credit; dispbottom "Credit Exchange Finished"; close; OnInit: waitingroom "Credit Exchanger",0; end; } close; } Quote
0 Chasewalk Posted November 30, 2020 Author Posted November 30, 2020 salamat bro yung meron sana exchange all my credits Quote
0 Poring King Posted December 1, 2020 Posted December 1, 2020 (edited) 7 hours ago, Chasewalk said: salamat bro yung meron sana exchange all my credits Revise the script and add the getinventoryitem script Edited December 1, 2020 by Poring King Quote
0 Chasewalk Posted December 1, 2020 Author Posted December 1, 2020 (edited) Hi sir Poring King how can u put this script how to add getinventoryitem exchange all my credits prontera,160,184,5 script Credit Exchanger 416,{ //====================================[Customization Area]==========================// set .npcname$,"^0000EE[Credit Exchanger]^000000"; //NPC Name set .coinname$,"^0000EECredit^000000"; //Name of Item as Coin Used set .CoinID,501; // Credit ID Set to Red Potion set .zeny,10000000; // Credit Price Set by 10,000,000 or 10m set .capzeny,2000000000; //Zeny Capacity Set by 2,000,000,000 or 2b //==============================================================================// // Check Line 89 To Edit The Chat/Pub Name Like This: // waitingroom "Credit Exchanger",0; //==============================================================================// PlayerMode: mes .npcname$; mes "Hello there "+strcharinfo(0); mes "Rule's Of Exchange"; mes "1 ^0000EE"+.coinname$+"^000000 is [^0000EE"+.zeny+"z^000000]"; mes "Zeny Exchange Capacity is [^0000EE"+.capzeny+"z^000000]"; switch(select("(Credits) to (Zeny):(Zeny) to (Credits)")) { Case 1: next; mes .npcname$; mes "How many Credits to exchange?"; mes "Put The Credit Amount"; mes "Put ^0000EE[0]^000000 to Cancel"; mes "1 ^0000EE"+.coinname$+"^000000 is [^0000EE"+.zeny+"z^000000]"; mes "Zeny Exchange Capacity is [^0000EE"+.capzeny+"z^000000]"; next; do{ input @Credit,0,countitem(.CoinID); if( @Credit < 1 ) close; }while( ( ( @Credit * .zeny ) + Zeny ) > .capzeny ); next; mes .npcname$; mes "Thanks"; delitem .CoinID,@Credit; set Zeny, Zeny + ( @Credit * .zeny ); dispbottom "Zeny Exchange Finished"; close; Case 2: next; mes .npcname$; mes "How much Credit you like to Gain?"; mes "Put The Credit Amount"; mes "Put ^0000EE[0]^000000 to Cancel"; mes "1 ^0000EE"+.coinname$+"^000000 is [^0000EE"+.zeny+"z^000000]"; mes "Zeny Exchange Capacity is [^0000EE"+.capzeny+"z^000000]"; next; input @Credit,0,( Zeny / .zeny ); if( @Credit < 1 ) close; next; mes .npcname$; mes "Thanks."; set Zeny, Zeny - ( @Credit * .zeny); getitem .CoinID,@Credit; dispbottom "Credit Exchange Finished"; close; OnInit: waitingroom "Credit Exchanger",0; end; } close; } Edited December 1, 2020 by Chasewalk Quote
Question
Chasewalk
Anyone have credit exchanger like this thanks to all
4 answers to this question
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.