Ir para conteúdo
  • Cadastre-se

Posts Recomendados

esse aki V
 
 
 
--[[ SCRIPTING>Linnux <scriptING ]]
 
--[[ [Advanced Reset System]
Autor: MarcelloMkez
Versão: 1.0
TFS: 0.3.6
Testado em: 8.60
 
[Características]
~ Versão 1.0 ~
 
- Resets no Look;
- Premium Account ou não;
- Mudar Vocação;
- Limite de Resets;
- Opções para Abilitar e Desabilitar Condições;
 
[Em Construção]
 
- Stages Free e Premium;
- 'Talvez' um novo sistema de mudar Vocação;
sem data para postagem. ]]
 
 
 
function onSay(cid, words, param)
 
--[Configurações de Condição]__
 
config = { --[[verdadeiro / Falso]]
 
needPa = false, -- Precisa de Premium Account? [true / false]
needPz = true, -- Precisa estar em Protection Zone? [true / false]
battle = false, -- Precisa estar sem Batlle para Resetar? [true / false]
withe = true, -- Players PK Withe pode Resetar? [true / false]
red = true, -- Players PK Red pode Resetar? [true / false]
tp = false, -- Teleportar para o Templo após o reset? [true / false]
look = true, -- Mostrar Resets no Look do Player? [true / false]
addLimite = true, -- Abilitar Limite de Resets? [true / false]
setClasse =false, -- Mudar Vocação do player quando resetar? [true / false]
storage = 2310, -- Storage [valor]
 
 
--[Configurações do Reset]__
 
resetStatus = {
 
player = getPlayerGUID(cid), -- Não Mude.
lvl = 1000 , -- Level Necessário para Resetar. [valor]
lvlreset = 200, -- Level que retornará após o Reset. [valor]
limite = 30, -- Máximo de resets que um player pode chegar. [valor]
newClasse = 1, -- Id da Nova Vocação após o Reset. [valor]
tempo= 5 -- Tempo para o Player deslogar para Resetar. Em segundos. [valor]
},
}
 
--[Funções]__
 
function Reseting(cid)
resets = getResets(cid)
setPlayerStorageValue(cid,config.storage,resets+1)
doTeleportThing(cid, getTownTemplePosition(getPlayerTown(cid)))
doPlayerSetVocation(cid, config.resetStatus.newClasse)
doRemoveCreature(cid)
db.executeQuery("UPDATE `players` SET `description` = ' [Reset "..resets.."]' WHERE `players`.`id` = "..config.resetStatus.player)
db.executeQuery("UPDATE `players` SET `level` = "..config.resetStatus.lvlreset..", `experience` = 0 WHERE `id` = "..config.resetStatus.player)
return TRUE
end
 
function noAll(cid)
resets = getResets(cid)
setPlayerStorageValue(cid,config.storage,resets+1)
doRemoveCreature(cid)
db.executeQuery("UPDATE `players` SET `level` = "..config.resetStatus.lvlreset..", `experience` = 0 WHERE `id` = "..config.resetStatus.player)
db.executeQuery("UPDATE `players` SET `description` = '' WHERE `players`.`id` = "..config.resetStatus.player)
return TRUE
end
 
function noTeleporting(cid)
resets = getResets(cid)
setPlayerStorageValue(cid,config.storage,resets+1)
doPlayerSetVocation(cid, config.resetStatus.newClasse)
doRemoveCreature(cid)
db.executeQuery("UPDATE `players` SET `level` = "..config.resetStatus.lvlreset..", `experience` = 0 WHERE `id` = "..config.resetStatus.player)
db.executeQuery("UPDATE `players` SET `description` = ' [Reset "..resets.."]' WHERE `players`.`id` = "..config.resetStatus.player)
return TRUE
end
 
function noLook(cid)
resets = getResets(cid)
setPlayerStorageValue(cid,config.storage,resets+1)
doPlayerSetVocation(cid, config.resetStatus.newClasse)
doTeleportThing(cid, getTownTemplePosition(getPlayerTown(cid)))
doRemoveCreature(cid)
db.executeQuery("UPDATE `players` SET `level` = "..config.resetStatus.lvlreset..", `experience` = 0 WHERE `id` = "..config.resetStatus.player)
db.executeQuery("UPDATE `players` SET `description` = '' WHERE `players`.`id` = "..config.resetStatus.player)
return TRUE
end
 
