#Kafra Points To Pods and Pods to #kafrapoints

[pinyinhuo]

Hello,

I am currently Using a Kafra points to Pods shop, is it possible i could get like the same? wherein i could change kafra pts to pods and pods to kafra pts? and also, will shout their name Globally and how much they change in the npc? thank youuuu! <3 <3 <3

 

turbo_room,135,85,4    script    Wertern Union    563,{
    mes .NPC$;
    mes "Can exchange your " +getitemname(.ID)+ " for kafra points. Want to exchange?";
    next;
    if (select("Yes:No") - 1) close;
    mes .NPC$;
    mes "Okay how many " +getitemname(.ID)+ " will you exchange?";
    next;
    input .@amount;
    if (.@amount == 0) {
        mes .NPC$;
        mes "Cannot trade 0 amount";
        close;
    }
    mes .NPC$;
    mes "So you want to exchange " +.@amount+ "x " +getitemname(.ID);
    next;
    if (select("Yes:No") - 1) close;
    mes .NPC$;
    mes "Let me check if you have that amount of requirements";
    next;
    if (countitem(.ID) < .@amount) {
        mes .NPC$;
        mes "Seems like you put an invalid amount";
        close;
    }
    mes .NPC$;
    mes "Ohh that's nice here you go!";
    delitem .ID,.@amount;
    set #KAFRAPOINTS,#KAFRAPOINTS+1;
    dispbottom "You now have " +#KAFRAPOINTS+ " kafra credit points";
    next;
    mes .NPC$;
    mes "Success trading";
    close;
    
    OnInit:
        set .NPC$,"[ " +strnpcinfo(1)+ " ]"; // NPC Name
        set .ID,7179; // Requirement
        end;
}

 

 

Edited April 21, 2017 by pinyinhuo

[Cyro]

prontera,150,150,0	script	Sample	100,{
    mes .NPC$;
    mes "Can exchange your " +getitemname(.ID)+ " for kafra points. Want to exchange?";
    next;
    if (select("Yes:No") - 1) close;
    mes .NPC$;
    mes "Okay how many " +getitemname(.ID)+ " will you exchange?";
    next;
    input .@amount;
    if (.@amount == 0) {
        mes .NPC$;
        mes "Cannot trade 0 amount";
        close;
    }
    mes .NPC$;
    mes "So you want to exchange " +.@amount+ "x " +getitemname(.ID);
    next;
    if (select("Yes:No") - 1) close;
    mes .NPC$;
    mes "Let me check if you have that amount of requirements";
    next;
    if (countitem(.ID) < .@amount) {
        mes .NPC$;
        mes "Seems like you put an invalid amount";
        close;
    }
    mes .NPC$;
    mes "Ohh that's nice here you go!";
    delitem .ID,.@amount;
    set #KAFRAPOINTS,#KAFRAPOINTS+1;
    announce ""+strcharinfo(0)+" has converted and now have " +#KAFRAPOINTS+ " kafra credit points";
    next;
    mes .NPC$;
    mes "Success trading";
    close;
    
    OnInit:
        set .NPC$,"[ " +strnpcinfo(1)+ " ]"; // NPC Name
        set .ID,7179; // Requirement
        end;
}

 

[hendra814]

here, but i'm not test the script

 

Spoiler

Quote

turbo_room,135,85,4    script    Wertern Union    563,{
    mes .NPC$;
    mes "Can exchange your " +getitemname(.ID)+ " for kafra points, Or otherwise.";
    mes "Want to exchange?";
    next;
    menu "Exchange into Point",spoint,"Exchange into PODS",SPODS,"No",leave;

   spoint:
        mes .NPC$;
        mes "Okay how many " +getitemname(.ID)+ " will you exchange?";
        next;
        input .@amount;
        if (.@amount == 0) {
                mes .NPC$;
            mes "Cannot trade 0 amount";
            close;
        }
        mes .NPC$;
        mes "So you want to exchange " +.@amount+ "x " +getitemname(.ID);
        next;
        if (select("Yes:No") - 1) close;
        mes .NPC$;
        mes "Let me check if you have that amount of requirements";
        next;
        if (countitem(.ID) < .@amount) {
            mes .NPC$;
            mes "Seems like you put an invalid amount";
            close;
        }
        mes .NPC$;
        mes "Ohh that's nice here you go!";
        delitem .ID,.@amount;
        set #KAFRAPOINTS,#KAFRAPOINTS+1;
    announce ""+strcharinfo(0)+" has converted PODS into " +#KAFRAPOINTS+ " kafra credit points";
        dispbottom "You now have " +#KAFRAPOINTS+ " kafra credit points";
        next;
        mes .NPC$;
        mes "Success trading";
        close;

   SPODS:
    mes .NPC$;
        mes "Okay how many point will you exchange?";
        next;
        input .@point;
        if (.@point == 0) {
                mes .NPC$;
            mes "Cannot trade 0 point";
            close;
        }
        mes .NPC$;
        mes "So you want to exchange " +.@point+ "x " point;
        next;
        if (select("Yes:No") - 1) close;
        mes .NPC$;
        mes "Let me check if you have that amount of requirements";
        next;
        if (#KAFRAPOINTS < .@point) {
            mes .NPC$;
            mes "Seems like you put an invalid amount";
            close;
        }
        mes .NPC$;
        mes "Ohh that's nice here you go!";
        getitem .ID,.@point;
        set #KAFRAPOINTS,#KAFRAPOINTS-1;
    announce ""+strcharinfo(0)+" has converted some point into PODS";
        dispbottom "You now have " +#KAFRAPOINTS+ " kafra credit points";
        next;
        mes .NPC$;
        mes "Success trading";
        close;
    
   leave:
    mes .NPC$;
    mes "It's Okay";
    
    OnInit:
        set .NPC$,"[ " +strnpcinfo(1)+ " ]"; // NPC Name
        set .ID,7179; // Requirement
        end;
}

 

 

Edited April 21, 2017 by hendra814