Ir para conteúdo
TK News
  • Cadastre-se

Action%252525252525252525252FTalkaction [Talk] DeathList para Server Sqlite 1.0

Vodkart

Por ,
em Scripts tfs 0.4 (OLD)

 Share Seguidores 1

Posts Recomendados

Vodkart

Vodkart 2156

Postado
Postado (editado)

Atualizado V1.0:

Mostra últimas mortes do servidor:

1x19B.png

você pode usar o comando !deathlist NOME

ex: !deathlist Carlin:

ar7Kj.png

in your db execute this query:


CREATE TABLE death_list (

	id		  INTEGER NOT NULL,

	player_id   INTEGER NOT NULL,

	date		INTEGER NOT NULL,

	level	   INTEGER NOT NULL,

	killer_name INTEGER NOT NULL,

	PRIMARY KEY ( id )

);
creaturescript death_list.lua 
function onDeath(cid, corpse, deathList)

local str = ""

        for _, pid in ipairs(deathList) do

                if isCreature(pid) == true then

str = str.."".. (str == "" and "" or ",") ..""..getCreatureName(pid)

                else

str = str.."".. (str == "" and "" or ",") .." a field item"

                end

        end

str = str.."."

death = str .. " ".. (getPlayerBlessing(cid, 5) and "[Blessed]" or getPlayerSlotItem(cid, 2).itemid == 2173 and "[AOL]" or "")

db.executeQuery("INSERT INTO `death_list` (`player_id`, `date`, `level`, `killer_name`) VALUES ('".. getPlayerGUID(cid).."', '".. os.time() .."', '".. getPlayerLevel(cid) .."', '".. death .."');")

return true

end
creaturescript.xml 
<event type="death" name="DeathList" event="script" value="death_list.lua"/>
creaturescript/script/login.lua 
registerCreatureEvent(cid, "DeathList")
talkactions deathlist.lua 
limit = 5

function onSay(cid, words, param, channel)

str = ""

if param == "" then

local qry = db.getResult("SELECT `player_id`, `date`, `level`, `killer_name` FROM `death_list` ORDER BY `date` DESC LIMIT 0, " .. limit)

if(qry:getID() ~= -1) then

repeat

str = str .."\n "..os.date("%d %B %Y %X ", qry:getDataInt("date")).." "..getPlayerNameByGUID(qry:getDataString("player_id")).." died at level "..qry:getDataInt("level").." by:\n"..qry:getDataString("killer_name")

until not(qry:next())

qry:free()

else

str = "Não há mortes no servidor."

end

doPlayerPopupFYI(cid, "Last Deaths:\n\n" .. str)

return true

end

local getPlayer = db.getResult("SELECT `name`, `id` FROM `players` WHERE `name` = " .. db.escapeString(param) .. ";")

if(getPlayer:getID() == -1) then doPlayerSendCancel(cid, "Este Player não existe.") return true end

local getGuid = getPlayer:getDataInt("id")

getPlayer:free()

local qry = db.getResult("SELECT `id`, `date`, `level`, `killer_name` FROM `death_list` WHERE `player_id` = " .. getGuid .." ORDER BY `date` DESC LIMIT 0, " .. limit)

if(qry:getID() ~= -1) then

repeat

str = str .."\n "..os.date("%d %B %Y %X ", qry:getDataInt("date")).." died at level "..qry:getDataInt("level").." by:\n"..qry:getDataString("killer_name")

until not(qry:next())

qry:free()

else

str = "Não há mortes."

end

doPlayerPopupFYI(cid, "Last Deaths of: " .. param .. ".\n\n" .. str)

return true

end
talkactions.xml 
<talkaction words="!deathlist" script="deathlist.lua"/>

Editado por Vodkart (veja o histórico de edições)

vodkart_logo.png

[*Ninguém será digno do sucesso se não usar suas derrotas para conquistá-lo.*]

 

DISCORD: vodkart#6090

 

Link para o post
Compartilhar em outros sites
Skydangerous

