prontera.gat,142,180,5	script	Berry Exchanger	626,{

    set $@npcname_mpq$, "^4000C0[Trader]^000000";
    mes $@npcname_mpq$;
    mes "Hi, I'm the Yggdrasil Berry Exchanger, I can pack them into boxes for easir trading! Would you like to do some packing?";
    next;
    menu "Yes, Please!",L_Berry,"No Thanks.",L_Exit;

L_Berry:
    mes $@npcname_mpq$;
    mes "Input the amount of yggberry you want to pack";
    next;
    input .@amount;
    if ( .@amount == 100 || countitem(607) < .@amount ) {
        mes $@npcname_mpq$;
        mes "Invalid amount";
        close;
    }

    delitem 607 ,100;
    mes $@npcname_mpq$;
    mes "You really have " +.@amount+ " berrys? Okay, Let's trade!";
    getitem 13517,1;
    mes ". . .";
    mes "Thank you sweety. Dont ygg too much!";
    close;

LNotEnough:
    mes "You dont have the required items...?";
    mes "Come back when you are actually ready. Now gtfo!";
    close;

Lnotenuff:
    mes "Wtf, come back when you got the goods!";
    close;
L_Exit:
    close;
}