OnSpecialKill:
set .SpecialPorings[1],.SpecialPorings[1]-1;
announce strcharinfo(0) + " got a " + getitemname(.ItemID) + "!",bc_map;
// getitem .ItemID,1;
set PoringPoint,PoringPoint+1;
dispbottom "You got 1 Poring Point";
dispbottom "Total Poring Points:"+PoringPoint;
goto PoringCount;
On that part of the script, edit this part :
set PoringPoint,PoringPoint+1;
to
set #PoringPoint,#PoringPoint+1;
Since using the # sign is to make the variable eligible to be used by the whole account.
And as for the shop, just use any Dynamic shops that uses variables as a currency like Emistry's Multi-Currency Shop.
Link : http://rathena.org/board/topic/68468-utility-multi-currency-shop/
Please kindly press the green UP button if it helped. Thanks.