xTibia

.com
LU
pedido

Talkactions Transferencia de Points entre Players

Por Lucasyeah, 02 de nov. de 2013 em Scripts

talkactions transferencia de
points
players
resolvido
otserv
tibia
script
13
3.8k
LucasyeahL
02 de novembro de 2013 às 14:54

TFS, 860.

Olá pessoal, venho aki pedir um script bem legal, que será bastante útil para grande maioria (eu acho).

O script é o seguinte, uma talkactions que transfere premium points de um player para outro.

Exemplo:

 

Quem irá receber

\/

!transfere Druidzinho, 3 <~ Quantidade de pontos que irá transferir

 

Os premium points irão para a account do player Druidzinho...

Se o player que fizer o comando não tiver a quantidade necessária de premium points para transferir o script manda msg:

Você não tem isso para transferir.

 

Meu sistema de premium points é normal, uso Mysql com a tabela de premium points! yes.gif

 

Quem puder ajudar ae, agradeço e Curto button_ok.png

OmegaO
02 de novembro de 2013 às 20:48

 

 

function onSay(cid, words, param)
	local param = string.explode(param, ',')
	local days = param[2]
	local toPlayer = param[1]
	local player_prem_days = getPlayerPremiumDays(cid)
	if not days or not toPlayer then
		doPlayerSendCancel(cid, "You need to specify a valid online player and premium days to transfer premium days.")
	elseif not tonumber(days) then
		doPlayerSendCancel(cid, "You have to specify a valid number of premium days to transfer.")
	elseif player_prem_days < tonumber(days) then
		doPlayerSendCancel(cid, "You don't have the specified premium days to transfer.")
	else
		toPlayer = getCreatureByName(toPlayer)
		if not isPlayer(toPlayer) then
			doPlayerSendCancel(cid, "You have to specify a valid online player to transfer premium days.")
		else
			doPlayerRemovePremiumDays(cid, tonumber(days))
			doPlayerAddPremiumDays(toPlayer, tonumber(days))
			doPlayerSendTextMessage(cid, 27, "You have sucessfully transfered ".. days .." premium days.")
			doPlayerSendTextMessage(toPlayer, 27, getCreatureName(cid).." has transfered "..days.." premium days for your account.")
		end
	end
	return true
end

 

 

<talkaction words="!transfere" event="script" value="transferirprem.lua"/>
LucasyeahL
03 de novembro de 2013 às 16:59

Omega, seu script no caso transferiria dias premium, certo? então, to precisando que o script transfira Points! (premium POINTS, aqueles que compram itens no shop do gesior). Vou tentar adaptar, se puder me ajudar.

A função seria essa: getAccountPoints(cid)

Editado Novembro 3 por Lucasyeah

KluivertK
03 de novembro de 2013 às 17:03

Omega, seu script no caso transferiria dias premium, certo? então, to precisando que o script transfira Points! (premium POINTS, aqueles que compram itens no shop do gesior). Vou tentar adaptar, se puder me ajudar.

 

Creio que isso so seja possivel no site mano!

LucasyeahL
03 de novembro de 2013 às 17:06

Sim Kluimaster, mas preciso do talkactions, eu consegui montar um script 90% funcional, porém ele transfere valores negativos, exemplo: !transfere Druidzinho, -3. Dai o Druidzinho fica com -3 points e quem usou o comando ganha +3 pontos de graça. Creio que alguém conseguirá me ajudar.

 

 

Edit --------------

Consegui adaptar sua Script Omega, porém ta com o mesmo problema da minha, o player pode usar o comando com valores negativos

function onSay(cid, words, param)
	local param = string.explode(param, ',')
	local pts = param[2]
	local toPlayer = param[1]
	local player_prem_pts = getAccountPoints(cid)
	if not pts or not toPlayer then
		doPlayerSendCancel(cid, "You need to specify a valid online player and premium days to transfer premium days.")
	elseif not tonumber(pts) then
		doPlayerSendCancel(cid, "You have to specify a valid number of premium days to transfer.")
	elseif player_prem_pts < tonumber(pts) then
		doPlayerSendCancel(cid, "You don't have the specified premium days to transfer.")
	else
		toPlayer = getCreatureByName(toPlayer)
		if not isPlayer(toPlayer) then
			doPlayerSendCancel(cid, "You have to specify a valid online player to transfer premium days.")
		else
			doAccountRemovePoints(cid, tonumber(pts))
			doAccountAddPoints(toPlayer, tonumber(pts))
			doPlayerSendTextMessage(cid, 27, "You have sucessfully transfered ".. pts .." premium days.")
			doPlayerSendTextMessage(toPlayer, 27, getCreatureName(cid).." has transfered "..pts.." premium days for your account.")
		end
	end
	return true
end

Exemplo:

 

ADM -> !transfere Druidzinha, -6

17:18 You have sucessfully transfered -6 premium points.

 

Druidzinha -> 17:18 [ADM] has transfered -6 premium points for your account.

17:19 Sua conta possui -6 points. Saiba mais sobre points no site......

Editado Novembro 3 por Lucasyeah

OmegaO
03 de novembro de 2013 às 17:16

Omega, seu script no caso transferiria dias premium, certo? então, to precisando que o script transfira Points! (premium POINTS, aqueles que compram itens no shop do gesior). Vou tentar adaptar, se puder me ajudar.

A função seria essa: getAccountPoints(cid)

 

Abra seu banco de dados e me diga em que tabela essa coluna fica. Por exemplo, a coluna premium time fica na tabela accounts. Me diga onde essa coluna premium points fica.

