• TibiaFace

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

    .
    demo menumenu

    Afiliados



    Votar:

    PROBLEMAS CON FISHING

    Compartir:

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

    1default PROBLEMAS CON FISHING el Lun Feb 26, 2018 8:56 pm

    Lukario

    avatar
    Miembro
    Miembro
    hola para ser breve, tengo problemas con mi scripts de fishing en pokemon, resulta que si añado mas pokemones o me tira error o simplemente no salen, pfv si alguien me puede ayudar.




    Código:
    local fishing = {
    ["Magikarp"] = {skill = 0, level = -2},
    ["Horsea"] = {skill = 23, level = 2},
    ["Poliwag"] = {skill = 28, level = 2},
    ["Krabby"] = {skill = 33, level = 1},
    ["Goldeen"] = {skill = 38, level = 3},
    ["Tentacool"] = {skill = 43, level = 5},
    ["Qwilfish"] = {skill = 40, level = 4},
    ["Remoraid"] = {skill = 43, level = 4},
    ["Marill"] = {skill = 43, level = 5},
    ["Staryu"] = {skill = 43, level = 5},
    ["Chinchou"] = {skill = 45, level = 6},
    ["Azumarill"] = {skill = 55, level = 13},
    ["Octillery"] = {skill = 55, level = 7},
    ["Poliwhirl"] = {skill = 60, level = 10},
    ["Lanturn"] = {skill = 65, level = 10},
    ["Seadra"] = {skill = 65, level = 12},
    ["Kingler"] = {skill = 75, level = 15},
    ["Seaking"] = {skill = 70, level = 10},
    ["Starmie"] = {skill = 70, level = 15},
    ["Corsola"] = {skill = 70, level = 10},
    ["Tentacruel"] = {skill = 100, level = 25},
    ["Gyarados"] = {skill = 100, level = 30},
    }

    local storage = 15458
    local bonus = 1
    local limite = 80


    local function doFish(cid, pos, ppos, chance, interval, number)
           if not isCreature(cid) then return false end

           if getThingPos(cid).x ~= ppos.x or getThingPos(cid).y ~= ppos.y then
           return false end

           if getPlayerStorageValue(cid, storage) ~= number then return false end

           doSendMagicEffect(pos, CONST_ME_LOSEENERGY)

    local peixe = 0
    local playerpos = getClosestFreeTile(cid, getThingPos(cid))
    local fishes = {}
    local randomfish = ""

                                                                     --alterado!!
    if getPlayerSkillLevel(cid, 6) < limite then
    doPlayerAddSkillTry(cid, 6, bonus)
    end

    for a, b in pairs (fishing) do
    if getPlayerSkillLevel(cid, 6) >= b.skill then
    table.insert(fishes, a)
    end
    end

    if math.random(1, 100) <= chance then
    if getPlayerSkillLevel(cid, 6) < limite then
    doPlayerAddSkillTry(cid, 6, bonus)
    end
    randomfish = fishes[math.random(#fishes)]
       peixe = doSummonCreature(randomfish, playerpos)
    if not isCreature(peixe) then
    addEvent(doFish, interval, cid, pos, ppos, chance, interval, number)
    return true
    end
    doSetMonsterPassive(peixe)
    doWildAttackPlayer(peixe, cid)
    if #getCreatureSummons(cid) >= 1 then
            doSendMagicEffect(getThingPos(getCreatureSummons(cid)[1]), 173)
    doChallengeCreature(getCreatureSummons(cid)[1], peixe)
            else
    doSendMagicEffect(getThingPos(cid), 173)
    doChallengeCreature(cid, peixe)
            end
    return true
    end
    addEvent(doFish, interval, cid, pos, ppos, chance, interval, number)
    return true
    end

    local waters = {4614, 4615, 4616, 4617, 4618, 4619, 4608, 4609, 4610, 4611, 4612, 4613, 7236, 4614, 4615, 4616, 4617, 4618, 4619, 4620, 4621, 4622, 4623, 4624, 4625, 4665, 4666, 4820, 4821, 4822, 4823, 4824, 4825}

    function onUse(cid, item, fromPos, itemEx, toPos)

    if getPlayerGroupId(cid) == 11 then
    return true
    end

    local checkPos = toPos
    checkPos.stackpos = 0

    if getTileThingByPos(checkPos).itemid <= 0 then
    doPlayerSendCancel(cid, '!')
    return true
    end

    if not isInArray(waters, getTileInfo(toPos).itemid) then
    return true
    end

    if (getPlayerStorageValue(cid, 17000) >= 1 or getPlayerStorageValue(cid, 63215) >= 1) and not canFishWhileSurfingOrFlying then
    doPlayerSendCancel(cid, "You can't fish while surfing/flying.")
    return true
    end

    if isInArray(waters, getTileInfo(getThingPos(cid)).itemid) then
    doPlayerSendCancel(cid, "You can\'t fish while surfing neither flying above water.")
    return true
    end

    if getTileInfo(getThingPos(getCreatureSummons(cid)[1] or cid)).protection then
    doPlayerSendCancel(cid, "You can't fish pokémons if you or your pokémon is in protection zone.")
    return true
    end

    if not tonumber(getPlayerStorageValue(cid, storage)) then
    local test = io.open("data/sendtobrun123.txt", "a+")
    local read = ""
    if test then
    read = test:read("*all")
    test:close()
    end
    read = read.."\n[fishing.lua] "..getCreatureName(cid).." - "..getPlayerStorageValue(cid, storage)..""
    local reopen = io.open("data/sendtobrun123.txt", "w")
    reopen:write(read)
    reopen:close()
    setPlayerStorageValue(cid, storage, 1)
    end

    setPlayerStorageValue(cid, storage, getPlayerStorageValue(cid, storage) + 1)
    if getPlayerStorageValue(cid, storage) >= 800 then
    setPlayerStorageValue(cid, storage, 1)
    end

    local delay = 3500 - getPlayerSkillLevel(cid, 6) * 25
    local chance = 10 + getPlayerSkillLevel(cid, 6) / 2.5

    doFish(cid, toPos, getThingPos(cid), chance, delay, getPlayerStorageValue(cid, storage))

    return true
    end

    Ver perfil de usuario

    2default Re: PROBLEMAS CON FISHING el Mar Feb 27, 2018 12:07 am

    [Admin] God Maya

    avatar
    Administrador
    Administrador
    tendrias que colocar el codigo editado por ti y el codigo original para ver cual es tu fallo de asi lo veo sin problemas



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

    3default Re: PROBLEMAS CON FISHING el Mar Feb 27, 2018 11:09 am

    elchuvas

    avatar
    Miembro
    Miembro
    ["Gyarados"] = {skill = 100, level = 30},

    Quita la coma del final de esto
    ["Gyarados"] = {skill = 100, level = 30},
    asi
    ["Gyarados"] = {skill = 100, level = 30}

    Ver perfil de usuario

    4default Re: PROBLEMAS CON FISHING el Mar Feb 27, 2018 12:21 pm

    Lukario

    avatar
    Miembro
    Miembro
    gracias solo era eso Very Happy

    Ver perfil de usuario

    5default Re: PROBLEMAS CON FISHING el Mar Feb 27, 2018 12:21 pm

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