[Sistema] Advanced Trade Points v1.0

Postado Março 18, 2018 7 anos

Este é um post popular.

Apresentação: Olá galera do Tibia King, este é meu primeiro tutorial que desenvolvo após anos apenas sugando da comunidade, chegou a hora de compartilhar um pouco de conhecimento, rsrs...
Após ver que muitos usuários tinham interesse em um sistema de Trade de Points in-game resolvi trazer um sistema totalmente completo para vocês.

Funcionamento:

Player 1 após adquirir os Points, pode iniciar uma negociação com o Player 2 através do comando /tradepoints Player 2, Quantidade.
Será aberto uma Janela de Trade com o item referente aos Points.
Após ambos aceitarem a negociação será realizado a troca de Points pelo item requisitado.

Observações:

Necessário ter acesso às Sources de sua Distro.
Testado em servidor 8.6 (The Forgotten Server 0.4).
Antes que venham falar que possui sistemas parecidos, veja o diferencial (Item não aparece em nenhum inventário, e não é necessário usar/comprar qualquer item).

Mostrar conteúdo oculto

Algumas Imagens:

Mostrar conteúdo oculto

Instalação:

Sources > Luascript.cpp

Mostrar conteúdo oculto


//doTradeOrbs(cid, target, points)
lua_register(m_luaState, "doTradeOrbs", LuaInterface::luaDoTradeOrbs);

Coloque essas linhas próximo de linhas parecidas.

Sources > Luascript.cpp

Mostrar conteúdo oculto


int32_t LuaInterface::luaDoTradeOrbs(lua_State* L)
{
    ScriptEnviroment* env = getEnv();

    int quantidade = popNumber(L);

    Player* target = env->getPlayerByUID(popNumber(L));
    Player* player = env->getPlayerByUID(popNumber(L));
    if(!player || !target)
    {
           errorEx(getError(LUA_ERROR_PLAYER_NOT_FOUND));
           lua_pushboolean(L, false);
	   return 1;
    }

	Item* Orb = new Item(7722);;
	Orb->addRef();

	char buffer[150];
	sprintf(buffer, "You see %d Collapser Orbs.", quantidade);
	Orb->setSpecialDescription(buffer);

	Orb->setSubType(1);

	player->transferContainer.__addThing(NULL, Orb);
	player->transferContainer.setParent(player);
	if(!g_game.internalStartTrade(player, target, Orb))
		Orb->onTradeEvent(ON_TRADE_CANCEL, player, NULL);

	g_game.addMagicEffect(player->getPosition(), MAGIC_EFFECT_WRAPS_BLUE);
	return false;
}

Sources > Luascript.h

Mostrar conteúdo oculto


static int32_t luaDoTradeOrbs(lua_State* L);

Server > Data > Lib > 050-function

Mostrar conteúdo oculto


function getAccountPoints(cid)
	local res = db.getResult('select `premium_points` from accounts where name LIKE \''..getPlayerAccount(cid)..'\'')
	return res:getDataInt("premium_points") < 0 and 0 or res:getDataInt("premium_points")
end

function doPlayerAddPoints(cid, quant)
return db.query("UPDATE `accounts` SET `premium_points` = '".. getAccountPoints(cid) + quant .."' WHERE `name` LIKE '"..getPlayerAccount(cid).."'")
end

function doAccountRemovePoints(cid, count)
	return db.query("UPDATE `accounts` SET `premium_points` = '".. getAccountPoints(cid) - count .."' WHERE `name` LIKE '"..getPlayerAccount(cid).."'")
end

Server > Data > Creaturescripts > Scripts >Trade_Orbs.lua

Mostrar conteúdo oculto


function CompleteTrade(fromplayer, toplayer, points)
	if getPlayerItemCount(toplayer, 7722) >= 1 and getAccountPoints(fromplayer) >= points then
    	doAccountRemovePoints(fromplayer, points)
		doPlayerRemoveItem(toplayer, 7722, 1)
		doPlayerAddPoints(toplayer, points)
		doPlayerSendTextMessage(toplayer, MESSAGE_STATUS_WARNING, "You have received ".. points .." Collapser Orbs.")
		return true
	end
end

function CollapserOrbs(item)
	return tonumber(string.match(getItemDescriptions(item.uid).special, "You see (%w+) Collapser Orbs."))
end

