Exchange all my credits

[Chasewalk]

Anyone have credit exchanger like this thanks to all

[DevJJ]

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;
}
 

[Chasewalk]

salamat bro yung meron sana exchange all my credits 

[Poring King]

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

[Chasewalk]

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