• 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.)

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

    elchuvas

    elchuvas
    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

    2 participantes

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

    [Admin] God Maya

    [Admin] God Maya
    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



    Vip teleport  YNU5B25
    2 participantes
    http://www.tibiaface.com

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

    elchuvas

    elchuvas
    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'

    2 participantes

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

    [Admin] God Maya

    [Admin] God Maya
    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



    Vip teleport  YNU5B25
    2 participantes
    http://www.tibiaface.com

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

    elchuvas

    elchuvas
    Miembro
    Miembro
    Gracias maya

    2 participantes

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

    [Admin] God Maya

    [Admin] God Maya
    Administrador
    Administrador
    Tema solucionado



    Vip teleport  YNU5B25
    2 participantes
    http://www.tibiaface.com

    Contenido patrocinado


    2 participantes

    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).