function noClasse(cid)
resets = getResets(cid)
setPlayerStorageValue(cid,config.storage,resets+1)
doTeleportThing(cid, getTownTemplePosition(getPlayerTown(cid)))
doRemoveCreature(cid)
db.executeQuery("UPDATE `players` SET `description` = ' [Reset "..resets.."]' WHERE `players`.`id` = "..config.resetStatus.player)
db.executeQuery("UPDATE `players` SET `level` = "..config.resetStatus.lvlreset..", `experience` = 0 WHERE `id` = "..config.resetStatus.player)
return TRUE
end
 
function setClasse(cid)
resets = getResets(cid)
setPlayerStorageValue(cid,config.storage,resets+1)
doPlayerSetVocation(cid, config.resetStatus.newClasse)
doRemoveCreature(cid)
db.executeQuery("UPDATE `players` SET `description` = '' WHERE `players`.`id` = "..config.resetStatus.player)
db.executeQuery("UPDATE `players` SET `level` = "..config.resetStatus.lvlreset..", `experience` = 0 WHERE `id` = "..config.resetStatus.player)
return TRUE
end
 
function look(cid)
resets = getResets(cid)
setPlayerStorageValue(cid,config.storage,resets+1)
doRemoveCreature(cid)
db.executeQuery("UPDATE `players` SET `description` = ' [Reset "..resets.."]' WHERE `players`.`id` = "..config.resetStatus.player)
db.executeQuery("UPDATE `players` SET `level` = "..config.resetStatus.lvlreset..", `experience` = 0 WHERE `id` = "..config.resetStatus.player)
return TRUE
end
 
function teleporting(cid)
resets = getResets(cid)
setPlayerStorageValue(cid,config.storage,resets+1)
doTeleportThing(cid, getTownTemplePosition(getPlayerTown(cid)))
doRemoveCreature(cid)
db.executeQuery("UPDATE `players` SET `description` = '' WHERE `players`.`id` = "..config.resetStatus.player)
db.executeQuery("UPDATE `players` SET `level` = "..config.resetStatus.lvlreset..", `experience` = 0 WHERE `id` = "..config.resetStatus.player)
return TRUE
end
 
function getResets(cid)
resets = getPlayerStorageValue(cid,config.storage)
 
if resets < 0 then
resets = 0
end
return resets
 
end
 
 
local resets = getResets(cid)
local needLvl ="Você precisa de "..config.resetStatus.lvl-getPlayerLevel(cid).." level's para resetar."
local msg ="~~[Reset: "..getResets(cid).."]~~ 'Sucesso ao Resetar! Você será deslogado em "..config.resetStatus.tempo.." Segundos."
 
 
--[Condiçoes]__
 
if(config.needPz == true) and (getTilePzInfo(getCreaturePosition(cid)) == FALSE) then
doPlayerSendTextMessage(cid,22,"Você Precisa estar em Protection Zone Para Resetar.")
return TRUE
 
elseif(config.addLimite == true) and (getResets(cid) == config.resetStatus.limite) then
doPlayerSendTextMessage(cid, 22, "Você ja atingiu o Limite de Resets.")
return TRUE
 
elseif(config.withe == false) and (getCreatureSkullType(cid) == 3) then
doPlayerSendTextMessage(cid,22,"Você ta PK White, por isso não pode resetar.")
return TRUE
 
elseif(config.red == false) and (getCreatureSkullType(cid) == 4) then
doPlayerSendTextMessage(cid,22,"Você ta PK Red, por isso não pode resetar.")
return TRUE
 
elseif(config.needPa == true) and not isPremium(cid) then
doPlayerSendTextMessage(cid,22,"Você Precisa ser Premium Account para Resetar.")
return TRUE
 
elseif(config.battle == true) and (getCreatureCondition(cid, CONDITION_INFIGHT) == TRUE) then
doPlayerSendTextMessage(cid,22,"Você Precisa estar sem Battle para Resetar.")
return TRUE
 
