Leilão System

Skymagnum
em Actions e Talkactions
  • 1
  • 2

Skymagnum

Hamburguer
avatar
Marquês
Marquês

INFOS

Grupo: MarquêsRegistrado: 02/08/12Posts: 1025Char no Tibia: Maurolkit

Olá, galerinha vim trazer o sistema de leilão

 

 

primeiramente vá em

 

/data/talkactions/scripts crie um arquivo chamado leilao.lua e adicione isso dentro

 

 

function onSay(cid, words, param)
config = {
acess = 4,
time = 5,
storage = {25601,25602,650213}
}
function getWinnerLeilao()
local w = tostring(getGlobalStorageValue(config.storage[1])):gsub(':', ''):explode(',')
if not getPlayerByNameWildcard(w[4]) then
local item = doCreateItemEx(w[1]-1, w[2])
local x = doItemSetAttribute(item, "description", "Item comprado em leilão por "..w[3].." gps.")
doPlayerSendMailByName(w[4], item)
else
local x = doPlayerAddItem(getPlayerByNameWildcard(w[4]), w[1], w[2])
doItemSetAttribute(x, "description", "Item comprado em leilão por "..w[3].." gps.")
end
doBroadcastMessage("O item ["..getItemNameById(w[1]).." : "..w[2].."] Foi vendido para o jogador "..w[4].." por "..w[3].." gps!")
setGlobalStorageValue(config.storage[1],-1)
setGlobalStorageValue(config.storage[2],-1)
for _, pid in pairs(getPlayersOnline()) do
setPlayerStorageValue(pid, config.storage[3], -1)
end
return db.executeQuery("DELETE FROM `player_storage` WHERE `key` = "..config.storage[3])
end
if words == "/leilao" then
if getPlayerAccess(cid) < config.acess then
doPlayerSendTextMessage(cid, 28, "Você não pode executar essa ação.") return true
end
local t = string.explode(param, ",")
if not tonumber(getGlobalStorageValue(config.storage[1])) then
doPlayerSendTextMessage(cid, 27, "Já há um leilão ativo no momento.") return true
elseif not tonumber(t[1]) or not tonumber(t[2]) or not tonumber(t[3]) then
doPlayerSendTextMessage(cid, 28, "Faltou parametro.")return true
elseif not isItemMovable(t[1]) then
doPlayerSendTextMessage(cid, 28, "Você não pode adicionar esse item no leilão.")return true
end
setGlobalStorageValue(config.storage[1], ":"..t[1]..",:"..(isItemStackable(t[1]) and t[2] or 1)..",:"..t[3]..",:"..getCreatureName(cid))
setGlobalStorageValue(config.storage[2], os.time()+ config.time*60)
doBroadcastMessage("[Leilão] O item ["..getItemNameById(t[1]).." : "..(isItemStackable(t[1]) and t[2] or 1).."] Está em leilão até "..os.date("%X ", getGlobalStorageValue(config.storage[2])).."\nLance Minimo: "..t[3].." gps.")
addEvent(getWinnerLeilao, config.time*1000*60)
elseif words == "!lance" then
if tonumber(getGlobalStorageValue(config.storage[1])) then
doPlayerSendTextMessage(cid, 27, "Não tem nenhum leilão ativo no momento.") return true
end
local s = tostring(getGlobalStorageValue(config.storage[1])):gsub(':', ''):explode(',')
if param == "lista" then
doShowTextDialog(cid,s[1], "Item: "..getItemNameById(s[1]).."\n\nQuantidade: "..s[2].."\n\nMaior lance atual: "..s[3].."\n\nJogador: "..s[4].."\n\nPrazo Final: "..os.date("%X ", getGlobalStorageValue(config.storage[2]))) return true
elseif not tonumber(param) or tonumber(param) <= 0 or tonumber(param) > 9999999 then
doPlayerSendTextMessage(cid, 28, "digite um número válido.") return true
end
local li = getPlayerStorageValue(cid, config.storage[3]) < 0 and 0 or getPlayerStorageValue(cid, config.storage[3])
local conta = (li + tonumber(param))
if conta <= tonumber(s[3]) then
doPlayerSendTextMessage(cid, 28, "você tem que dar um lance maior que "..s[3].." gps") return true
elseif not doPlayerRemoveMoney(cid, tonumber(param)) then
doPlayerSendTextMessage(cid, 28, "você não tem gps suficientes para dar um lance") return true
end
setPlayerStorageValue(cid, config.storage[3], conta)
setGlobalStorageValue(config.storage[1], ":"..s[1]..",:"..s[2]..",:"..conta..",:"..getCreatureName(cid))
doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_BLUE, "Parabéns, agora você deu o maior lance de "..conta.." gps no item [Nome: "..getItemNameById(s[1]).."] [Count: "..s[2].."]")
end
return true
end

 

 

talkactions.xml

<talkaction words="/leilao;!lance" script="leilao.lua"/>

 

Como usar

 

GOD fala

 

/leilao item, quantidade, lançe minimo

 

player fala

!lance lançe

 

player fala

!lance lista

 

 

para ver as info do leilão

 

Créditos

Eu

Vodkart

 

 

Imagens

 

 

1S1cU.png

God usou o comando /leilao 2494,1,30000

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

40yLm.png

O jogador Devil deu um lance 400000 gps, no caso maior lance

-----------

wonLc.png

Comando !lance lista

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

JoCnK.png

Depois de "X" minutos quem der o maior lance leva o item.

----------

rQDjX.png

Item com sua descrição

 

 

jeoz.png

Vodkart

Sumus Validus
avatar
Herói
Herói

INFOS

Grupo: HeróiRegistrado: 21/05/10Posts: 3406Gênero: Masculino

