POD for Kafra Credit Point NPC

[TreeChief]

I need a simple NPC...that will exchange Proof of Donation for Kafra Credit Points...Tried making but I don't know how to getItem and exchange for KCP

[Patskie]

Try:

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

[TreeChief]

Try:

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

Hmm didn't work when I just try adding it, I will try restarting server.

[Patskie]

 

Try:

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

Hmm didn't work when I just try adding it, I will try restarting server.

Post error if any occur. Well tried this and it works. Also want to add a check on the script.

If amount is greater than pods then terminate. Forgot to add.

 

if (countitem(.ID) > .@amount) close;

[TreeChief]

Where would I add the check? Is it for if they have the correct amount or don't have any?

[Capuche]

This check is not significant. No need to add it

[TreeChief]

This check is not significant. No need to add it

Hmm I don't get why it is not working then...The script looks very well done without error.

[Capuche]

prontera,150,150,0%tab%script%tab%Sample%tab%100,{

Check the header, there are space instead of tab