BoreK

@Darwiinxp n parece ter nada de errado ai mas tenta assim
 
function onStepIn(cid, item, position, fromPosition)     if item.actionid == 13700 then     local config = {     msgDenied = "No eres VIP, contacta al administrador.",     msgWelcome = "Bienvenido al Area vip."     }     if getPlayerStorageValue(cid, 13540) - os.time() <= 0 then         doPlayerSendCancel(cid, config.msgDenied)         doTeleportThing(cid, fromPosition, true)         doSendMagicEffect(getThingPos(cid), CONST_ME_MAGIC_BLUE)         return TRUE     end     doPlayerSendCancel(cid, config.msgWelcome)     end return true end

@Darwiinxp 
local keywordHandler = KeywordHandler:new()
local npcHandler = NpcHandler:new(keywordHandler)
NpcSystem.parseParameters(npcHandler)
local talkState = {}
function onCreatureAppear(cid)                npcHandler:onCreatureAppear(cid)            end
function onCreatureDisappear(cid)            npcHandler:onCreatureDisappear(cid)            end
function onCreatureSay(cid, type, msg)            npcHandler:onCreatureSay(cid, type, msg)        end
function onThink()                    npcHandler:onThink()                    end
function creatureSayCallback(cid, type, msg)
    if(not npcHandler:isFocused(cid)) then
        return false
    end
    local talkUser = NPCHANDLER_CONVBEHAVIOR == CONVERSATION_DEFAULT and 0 or cid
    local price = 60000    -------- precio
    if msgcontains(msg, 'bless') then     ----------------Z lo que hay que decirle
        if isPremium(cid) == TRUE then
            if getPlayerMoney(cid) <= price then
                selfSay('I will give to you all blessings, but you will have to make a sacrifice. Are you prepared to pay '.. price ..' gold for the blessings?', cid)
                talkState[talkUser] = 1
            else
                selfSay('Oh. You do not have enough money.', cid)
                talkState[talkUser] = 0
            end
        else
            selfSay('Oh. Only premium players can buy blessings.', cid)
            talkState[talkUser] = 0
        end
    elseif msgcontains(msg, 'yes') and talkState[talkUser] == 1 then
    if getPlayerBlessing(cid, 1) or getPlayerBlessing(cid, 2) or getPlayerBlessing(cid, 3) or getPlayerBlessing(cid, 4) or getPlayerBlessing(cid, 5) then
            selfSay('Sorry, but you already have one of the blessing.', cid)
            talkState[talkUser] = 0
        else
            if doPlayerRemoveMoney(cid, price) == TRUE then
        doPlayerAddBlessing(cid, 1)
        doPlayerAddBlessing(cid, 2)
        doPlayerAddBlessing(cid, 3)
        doPlayerAddBlessing(cid, 4)
        doPlayerAddBlessing(cid, 5)
                selfSay('Now the Gods blessed you.', cid)
            else
                selfSay('Oh. You do not have enough money.', cid)
            end
        end
        
    elseif msgcontains(msg, 'no') and (talkState[talkUser] == 1) then
        selfSay('Ok, Good Bye Adventurer.', cid)
        talkState[talkUser] = 0
    end
    return true
end
npcHandler:setCallback(CALLBACK_MESSAGE_DEFAULT, creatureSayCallback)
npcHandler:addModule(FocusModule:new())

@Darwiinxp da um rep ali pro ackerzin tb

local combat = createCombatObject() setCombatParam(combat, COMBAT_PARAM_TARGETCASTERORTOPMOST, true) setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_DEATHDAMAGE) setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_MORTAREA) setCombatParam(combat, COMBAT_PARAM_DISTANCEEFFECT, CONST_ANI_SUDDENDEATH) setCombatFormula(combat, COMBAT_FORMULA_LEVELMAGIC, -1, -32, -1, -48, 5, 5, 8, 13) function onCastSpell(cid, var)              if(getPlayerStorageValue(cid, 13540) - os.time() <= 0) then         doPlayerSendTextMessage(cid, 19, "Voce precisa ser Donate pra usar essa SD!")         return true     end      return doCombat(cid, combat, var) end tinha faltado o os.time() no if

Substitui o seu Arquivo Por este:
evolution.lua

Vlw clakent
 
http://www.tibiaking.com/forum/topic/38971-85-pokexvnzl/?view=getnewpost