Sitema%2525252FMod [MOD] Characters Market System

[WarW0lf 347]

Trouxe pra vocês mais um sistema que é útil para muitos servers, o Characters Market System (Mercado de Personagens)

O que é: É um sistema em que você pode colocar um character à venda por um preço que você mesmo define, tudo dentro do jogo!

Instalação

Vá em mods e crie marketplayer.xml

Data provided by Pastebin.com - Download Raw - See Original

<?xml version="1.0" encoding="UTF-8"?>

<mod name="Characters Market System" version="1.0" author="LuckOake" contact="none" enabled="yes">

------------------------------------------------------------------------------------

<config name="market"><![CDATA[

price = 27112

owner = 27113

level = 30 -- Level mínimo que o character deve ter para ser vendido

min_price = 100 -- Preço mínimo de um character

max_price = 1000000 -- Preço máximo de um character


function doTransferCharacter(cid, accId)

	 return db.executeQuery("UPDATE `players` SET `account_id` = "..accId.." WHERE `id` = "..getPlayerGUIDByName(cid).."")

end


function doOfflinePlayerAddMoney(guid, money)

	 return db.executeQuery("UPDATE `players` SET `balance` = `balance` + '"..money.."' WHERE `id` = '"..getPlayerGUIDByName(guid).."';")

end


function setOfflinePlayerStorageValue(name, key, value)

	 local result = db.getResult("SELECT * FROM `player_storage` WHERE `player_id` = ".. getPlayerGUIDByName(name) .." AND `key` = ".. key ..";")

	 if result:getID() == -1 then

			 return db.executeQuery("INSERT INTO `player_storage` (`player_id`, `key`, `value`) VALUES (".. getPlayerGUIDByName(name) ..", ".. key ..", ".. value ..");")

	 else

			 result:free()

			 return db.executeQuery("UPDATE `player_storage` SET `value` = ".. value .." WHERE `player_id` = ".. getPlayerGUIDByName(name) .." AND `key` = ".. key ..";")

	 end

end


function getOfflinePlayerStorageValue(name, key)

	 local result, ret = db.getResult("SELECT `value` FROM `player_storage` WHERE `player_id` = '".. getPlayerGUIDByName(name) .."' AND `key` = ".. key ..";")

	 if result:getID() == -1 then

			 return nil

	 end

	 ret = result:getDataInt("value")

	 result:free()

	 return ret

end


function getOfflinePlayerValue(name, value)

	 local result, ret = db.getResult("SELECT `"..value.."` FROM `players` WHERE `id` = "..getPlayerGUIDByName(name)..";")

	 ret = result:getDataInt(value)

	 result:free()

	 return ret

end


function isCharacterForSale(name)

	 if not getOfflinePlayerStorageValue(name, price) or getOfflinePlayerStorageValue(name, price) < 1 then

	 return false

	 else

	 return true

	 end

end

]]></config>

------------------------------------------------------------------------------------