Skydangerous 374

Postado
Postado

é muito bom esse deathlist.

Curti pra caramba, belo script.

Parabéns, novamente.

 http://baiakuza.com/
IP: baiakuza.com
TIBIA: 10.96
Baiak Custom [ High Exp Rate ]

 

 

 

 

Link para o post
Compartilhar em outros sites
Vodkart

Vodkart 2156

Postado
  • Autor
Postado

ATUALIZADO PARA V.1

- Mostra agora se o player morreu [blessed] ou com [Aol]

- Mostra últimas mortes do servidor

vodkart_logo.png

[*Ninguém será digno do sucesso se não usar suas derrotas para conquistá-lo.*]

 

DISCORD: vodkart#6090

 

Link para o post
Compartilhar em outros sites
Vodkart

Vodkart 2156

Postado
  • Autor
Postado

obrigado pelos comentários

abraços

vodkart_logo.png

[*Ninguém será digno do sucesso se não usar suas derrotas para conquistá-lo.*]

 

DISCORD: vodkart#6090

 

Link para o post
Compartilhar em outros sites
GabrielSv

GabrielSv 68

Postado
Postado

vodkart curti seu script realmente muito bom

Outra Coisa Quando Olho Para A Foto Do Seu Perfil Eu Racho Pra Carambra kkkkkkkk

Link para o post
Compartilhar em outros sites
Vodkart

Vodkart 2156

Postado
  • Autor
Postado

vodkart curti seu script realmente muito bom

Outra Coisa Quando Olho Para A Foto Do Seu Perfil Eu Racho Pra Carambra kkkkkkkk

obrigado

as mina pira com o meu visual

da um charme

vodkart_logo.png

[*Ninguém será digno do sucesso se não usar suas derrotas para conquistá-lo.*]

 

DISCORD: vodkart#6090

 

Link para o post
Compartilhar em outros sites
  • 2 weeks later...
Flaah

Flaah 2

Postado
Postado

Atualizado V1.0:

Mostra últimas mortes do servidor:

1x19B.png

você pode usar o comando !deathlist NOME

ex: !deathlist Carlin:

ar7Kj.png

in your db execute this query:


CREATE TABLE death_list (

	id		  INTEGER NOT NULL,

	player_id   INTEGER NOT NULL,

	date		INTEGER NOT NULL,

	level	   INTEGER NOT NULL,

	killer_name INTEGER NOT NULL,

	PRIMARY KEY ( id )

);
creaturescript death_list.lua 
function onDeath(cid, corpse, deathList)

local strings = {""}

local t, position = 1, 1

	for _, pid in ipairs(deathList) do

		if isCreature(pid) == true then

			strings[position] = t == 1 and "" or strings[position] .. ", "

			strings[position] = strings[position] .. getCreatureName(pid) .. ""

			t = t + 1

		else

			strings[position] = t == 1 and "" or strings[position] .. ", "

			strings[position] = strings[position] .."a field item"

			t = t + 1

		end

	end

	for i, str in ipairs(strings) do

		if(str:sub(str:len()) ~= ",") then

			str = str .. "."

		end

		death = str .. " ".. (getPlayerBlessing(cid, 5) and "[Blessed]" or getPlayerSlotItem(cid, 2).itemid == 2173 and "[AOL]" or "")

	end

db.executeQuery("INSERT INTO `death_list` (`player_id`, `date`, `level`, `killer_name`) VALUES ('".. getPlayerGUID(cid).."', '".. os.time() .."', '".. getPlayerLevel(cid) .."', '".. death .."');")

return true

end
creaturescript.xml 
<event type="death" name="DeathList" event="script" value="death_list.lua"/>
creaturescript/script/login.lua 
registerCreatureEvent(cid, "DeathList")
talkactions deathlist.lua 
limit = 5

function onSay(cid, words, param, channel)

str = ""

if param == "" then

