Comando para comprar points! [AJUDA]

[aronfelipe 0]

meu ot ja tem /addpoints [nomedoplayer] , [quantidade]... mas envez de mim add, queria por comando pro player falar !buypoint e comprar 1 point por 1kk se alguem poder ajudar.. obrigado !!!

[Moose 45]

vou fazer pra ti

Editado Março 13, 2013 por Moose (veja o histórico de edições)

[Moose 45]

function onSay(cid, words, param)
if doPlayerRemoveMoney(cid, 1000000) == 1 then
doAccountAddPoints(cid, 1)
doSendMagicEffect(getPlayerPosition(cid), 28)
doPlayerSendTextMessage(cid,MESSAGE_EVENT_ADVANCE, 'Voce compro 1 premium points!')
else
doPlayerSendCancel(cid, "Voce precisa de 1KK para comprar 1 premium points!")
             doSendMagicEffect(getPlayerPosition(cid), CONST_ME_POFF)
         end
         end
 
 

 

Depois vá em data/talkaction.xml e lá bote essa tag:

 

<talkaction words="!buypoints" script="buypoints.lua" />

Editado Março 13, 2013 por Moose (veja o histórico de edições)

[aronfelipe 0]

Está gastando o 1kk mas não esta adicionando os Points ! poderia ajudar ?

[Loockup 1]

cuidado ai mano com o double post cara

[aronfelipe 0]

function onSay(cid, words, param)
if doPlayerRemoveMoney(cid, 1000000) == 1 then
doAccountAddPoints(cid, 1)
doSendMagicEffect(getPlayerPosition(cid), 28)
doPlayerSendTextMessage(cid,MESSAGE_EVENT_ADVANCE, 'Voce compro 1 premium points!')
else
doPlayerSendCancel(cid, "Voce precisa de 1KK para comprar 1 premium points!")
             doSendMagicEffect(getPlayerPosition(cid), CONST_ME_POFF)
         end
         end
 
 

 

Depois vá em data/talkaction.xml e lá bote essa tag:

 

 

<talkaction words="!buypoints" script="buypoints.lua" />

Está certo, só que não ta adicionando os points só está gastando o 1kk ! pode ajudar ?

[Moose 45]

entra em data/libs e abra 050-function.lua

e adicione: 

 

function doAccountAddPoints:(cid, points)
local Info = db.getResult("SELECT `premium_points` FROM `accounts` WHERE `id` = " .. getPlayerAccountId(cid) .. " LIMIT 1")
if Info:getID() ~= LUA_ERROR then
db.executeQuery("UPDATE accounts SET premium_points = " .. points .. " WHERE id=" .. getPlayerAccountId(cid) .. ";")
Info:free()
return 1
end
end

Editado Março 13, 2013 por Moose (veja o histórico de edições)