elseif getPlayerLevel(cid) >= config.resetStatus.lvl and (config.tp == true) and (config.look == true) and (config.setClasse == true) then
addEvent(Reseting, config.resetStatus.tempo* 1000, cid)
 
elseif getPlayerLevel(cid) >= config.resetStatus.lvl and (config.tp == false) and (config.look == false) and (config.setClasse == false) then
addEvent(noAll, config.resetStatus.tempo* 1000, cid)
 
elseif getPlayerLevel(cid) >= config.resetStatus.lvl and (config.tp == false) and (config.look == true) and (config.setClasse == true) then
addEvent(noTeleporting, config.resetStatus.tempo* 1000, cid)
 
elseif getPlayerLevel(cid) >= config.resetStatus.lvl and (config.tp == true) and (config.look == false) and (config.setClasse == true) then
addEvent(noLook, config.resetStatus.tempo* 1000, cid)
 
elseif getPlayerLevel(cid) >= config.resetStatus.lvl and (config.tp == true) and (config.look == true) and (config.setClasse == false) then
addEvent(noClasse, config.resetStatus.tempo* 1000, cid)
 
elseif getPlayerLevel(cid) >= config.resetStatus.lvl and (config.tp == false) and (config.look == false) and (config.setClasse == true) then
addEvent(setClasse, config.resetStatus.tempo* 1000, cid)
 
elseif getPlayerLevel(cid) >= config.resetStatus.lvl and (config.tp == false) and (config.look == true) and (config.setClasse == false) then
addEvent(look, config.resetStatus.tempo* 1000, cid)
 
elseif getPlayerLevel(cid) >= config.resetStatus.lvl and (config.tp == true) and (config.look == false) and (config.setClasse == false) then
addEvent(teleporting, config.resetStatus.tempo* 1000, cid)
 
elseif doPlayerSendCancel(cid, needLvl) then
doSendMagicEffect(getPlayerPosition(cid), CONST_ME_POFF)
return TRUE
end
 
if doPlayerPopupFYI(cid, msg) then
 
end
return TRUE
 
end
 
--[by: Linnux]__
Link para o post
Compartilhar em outros sites

em talkactions\scripts:

function onSay(cid, words, param)

local level = getPlayerLevel(cid)
local vocation = getPlayerVocationName(cid)
local health, maxhealth = getCreatureHealth(cid), getCreatureMaxHealth(cid)
local mana, maxmana = getCreatureMana(cid), getCreatureMaxMana(cid)
local fist, club, sword, axe = getPlayerSkillLevel(cid, 0), getPlayerSkillLevel(cid, 1), getPlayerSkillLevel(cid, 2), getPlayerSkillLevel(cid, 3)
local distance, shield, fishing, magic =  getPlayerSkillLevel(cid, 4), getPlayerSkillLevel(cid, 5), getPlayerSkillLevel(cid, 6), getPlayerMagLevel(cid)
local function getResets(cid)
resets = getPlayerStorageValue(cid, 2310)
  if resets < 0 then
            resets = 0
          end
return resets
end

local cap = getPlayerFreeCap(cid)
local text = "Vocation: "..vocation.."\nLevel: ".. level .."\nHP: ".. health .."/".. maxhealth .."\nMP: ".. mana .."/".. maxmana .."\nReset(s): "..getResets(cid).."\nCapacity: ".. cap .."\n\nMagic Level: ".. magic .."\n\nFist: ".. fist .."\nClub: ".. club .."\nSword: ".. sword .."\nAxe: ".. axe .."\nDistance: ".. distance .."\nShield: ".. shield .."\nFishing: ".. fishing ..""
doShowTextDialog(cid, 5808, text)
return true
end

no xml:

<talkaction log="yes" words="!status" event="script" value="status.lua"/>

Da próxima vez use procurar antes pois eu já havia feito esse sistema inclusive com suporte pra dodge e critical.

Todos os meus trabalhos importantes estão na seção "Sobre mim" no meu perfil; Dá uma passada lá!

"Há três caminhos para o fracasso: não ensinar o que se sabe, não praticar o que se ensina, e não perguntar o que se ignora." - São Beda

I7Pm6ih.png

(obg ao @Beeny por fazer essa linda sign <3)