function onTradeAccept(cid, target, item, targetItem)
	if isPlayer(cid) and isPlayer(target) then
		if item.itemid == 7722 then
			local points = CollapserOrbs(item)
			addEvent(CompleteTrade, 1, cid, target, points)
		end
		if targetItem.itemid == 7722 then
			local points = CollapserOrbs(targetItem)
			addEvent(CompleteTrade, 1, target, cid, points)
		end
	end
	return true
end

Server > Data > Creaturescripts > Creaturescripts.xml

Mostrar conteúdo oculto


<event type="tradeaccept" name="Points_Trade" event="script" value="Trade_Orbs.lua"/>

Server > Data > Creaturescripts > Scripts > Login.lua
Mostrar conteúdo oculto
```
registerCreatureEvent(cid, "Points_Trade")
```

Server > Data > Talkactions > Scripts > Points_Trade.lua

Mostrar conteúdo oculto


function onSay(cid, words, param, channel)

local t = string.explode(param, ",")
local target = getCreatureByName(t[1])
local points = tonumber(t[2])

if(param == '') then
	return doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Command requires param.")
end

if (target ~= nil) and isPlayer(target) and not isPlayerGhost(target) then
	if (points ~= nil) and (type(points) == 'number') and (points>0) then
		if (getAccountPoints(cid) >= points) then
			doTradeOrbs(cid, target, points)
		else
			doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_RED, "You do not have enough points.")
		end
	else
		doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Invalid param specified.")
	end
else
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Invalid param specified.")
end

return true
end

Server > Data > Talkactions > Talkactions.xml

Mostrar conteúdo oculto


<talkaction words="/tradepoints" log="yes" event="script" value="Trade_Points.lua"/>

Créditos:
Todo o sistema foi feito completamente por mim: Vítor Subhi.
The Forgotten Server (Pelas Sources)

Vodkart, White Wolf, Natanael Beckman, e a todos os demais membros do TK que não lembro o nome, que contribuíram indiretamente através de seus tutoriais.

Editado Maio 17, 2018 7 anos por VitorSubhi
.Pequenas correções (veja o histórico de edições)

Citar

Mention

KotZletY, EddyHavoc, FlavioHulk e 7 outros reagiu a isso
8
1
1

Respostas 17
Visualizações 3.7k
Created 7 anos7 anos
Última resposta 5 anos5 anos

Popular Days

Posted Images

Postado Março 18, 2018 7 anos

Parabéns, seu tópico de conteúdo foi aprovado!
Muito obrigado pela sua contribuição, nós do Tibia King agradecemos.
Seu conteúdo com certeza ajudará à muitos outros, você recebeu +1 REP.

Mostrar conteúdo oculto

Projeto ATS (Naruto)

Informações Abaixo

Facebook

Youtube
Discord

Tutoriais / Conteúdos

Clique Aqui

Citar

Mention

Postado Março 23, 2018 7 anos

Em 18/03/2018 em 08:37, VitorSubhi disse:
Apresentação: Olá galera do Tibia King, este é meu primeiro tutorial que desenvolvo após anos apenas sugando da comunidade, chegou a hora de compartilhar um pouco de conhecimento, rsrs...
Após ver que muitos usuários tinham interesse em um sistema de Trade de Points in-game resolvi trazer um sistema totalmente completo para vocês.

Funcionamento:

Player 1 após adquirir os Points, pode iniciar uma negociação com o Player 2 através do comando /tradepoints Player 2, Quantidade.

Será aberto uma Janela de Trade com o item referente aos Points.

Após ambos aceitarem a negociação será realizado a troca de Points pelo item requisitado.

Observações:

Necessário ter acesso às Sources de sua Distro.

Testado em servidor 8.6 (The Forgotten Server 0.4).

Antes que venham falar que possui sistemas parecidos, veja o diferencial (Item não aparece em nenhum inventário, e não é necessário usar/comprar qualquer item).

Algumas Imagens:

Mostrar conteúdo oculto

Mostrar conteúdo oculto

Instalação:
Sources > Luascript.cpp

