Ir para conteúdo

ERRO SCRIPT BOMBERMAN - TFS 0.4

Por BilauX
em Suporte Tibia OTServer

Featured Replies

Postado
  • Autor

mals esqueci, q cabacisse viu...

 

  Em 06/01/2019 em 11:33, Nazo disse:

Mostre o script...

 

 

  Citar

function getPlayersInRange(position, radiusx, radiusy)
    local creaturesList = {}
    for x = -radiusx, radiusx do
        for y = -radiusy, radiusy do
            if not (x == 0 and y == 0) then
                local creature = getTopCreature({x = position.x+x, y = position.y+y, z = position.z})
                if creature.type == 1 then
                    table.insert(creaturesList, creature.uid)
                end
            end
        end
    end

    local creature = getTopCreature(position)
    if creature.type == 1 then
        if not(table.find(creaturesList, creature.uid)) then
            table.insert(creaturesList, creature.uid)
        end
    end
    return creaturesList
end

function isPositionInArray(haystack, needle)
    for i = 1, #haystack do
        if haystack.x == needle.x and haystack.y == needle.y and haystack.z == needle.z then
            return true
        end
    end
    return false
end

local t = {
    from = {x=896, y=1434, z=14},
    to = {x=930, y=1464, z=14},
    storage = {
        placed = 10001,
        max = 10002,
        radius = 10003
    },
    delay = 3000,
    bombID = 10570,
    effect = CONST_ME_FIREAREA,
    blockID = 9468,
    text = "BOOM!",
    temple = {x=1000, y=1500, z=13},
    exceptions = {
        {x=896, y=1434, z=14},
        {x=897, y=1434, z=14},
        {x=896, y=1435, z=14},
        
        {x=896, y=1463, z=14},
        {x=896, y=1464, z=14},
        {x=897, y=1464, z=14},
        
        {x=930, y=1464, z=14},
        {x=930, y=1463, z=14},
        {x=929, y=1464, z=14},
        
        {x=930, y=1434, z=14},
        {x=930, y=1435, z=14},
        {x=929, y=1434, z=14}
    }
}
function reset()
    local dummy = doCreateItem(10570, 1, {x=896, y=1434, z=14})
    for x = t.from.x, t.to.x do
        for y = t.from.y, t.to.y do
            local pos = {x=x,y=y,z=t.from.z}
            local i1, i2, i3  = getTileItemById(pos, 8304).uid, getTileItemById(pos, 8302).uid, getTileItemById(pos, 8310).uid
            if i1 > 0 then
                doRemoveItem(i1)
            end
            if i2 > 0 then
                doRemoveItem(i2)
            end
            if i3 > 0 then
                doRemoveItem(i3)
            end
            if queryTileAddThing(dummy, pos, 4) == RETURNVALUE_NOERROR and not isPositionInArray(t.exceptions, pos) then
                doCreateItem(t.blockID, 1, pos)
            end
        end
    end
    doRemoveItem(dummy)
end

