wevertonvrb

Realmente, Tá complicado hoje.

bom pra vc man.
aqui n funcionou e o próprio criador ja disse q n fez o walk 
outra coisa sim da pra adaptar mexendo em vários arquivos e etc...  e eu disse isso, mas nem todo mundo é Expert em script pra sair mexendo em tudo ainda mais se já esta tudo 100% 
mas vai la arruma tudinho meche em tudo pq vc sabe fazer isso.
agora eu n sou o único que reportou esse erro se vc sabe arrumar poderia disponibilizar pq aqui ninguém é besta apenas tem pessoas mais experientes que outras!

aee man tenta assim
 
local config = { items = {13941,13948,13969,13962,13955,13983,13976,13990,14667,14674,14681,14688,14695,14702,14709,14716,14723,14730,14742}, -- items aleatorios que ira ganhar monster = {"Kokarzinho"}, -- nome dos monstros, separado por vírgulas. item = {[1] = 2160}, -- [um numero maior que o anterior] = ID do item1, ID do item2, ID do item3... qnt = {[1] = 2 }, -- [um numero maior que o anterior] = quantidade do item1, quantidade do item2, quantidade do item3... effect = 27, -- efeito ao matar o monstro. } tabela = config.items premios = tabela[math.random(#tabela)] function onKill(cid, target) local rand = math.random(config.items)     if isInArray(config.monster, getCreatureName(target)) then         for i = 1, #config.item do             doPlayerAddItem (cid, config.item, config.qnt)             doPlayerAddItem(cid, rand, 1)         end         doPlayerSendTextMessage (cid, 19, "Você receberá uma recompensa por derrotar o "..getCreatureName(target)..".")         doSendMagicEffect (getThingPos (cid), config.effect)     end return true end

script II
local holes = {15469, 15460}function onUse(cid, item, fromPosition, itemEx, toPosition)if getPlayerStorageValue (cid, 54548) < 1 then ---- nova storage de aventureirodoPlayerSendCancel(cid, "Voce precisa ser Teacher!")return trueendif getPlayerStorageValue(cid, 17001) >= 1 or getPlayerStorageValue(cid, 63215) >= 1 or getPlayerStorageValue(cid, 17000) >= 1 or getPlayerStorageValue(cid, 75846) >= 1 orgetPlayerStorageValue(cid, 6598754) >= 1 or getPlayerStorageValue(cid, 6598755) >= 1 or getPlayerStorageValue (cid, 98752) >= 1 then --alterado v1.9 return doPlayerSendCancel(cid, "impossivel fazer isso agora.")endif(isInArray (holes, itemEx.itemid)) then if not isCreature(itemEx.uid) then if not (getPlayerStorageValue(cid, 17000) >= 1 or getPlayerStorageValue(cid, 17001) >= 1) then toPos = getThingPosition(itemEx.uid) fromPos = getCreaturePosition(cid) if getDirectionTo(fromPos, toPos) == getCreatureLookDirection(cid) then --quantItem = math.random(1, ProfessionLib.quantMax) doCreatureSetNoMove(cid, true) local tmp = getCreatureOutfit(cid)if getPlayerSex(cid) == 1 thentmp.lookType = 2508elsetmp.lookType = 2509end doSetCreatureOutfit(cid, tmp, -1) setPlayerStorageValue(cid, 98752, 1) local newId = itemEx.itemid + 1-------------------------------------------------- function fim(cid,toPos) local rand = math.random(2, 6) doPlayerAddItem(cid, 15457, rand) doRemoveCondition(cid, CONDITION_OUTFIT) doCreatureSetNoMove(cid, false) setPlayerStorageValue(cid, 98752, -1) doTransformItem(getThingFromPos(toPos).uid, newId) doDecayItem(getThingFromPos(toPos).uid)end addEvent(fim, 8*1000,cid,toPos) -------------------------------------------------- else doPlayerSendCancel(cid, "Voce percisa ficar de frente para esse item!") end else doPlayerSendCancel(cid, "Voce so pode cavar de frente!") end else doPlayerSendCancel(cid, "Voce precisa ser proficional na area para fazer isso!") end else doPlayerSendCancel(cid, "isso nao e erva!") end return trueend  

esse 
<flag targetdistance="1"/> ---1 é a distancia que o mostro fica do player então vc pode colocar por exemplo uma distancia suficiente para ele sair da tela e sumir obs: a distancia se conta em skm
<attack name="melee" interval="2000" skill="0" attack="0"/> --- aqui é para ele n bater ou seja ele ataca corre mas n da rit
speed="xxxxx"  -- na speed vc coloca a velocidade que o mostro vai correr de ti

@wevertonvrb
 
use assim:
 
local config = { tempo = 3, --tempo em segundos mensagem = { texto = "TOP LEVEL", --não use mais de 9 caracteres efeito = TEXTCOLOR_RED --efeito para a função doSendAnimatedText }, efeito = nil, --efeito da função doSendMagicEffect globalstr = 150202 -- uma global storage qualquer q esteje vazia } function TopEffect(cid) local var = tostring(getGlobalStorageValue(config.globalstr)):gsub(':', ''):explode(',') if not isCreature(cid) or getPlayerName(cid) ~= var[1] then return LUA_ERROR end doSendAnimatedText(getCreaturePosition(cid), config.mensagem.texto, config.mensagem.efeito) doSendMagicEffect(getCreaturePosition(cid), config.efeito) addEvent(TopEffect, config.tempo*1000, cid) end function onLogin(cid) if tonumber(getGlobalStorageValue(config.globalstr)) then -- virgin local query = db.getResult("SELECT `name`, `level` FROM `players` WHERE `group_id` < 2 ORDER BY `level` DESC LIMIT 1") if (query:getID() ~= -1) then setGlobalStorageValue(config.globalstr, ":"..query:getDataString("name")..",:"..query:getDataInt("level")) TopEffect(cid) end else TopEffect(cid) end registerCreatureEvent(cid, "CheckTop") return true end function onAdvance(cid, skill, oldLevel, newLevel) if skill ~= SKILL__LEVEL then return true end local var = tostring(getGlobalStorageValue(config.globalstr)):gsub(':', ''):explode(',') if newLevel > tonumber(var[2]) and getPlayerName(cid) ~= var[1] then doBroadcastMessage("O jogador " .. getPlayerName(cid) .. " tornou-se o novo Top Level. Parabens!", 22) setGlobalStorageValue(config.globalstr, ":"..getPlayerName(cid)..",:"..newLevel) TopEffect(cid) end return true end  

@wevertonvrb. Vou te dar uma idéia de como resolver teu problema. 
 
 

testa isso aqui e manda o q printou :

 
 

Coloque esse if..
if not isCreature(cid) then return true end depois de..
local stg = conds["Sleep"] ficando
local stg = conds["Sleep"] if not isCreature(cid) then return true end if getPlayerStorageValue(cid, stg) >= 1 and cd ~= -1 then setPlayerStorageValue(cid, stg, cd) return true end  

Eu acabei de testar o código, e está funcionando como devido (se há alguma discrepância na variação de HP, não passa de 10).
A vida da nova forma é proporcional a da anterior. 
Porém, se o que você quer dizer é que as formas estão com vida total e o Castform normal está perdendo HP, significa que há algum erro no seu código. Se for o caso, peço que poste-o aqui.

to meio sem tempo devo fazer pra vc na terça feira

Vá em data\lib\some functions.lua e procure..
function doAppear(cid) na função, procure por:
doCreatureSetHideHealth(cid, false) e adicione em baixo:
local pb = getPlayerSlotItem(getCreatureMaster(cid), 8).uid if getItemAttribute(pb,"addon") > 0 then local look = getItemAttribute(pb,"addon") doSetCreatureOutfit(cid, {lookType = look}, -1) end Se o sistema de addon for oq estou pensando irá funcionar.

local level = 130
function onUse(cid, fromPos, toPos)
    return getPlayerLevel(cid) <= level and doTeleportThing(cid, toPos) or doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, 'Somente jogadores de nível '..level..' ou inferior podem entrar.') and false
end
 
 
<action actionid="1569" event="script" value="porta130.lua"/>
coloque o actions id na porta pelo RME map editor

local level = 130
function onUse(cid, fromPos, toPos)
    return getPlayerLevel(cid) <= level and doTeleportThing(cid, toPos) or doPlayerSendTextMessage(cid, MESSAGE_INFO_DESCR, 'Somente jogadores de nível '..level..' ou inferior podem entrar.') and false
end
 
 
<action actionid="1569" event="script" value="porta130.lua"/>
coloque o actions id na porta pelo RME map editor

na minha opinião apos o 8.1 o tibia não fez update mas sim decaiu, claro eu não parei de jogar no 8.1 continuei jogando mas em uma coisa que eles chamaram de update fez eu e mais uns 20% dos jogadores totais do tibia parar de jogar de uma só vez, uns 10 amigos pararam comigo mas porque?

existe um mundo chamado silvera eu e meus amigos odiávamos XP isso mesmo não pegávamos xp, nossa xp era apenas para pegar soul e ponto
um amigo meu era o top 2 de skill em silvera, eu era top 3 e tinha outros com skills ótimos, treinamos cerca de 1 ano e meio todos os dias com algumas exceções
ele era skill 98/80 e poko no lvl 40
eu skill 96/80 e poko no lvl +- 35
antigamente alcançar esse skill no tibia era dificil d+ tinhamos q pagar nego pra sumonar monk 
uma coisa q eu lembro é que no lvl 20 um kina lvl 100 me deu PK e eu sozinho botei ele pra correr foi mt top

aee fizeram um maldito update os premium acc ganhavam skill ficando off com umas malditas estatúas, em menos de 2 meses perdemos nossas posições no rank o jogo perdeu a graça, foi quase 2 anos de jogo jogado no lixo. e paramos de jogar, sinto saudades to tibia antes dessas estatuas, ate tentei voltar a jogar esse ano qd me deparei nem tinha mais rookguard peguei lvl 8 em menos de 1h upar ficou fácil parece otserve skill com 2 dias off ja pega skill 60, tibia ja foi um otimo game mas facilitaram d+ e quem teve que ralar pra ter as coisas simplesmente desistiu do jogo

bom então o erro provavelmente esta no configuration.lua verifique pois você pode ter escrito mega absol, Mega absol ou mega Absol onde deveria estar escrito
 
Mega Absol 
verifique tudo pois se o resto esta ok
 
você n disse o tipo de mega evolução mas é 90% de chance de voce ter escrito o nome errado como citei acima em algum lugar

na minha opinião apos o 8.1 o tibia não fez update mas sim decaiu, claro eu não parei de jogar no 8.1 continuei jogando mas em uma coisa que eles chamaram de update fez eu e mais uns 20% dos jogadores totais do tibia parar de jogar de uma só vez, uns 10 amigos pararam comigo mas porque?

existe um mundo chamado silvera eu e meus amigos odiávamos XP isso mesmo não pegávamos xp, nossa xp era apenas para pegar soul e ponto
um amigo meu era o top 2 de skill em silvera, eu era top 3 e tinha outros com skills ótimos, treinamos cerca de 1 ano e meio todos os dias com algumas exceções
ele era skill 98/80 e poko no lvl 40
eu skill 96/80 e poko no lvl +- 35
antigamente alcançar esse skill no tibia era dificil d+ tinhamos q pagar nego pra sumonar monk 
uma coisa q eu lembro é que no lvl 20 um kina lvl 100 me deu PK e eu sozinho botei ele pra correr foi mt top

aee fizeram um maldito update os premium acc ganhavam skill ficando off com umas malditas estatúas, em menos de 2 meses perdemos nossas posições no rank o jogo perdeu a graça, foi quase 2 anos de jogo jogado no lixo. e paramos de jogar, sinto saudades to tibia antes dessas estatuas, ate tentei voltar a jogar esse ano qd me deparei nem tinha mais rookguard peguei lvl 8 em menos de 1h upar ficou fácil parece otserve skill com 2 dias off ja pega skill 60, tibia ja foi um otimo game mas facilitaram d+ e quem teve que ralar pra ter as coisas simplesmente desistiu do jogo

getCreatureName(cid):find("shiny")
 

se você estiver usando aquele que volta a ser um pokemon normal quando chama de volta é simples
 
voce tem que usar a mega stone na ball (icone) do pokemon normal
ou seja, vc pega o absol usa a mega stone dele na pokeball (icon) e depois chama ele, em seguida use o mega evoluir que ele vai sair da ball
se voce fizer /cb mega absol ele n vai sair pois vc n usou a mega stone no absol
teste se ajudei ta um rep + aee rsrsrs

na minha opinião apos o 8.1 o tibia não fez update mas sim decaiu, claro eu não parei de jogar no 8.1 continuei jogando mas em uma coisa que eles chamaram de update fez eu e mais uns 20% dos jogadores totais do tibia parar de jogar de uma só vez, uns 10 amigos pararam comigo mas porque?

existe um mundo chamado silvera eu e meus amigos odiávamos XP isso mesmo não pegávamos xp, nossa xp era apenas para pegar soul e ponto
um amigo meu era o top 2 de skill em silvera, eu era top 3 e tinha outros com skills ótimos, treinamos cerca de 1 ano e meio todos os dias com algumas exceções
ele era skill 98/80 e poko no lvl 40
eu skill 96/80 e poko no lvl +- 35
antigamente alcançar esse skill no tibia era dificil d+ tinhamos q pagar nego pra sumonar monk 
uma coisa q eu lembro é que no lvl 20 um kina lvl 100 me deu PK e eu sozinho botei ele pra correr foi mt top

aee fizeram um maldito update os premium acc ganhavam skill ficando off com umas malditas estatúas, em menos de 2 meses perdemos nossas posições no rank o jogo perdeu a graça, foi quase 2 anos de jogo jogado no lixo. e paramos de jogar, sinto saudades to tibia antes dessas estatuas, ate tentei voltar a jogar esse ano qd me deparei nem tinha mais rookguard peguei lvl 8 em menos de 1h upar ficou fácil parece otserve skill com 2 dias off ja pega skill 60, tibia ja foi um otimo game mas facilitaram d+ e quem teve que ralar pra ter as coisas simplesmente desistiu do jogo

Põe isso:
 
Dentro desse escopo:
 

AQUI PESSOAL O LINK DA SPR E DAT ATUAIS DA PXG
 
Versão 854 V1 - http://www.mediafire.com/download/ukmjw4j85l8rc3d/pxg_maio_2016.zip
Versão 854 V3 - http://www.mediafire.com/download/ykz4oqsc9sxydk8/pxg maio 2016.zip
 
Lembrem-se de usar o object builder mais atual e marcarem como estendido e transparência. =D
 

Isso vai ser sempre que ele logar denovo.

Em creaturescripts/scripts crie um arquivo chamado death.lua
Poe isso dentro:
function onDeath(cid) setPlayerStorageValue(cid, 45478, -1) end Em login.lua ache as linhas iguais e adicione perto:
registerCreatureEvent(cid, "removesto") Em creaturescripts.xml adicione:
<event type="death" name="removesto" event="script" value="death.lua"/>

vai em data/creaturescripts/scripts e abre o arquivo login.lua
na penultima linha antes do return true adicione
setPlayerStorageValue(cid, 45478, -1) devendo ficar assim no final
setPlayerStorageValue(cid, 45478, -1) return true end