Mostrar conteúdo oculto
Mostrar conteúdo oculto
int32_t LuaScriptInterface::luaDoTradeOrbs(lua_State* L)
{
    ScriptEnviroment* env = getEnv();

    int quantidade = popNumber(L);

    Player* target = env->getPlayerByUID(popNumber(L));
    Player* player = env->getPlayerByUID(popNumber(L));
    if(!player || !target)
    {
           errorEx(getError(LUA_ERROR_PLAYER_NOT_FOUND));
           lua_pushboolean(L, false);
	   return 1;
    }

	Item* Orb = new Item(7722);;
	Orb->addRef();

	char buffer[150];
	sprintf(buffer, "You see %d Collapser Orbs.", quantidade);
	Orb->setSpecialDescription(buffer);

	Orb->setSubType(1);

	player->transferContainer.__addThing(NULL, Orb);
	player->transferContainer.setParent(player);
	if(!g_game.internalStartTrade(player, target, Orb))
		Orb->onTradeEvent(ON_TRADE_CANCEL, player, NULL);

	g_game.addMagicEffect(player->getPosition(), MAGIC_EFFECT_WRAPS_BLUE);
	return false;
}
Sources > Luascript.h

Mostrar conteúdo oculto
Mostrar conteúdo oculto
static int32_t luaDoTradeOrbs(lua_State* L);
Em luaScript.cpp a linha "
int32_t LuaInterface::luaDoTradeOrbs(lua_State* L)" troca por" int32_t LuaScriptInterface::luaDoTradeOrbs(lua_State* L)" caso de erro em alguma versão na compilação 
Server > Data > Lib > 050-function

Mostrar conteúdo oculto
Mostrar conteúdo oculto
function getAccountPoints(cid)
	local res = db.getResult('select `premium_points` from accounts where name LIKE \''..getPlayerAccount(cid)..'\'')
	return res:getDataInt("premium_points") < 0 and 0 or res:getDataInt("premium_points")
end

function doPlayerAddPoints(cid, quant)
return db.query("UPDATE `accounts` SET `premium_points` = '".. getAccountPoints(cid) + quant .."' WHERE `name` LIKE '"..getPlayerAccount(cid).."'")
end

function doAccountRemovePoints(cid, count)
	return db.query("UPDATE `accounts` SET `premium_points` = '".. getAccountPoints(cid) - count .."' WHERE `name` LIKE '"..getPlayerAccount(cid).."'")
end
Server > Data > Creaturescripts > Scripts >Trade_Orbs.lua

Mostrar conteúdo oculto
Mostrar conteúdo oculto
function CompleteTrade(fromplayer, toplayer, points)
	if getPlayerItemCount(toplayer, 7722) >= 1 and getAccountPoints(fromplayer) >= points then
    	doAccountRemovePoints(fromplayer, points)
		doPlayerRemoveItem(toplayer, 7722, 1)
		doPlayerAddPoints(toplayer, points)
		doPlayerSendTextMessage(toplayer, MESSAGE_STATUS_WARNING, "You have received ".. points .." Collapser Orbs.")
		return true
	end
end

function CollapserOrbs(item)
	return tonumber(string.match(getItemDescriptions(item.uid).special, "You see (%w+) Collapser Orbs."))
end

function onTradeAccept(cid, target, item, targetItem)
	if isPlayer(cid) and isPlayer(target) then
		if item.itemid == 7722 then
			local points = CollapserOrbs(item)
			addEvent(CompleteTrade, 1, cid, target, points)
		elseif targetItem.itemid == 7722 then
			local points = CollapserOrbs(targetItem)
			addEvent(CompleteTrade, 1, target, cid, points)
		end
	end
	return true
end 
Server > Data > Creaturescripts > Creaturescripts.xml

Mostrar conteúdo oculto
Mostrar conteúdo oculto
<event type="tradeaccept" name="Points_Trade" event="script" value="Trade_Orbs.lua"/>
Server > Data > Creaturescripts > Scripts > Login.lua

Mostrar conteúdo oculto
Mostrar conteúdo oculto
registerCreatureEvent(cid, "Points_Trade")
Server > Data > Talkactions > Scripts > Points_Trade.lua

Mostrar conteúdo oculto
Mostrar conteúdo oculto
function onSay(cid, words, param, channel)

local t = string.explode(param, ",")
local target = getCreatureByName(t[1])
local points = tonumber(t[2])

if(param == '') then
	return doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Command requires param.")
end

if (target ~= nil) and isPlayer(target) and not isPlayerGhost(target) then
	if (points ~= nil) and (type(points) == 'number') and (points>0) then
		if (getAccountPoints(cid) >= points) then
			doTradeOrbs(cid, target, points)
		else
			doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_RED, "You do not have enough points.")
		end
	else
		doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Invalid param specified.")
	end