Link para o post
Compartilhar em outros sites

em talkactions\scripts:

function onSay(cid, words, param)

local level = getPlayerLevel(cid)
local vocation = getPlayerVocationName(cid)
local health, maxhealth = getCreatureHealth(cid), getCreatureMaxHealth(cid)
local mana, maxmana = getCreatureMana(cid), getCreatureMaxMana(cid)
local fist, club, sword, axe = getPlayerSkillLevel(cid, 0), getPlayerSkillLevel(cid, 1), getPlayerSkillLevel(cid, 2), getPlayerSkillLevel(cid, 3)
local distance, shield, fishing, magic =  getPlayerSkillLevel(cid, 4), getPlayerSkillLevel(cid, 5), getPlayerSkillLevel(cid, 6), getPlayerMagLevel(cid)
local function getResets(cid)
resets = getPlayerStorageValue(cid, 2310)
  if resets < 0 then
            resets = 0
          end
return resets
end

local cap = getPlayerFreeCap(cid)
local text = "Vocation: "..vocation.."\nLevel: ".. level .."\nHP: ".. health .."/".. maxhealth .."\nMP: ".. mana .."/".. maxmana .."\nReset(s): "..getResets(cid).."\nCapacity: ".. cap .."\n\nMagic Level: ".. magic .."\n\nFist: ".. fist .."\nClub: ".. club .."\nSword: ".. sword .."\nAxe: ".. axe .."\nDistance: ".. distance .."\nShield: ".. shield .."\nFishing: ".. fishing ..""
doShowTextDialog(cid, 5808, text)
return true
end

no xml:

<talkaction log="yes" words="!status" event="script" value="status.lua"/>

Da próxima vez use procurar antes pois eu já havia feito esse sistema inclusive com suporte pra dodge e critical.

 

white ocorreu 1 problema quando eu digo !status aparece 1 mensagem em vermelha dizendo !status mas o log com os status life mana e resets n aparece vc sabe me dizer noq eu errei ?

Link para o post
Compartilhar em outros sites

dá algum erro no console do server ou só não aparece a msg? que versão é seu server?

Todos os meus trabalhos importantes estão na seção "Sobre mim" no meu perfil; Dá uma passada lá!

"Há três caminhos para o fracasso: não ensinar o que se sabe, não praticar o que se ensina, e não perguntar o que se ignora." - São Beda

I7Pm6ih.png

(obg ao @Beeny por fazer essa linda sign <3)

Link para o post
Compartilhar em outros sites

Eu tinha começado a fazer, ficou parecida, só muda algumas coisas, caso queira tentar:
 

function onSay(cid, words, param)

	local level = getPlayerLevel(cid)
	local voc = getPlayerVocationName(cid)
	local health, healthmax = getCreatureHealth(cid), getCreatureMaxHealth(cid)
	local mana, manamax = getCreatureMana(cid), getCreatureMaxMana(cid)
	local fist, club, sword, axe, distance, shield, fishing, mlvl = getPlayerSkillLevel(cid, 0), getPlayerSkillLevel(cid, 1), getPlayerSkillLevel(cid, 2), getPlayerSkillLevel(cid, 3), getPlayerSkillLevel(cid, 4), getPlayerSkillLevel(cid, 5), getPlayerSkillLevel(cid, 6), getPlayerMagLevel(cid)
	local resets = getResets(cid)
	
	local result = "Level: "..level.."\nVocation: ".. voc .."\nHealth: ".. health .."/".. healthmax .."\nMana: ".. mana .."/".. manamax .."\nResets: "..resets.."\n\nOutros:\nMagic Level: ".. mlvl .."\n\nFist: ".. fist .."\nClub: ".. club .."\nSword: ".. sword .."\nAxe: ".. axe .."\nDistance: ".. distance .."\nShield: ".. shield .."\nFishing: ".. fishing..""
	
	doPlayerPopupFYI(cid, result)
	
	return true
	
end

Atenciosamente,

Bruno Minervino

Link para o post
Compartilhar em outros sites

dá algum erro no console do server ou só não aparece a msg? que versão é seu server?
 

Todos os meus trabalhos importantes estão na seção "Sobre mim" no meu perfil; Dá uma passada lá!

