• TibiaFace

    Tibiaface | Una comunidad Open Tibia donde encontras : mapas, scripts, Otserver, npc y amigos etc ...

    .
    demo menumenu

    Afiliados



    Votar:

    Vip teleport

    Compartir:

    Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje (Página 1 de 1.)

    1default Vip teleport el Jue Abr 05, 2018 6:10 pm

    elchuvas

    avatar
    Miembro
    Miembro
    Buenas! Necesito ayuda para un script de teleport lo tengo para varios cosas lo dejare enseguida pero lo que yo quiero es ver si se le puede añadir a este mismo script que tambien teletransporte a la casa de quien use el portal obviamente aqui el script
    function onSay(cid, words, param)


    local config = {
    vip = "no", -- somente vip players poderam usar o comando? ("yes" or "no")
    pz = "no", -- players precisam estar em protection zone para usar? ("yes" or "no").
    battle = "yes", -- players deve estar sem battle ("yes" or "no")
    custo = "no", -- se os teleport irão custa ("yes" or "no")
    storage = 13540, -- Storage Id da sua vip account caso for usar somente vips
    premium = "no", -- se precisa ser premium account ("yes" or "no")
    Need = "yes", -- se precisa de item para usar ("yes" or "no")
    Item = 9742 -- ID do seu item
    }


    -------------Config Lugares----------------
    local lugar = {
    ["depot"] = {{x=157, y=49, z=7}, 8, 1000},
    ["temple"] = {{x=1758, y=2258, z=7}, 8, 1000},
    ["3k area"] = {{x=1698, y=1700, z=7}, 3000, 1000},
    ["2k quest"] = {{x=1462, y=916, z=7}, 2000, 1000},
    ["1k quest"] = {{x=1622, y=1589, z=7}, 1000, 1000},
    ["arena"] = {{x=162, y=101, z=7}, 250, 1000},
    ["trainer"] = {{x=160, y=44, z=8}, 8, 1000},
    ["shop"] = {{x=138, y=26, z=8}, 8, 1000},
    ["collapser"] = {{x=754, y=1173, z=8}, 8, 1000},
    ["bosses"] = {{x=324, y=364, z=1}, 2650, 1000}
    }



    -------------/Config Checkar não mecha----------------
    local lugares = lugar[param]
    if (param == "check") then
    for name, pos in pairs(lugar) do
    text = "Destino: "..name..", Level necessario: "..pos[2]..","
    if(config.battle == "yes") then
    text = text.." Voce pode usar estando battler: NÃO"
    else
    text = text.." Voce pode usar estando battler: SIM"
    end
    if(config.pz == "yes") then
    text = text.." Voce DeVe Usar estando PZ: SIM"
    else
    text = text.." Voce DeVe Usar estando PZ: Não"
    end
    if (pos[3] == TRUE) then
    text = text..", Cost: "..pos[4]..";"
    end
    doPlayerSendTextMessage(cid, 20, ""..text.."")
    end
    return TRUE
    end


    --[[ Lista de Viagem (Não mexa) ]]--
    if (param == "list") then
    local str = ""
    str = str .. "Lista de Viagem :\n\n"
    for name, pos in pairs(lugar) do
    str = str..name.."\n"
    end
    str = str .. ""
    doShowTextDialog(cid, 6579, str)
    return TRUE
    end


    if(config.pz == "yes") and (getTilePzInfo(getCreaturePosition(cid)) == FALSE) then
    doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT,"você precisa estar em protection zone pra poder teleportar.")
    return TRUE
    end

    if(config.premium == "yes") and (not isPremium(cid)) then
    doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT, "Only players with premium account can teleport.")
    return TRUE
    end

    if (config.vip == "yes") and getPlayerStorageValue(cid, tonumber(config.storage)) - os.time() <= 0 then
    doPlayerSendCancel(cid,"Você não possui vip.")
    return TRUE
    end

    if(config.battle == "yes") and (getCreatureCondition(cid, CONDITION_INFIGHT) == TRUE) then
    doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT, "You need without pz for teleport.")
    return TRUE
    end

    if not(lugares) then
    doPlayerSendTextMessage(cid, 22, "Sorry, this place does not exist.")
    doSendMagicEffect(getCreaturePosition(cid), CONST_ME_POFF)
    return TRUE
    end

    if (getPlayerLevel(cid) <= lugares[2]) then
    doPlayerSendTextMessage(cid, 22, "Desculpe,Voce não tem level. voce precisa "..lugares[2].." level ou mais para ser teleportado.")
    doSendMagicEffect(getCreaturePosition(cid), CONST_ME_POFF)
    return TRUE
    end

    if (config.Need == "yes") and getPlayerItemCount(cid,config.Item) < 1 then
    doPlayerSendCancel(cid,"You no have a item " .. getItemNameById(config.Item) .. ".")
    return TRUE
    end

    if(config.custo == "yes") and (doPlayerRemoveMoney(cid, lugares[3]) == FALSE) then
    doPlayerSendTextMessage(cid, 22, "Desculpe,voce nao tem dinheiro suficiente. Voce precisa "..lugares[3].." gp para ser teleportado.")
    doSendMagicEffect(getCreaturePosition(cid), CONST_ME_POFF)
    return TRUE
    end
    doTeleportThing(cid, lugares[1])
    doSendMagicEffect(lugares[1], CONST_ME_TELEPORT)
    doPlayerSendTextMessage(cid, 22, "" .. getPlayerName(cid) .. " It was teleported: \n " .. param .. ".")
    return TRUE
    end

    Ver perfil de usuario

    2default Re: Vip teleport el Jue Abr 05, 2018 7:58 pm

    [Admin] God Maya

    avatar
    Administrador
    Administrador
    prueba

    Código:

    local config = {
    vip = "no", -- somente vip players poderam usar o comando? ("yes" or "no")
    pz = "no", -- players precisam estar em protection zone para usar? ("yes" or "no").
    battle = "yes", -- players deve estar sem battle ("yes" or "no")
    custo = "no", -- se os teleport irão custa ("yes" or "no")
    storage = 13540, -- Storage Id da sua vip account caso for usar somente vips
    premium = "no", -- se precisa ser premium account ("yes" or "no")
    Need = "yes", -- se precisa de item para usar ("yes" or "no")
    Item = 9742 -- ID do seu item
    }


    -------------Config Lugares----------------
    local lugar = {
    ["depot"] = {{x=157, y=49, z=7}, 8, 1000},
    ["temple"] = {{x=1758, y=2258, z=7}, 8, 1000},
    ["3k area"] = {{x=1698, y=1700, z=7}, 3000, 1000},
    ["2k quest"] = {{x=1462, y=916, z=7}, 2000, 1000},
    ["1k quest"] = {{x=1622, y=1589, z=7}, 1000, 1000},
    ["arena"] = {{x=162, y=101, z=7}, 250, 1000},
    ["trainer"] = {{x=160, y=44, z=8}, 8, 1000},
    ["shop"] = {{x=138, y=26, z=8}, 8, 1000},
    ["collapser"] = {{x=754, y=1173, z=8}, 8, 1000},
    ["bosses"] = {{x=324, y=364, z=1}, 2650, 1000},
    ["house"] = {getHouseEntry(getHouseByPlayerGUID(getPlayerGUID(cid))), 2650, 1000}
    }



    -------------/Config Checkar não mecha----------------
    local lugares = lugar[param]
    if (param == "check") then
    for name, pos in pairs(lugar) do
    text = "Destino: "..name..", Level necessario: "..pos[2]..","
    if(config.battle == "yes") then
    text = text.." Voce pode usar estando battler: NÃO"
    else
    text = text.." Voce pode usar estando battler: SIM"
    end
    if(config.pz == "yes") then
    text = text.." Voce DeVe Usar estando PZ: SIM"
    else
    text = text.." Voce DeVe Usar estando PZ: Não"
    end
    if (pos[3] == TRUE) then
    text = text..", Cost: "..pos[4]..";"
    end
    doPlayerSendTextMessage(cid, 20, ""..text.."")
    end
    return TRUE
    end


    --[[ Lista de Viagem (Não mexa) ]]--
    if (param == "list") then
    local str = ""
    str = str .. "Lista de Viagem :\n\n"
    for name, pos in pairs(lugar) do
    str = str..name.."\n"
    end
    str = str .. ""
    doShowTextDialog(cid, 6579, str)
    return TRUE
    end


    if(config.pz == "yes") and (getTilePzInfo(getCreaturePosition(cid)) == FALSE) then
    doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT,"você precisa estar em protection zone pra poder teleportar.")
    return TRUE
    end

    if(config.premium == "yes") and (not isPremium(cid)) then
    doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT, "Only players with premium account can teleport.")
    return TRUE
    end

    if (config.vip == "yes") and getPlayerStorageValue(cid, tonumber(config.storage)) - os.time() <= 0 then
    doPlayerSendCancel(cid,"Você não possui vip.")
    return TRUE
    end

    if(config.battle == "yes") and (getCreatureCondition(cid, CONDITION_INFIGHT) == TRUE) then
    doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT, "You need without pz for teleport.")
    return TRUE
    end

    if not(lugares) then
    doPlayerSendTextMessage(cid, 22, "Sorry, this place does not exist.")
    doSendMagicEffect(getCreaturePosition(cid), CONST_ME_POFF)
    return TRUE
    end

    if (getPlayerLevel(cid) <= lugares[2]) then
    doPlayerSendTextMessage(cid, 22, "Desculpe,Voce não tem level. voce precisa "..lugares[2].." level ou mais para ser teleportado.")
    doSendMagicEffect(getCreaturePosition(cid), CONST_ME_POFF)
    return TRUE
    end

    if (config.Need == "yes") and getPlayerItemCount(cid,config.Item) < 1 then
    doPlayerSendCancel(cid,"You no have a item " .. getItemNameById(config.Item) .. ".")
    return TRUE
    end

    if(config.custo == "yes") and (doPlayerRemoveMoney(cid, lugares[3]) == FALSE) then
    doPlayerSendTextMessage(cid, 22, "Desculpe,voce nao tem dinheiro suficiente. Voce precisa "..lugares[3].." gp para ser teleportado.")
    doSendMagicEffect(getCreaturePosition(cid), CONST_ME_POFF)
    return TRUE
    end
    doTeleportThing(cid, lugares[1])



    doPlayerSendTextMessage(cid, 22, "" .. getPlayerName(cid) .. " It was teleported: \n " .. param .. ".")
    return TRUE
    end



    Ver perfil de usuario http://www.tibiaface.com

    3default Re: Vip teleport el Vie Abr 06, 2018 10:15 am

    elchuvas

    avatar
    Miembro
    Miembro
    local config = {
    vip = "no", -- somente vip players poderam usar o comando? ("yes" or "no")
    pz = "no", -- players precisam estar em protection zone para usar? ("yes" or "no").
    battle = "yes", -- players deve estar sem battle ("yes" or "no")
    custo = "no", -- se os teleport irão custa ("yes" or "no")
    storage = 13540, -- Storage Id da sua vip account caso for usar somente vips
    premium = "no", -- se precisa ser premium account ("yes" or "no")
    Need = "yes", -- se precisa de item para usar ("yes" or "no")
    Item = 9742 -- ID do seu item
    }


    -------------Config Lugares----------------
    local lugar = {
    ["depot"] = {{x=157, y=49, z=7}, 8, 1000},
    ["temple"] = {{x=1758, y=2258, z=7}, 8, 1000},
    ["3k area"] = {{x=1698, y=1700, z=7}, 3000, 1000},
    ["2k quest"] = {{x=1462, y=916, z=7}, 2000, 1000},
    ["1k quest"] = {{x=1622, y=1589, z=7}, 1000, 1000},
    ["arena"] = {{x=162, y=101, z=7}, 250, 1000},
    ["trainer"] = {{x=160, y=44, z=8}, 8, 1000},
    ["shop"] = {{x=138, y=26, z=8}, 8, 1000},
    ["collapser"] = {{x=754, y=1173, z=8}, 8, 1000},
    ["bosses"] = {{x=324, y=364, z=1}, 2650, 1000},
    ["house"] = {getHouseEntry(getHouseByPlayerGUID(getPlayerGUID(cid))), 2650, 1000}
    }



    -------------/Config Checkar não mecha----------------
    local lugares = lugar[param]
    if (param == "check") then
    for name, pos in pairs(lugar) do
    text = "Destino: "..name..", Level necessario: "..pos[2]..","
    if(config.battle == "yes") then
    text = text.." Voce pode usar estando battler: NÃO"
    else
    text = text.." Voce pode usar estando battler: SIM"
    end
    if(config.pz == "yes") then
    text = text.." Voce DeVe Usar estando PZ: SIM"
    else
    text = text.." Voce DeVe Usar estando PZ: Não"
    end
    if (pos[3] == TRUE) then
    text = text..", Cost: "..pos[4]..";"
    end
    doPlayerSendTextMessage(cid, 20, ""..text.."")
    end
    return TRUE
    end


    --[[ Lista de Viagem (Não mexa) ]]--
    if (param == "list") then
    local str = ""
    str = str .. "Lista de Viagem :\n\n"
    for name, pos in pairs(lugar) do
    str = str..name.."\n"
    end
    str = str .. ""
    doShowTextDialog(cid, 6579, str)
    return TRUE
    end


    if(config.pz == "yes") and (getTilePzInfo(getCreaturePosition(cid)) == FALSE) then
    doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT,"você precisa estar em protection zone pra poder teleportar.")
    return TRUE
    end

    if(config.premium == "yes") and (not isPremium(cid)) then
    doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT, "Only players with premium account can teleport.")
    return TRUE
    end

    if (config.vip == "yes") and getPlayerStorageValue(cid, tonumber(config.storage)) - os.time() <= 0 then
    doPlayerSendCancel(cid,"Você não possui vip.")
    return TRUE
    end

    if(config.battle == "yes") and (getCreatureCondition(cid, CONDITION_INFIGHT) == TRUE) then
    doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT, "You need without pz for teleport.")
    return TRUE
    end

    if not(lugares) then
    doPlayerSendTextMessage(cid, 22, "Sorry, this place does not exist.")
    doSendMagicEffect(getCreaturePosition(cid), CONST_ME_POFF)
    return TRUE
    end

    if (getPlayerLevel(cid) <= lugares[2]) then
    doPlayerSendTextMessage(cid, 22, "Desculpe,Voce não tem level. voce precisa "..lugares[2].." level ou mais para ser teleportado.")
    doSendMagicEffect(getCreaturePosition(cid), CONST_ME_POFF)
    return TRUE
    end

    if (config.Need == "yes") and getPlayerItemCount(cid,config.Item) < 1 then
    doPlayerSendCancel(cid,"You no have a item " .. getItemNameById(config.Item) .. ".")
    return TRUE
    end

    if(config.custo == "yes") and (doPlayerRemoveMoney(cid, lugares[3]) == FALSE) then
    doPlayerSendTextMessage(cid, 22, "Desculpe,voce nao tem dinheiro suficiente. Voce precisa "..lugares[3].." gp para ser teleportado.")
    doSendMagicEffect(getCreaturePosition(cid), CONST_ME_POFF)
    return TRUE
    end
    doTeleportThing(cid, lugares[1])



    doPlayerSendTextMessage(cid, 22, "" .. getPlayerName(cid) .. " It was teleported: \n " .. param .. ".")
    return TRUE
    end
    Aparece esto :v
    [06/04/2018 09:13:46] [Error - LuaScriptInterface::loadFile] data/talkactions/scripts/tp.lua:115: '<eof>' expected near 'end'
    [06/04/2018 09:13:46] [Warning - Event::loadScript] Cannot load script (data/talkactions/scripts/tp.lua)
    [06/04/2018 09:13:46] data/talkactions/scripts/tp.lua:115: '<eof>' expected near 'end'

    Ver perfil de usuario

    4default Re: Vip teleport el Vie Abr 06, 2018 3:59 pm

    [Admin] God Maya

    avatar
    Administrador
    Administrador
    asi

    Código:

    local config = {
    vip = "no", -- somente vip players poderam usar o comando? ("yes" or "no")
    pz = "no", -- players precisam estar em protection zone para usar? ("yes" or "no").
    battle = "yes", -- players deve estar sem battle ("yes" or "no")
    custo = "no", -- se os teleport irão custa ("yes" or "no")
    storage = 13540, -- Storage Id da sua vip account caso for usar somente vips
    premium = "no", -- se precisa ser premium account ("yes" or "no")
    Need = "yes", -- se precisa de item para usar ("yes" or "no")
    Item = 9742 -- ID do seu item
    }


    -------------Config Lugares----------------
    local lugar = {
    ["depot"] = {{x=157, y=49, z=7}, 8, 1000},
    ["temple"] = {{x=1758, y=2258, z=7}, 8, 1000},
    ["3k area"] = {{x=1698, y=1700, z=7}, 3000, 1000},
    ["2k quest"] = {{x=1462, y=916, z=7}, 2000, 1000},
    ["1k quest"] = {{x=1622, y=1589, z=7}, 1000, 1000},
    ["arena"] = {{x=162, y=101, z=7}, 250, 1000},
    ["trainer"] = {{x=160, y=44, z=8}, 8, 1000},
    ["shop"] = {{x=138, y=26, z=8}, 8, 1000},
    ["collapser"] = {{x=754, y=1173, z=8}, 8, 1000},
    ["bosses"] = {{x=324, y=364, z=1}, 2650, 1000},
    ["house"] = {getHouseEntry(getHouseByPlayerGUID(getPlayerGUID(cid))), 2650, 1000}
    }



    -------------/Config Checkar não mecha----------------
    local lugares = lugar[param]
    if (param == "check") then
    for name, pos in pairs(lugar) do
    text = "Destino: "..name..", Level necessario: "..pos[2]..","
    if(config.battle == "yes") then
    text = text.." Voce pode usar estando battler: NÃO"
    else
    text = text.." Voce pode usar estando battler: SIM"
    end
    if(config.pz == "yes") then
    text = text.." Voce DeVe Usar estando PZ: SIM"
    else
    text = text.." Voce DeVe Usar estando PZ: Não"
    end
    if (pos[3] == TRUE) then
    text = text..", Cost: "..pos[4]..";"
    end
    doPlayerSendTextMessage(cid, 20, ""..text.."")
    end
    return TRUE
    end


    --[[ Lista de Viagem (Não mexa) ]]--
    if (param == "list") then
    local str = ""
    str = str .. "Lista de Viagem :\n\n"
    for name, pos in pairs(lugar) do
    str = str..name.."\n"
    end
    str = str .. ""
    doShowTextDialog(cid, 6579, str)
    return TRUE
    end


    if(config.pz == "yes") and (getTilePzInfo(getCreaturePosition(cid)) == FALSE) then
    doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT,"você precisa estar em protection zone pra poder teleportar.")
    return TRUE
    end

    if(config.premium == "yes") and (not isPremium(cid)) then
    doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT, "Only players with premium account can teleport.")
    return TRUE
    end

    if (config.vip == "yes") and getPlayerStorageValue(cid, tonumber(config.storage)) - os.time() <= 0 then
    doPlayerSendCancel(cid,"Você não possui vip.")
    return TRUE
    end

    if(config.battle == "yes") and (getCreatureCondition(cid, CONDITION_INFIGHT) == TRUE) then
    doPlayerSendTextMessage(cid, MESSAGE_EVENT_DEFAULT, "You need without pz for teleport.")
    return TRUE
    end

    if not(lugares) then
    doPlayerSendTextMessage(cid, 22, "Sorry, this place does not exist.")
    doSendMagicEffect(getCreaturePosition(cid), CONST_ME_POFF)
    return TRUE
    end

    if (getPlayerLevel(cid) <= lugares[2]) then
    doPlayerSendTextMessage(cid, 22, "Desculpe,Voce não tem level. voce precisa "..lugares[2].." level ou mais para ser teleportado.")
    doSendMagicEffect(getCreaturePosition(cid), CONST_ME_POFF)
    return TRUE
    end

    if (config.Need == "yes") and getPlayerItemCount(cid,config.Item) < 1 then
    doPlayerSendCancel(cid,"You no have a item " .. getItemNameById(config.Item) .. ".")
    return TRUE
    end

    if(config.custo == "yes") and (doPlayerRemoveMoney(cid, lugares[3]) == FALSE) then
    doPlayerSendTextMessage(cid, 22, "Desculpe,voce nao tem dinheiro suficiente. Voce precisa "..lugares[3].." gp para ser teleportado.")
    doSendMagicEffect(getCreaturePosition(cid), CONST_ME_POFF)
    return TRUE
    end
    doTeleportThing(cid, lugares[1])



    doPlayerSendTextMessage(cid, 22, "" .. getPlayerName(cid) .. " It was teleported: \n " .. param .. ".")

    end
    return TRUE
    end



    Ver perfil de usuario http://www.tibiaface.com

    5default Re: Vip teleport el Sáb Abr 07, 2018 10:55 am

    elchuvas

    avatar
    Miembro
    Miembro
    Gracias maya

    Ver perfil de usuario

    6default Re: Vip teleport el Sáb Abr 07, 2018 11:44 am

    [Admin] God Maya

    avatar
    Administrador
    Administrador
    Tema solucionado



    Ver perfil de usuario http://www.tibiaface.com

    Contenido patrocinado


    Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje (Página 1 de 1.)

    Permisos de este foro:
    No puedes responder a temas en este foro.

     

    BienvenidosTibiaFace es una comunidad de Open Tibia. Para participar debes estar registrado (click para Regístrate).