Para primeira versão até que ficou boa xD

 

REP +

 

espero update, próxima versão é para players

bossisg.png

SkyLigh

User X
avatar
Lorde
Lorde

INFOS

Grupo: LordeRegistrado: 23/07/12Posts: 2183Char no Tibia: Kissy

Ficou ótimo skymagnum parabéns

Att,
Kissy

Delaks

avatar
Barão
Barão

INFOS

Grupo: BarãoRegistrado: 27/12/11Posts: 200Char no Tibia: Delaks

Muito bom!! Acho q vou colocar no meu SV.

 

Boas.

MEUS TRABALHOS:

 

Mapa Wpr War:http://www.xtibia.co...6-mapa-wpr-war/

 

Mapa Subwat Kamikaze 13.0: http://www.xtibia.co...v13-atualizado/

 

Mapa Subwat Kamikaze 21.0 http://www.xtibia.co...v21-atualizado/

 

Mapa Subwat Kamikaze 23.0 http://www.xtibia.co...o/#entry1325655

 

Mapa Subwat Kamikaze 24.0 http://www.xtibia.co...012-atualizado/

 

Mapa Subwat Kamikaze 25.0 http://www.xtibia.co...79#entry1485679

 

Mapa Subwat Kamikaze 26.0 http://www.xtibia.co...ualizacao-2403/

 

Mapa Subwat Kamikaze 27.0 http://www.xtibia.com/forum/topic/213926-subwat-kamikaze-v27-05052013/

 

 

Ajudei? Rep+ Thanks Msn: guilherme-alegretti@hotmail.com

RHCP

avatar
Cavaleiro
Cavaleiro

INFOS

Grupo: CavaleiroRegistrado: 27/07/07Posts: 178

Ótimo, irei colocar em meu global quando fizer o update (Faltou indentar apenas...).

Vodkart

Sumus Validus
avatar
Herói
Herói

INFOS

Grupo: HeróiRegistrado: 21/05/10Posts: 3406Gênero: Masculino

Ótimo, irei colocar em meu global quando fizer o update (Faltou indentar apenas...).

o xtibia quebra a indentação

bossisg.png

brenerlm

Escrevi sai correndo, pnc de qm ta lendo!
avatar
Artesão
Artesão

INFOS

Grupo: ArtesãoRegistrado: 11/12/11Posts: 119Char no Tibia: COMI

Muito show mesmo velho REP+

Uma punição legal seria negativar o usuário de acordo com o alerta.

10% de alerta = 10% de sua atual reputação como reputações negativas.

Alguém que tem 100 reputações, recebeu 10% de alerta, ganha 10 reputações negativas.

Mas é claro, apenas se o lôro sedento por biscoito concordar.

7zj6xs4bg6jg.gifnWZJsK7.gif

RHCP

avatar
Cavaleiro
Cavaleiro

INFOS

Grupo: CavaleiroRegistrado: 27/07/07Posts: 178

Ótimo, irei colocar em meu global quando fizer o update (Faltou indentar apenas...).

o xtibia quebra a indentação

 

Não sabia... sacanagem isso HSUAHUSHA

Srry.

SamueLGuedes

Coordenador *-*
avatar
Marquês
Marquês

INFOS

Grupo: MarquêsRegistrado: 18/05/11Posts: 1069Gênero: MasculinoChar no Tibia: Kyuzen

sistema legal em parabens continue assim que voçe vai longe ;]

 

 

My Show-OFF

jhonatanp

avatar
Visconde
Visconde

INFOS

Grupo: ViscondeRegistrado: 28/07/12Posts: 273Char no Tibia: Kisame of Tenebra

Consegue colocar para protocolo 8.0 ?

desrhw.png

RHCP

avatar
Cavaleiro
Cavaleiro

INFOS

Grupo: CavaleiroRegistrado: 27/07/07Posts: 178

Seria legal implementação com site.

Tipo, o site informasse o andamento do leilão...

Skymagnum

Hamburguer
avatar
Marquês
Marquês

INFOS

Grupo: MarquêsRegistrado: 02/08/12Posts: 1025Char no Tibia: Maurolkit

Desculpe, mais não sei mecher com gesior essas coisas etc... .

jeoz.png

matheusfera

avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 22/05/10Posts: 64

AI GALERA COLOQUEI NO MEU OT E FUNFO CERTINHO MAIS TIPO NAO INTENDI MT BEM A PARTE DO TEMPO DE LEILAO

 

TERIA COMO VCS COLOKAREM PRA MIN UM COM 5 MINUTOS DE DURAÇAO E 1 COM 1 DIA DE DURAÇAO ?

 

VLW

 

SHADOWNZINHO

 

EDIT ~~~~~~~~~~~~~~~~~~~

LOL EXECULTEI O COMANDO DE LEILAO E FALO QUE ERA ATE X HORAS DAVA 5 MIN PASSO 1-2-3 HORAS E NADA DE FINALIZAR O LEILAO

 

EXISTE ALGUM COMANDO PRA FINALIZA LEILAO ?

Site Do Meu OT

 

{ShadownServer.BlogSpot.Com.Br}

 

 

IP Do Meu OT

 

{ShadownServer.ServeGame.Com}

 

 

 

Ajudei ? Rep+

Rasinsk

avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 20/10/12Posts: 58

Legal, adorei, parabéns pelo seu trabalho

Lendreo

avatar
Visconde
Visconde

INFOS

Grupo: ViscondeRegistrado: 22/07/12Posts: 298Char no Tibia: Lendreo

Legal, adorei, parabéns pelo seu trabalho

 

Seu comentário é considerado como flood, reportado.

  • 1
  • 2