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 294 times, submitted by unknown.