<talkaction words="!character" event="buffer"><![CDATA[

domodlib('market')

	 local t = string.explode(param, ",")


	 if t[1] == "sell" then

			 if not t[3] or not tonumber(t[3]) or t[4] or tonumber(t[2]) then

					 doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Incorrect Params. Specify the character name and the price.") return true

			 elseif getPlayerAccountId(cid) ~= getAccountIdByName(t[2]) then

					 doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "This is not your character.") return true

			 elseif isCharacterForSale(t[2]) then

					 doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "This character is already for sale.") return true

			 elseif getPlayerGUIDByName(t[2]) == getPlayerGUID(cid) then

					 doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "You cannot sell yourself.") return true

			 elseif getPlayerByName(t[2]) then

					 doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "The character must be offline to be sold.") return true

			 elseif getOfflinePlayerValue(t[2], "level") < level then

					 doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Your character can't be sold until it has level "..level..".") return true

			 elseif tonumber(t[3]) < min_price then

					 doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Sorry, but the minimum price for selling a character is "..min_price..".") return true

			 elseif tonumber(t[3]) > max_price then

					 doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Sorry, but the maximum price for selling a character is "..max_price..".") return true

			 end


					 setOfflinePlayerStorageValue(t[2], price, t[3])

					 setOfflinePlayerStorageValue(t[2], owner, getPlayerGUID(cid))

					 doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, 'Your character "'..t[2]..'" is now for sale for the price of "'..t[3]..'" gold coins.')

	 elseif t[1] == "buy" then

			 if not t[2] then

					 doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Incorrect Params. Specify the character name.") return true

			 elseif not playerExists(t[2]) then

					 doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "This character doesn't exist.") return true

			 elseif getPlayerAccountId(cid) == getAccountIdByName(t[2]) then

					 doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "You can't buy your own character.") return true

			 elseif not isCharacterForSale(t[2]) then

					 doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "This character is not for sale.") return true

			 elseif not doPlayerRemoveMoney(cid, getOfflinePlayerStorageValue(t[2], price)) then

					 doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Not enough money. This character's price is "..getOfflinePlayerStorageValue(t[2], price).." gold coins.") return true

			 end


			 if not getPlayerByGUID(getOfflinePlayerStorageValue(t[2], owner)) then

					 doOfflinePlayerAddMoney(getPlayerNameByGUID(getOfflinePlayerStorageValue(t[2], owner)), getOfflinePlayerStorageValue(t[2], price))

					 setOfflinePlayerStorageValue(getPlayerNameByGUID(getOfflinePlayerStorageValue(t[2], owner)), 41792, getPlayerGUIDByName(t[2]))

			 else

					 doPlayerAddMoney(getPlayerByGUID(getOfflinePlayerStorageValue(t[2], owner)), getOfflinePlayerStorageValue(t[2], price))

					 doPlayerSendTextMessage(getPlayerByGUID(getOfflinePlayerStorageValue(t[2], owner)), MESSAGE_STATUS_CONSOLE_BLUE, 'Your character "'..t[2]..'" has been sold for the price of '..getOfflinePlayerStorageValue(t[2], price)..' gold coins.')

			 end

					 doTransferCharacter(t[2], getPlayerAccountId(cid))

					 doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, 'You bought the character "'..t[2]..'" for the price of '..getOfflinePlayerStorageValue(t[2], price)..' gold coins.')

					 setOfflinePlayerStorageValue(t[2], owner, -1)

					 setOfflinePlayerStorageValue(t[2], price, -1) return true

	 elseif t[1] == "remove" then

			 if not t[2] then

					 doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Incorrect Params. Specify the character name.") return true

			 elseif getPlayerAccountId(cid) ~= getAccountIdByName(t[2]) then

					 doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "This is not your character.") return true

			 elseif not isCharacterForSale(t[2]) then

					 doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "This character is not for sale.") return true

			 end


					 setOfflinePlayerStorageValue(t[2], price, -1)

					 doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, 'You removed the character "'..t[2]..'" from the Characters Market.') return true

	 elseif t[1] == "list" then

			 local result = db.getResult("SELECT `name` FROM `players`")

			 if result:getID() == -1 then

					 return true

			 end

			 local msg = "Characters for Sale:\n\n"

			 while true do

					 local name = result:getDataString("name")

					 if isCharacterForSale(name) then

					 local sex = getOfflinePlayerValue(name, "sex") == 1 and "Male" or "Female"

							 msg = ""..msg.." - ".. name .." (Level: "..getOfflinePlayerValue(name, "level").." / Vocation: "..getVocationInfo(getOfflinePlayerValue(name, "vocation")).name.." / Sex: "..sex.." / Owner: "..getPlayerNameByGUID(getOfflinePlayerStorageValue(name, owner))..") [Price: "..getOfflinePlayerStorageValue(name, price).."] \n"

					 end

					 if not result:next() then

							 break

					 end

			 end

					 doPlayerPopupFYI(cid, msg) return true

	 elseif not t[1] or t[1] ~= "buy" or t[1] ~= "sell" or t[1] ~= "remove" or t[1] ~= "list" then

			 doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Incorrect params. You can only 'buy' or 'sell' a character, 'remove' it from the Characters Market or see the 'list' of characters for sale.") return true

	 end

return true

]]></talkaction>

------------------------------------------------------------------------------------

<event type="login" name="MarketLogin" event="script"><![CDATA[

function onLogin(cid)

domodlib('market')

	 if getPlayerStorageValue(cid, price) > 0 then return false

	 elseif getPlayerStorageValue(cid, 41792) ~= -1 then

			 doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "You sold the character "..getPlayerNameByGUID(getPlayerStorageValue(cid, 41792))..". The money is in your bank account.")

			 setPlayerStorageValue(cid, 41792, -1)

	 end

return true

end

]]></event>

</mod>

-------------------------------------------------------------------------------

------------------------------------------------------------------------------- -------------------------------------------------------------------------------

Configurando:

level = 30 -- Level mínimo que o character deve ter para ser vendido

min_price = 100 -- Preço mínimo de um character

max_price = 1000000 -- Preço máximo de um character

Comandos:

!character buy,nome -- Compra um character

!character sell,nome,preço -- Vende um character

!character remove,nome -- Remove um character da lista de vendas, caso ele esteja à venda

!character list -- Vê a lista de characters disponíveis para a venda

Observações:

- O character é transferido para a conta do comprador automaticamente ao ser comprado

- Funciona em 0.3.6 pra cima

- Em algumas versões de servers, pode dar erro na list de characters.

Créditos:

LuckOake -- Pelo Sistema

Oneshot -- Pela ajuda com algumas funções

Demonbholder -- Pela ajuda com algumas funções

[Gustavo Ferreira 741]

é realmente um bom sistema! Luck sempre inovando!

[MaXwEllDeN 892]

Isso aí eu nunca tinha visto antes , ótima ideia. Acho que ficaria mais legal se fosse com um npc, e lá tivesse um outro npc "Manequim", que ficaria com a mesma roupa, cor addons e tal que o npc estava, quando o cara falasse com esse manequim ele poderia falar os skills dele, outfits e addons que ele tem. Mas esse aí não deixa de ser um ótimo sistema, bacana