local qry = db.getResult("SELECT `player_id`, `date`, `level`, `killer_name` FROM `death_list` ORDER BY `date` DESC LIMIT 0, " .. limit)

if(qry:getID() ~= -1) then

repeat

str = str .."\n "..os.date("%d %B %Y %X ", qry:getDataInt("date")).." "..getPlayerNameByGUID(qry:getDataString("player_id")).." died at level "..qry:getDataInt("level").." by:\n"..qry:getDataString("killer_name")

until not(qry:next())

qry:free()

else

str = "Não há mortes no servidor."

end

doPlayerPopupFYI(cid, "Last Deaths:\n\n" .. str)

return true

end

local getPlayer = db.getResult("SELECT `name`, `id` FROM `players` WHERE `name` = " .. db.escapeString(param) .. ";")

if(getPlayer:getID() == -1) then doPlayerSendCancel(cid, "Este Player não existe.") return true end

local getGuid = getPlayer:getDataInt("id")

getPlayer:free()

local qry = db.getResult("SELECT `id`, `date`, `level`, `killer_name` FROM `death_list` WHERE `player_id` = " .. getGuid .." ORDER BY `date` DESC LIMIT 0, " .. limit)

if(qry:getID() ~= -1) then

repeat

str = str .."\n "..os.date("%d %B %Y %X ", qry:getDataInt("date")).." died at level "..qry:getDataInt("level").." by:\n"..qry:getDataString("killer_name")

until not(qry:next())

qry:free()

else

str = "Não há mortes."

end

doPlayerPopupFYI(cid, "Last Deaths of: " .. param .. ".\n\n" .. str)

return true

end
talkactions.xml 
<talkaction words="!deathlist" script="deathlist.lua"/>

Teria como modifica o estilo dessas janelas?

Exemplo: Em ves desse estilo de janela poderia ser de outro tipo?

Como: doShowTextDialog(cid, 2175, text)

"Pense nisso você tbm"

"Tudo o que um sonho precisa para ser realizado é alguém que acredite que ele possa ser realizado"

35l7z91.jpg

Link para o post
Compartilhar em outros sites
  • 2 months later...
Vodkart

Vodkart 2156

Postado
  • Autor
Postado

código onDeath atualizado

oq acham de colocar um Death Channel onde vai mostrar as últimas mortes do servidor?

@up

sim sim

vodkart_logo.png

[*Ninguém será digno do sucesso se não usar suas derrotas para conquistá-lo.*]

 

DISCORD: vodkart#6090

 

Link para o post
Compartilhar em outros sites
  • 1 month later...
DoidoPox

DoidoPox 8

Postado
Postado

cara uma duvida

CREATE TABLE death_list (

id INTEGER NOT NULL,

player_id INTEGER NOT NULL,

date INTEGER NOT NULL,

level INTEGER NOT NULL,

killer_name INTEGER NOT NULL,

PRIMARY KEY ( id )

);

ond vai isso?

Link para o post
Compartilhar em outros sites

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.

Visitante
Responder

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emojis são permitidos.

×   Seu link foi automaticamente incorporado.   Mostrar como link

×   Seu conteúdo anterior foi restaurado.   Limpar o editor

×   Não é possível colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Seguidores 1
Ir para a lista de tópicos

  • Quem Está Navegando   0 membros estão online

    Nenhum usuário registrado visualizando esta página.

TibiaKing

Open Tibia Server

Quer aprender a criar seu próprio servidor de Tibia? Então está no lugar certo, aqui você encontrará milhares de tutorias, scripts, códigos, mapas e utilitários para que você possa fazer o seu próprio servidor de Tibia começando do zero.

Redes Sociais

Anuncie no TibiaKing

Precisa de mais visibilidade em seus projetos? Quer fazer um plano publicitário para o seu servidor? Anuncie no OTKing e faça sua divulgação, possuímos centenas de acessos simultâneos e milhares diários, com certeza será a sua solução!

×
×
  • Criar Novo...

Informação Importante

Confirmação de Termo

  Eu aceito