viewing paste Unknown #17647 | Athena

Posted on the
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31
-   shop    custom_seller2  -1,501:20000
prontera,164,171,4  script  Event Coin Shop 100,{
    mes "I will sell you items for " + getitemname(.CoinID) + ".";
    callshop "custom_seller2",1;
    npcshopattach "custom_seller2";
    end;
    OnBuyItem:
    for(set .@i,0; .@i<getarraysize(.customs); set .@i,.@i+1) {
        for(set .@d,0; .@d<getarraysize(@bought_nameid); set .@d,.@d+1) {
            if(@bought_nameid[.@d]==.customs[.@i]) {
                if(checkweight(@bought_nameid[.@d],@bought_quantity[.@d])) {
                    if(countitem(.CoinID) >= .Price[.@i]*@bought_quantity[.@d]) {
                        delitem .CoinID,.Price[.@i]*@bought_quantity[.@d];
                        getitem @bought_nameid[.@d],@bought_quantity[.@d];
                    } else dispbottom "You don't have enough "+getitemname(.CoinID)+" to purchase that item.";
                } else dispbottom "Purchasing these items will put you over the weight limit!";
            }
        }
    }
    deletearray @bought_quantity, getarraysize(@bought_quantity);
    deletearray @bought_nameid, getarraysize(@bought_nameid);
    close;
 
OnInit:
    setarray .customs[0],14232,20012,20013,20014,20015,20017,20018,20019;// Enter the ID of customs here
    set .CoinID,20010; // Enter the ID of the coin here.
    setarray .Price[0],2,50,50,50,50,200,200,200; // Price for each custom is set to 20 coins
    npcshopitem "custom_seller2",0,0; // Don't touch any coding beyond here
    for(set .i,0; .customs[.i]; set .i,.i+1) npcshopadditem "custom_seller2",.customs[.i],.Price[.i];
    end;
}
Viewed 574 times, submitted by Guest.