else
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Invalid param specified.")
end

return true
end
Server > Data > Talkactions > Talkactions.xml

Mostrar conteúdo oculto
Mostrar conteúdo oculto
<talkaction words="/tradepoints" log="yes" event="script" value="Trade_Points.lua"/>
Créditos:
Todo o sistema foi feito completamente por mim: Vítor Subhi.
The Forgotten Server (Pelas Sources)

Vodkart, White Wolf, Natanael Beckman, e a todos os demais membros do TK que não lembro o nome, que contribuíram indiretamente através de seus tutoriais.

Caso alguem tenha erro ao compilar substitui a linha "int32_t LuaInterface::luaDoTradeOrbs(lua_State* L)" por "int32_t LuaScriptInterface::luaDoTradeOrbs(lua_State* L)"

Citar

Mention

KotZletY reagiu a isso
1

Postado Março 23, 2018 7 anos

Script deveras interessante. Muito bom conteúdo.

Citar

Mention

Postado Março 23, 2018 7 anos

Autor

Em 23/03/2018 em 00:56, Vinicius e Kamilla disse:

Caso alguem tenha erro ao compilar substitui a linha "int32_t LuaInterface::luaDoTradeOrbs(lua_State* L)" por "int32_t LuaScriptInterface::luaDoTradeOrbs(lua_State* L)"

Obrigado pela contribuição, poderá ajudar outros usuários que utilizem alguma versão diferente...

Em 23/03/2018 em 01:32, gabriel28 disse:

Script deveras interessante. Muito bom conteúdo.

Muito Obrigado, espero que lhe seja útil

Citar

Mention

Participe da conversa

Você pode postar agora e se cadastrar mais tarde. Se você tem uma conta, faça o login para postar com sua conta.

https://tibiaking.com/topic/88162-sistema-advanced-trade-points-v10/

Seguidores

Ir para a lista de tópicos

Nenhum usuário registrado visualizando esta página.

Fist Fighting/Attackspeed
tfs 0.3

Fist Fighting/Attackspeed
KekezitoLHP · Julho 29, 2013 12 anos
- c++
- 14 respostas
- 8574 visualizações
Celulose

Fevereiro 23 Fev 23
Task System 1.2+
tfs 1.2

Task System 1.2+
KotZletY · Outubro 2, 2017 7 anos
- perfect
- sistema
- system
- task
- 82 respostas
- 16868 visualizações
TefooBr

Março 15, 2024 1 ano
DISCORD RPC - Para Tibia [New Update]
c++

DISCORD RPC - Para Tibia [New Update]
Roy · Janeiro 7, 2021 4 anos
- 11 respostas
- 7403 visualizações
yuriowns

Fevereiro 12, 2023 2 anos
[Pokemon] Task System Full Separado Por Elementos
pda

[Pokemon] Task System Full Separado Por Elementos
Nextbr · Novembro 26, 2014 10 anos
- sistema
- 6 respostas
- 2710 visualizações
kaioboyy

Maio 11, 2020 5 anos
UPDATE 3: Moveitem + Antipush + Anti-Crash Elf Bot - Bug Fixes - TFS 0.4 11/04/2024
c++

UPDATE 3: Moveitem + Antipush + Anti-Crash Elf Bot - Bug Fixes - TFS 0.4 11/04/2024
L3K0T · Maio 21, 2020 5 anos
- c++
- moveitem
- tfs 0.4
- tfs 0.x
- 48 respostas
- 7587 visualizações
L3K0T

Outubro 17, 2022 2 anos

Tópicos 96.9k
Posts 519.9k

Respostas 17
Visualizações 3.7k
Created 7 anos7 anos
Última resposta 5 anos5 anos

Entrar

[Sistema] Advanced Trade Points v1.0

Featured Replies

Top Posters In This Topic

Popular Days

Most Popular Posts

Vinicius e Kamilla

VitorSubhi

VitorSubhi

Posted Images

Participe da conversa

Quem Está Navegando 0

Conteúdo Similar

Estatísticas dos Fóruns

Top Posters In This Topic

Popular Days

Most Popular Posts

Vinicius e Kamilla

VitorSubhi

VitorSubhi

Posted Images

Informação Importante

Account

Navigation

Pesquisar