"Há três caminhos para o fracasso: não ensinar o que se sabe, não praticar o que se ensina, e não perguntar o que se ignora." - São Beda

I7Pm6ih.png

(obg ao @Beeny por fazer essa linda sign <3)

Link para o post
Compartilhar em outros sites

não deu certo n continua com msm bug ;x

 

Quando você abre o OT, verifica se no executável aparece algum erro sobre o script em questão. E por gentileza, informe qual a rev que você está usando que pode ser visualizada nas propriedades do executável.

Atenciosamente,

Bruno Minervino

Link para o post
Compartilhar em outros sites

 

Quando você abre o OT, verifica se no executável aparece algum erro sobre o script em questão. E por gentileza, informe qual a rev que você está usando que pode ser visualizada nas propriedades do executável.

 

[08/01/2015 18:54:52] [Error - TalkAction Interface] 
[08/01/2015 18:54:52] data/talkactions/scripts/status.lua:onSay
[08/01/2015 18:54:52] Description: 
[08/01/2015 18:54:52] data/talkactions/scripts/status.lua:5: attempt to call global 'getCreatureHealth' (a nil value)
[08/01/2015 18:54:52] stack traceback:
[08/01/2015 18:54:52] data/talkactions/scripts/status.lua:5: in function <data/talkactions/scripts/status.lua:1>
 aparece apenas isso e oq é esse REv n sei oq significa >.<
Link para o post
Compartilhar em outros sites

REV = versão do seu server... se não souber fala a versão do tibia que vc usa pra entrar no seu OT

Todos os meus trabalhos importantes estão na seção "Sobre mim" no meu perfil; Dá uma passada lá!

"Há três caminhos para o fracasso: não ensinar o que se sabe, não praticar o que se ensina, e não perguntar o que se ignora." - São Beda

I7Pm6ih.png

(obg ao @Beeny por fazer essa linda sign <3)

Link para o post
Compartilhar em outros sites

Cara, acabei de chegar em casa e testei:

 

data/talkactions/talkactions.xml

<talkaction words="!status" event="script" value="status.lua"/>
data/talkactions/scripts/status.lua

function onSay(cid, words, param)

	local level = getPlayerLevel(cid)
	local voc = getPlayerVocationName(cid)
	local health, healthmax = getCreatureHealth(cid), getCreatureMaxHealth(cid)
	local mana, manamax = getCreatureMana(cid), getCreatureMaxMana(cid)
	local fist, club, sword, axe, distance, shield, fishing, mlvl = getPlayerSkillLevel(cid, 0), getPlayerSkillLevel(cid, 1), getPlayerSkillLevel(cid, 2), getPlayerSkillLevel(cid, 3), getPlayerSkillLevel(cid, 4), getPlayerSkillLevel(cid, 5), getPlayerSkillLevel(cid, 6), getPlayerMagLevel(cid)
	local resets = getResets(cid)

	local result = "Level: "..level.."\nResets: "..resets.."\nVocation: ".. voc .."\nHealth: ".. health .."/".. healthmax .."\nMana: ".. mana .."/".. manamax .."\n\nSkills:\nMagic: ".. mlvl .."\nFist: ".. fist .."\nClub: ".. club .."\nSword: ".. sword .."\nAxe: ".. axe .."\nDistance: ".. distance .."\nShielding: ".. shield .."\nFishing: ".. fishing..""

	doPlayerPopupFYI(cid, result)

	return true

end
Resultado:

wqfQpUU.png

Ache a versão do seu servidor:

1º: Vá até o executável que você usa para colocar o OT online

2º: Clique com o botão direito do mouse em cima do executável e vá na opção Propriedades

3º: Vá até a aba Detalhes e tira um print (foto)

 

Exemplo:

3mq3QWM.png

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

Atenciosamente,

Bruno Minervino

Link para o post
Compartilhar em outros sites

@Bruno Minervino

[08/01/2015 18:54:52] [Error - TalkAction Interface] 
[08/01/2015 18:54:52] data/talkactions/scripts/status.lua:onSay
[08/01/2015 18:54:52] Description: 
[08/01/2015 18:54:52] data/talkactions/scripts/status.lua:5: attempt to call global 'getCreatureHealth' (a nil value)

