coloquei no script para você definir a quantidade, deixei tudo 1 item.

local coin = 2157 -- sua moeda vip
local lever = {
[6001] = {10,7424,1},
[6002] = {10,2138,1},
[6003] = {10,2165,1},
[6004] = {10,5949,1},
[6005] = {10,8903,1},
[6006] = {10,7902,1},
[6007] = {10,7897,1},
[6008] = {10,7896,1},
[6009] = {10,7892,1},
[6010] = {10,2410,1},
[6011] = {10,7857,1},
[6012] = {10,7887,1},
[6013] = {10,6300,1},
[6014] = {10,3940,1},
[6015] = {10,2518,1},
[6016] = {10,7903,1},
[6017] = {10,7884,1},
[6018] = {10,7885,1},
[6019] = {10,7886,1},
}
local arrows = {5907,7432,7735,7959,10943} -- coloque o ID das arrows
function onUse(cid,item,fromPosition,itemEx,toPosition)
if doPlayerRemoveItem(cid,coin,lever[item.actionid][1]) == FALSE then
return doPlayerSendTextMessage(cid,MESSAGE_INFO_DESCR, "você precisa de "..lever[item.actionid][1].." " ..getItemNameById(coin))
end

doPlayerAddItem(cid, lever[item.actionid][2], lever[item.actionid][3])
doPlayerSendTextMessage(cid,22,"você comprou um " .. getItemNameById(lever[item.actionid][2]))
doSendMagicEffect(getCreaturePosition(cid), math.random(28,30))
doTransformItem(item.uid, item.itemid == 9825 and 9826 or 9825)
return true
end 

caso um dia você for editar lembre de colocar a quantidade:

[6001] = {10,7424,1},

sendo o ultimo 1  a quantidade

Editado Dezembro 29, 2014 10 anos por Gantz (veja o histórico de edições)

Caso for adicionar somente um item, simplifique.
Estabeleça a tabela anterior e mude os parâmetros da função doPlayerAddItem para:

doPlayerAddItem(cid, lever[item.actionid][2], 1)

Editado Dezembro 29, 2014 10 anos por Suicide (veja o histórico de edições)

bom isso é a critério do usuário.

Com certeza, @Gantz.
Eu só falei pra ele mesmo, caso seja assim.

Obrigado a todos os dois , foram uteis ! +REP