eu retirei a vip o cara não foi teleportado ta bugado  ovip system oseguinte quando vou logar duas conta com mc da esse erro, por isso a parte de teleporta o vip deve ta bugado tbm

[18/03/2016 12:28:33] [Error - CreatureScript Interface] 
[18/03/2016 12:28:33] buffer:onLogin
[18/03/2016 12:28:33] Description: 
[18/03/2016 12:28:33] (luaRegisterCreatureEvent) Creature not found

Tenta ae:

em creaturescripts/scripts cria um arquivo chamado: vocVIP.lua

local config = {
[1] = { 9, 10},
[2] = { 10, 10},
[3] = { 11, 10},
[4] = { 12, 10},
[5] = { 9, 10},
[6] = { 10, 10},
[7] = { 11, 10},
[8] = { 12, 10},
}

local config2 = {
[9] = { 5, 10},
[10] = { 6, 10},
[11] = { 7, 10},
[12] = { 8, 10},
}

function onLogin(cid)

if getPlayerVipDays(cid) >= 1 then
	setPlayerStorageValue(cid, 43215, 1)
elseif getPlayerStorageValue(cid, 43215) == 1 and getPlayerVipDays(cid) <= 0 then
	doTeleportThing(cid, getTownTemplePosition(1))
	doPlayerSendTextMessage(cid, 27, "Sua VIP expirou, e voce perdeu os privilegios e a vocacao VIP.")
	setPlayerStorageValue(cid, 43215, -1)
end

local voc = config[getPlayerVocation(cid)]
if getPlayerVipDays(cid) >= 1 then
	if voc then
		doPlayerSetVocation(cid, voc[1])
		doSendMagicEffect(getCreaturePosition(cid), voc[2])
	end
end

local voc2 = config2[getPlayerVocation(cid)]
if getPlayerVipDays(cid) <= 0 then
	if voc2 then
		doPlayerSetVocation(cid, voc2[1])
		doSendMagicEffect(getCreaturePosition(cid), voc2[2])
	end
end

return true
end

tag em creaturescripts.xml:

<event type="login" name="vocVIP" event="script" value="vocVIP.lua"/>

registra em login.lua

registerCreatureEvent(cid, "vocVIP")

me dá um retorno, se funcionou ou não.

OBS: com esse script você não vai precisar alterar nada no script do comando, vai ficar automatico se verificar que o player é VIP, vai adicionar a vocação VIP, e quando acaba a VIP o player volta a ser a vocação free. (exemplo: se ele é VIP knight quando acabar a VIP, vai virar Elite Knight).

Editado Março 18, 2016 9 anos por janmix (veja o histórico de edições)

mano agora q vi removi o vip deixei  oservidor do zero ta dando esse erro aqui me ajuda a conserta aí primeiro o erro

[18/03/2016 13:09:13] [Error - CreatureScript Interface] 
[18/03/2016 13:09:13] buffer:onLogin
[18/03/2016 13:09:13] Description: 
[18/03/2016 13:09:13] (luaRegisterCreatureEvent) Creature not found

 

ao meu login.lua

 

-- ### CONFIG ###
-- message send to player by script "type" (types you can check in "global.lua")
SHOP_MSG_TYPE = 19
-- time (in seconds) between connections to SQL database by shop script
SQL_interval = 30
-- ### END OF CONFIG ###
SQL_COMUNICATION_INTERVAL = SQL_interval * 1000
function onLogin(cid)
if(InitShopComunication == 0) then
        local eventServ = addEvent(sql_communication, SQL_COMUNICATION_INTERVAL, {})
        InitShopComunication = eventServ
    end
                 registerCreatureEvent(cid, 'advance')
    registerCreatureEvent(cid, "PlayerDeath")
    registerCreatureEvent(cid, "Ushuriel")
    registerCreatureEvent(cid, "Zugurosh")
    registerCreatureEvent(cid, "Madareth")
    registerCreatureEvent(cid, "Golgordan")
    registerCreatureEvent(cid, "Annihilon")
    registerCreatureEvent(cid, "Hellgorak")
    return TRUE
end