E o nome exato das duas (tabela e coluna)

MaenilseM
03 de novembro de 2013 às 17:29

se for o p'points v1.0 daqui do xtibia memo.

 

a coluna de onde fica no MySQL, é a p_points. eu uso o msm sistema.

LucasyeahL
03 de novembro de 2013 às 17:29

Omega a coluna premium_points fica na tabela accounts. Atualiza a pagina ai, viu sobre os valores negativos ?

Editado Novembro 3 por Lucasyeah

OmegaO
03 de novembro de 2013 às 18:48

Hauhauhaua, então tava dando pra roubar points dos outros?

 

 

function onSay(cid, words, param)
	local param = string.explode(param, ',')
	local pts = param[2]
	local toPlayer = param[1]
	local player_prem_pts = getAccountPoints(cid)
	if not pts or not toPlayer then
		doPlayerSendCancel(cid, "You need to specify a valid online player and premium days to transfer premium days.")
	elseif not tonumber(pts) then
		doPlayerSendCancel(cid, "You have to specify a valid number of premium days to transfer.")
	elseif player_prem_pts < tonumber(pts) then
		doPlayerSendCancel(cid, "You don't have the specified premium days to transfer.")
	elseif tonumber(pts) <= 0 then
		doPlayerSendCancel(cid, "You have to specify a number of days higher than 0 to transfer.")
	else
		toPlayer = getCreatureByName(toPlayer)
		if not isPlayer(toPlayer) then
			doPlayerSendCancel(cid, "You have to specify a valid online player to transfer premium days.")
		else
			doAccountRemovePoints(cid, tonumber(pts))
			doAccountAddPoints(toPlayer, tonumber(pts))
			doPlayerSendTextMessage(cid, 27, "You have sucessfully transfered ".. pts .." premium days.")
			doPlayerSendTextMessage(toPlayer, 27, getCreatureName(cid).." has transfered "..pts.." premium days for your account.")
		end
	end
	return true
end

 

 

LucasyeahL
03 de novembro de 2013 às 21:56

Opa, a script aparentemente está 100% funcional sem bugs, vou fazer ,mais alguns testes e logo coloco no meu servidor. Te agradeço, Omega!

OmegaO
03 de novembro de 2013 às 22:01

Tópico movido para a seção de dúvidas e pedidos resolvidos.

Fico contente em ajudar, qualquer problema com esse script, avisa aí.

2 meses depois...
LucasyeahL
18 de janeiro de 2014 às 15:25

Olá Omega, queria te perguntar se tem como adicionar +1 função nesse script? Se possível gostaria que o script gerasse uma Log.txt de todos os players que utilizaram o comando !transfere. e a quantidade de pontos transferida... se tivesse como mostrar o dia e a hora que isso ocorreu. Tem como fazer isso ou é impossível?

1 mês depois...
yohY
19 de fevereiro de 2014 às 09:31

Adicione em 050-function

function getPlayerVipPoints(cid)
    local Info = db.getResult("SELECT `premium_points` FROM `accounts` WHERE `id` = " .. getPlayerAccountId(cid) .. "")
        if Info:getID() ~= LUA_ERROR then
        local Points= Info:getDataInt("premium_points")
        Info:free()
        return Points
    end
     return LUA_ERROR
end

function doPlayerAddVipPoints(cid, points)
    local dif = getPlayerVipPoints(cid) + points
    if dif >= 0 then
        db.query("UPDATE `accounts` SET `premium_points` = `premium_points` + " .. points .. " WHERE `id` = " .. getPlayerAccountId(cid) .. ";")
        return TRUE
    end
    return FALSE
end

function doPlayerRemoveVipPoints(cid, points)
    local dif = getPlayerVipPoints(cid) - points
    if dif >= 0 then
        db.query("UPDATE `accounts` SET `premium_points` = `premium_points` - " .. points .. " WHERE `id` = " .. getPlayerAccountId(cid) .. ";")
        return TRUE
    end
    return FALSE
end

Adione em Talkactions/scripts

 

transfer.lua

function onSay(cid, words, param, channel) 
 
local t = param:explode(",")
local player = getPlayerByName(t[1])
local m = tonumber(t[2])
  
    if param == "" then 
        return doPlayerSendCancel(cid, "Command requires param.") 
    elseif not isPlayer(player) then
        return doPlayerSendCancel(cid, "Sorry, not possible.")
    end
	
if(not m) then
        doPlayerSendTextMessage(cid, MESSAGE_EVENT_ADVANCE, "Valor nao Digitado.\n Ex: /transfer "..getPlayerName(cid)..", 20")
        return TRUE
end

    if getPlayerVipPoints(cid) < m then
        return doPlayerSendTextMessage(cid, MESSAGE_EVENT_ADVANCE, "Voce nao tem pontos suficiente!!")
    end 
    
    doPlayerRemoveVipPoints(cid, m)   
    doPlayerAddVipPoints(player, m)
    doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_RED, "Voce Transferiu "..m.." pontos para "..getPlayerName(player)..".")  
    f = io.open("data/logs/Pontos.txt", "a+")
    f:write("Player: "..getPlayerName(cid).." transferiu "..m.." pontos para "..getPlayerName(player).."\n\n----------------------------------------------------------\n")
    f:close()   
    return true 
end

XML :

<talkaction words="/transfer" event="script" value="transfer.lua"/>

Eu Utilizo isso no meu Servidor Funciona 100% e sem nenhum Bug !