tá acusando que o server dele não possui a função getCreatureHealth, seria necessário ele informar como ele faz pra pegar a vida do player no server dele mas duvido q ele saiba. Tenta substituir por getPlayerHealth e vê se resolve

Todos os meus trabalhos importantes estão na seção "Sobre mim" no meu perfil; Dá uma passada lá!

"Há três caminhos para o fracasso: não ensinar o que se sabe, não praticar o que se ensina, e não perguntar o que se ignora." - São Beda

I7Pm6ih.png

(obg ao @Beeny por fazer essa linda sign <3)

Link para o post
Compartilhar em outros sites

Tente assim Usarei seu Script Bruno Minervino Certo ?

function onSay(cid, words, param)

local level = getPlayerLevel(cid)

local voc = getPlayerVocationName(cid)

local health, healthmax = getCreatureMaxHealth(cid), getCreatureMaxHealth(cid)

local mana, manamax = getCreatureMaxMana(cid), getCreatureMaxMana(cid)

local fist, club, sword, axe, distance, shield, fishing, mlvl = getPlayerSkillLevel(cid, 0), getPlayerSkillLevel(cid, 1), getPlayerSkillLevel(cid, 2), getPlayerSkillLevel(cid, 3), getPlayerSkillLevel(cid, 4), getPlayerSkillLevel(cid, 5), getPlayerSkillLevel(cid, 6), getPlayerMagLevel(cid)

local resets = getResets(cid)

local result = "Level: "..level.."\nVocation: ".. voc .."\nHealth: ".. health .."/".. healthmax .."\nMana: ".. mana .."/".. manamax .."\nResets: "..resets.."\n\nOutros:\nMagic Level: ".. mlvl .."\n\nFist: ".. fist .."\nClub: ".. club .."\nSword: ".. sword .."\nAxe: ".. axe .."\nDistance: ".. distance .."\nShield: ".. shield .."\nFishing: ".. fishing..""

doPlayerPopupFYI(cid, result)

return true

end

Porém se O Distro Dele não Reconhece getCreatureHealth então so dá pra ver o Máximo... teste ! :)

Editado por misticoxx (veja o histórico de edições)
Link para o post
Compartilhar em outros sites

@xWhiteWolf,

Eu tinha visto isso, primeiro coloquei a versão funcionando para ele ver o resultado...
Depois ensinei ele a pegar a versão do servidor dele pra ver qual a função correta que pega o valor do Health...

@Rikikajimo,
Uma forma mais fácil, você baixou esse servidor aqui no TK ? Se sim, aponte-nos o tópico.

Abraço!

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

Atenciosamente,

Bruno Minervino

Link para o post
Compartilhar em outros sites

essa script fuinciono perfeitamente pra mim eu gostaria de pedir + uma coisa sei que o topico não é meu + tem como colocar para aparecer se o player é VIP ou Free e quantos frags ele tem agradeço rep +

 

function onSay(cid, words, param)



local level = getPlayerLevel(cid)
local vocation = getPlayerVocationName(cid)
local health, maxhealth = getCreatureHealth(cid), getCreatureMaxHealth(cid)
local mana, maxmana = getCreatureMana(cid), getCreatureMaxMana(cid)
local fist, club, sword, axe = getPlayerSkillLevel(cid, 0), getPlayerSkillLevel(cid, 1), getPlayerSkillLevel(cid, 2), getPlayerSkillLevel(cid, 3)
local distance, shield, fishing, magic = getPlayerSkillLevel(cid, 4), getPlayerSkillLevel(cid, 5), getPlayerSkillLevel(cid, 6), getPlayerMagLevel(cid)
local function getResets(cid)
resets = getPlayerStorageValue(cid, 2310)
if resets < 0 then
resets = 0
end
return resets
end

local cap = getPlayerFreeCap(cid)
local text = "Vocation: "..vocation.."\nLevel: ".. level .."\nHP: ".. health .."/".. maxhealth .."\nMP: ".. mana .."/".. maxmana .."\nReset(s): "..getResets(cid).."\nCapacity: ".. cap .."\n\nMagic Level: ".. magic .."\n\nFist: ".. fist .."\nClub: ".. club .."\nSword: ".. sword .."\nAxe: ".. axe .."\nDistance: ".. distance .."\nShield: ".. shield .."\nFishing: ".. fishing ..""
doShowTextDialog(cid, 5808, text)
return true
end