local function boom(pos, cid)
    local v = getTileItemById(pos, t.bombID).uid
    if isPlayer(cid) and isInRange(getThingPos(cid), t.from, t.to) then
        setPlayerStorageValue(cid, t.storage.placed, getPlayerStorageValue(cid, t.storage.placed) - 1)
        doCreatureSay(cid, t.text, TALKTYPE_ORANGE_2, false, nil, pos)
        doSendMagicEffect(pos, t.effect)
        local c = getTopCreature(pos).uid
        if isPlayer(c) and isInRange(getThingPos(c), t.from, t.to) then
            doSendMagicEffect(pos, CONST_ME_GIFT_WRAPS)
            doTeleportThing(c, t.temple)
            doSendMagicEffect(t.temple, CONST_ME_MORTAREA)
            local n1, n2 = getPlayerName(c), getPlayerName(cid)
            doBroadcastMessage(n1==n2 and n1 .. " killed " .. (getPlayerSex(c) == 0 and "her" or "him") .. "self!" or n1 .. " was killed by " .. n2 .. "!", MESSAGE_STATUS_WARNING)
            local a = getPlayersInRange({x=896, y=1434, z=14}, 30, 34)
            if #a < 2 then
                doBroadcastMessage(getPlayerName(a[1]) .. " has won the match!", MESSAGE_STATUS_WARNING)
                doPlayerAddItem(cid, 8976, 1)
                doTeleportThing(a[1], t.temple)
                doSendMagicEffect(t.temple, CONST_ME_FIREWORK_RED)
                reset()
                reset()
            end
        else
            local b = getTileItemById(pos, t.blockID).uid
            if b > 0 then
                doSendMagicEffect(pos, CONST_ME_BLOCKHIT)
                doRemoveItem(b)
                local r = math.random(10)
                if r < 4 then
                    doCreateItem(r==1 and 8304 or r==2 and 8302 or r==3 and 8310, 1, _pos)
                end
            end
        end
        local N, E, W, S, l = 1, 1, 1, 1, getPlayerStorageValue(cid, t.storage.radius)
        function loopDir(dir)
            local _pos = {x=pos.x+(dir=="E" and E or dir=="W" and -W or 0), y=pos.y+(dir=="N" and -N or dir=="S" and S or 0), z=pos.z}
            if queryTileAddThing(v, _pos, 4) == RETURNVALUE_NOERROR or getTileItemById(_pos, t.blockID).uid > 0 then
                doSendMagicEffect(_pos, t.effect)
                local c = getTopCreature(_pos).uid
                if isPlayer(c) and isInRange(getThingPos(c), t.from, t.to) then
                    doSendMagicEffect(_pos, CONST_ME_GIFT_WRAPS)
                    doTeleportThing(c, t.temple)
                    doSendMagicEffect(t.temple, CONST_ME_MORTAREA)
                    local n1, n2 = getPlayerName(c), getPlayerName(cid)
                    doBroadcastMessage(n1==n2 and n1 .. " killed " .. (getPlayerSex(c) == 0 and "her" or "him") .. "self!" or n1 .. " was killed by " .. n2 .. "!", MESSAGE_STATUS_WARNING)
                    local a = getPlayersInRange({x=896, y=1434, z=14}, 30, 34)
                    if #a < 2 then
                        doBroadcastMessage(getPlayerName(a[1]) .. " has won the match!", MESSAGE_STATUS_WARNING)
                        doPlayerAddItem(cid, 8976, 1)
                        doTeleportThing(a[1], t.temple)
                        doSendMagicEffect(t.temple, CONST_ME_FIREWORK_RED)
                        reset()
                        reset()
                        return "endgame"
                    end
                else
                    local b = getTileItemById(_pos, t.blockID).uid
                    if b > 0 then
                        doSendMagicEffect(_pos, CONST_ME_BLOCKHIT)
                        doRemoveItem(b)
                        local r = math.random(10)
                        if r < 4 then
                            doCreateItem(r==1 and 8304 or r==2 and 8302 or r==3 and 8310, 1, _pos)
                        end
                        return false
                    end
                end
            elseif queryTileAddThing(v, _pos, 4) == 3 then
                return false
            end
            return true
        end
        while N <= l do
            local q = loopDir("N")
            if q == "endgame" then
                return doRemoveItem(v, 1)
            elseif not q then
                break
            else
                N = N + 1
            end
        end
        while E <= l do
            local q = loopDir("E")
            if q == "endgame" then
                return doRemoveItem(v, 1)
            elseif not q then
                break
            else
                E = E + 1
            end
        end
        while W <= l do
            local q = loopDir("W")
            if q == "endgame" then
                return doRemoveItem(v, 1)
            elseif not q then
                break
            else
                W = W + 1
            end
        end
        while S <= l do
            local q = loopDir("S")
            if q == "endgame" then
                return doRemoveItem(v, 1)
            elseif not q then
                break
            else
                S = S + 1
            end
        end
    end
    doRemoveItem(v, 1)
end
function onSay(cid, words, param, channel)
    if isInRange(getThingPos(cid), t.from, t.to) then
        setPlayerStorageValue(cid, t.storage.placed, math.max(getPlayerStorageValue(cid, t.storage.placed), 0))
        setPlayerStorageValue(cid, t.storage.max, math.max(getPlayerStorageValue(cid, t.storage.max), 1))
        setPlayerStorageValue(cid, t.storage.radius, math.max(getPlayerStorageValue(cid, t.storage.radius), 1))
        if getPlayerStorageValue(cid, t.storage.placed) < getPlayerStorageValue(cid, t.storage.max) then
            doCreateItem(t.bombID, 1, getThingPos(cid))
            addEvent(boom, t.delay, getThingPos(cid), cid)
            setPlayerStorageValue(cid, t.storage.placed, getPlayerStorageValue(cid, t.storage.placed) + 1)
        end
        return true
    end
end

 

Editado por BilauX (veja o histórico de edições)

  • Citar
  • Mention
    • Postado

    Tente assim irmão, talkactions/scripts/bomb.lua:

    Mostrar conteúdo oculto

     

    ╔══════════════════════════ҳ̸Ҳ̸ҳஜ۩۞۩ஜҳ̸Ҳ̸ҳ══════════════════════════╗

    Te Ajudei? Rep + e ficamos Quits

    166420979_logoyanliimaornight.png.33f822b8970081a5b3646e85dbfd5934.png

    Precisando de ajuda?

    discord.png.1ecd188791d0141f74d99db371a2e0a4.png.890d5a38d7bcde75543c72b624a65de1.pngDiscord: Yan Liima #3702

    Programador Júnior de LUA, PHP e JavaScript

    Juntos somos lendas, separados somos Mitos!

    ╚══════════════════════════ҳ̸Ҳ̸ҳஜ۩۞۩ஜҳ̸Ҳ̸ҳ═════════════════════════════╝

  • Citar
  • Mention
    • 4 weeks later...
    Postado
    • Autor

    msm erro parece q minha lib não tem essa função loop dir..

     

      Em 08/01/2019 em 03:30, Yan Liima disse:

    Tente assim irmão, talkactions/scripts/bomb.lua:

    Mostrar conteúdo oculto

     

     

     

  • Citar
  • Mention

    • Participe da conversa

    Você pode postar agora e se cadastrar mais tarde. Se você tem uma conta, faça o login para postar com sua conta.

    Visitante
    Responder
    Ir para a lista de tópicos

    Quem Está Navegando 0

    • Nenhum usuário registrado visualizando esta página.

    Conteúdo Similar

    Estatísticas dos Fóruns

    • Tópicos 96.9k
    • Posts 519.7k

    Informação Importante

    Confirmação de Termo

    I accept