A TCG Shop made by Emistry o_o from old eAthena Forums
prontera,138,183,5 script TCG Uppers 793,{
mes .name$;
mes "You currently have "+countitem(.tcg_item)+" TCG.";
mes "Would you like to look at the shop?";
next;
if(select("Yes:No") == 2) {close;}
close2;
callshop "TCG_SHOP",1;
npcshopattach "TCG_SHOP";
dispbottom "You currently have "+countitem(.tcg_item)+" TCG.";
end;
OnBuyItem:
for(set @i,0; @i < getarraysize(@bought_nameid); set @i,@i+1) {
for(set @j,0; @j < getarraysize(.TCG_ITEMS); set @j,@j+1) {
if(.TCG_ITEMS[@j] == @bought_nameid[@i]) {
set @itemcost,(.ITEMPRICE[@j]*@bought_quantity[@i]);
set @totalcost,(@totalcost+@itemcost);
break;
}
}
}
if(@totalcost > countitem(.tcg_item)) {
dispbottom "You don't have enough TCG.";
} else {
for(set @i,0; @i < getarraysize(@bought_nameid); set @i,@i+1) {
getitem @bought_nameid[@i],@bought_quantity[@i];
}
delitem .tcg_item,@totalcost;
dispbottom "Thank you for shopping.";
dispbottom "You now have "+countitem(.tcg_item)+" TCG left.";
}
set @totalcost,0;
deletearray @bought_nameid[0],128;
deletearray @bought_quantity[0],128;
end;
OnInit:
npcshopdelitem "TCG_SHOP",909; // Leave this alone
set .name$,"[TCG Uppers]";
set .tcg_item,7227; // Input TCG ID
setarray .TCG_ITEMS[0],20001; // Item IDs - 128 max
setarray .ITEMPRICE[0],30; // Item prices - Should followe ID's order
for(set .@i,0; .@i < getarraysize(.TCG_ITEMS); set .@i,.@i+1) {
npcshopadditem "TCG_SHOP",.TCG_ITEMS[.@i],.ITEMPRICE[.@i];
}
end;
}
- shop TCG_SHOP -1,909:20
zOmg Thank you . Now i Need a broadcaster
The TCG script credits go to Emistry.
I'm testing out my broadcaster, wait 5 mins ~
Okay , xDD