prontera,163,168,4  script  Item Trader 797,{
    mes "[Item Trader]";
    mes "Would you like to";
    mes "trade something in?";
    mes "The item ID must be";
    mes "between ^0055FF["+.Bounds[0]+"]^000000 and ^0055FF["+.Bounds[1]+"]^000000.";
    next;
    if(select("Sure.:No, thanks.") == 2) close;
    mes "[Item Trader]";
    mes "Select a single item to trade in.";
    mes "You can change your mind later, don't worry.";
    callshop "item_trader",2;
    npcshopattach "item_trader";
    end;
 
OnSellItem:
    mes "[Item Trader]";
    if (@sold_nameid < .Bounds[0] || @sold_nameid > .Bounds[1]) {
        mes "I'm afraid I can't do anything with this ^0055FF"+getitemname(@sold_nameid)+"^000000...";
        close;
    }
    mes "You want to trade in your ^0055FF"+getitemname(@sold_nameid)+"^000000?";
    sleep2 1000;
    doevent strnpcinfo(0)+"::OnContinue";
    end;
 
OnContinue:
    mes "Pick one item you'd like, then.";
    callshop "item_trader",1;
    npcshopattach "item_trader";
    end;
 
OnBuyItem:
    mes "[Item Trader]";
    mes "Are you sure you want to trade your ^0055FF"+getitemname(@sold_nameid)+"^000000 for a ^0055FF"+getitemname(@bought_nameid)+"^000000?";
    next;
    if(select("Yes, I'm sure.:Wait a second...") == 2) {
        mes "[Item Trader]";
        mes "Okay, take your time.";
        close;
    }
    mes "[Item Trader]";
    mes "Here you go.";
    mes "Enjoy!";
    delitem @sold_nameid,1;
    getitem @bought_nameid,1;
    close;
 
OnInit:
    // Write the lower and upper bounds of item IDs to trade in.
    setarray .Bounds[0],500,550;
    // List the items available to purchase.
    setarray .@Items[0],501,502,503,504,505,506,507,508,509,510,511;
 
    freeloop(1);
    npcshopdelitem "item_trader",512;
    for(set .@i,0; .@i<getarraysize(.@Items); set .@i,.@i+1)
        npcshopadditem "item_trader",.@Items[.@i],0;
    freeloop(0);
    end;
}
 
-   shop    item_trader -1,512:-1