function sql_communication(parameters)
    local result_plr = db.getResult("SELECT * FROM z_ots_comunication WHERE `type` = 'login';")
    if(result_plr:getID() ~= -1) then
        while(true) do
            id = tonumber(result_plr:getDataInt("id"))
            action = tostring(result_plr:getDataString("action"))
            delete = tonumber(result_plr:getDataInt("delete_it"))
            cid = getPlayerByName(tostring(result_plr:getDataString("name")))
            if isPlayer(cid) == TRUE then
                local itemtogive_id = tonumber(result_plr:getDataInt("param1"))
                local itemtogive_count = tonumber(result_plr:getDataInt("param2"))
                local container_id = tonumber(result_plr:getDataInt("param3"))
                local container_count = tonumber(result_plr:getDataInt("param4"))
                local add_item_type = tostring(result_plr:getDataString("param5"))
                local add_item_name = tostring(result_plr:getDataString("param6"))
                local received_item = 0
                local full_weight = 0
                if add_item_type == 'container' then
                    container_weight = getItemWeightById(container_id, 1)
                    if isItemRune(itemtogive_id) == TRUE then
                        items_weight = container_count * getItemWeightById(itemtogive_id, 1)
                    else
                        items_weight = container_count * getItemWeightById(itemtogive_id, itemtogive_count)
                    end
                    full_weight = items_weight + container_weight
                else
                    full_weight = getItemWeightById(itemtogive_id, itemtogive_count)
                    if isItemRune(itemtogive_id) == TRUE then
                        full_weight = getItemWeightById(itemtogive_id, 1)
                    else
                        full_weight = getItemWeightById(itemtogive_id, itemtogive_count)
                    end
                end
                local free_cap = getPlayerFreeCap(cid)
                if full_weight <= free_cap then
                    if add_item_type == 'container' then
                        local new_container = doCreateItemEx(container_id, 1)
                        local iter = 0
                        while iter ~= container_count do
                            doAddContainerItem(new_container, itemtogive_id, itemtogive_count)
                            iter = iter + 1
                        end
                        received_item = doPlayerAddItemEx(cid, new_container)
                    else
                        local new_item = doCreateItemEx(itemtogive_id, itemtogive_count)
                        received_item = doPlayerAddItemEx(cid, new_item)
                    end
                    if received_item == RETURNVALUE_NOERROR then
                        doPlayerSendTextMessage(cid, SHOP_MSG_TYPE, 'You received >> '.. add_item_name ..' << from OTS shop.')
                        db.executeQuery("DELETE FROM `z_ots_comunication` WHERE `id` = " .. id .. ";")
                        db.executeQuery("UPDATE `z_shop_history_item` SET `trans_state`='realized', `trans_real`=" .. os.time() .. " WHERE id = " .. id .. ";")
                    else
                        doPlayerSendTextMessage(cid, SHOP_MSG_TYPE, '>> '.. add_item_name ..' << from OTS shop is waiting for you. Please make place for this item in your backpack/hands and wait about '.. SQL_interval ..' seconds to get it.')
                    end
                else
                    doPlayerSendTextMessage(cid, SHOP_MSG_TYPE, '>> '.. add_item_name ..' << from OTS shop is waiting for you. It weight is '.. full_weight ..' oz., you have only '.. free_cap ..' oz. free capacity. Put some items in depot and wait about '.. SQL_interval ..' seconds to get it.')
                end
            end
            if not(result_plr:next()) then
                break
            end
        end
        result_plr:free()
    end
    local eventServ = addEvent(sql_communication, SQL_COMUNICATION_INTERVAL, parameters)
end
function checkRecord()
   local onlinePlayers = getWorldCreatures(0)
   if(onlinePlayers > getMaxPlayers()) then
      broadcastMessageEx(MESSAGE_EVENT_ADVANCE, 'New record: ' .. onlinePlayers .. (onlinePlayers > 1 and ' players' or ' player')..  ' are logged in.')
      local save = assert(io.open('record.ini', "wb"))
      local data = save:read("*number")
      save:write(onlinePlayers)
      save:close()
   end
end
    
function getMaxPlayers()
    
    local file = assert(io.open('record.ini', "rb"))
    local t = file:read("*number")
    file:close()
    
    return (t == nil and 0 or t)
end