Link para o post
Compartilhar em outros sites

@Tuka,

function onSay(cid, words, param)
	local level = getPlayerLevel(cid)
	local vocation = getPlayerVocationName(cid)
	local status = (vip.hasVip(cid) == FALSE) and "Free Account" or "VIP Acccount"
	local health, maxhealth = getCreatureHealth(cid), getCreatureMaxHealth(cid)
	local mana, maxmana = getCreatureMana(cid), getCreatureMaxMana(cid)
	local fist, club, sword, axe = getPlayerSkillLevel(cid, 0), getPlayerSkillLevel(cid, 1), getPlayerSkillLevel(cid, 2), getPlayerSkillLevel(cid, 3)
	local distance, shield, fishing, magic = getPlayerSkillLevel(cid, 4), getPlayerSkillLevel(cid, 5), getPlayerSkillLevel(cid, 6), getPlayerMagLevel(cid)
	local cap = getPlayerFreeCap(cid)
	local function getResets(cid)
		resets = getPlayerStorageValue(cid, 2310)
		if resets < 0 then
			resets = 0
		end
		return resets
	end
	
	local time = os.time()
	local times = {today = (time - 86400), week = (time - (7 * 86400))}

	local contents, result = {day = {}, week = {}, month = {}}, db.getResult("SELECT `pd`.`date`, `pd`.`level`, `p`.`name` FROM `player_killers` pk LEFT JOIN `killers` k ON `pk`.`kill_id` = `k`.`id` LEFT JOIN `player_deaths` pd ON `k`.`death_id` = `pd`.`id` LEFT JOIN `players` p ON `pd`.`player_id` = `p`.`id` WHERE `pk`.`player_id` = " .. getPlayerGUID(cid) .. " AND `k`.`unjustified` = 1 AND `pd`.`date` >= " .. (time - (30 * 86400)) .. " ORDER BY `pd`.`date` DESC")
	
	if(result:getID() ~= -1) then
		repeat
			if(content.date > times.today) then
				table.insert(contents.day, content)
			elseif(content.date > times.week) then
				table.insert(contents.week, content)
			else
				table.insert(contents.month, content)
			end
		until not result:next()
		result:free()
	end

	local total = {
		day = table.maxn(contents.day),
		week = table.maxn(contents.week),
		month = table.maxn(contents.month)
	}
	
	local text = "Vocation: "..vocation.."\nLevel: ".. level .."\nHP: ".. health .."/".. maxhealth .."\nMP: ".. mana .."/".. maxmana .."\nReset(s): "..getResets(cid).."\nCapacity: ".. cap .."\nAccount Status: ".. status .."\n\nMagic Level: ".. magic .."\n\nFist: ".. fist .."\nClub: ".. club .."\nSword: ".. sword .."\nAxe: ".. axe .."\nDistance: ".. distance .."\nShield: ".. shield .."\nFishing: ".. fishing .."\n\nFrags\nToday: " .. total.day .. "\nThis week: " .. total.week .. " This month: " .. total.month ..""
	
	doShowTextDialog(cid, 5808, text)
	
	return true
	
end
Usei como exemplo deste sistema VIP: http://www.tibiaking.com/forum/topic/20589-vip-system-by-mock-100/ Editado por Bruno Minervino (veja o histórico de edições)

Atenciosamente,

Bruno Minervino

Link para o post
Compartilhar em outros sites

man deu esse erro aki

 

[09/01/2015 14:16:53] [Error - LuaScriptInterface::loadFile] data/talkactions/scripts/statusplayer.lua:5: unexpected symbol near '?'


[09/01/2015 14:16:53] [Warning - Event::loadScript] Cannot load script (data/talkactions/scripts/statusplayer.lua)
[09/01/2015 14:16:53] data/talkactions/scripts/statusplayer.lua:5: unexpected symbol near '?'

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.

×
×
  • Criar Novo...

Informação Importante

Confirmação de Termo