Olha o meu testa ai, o documento e feito mas nao da pra usar.

 

Actions

Papaer_points

function onUse(cid, item, frompos, item2, topos)
	local var = getItemAttribute(item.uid, "description")
	if var == nil then return true end
	local x = var:match("%b[]")
	if x == "[VIP Points]:" then
		local ret = var:match("%d+")
		doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE," Voce recebeu "..ret.." VIP Points.")
		setPremiumPoints(cid, getPremiumPoints(cid)+ret)
		doRemoveItem(item.uid) 
	end
	return true
end

 

Talkaction

sell_points

 

function onSay(cid, words, param)
	local var,points = "[VIP Points]: Este documento vale %s VIP Points para voce no site.",getPremiumPoints(cid)
	local min,max = 5, 100
	if param == "" or not tonumber(param) then
		doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "[VIP Points]: Desculpe, use somente numeros.") return true
	elseif tonumber(param) < min or tonumber(param) > max then
		doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "[VIP Points]: Desculpe, Minimo "..min.." e Maximo "..max.." points.") return true
	elseif points < tonumber(param) then
		doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "[VIP Points]: Desculpe, mas voce so possui "..points.." VIP Points.") return true
	end
	local item = doPlayerAddItem(cid, 9004,1) 
	doItemSetAttribute(item, "description", var:format(tonumber(param)))
	setPremiumPoints(cid, points-tonumber(param))
	doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE,"[VIP Points]: Voce recebeu um paper com "..param.." VIP Points.")
	return true
end

 

Lib

 

function getPremiumPoints(cid)
	local query = db.getResult("SELECT `premium_points` FROM `accounts` WHERE `id` = "..getPlayerAccountId(cid))
	return query:getDataInt("premium_points") <= 0 and 0 or query:getDataInt("premium_points")
end
function setPremiumPoints(cid, amount)
	return db.executeQuery("UPDATE `accounts` SET `premium_points` = "..amount.." WHERE `id` = "..getPlayerAccountId(cid))
end

 

Editado Fevereiro 4, 2017 8 anos por doido (veja o histórico de edições)

talk

 

function onSay(cid, words, param)
	local var,points = "[VIP Points] Este documento vale %s VIP Points para voce no site.",getPremiumPoints(cid)
	local min,max = 5, 100
	if param == "" or not tonumber(param) then
		doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "[VIP Points]: Desculpe, use somente numeros.") return true
	elseif tonumber(param) < min or tonumber(param) > max then
		doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "[VIP Points]: Desculpe, Minimo "..min.." e Maximo "..max.." points.") return true
	elseif points < tonumber(param) then
		doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "[VIP Points]: Desculpe, mas voce so possui "..points.." VIP Points.") return true
	end
	local item = doPlayerAddItem(cid, 9004,1) 
	doItemSetAttribute(item, "description", var:format(tonumber(param)))
	setPremiumPoints(cid, points-tonumber(param))
	doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE,"[VIP Points]: Voce recebeu um paper com "..param.." VIP Points.")
	return true
end

 

 

actions:

 

paper_points.lua

function onUse(cid, item, frompos, item2, topos)
	local var = getItemAttribute(item.uid, "description")
	if var == nil then return true end
	local x = var:match("%b[]")
	if x == "[VIP Points]" then
		local ret = var:match("%d+")
		doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE," Voce recebeu "..ret.." VIP Points.")
		setPremiumPoints(cid, getPremiumPoints(cid)+ret)
		doRemoveItem(item.uid) 
	end
	return true
end

 

tag:

 

<action itemid="9004" script="paper_points.lua"/>

 

Vlw Obrigado eu estava procurando esse script que bom que vc voltou cara.

Editado Fevereiro 5, 2017 8 anos por doido (veja o histórico de edições)

Muito bom, 100% aqui no 8.54  

Em qual arquivo em lib ?