Ir para conteúdo
TK News
  • Cadastre-se

CreatureScript%252FGlobalEvent%252FMoveMent Armors Attack v0.1

Orochi Elf

Por ,
em Scripts tfs 0.4 (OLD)

 Share Seguidores 0

Posts Recomendados

  • Este é um post popular.
Orochi Elf

Orochi Elf 499

Postado
  • Este é um post popular.
Postado (editado)

[CreatureScript] Armors Attack v0.1

Testado no servidor

Sourcers: 0.3.6pl1

Versão 8.54

 

Salve galera do TibiaKing, hoje eu venho apresentar pra vocês o sistema "Armors Attack", na versão 0.1.

 

Como funciona:

Bom, se o player estiver usando um set completo (capacete, peitoral, calça e bota), como por exemplo o magma set, toda vez que ele toma um HIT, a armadura dele pode atacar todo mundo que estiver dentro de uma área (configurável), bom no script eu coloquei uma área de 2 x 2.

Você pode criar várias combinações de armaduras, como por exemplo (DH, MPA, G-LEGS E BOH).

Eu dentro do script, configurei o "Glacier SET e o Magma SET".

 

Instalando

No diretório "Data/CreatureScript/Scripts" crie um arquivo chamado "ArmorsAttack.lua" e dentro adicione o código abaixo

local configs = {
    radius = {2, 2}, -- 2 X 2
    validSlots = {1, 4, 7, 8}, -- Head, Body, Legs, Feet
    msg = "Armors Attack!",
}

local sets = {
    [1] = {items = {7900, 7899, 7894, 7891}, distaceEffect = CONST_ANI_FIRE, effect = CONST_ME_FIREATTACK, combat = COMBAT_FIREDAMAGE, chance = 20, min_max = {100, 300}}, -- Magma set
    [2] = {items = {7902, 7897, 7896, 7892}, distaceEffect = CONST_ANI_ICE, effect = CONST_ME_ICEATTACK, combat = COMBAT_ICEDAMAGE, chance = 20, min_max = {100, 300}}, -- Glacier set
}

local function getCreaturesInArea(fromPos, toPos)
    local retPlayers = {}

    for x = fromPos.x, toPos.x do
        for y = fromPos.y, toPos.y do
            local player = getTopCreature({x=x, y=y, z=fromPos.z})

            if isMonster(player.uid) then

                table.insert(retPlayers, player.uid)
            end
        end
    end
    return retPlayers
end

local function table_compare(table1, table2)
    local n = 0
    local maxn = 0

    if #table1 == #table2 then
        maxn = #table1
    else
        return false
    end

    for i = 1, #table1 do
        for s = 1, #table2 do
            if table1 == table2 then

                n = n + 1
            end
        end
    end
    if n == maxn then
        return true
    end
    return false
end

function onStatsChange(cid, attacker, type, combat, value)
    local playerSet = {}

    for s = 1, #configs.validSlots do
        if getPlayerSlotItem(cid, configs.validSlots).uid > 0 then

            table.insert(playerSet, getPlayerSlotItem(cid, configs.validSlots).itemid)
        end
    end
    for i = 1, #sets do
        if table_compare(sets.items, playerSet) then
            if math.random(100) <= sets.chance then
                local creatures = getCreaturesInArea({x = getThingPos(cid).x - configs.radius[1], y = getThingPos(cid).y - configs.radius[1], z = getThingPos(cid).z}, {x = getThingPos(cid).x + configs.radius[2], y = getThingPos(cid).y + configs.radius[2]})
                if isPlayer(attacker) then

                    table.insert(creatures, attacker)
                end

                doSendMagicEffect(getThingPos(cid), sets.effect)
                doCreatureSay(cid, configs.msg, TALKTYPE_MONSTER)
                for c = 1, #creatures do
                    addEvent(function()
                        doSendDistanceShoot(getThingPos(cid), getThingPos(creatures[c]), sets.distaceEffect)
                        doAreaCombatHealth(cid, sets.combat, getThingPos(creatures[c]), 0, - sets.min_max[1],  - sets.min_max[2], sets.effect)
                    end, c * 100)
                end
            end
        end
    end
    return true
end

 

TAG:

<event type="statschange" name="ArmorsAttack" event="script" value="ArmorsAttack.lua"/>

Agora no "Login.lua" antes do ultimo "return true", adicione

registerCreatureEvent(cid, "ArmorsAttack")

Configuração:

local sets = {
    [1] = {items = {7900, 7899, 7894, 7891}, distaceEffect = CONST_ANI_FIRE, effect = CONST_ME_FIREATTACK, combat = COMBAT_FIREDAMAGE, chance = 20, min_max = {100, 300}}, -- Magma set
    [2] = {items = {7902, 7897, 7896, 7892}, distaceEffect = CONST_ANI_ICE, effect = CONST_ME_ICEATTACK, combat = COMBAT_ICEDAMAGE, chance = 20, min_max = {100, 300}}, -- Glacier set
}

Legenda:

[2] -> ID do SET, que seria sucessivo ao anterior. (Exemplo: caso o anterior for 2, o próximo ID será 3)

items -> São os ITEMS IDs do SET.

distanceEffect -> efeito de distancia, que irá partir do Player as criaturas dentro da área.

effect -> efeito que irá sair das criaturas, quando o distance effect chegar nelas

combat -> tipo de hit

chance -> chance da armadura soltar a magia

min_max -> hit minimo, e hit máximo da magia da armadura.

local configs = {
    radius = {2, 2}, -- 2 X 2
    validSlots = {1, 4, 7, 8}, -- Head, Body, Legs, Feet
    msg = "Armors Attack!",
}

Legenda:

radius -> área que a armadura irá conseguir atacar

validSlots -> slots, que a armadura deve ser equipada.

msg -> toda vez que a armadura atacar, enviará uma mensagem.

 

 

 

Foto de demonstração do sistema.

DVPPktL.png

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

Tony Araújo  ;D 

 

Link para o post
Compartilhar em outros sites
Orochi Elf

Orochi Elf 499

Postado
  • Autor
Postado

Oi, esse script ta um lixo q merda , bom o script ta ótimo, obrigado pelo conteúdo que mentira kkk.

Pode deixar, que vou parar de te ensinar esses lixos. ;3

Tony Araújo  ;D 

 

Link para o post
Compartilhar em outros sites
Orochi Elf

Orochi Elf 499

Postado
  • Autor
Postado

É bom ensinar algo pra esse inútil chamado enself.

ohuaheau

hU3HU3HU3HU3UH3, o cara vive me pedindo socorro no skype, me enche de PM aqui no fórum, e agora veio me desmerecer. HU3HU3HUUH3

Tony Araújo  ;D 

 

Link para o post
Compartilhar em outros sites
Orochi Elf

Orochi Elf 499

Postado
  • Autor
Postado

hum é assim em tonyaraujodaspraia o cara fica me ensinando esses lixo ai cara nao tem condição 

"daspraia" UH3HU3UH3HU3UH3UH.

 

Psér mano, o negócio é você seguir sozin.

Tony Araújo  ;D 

 

Link para o post
Compartilhar em outros sites
  • 1 month later...
jhony157

jhony157 1

Postado
Postado (editado) 

local configs = {
    radius = {2, 2}, -- 2 X 2
    validSlots = {1, 4, 7, 8}, -- Head, Body, Legs, Feet
    msg = "Armors Attack!",
}

local sets = {
    [1] = {items = {7900, 7899, 7894, 7891}, distaceEffect = CONST_ANI_FIRE, effect = CONST_ME_FIREATTACK, combat = COMBAT_FIREDAMAGE, chance = 20, min_max = {100, 300}}, 
    [2] = {items = {11499, 11500, 11501, 11502}, distaceEffect = CONST_ANI_ICE, effect = CONST_ME_ICEATTACK, combat = COMBAT_ICEDAMAGE, chance = 40, min_max = {1000, 3000}}, 
}

local function getCreaturesInArea(fromPos, toPos)
    local retPlayers = {}

    for x = fromPos.x, toPos.x do
        for y = fromPos.y, toPos.y do
            local player = getTopCreature({x=x, y=y, z=fromPos.z})

            if isMonster(player.uid) then

                table.insert(retPlayers, player.uid)
            end
        end
    end
    return retPlayers
end

local function table.compare(table1, table2)
    local n = 0
    local maxn = 0

    if #table1 == #table2 then
        maxn = #table1
    else
        return false
    end

    for i = 1, #table1 do
        for s = 1, #table2 do
            if table1[i] == table2[s] then

                n = n + 1
            end
        end
    end
    if n == maxn then
        return true
    end
    return false
end

function onStatsChange(cid, attacker, type, combat, value)
    local playerSet = {}

    for s = 1, #configs.validSlots do
        if getPlayerSlotItem(cid, configs.validSlots[s]).uid > 0 then

            table.insert(playerSet, getPlayerSlotItem(cid, configs.validSlots[s]).itemid)
        end
    end
    for i = 1, #sets do
        if table.compare(sets[i].items, playerSet) then
            if math.random(100) <= sets[i].chance then
                local creatures = getCreaturesInArea({x = getThingPos(cid).x - configs.radius[1], y = getThingPos(cid).y - configs.radius[1], z = getThingPos(cid).z}, {x = getThingPos(cid).x + configs.radius[2], y = getThingPos(cid).y + configs.radius[2]})
                if isPlayer(attacker) then

                    table.insert(creatures, attacker)
                end

                doSendMagicEffect(getThingPos(cid), sets[i].effect)
                doCreatureSay(cid, configs.msg, TALKTYPE_MONSTER)
                for c = 1, #creatures do
                    addEvent(function()
                        doSendDistanceShoot(getThingPos(cid), getThingPos(creatures[c]), sets[i].distaceEffect)
                        doAreaCombatHealth(cid, sets[i].combat, getThingPos(creatures[c]), 0, - sets[i].min_max[1],  - sets[i].min_max[2], sets[i].effect)
                    end, c * 100)
                end
            end
        end
    end
    return true
end
 

aqui ta dando  erro 28 '(' expected near ','

 

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

http://ntogolden.ddns.net/

 

1534728_2.png

Link para o post
Compartilhar em outros sites
Orochi Elf

Orochi Elf 499

Postado
  • Autor
Postado 
local configs = {
    radius = {2, 2}, -- 2 X 2
    validSlots = {1, 4, 7, 8}, -- Head, Body, Legs, Feet
    msg = "Armors Attack!",
}

local sets = {
    [1] = {items = {7900, 7899, 7894, 7891}, distaceEffect = CONST_ANI_FIRE, effect = CONST_ME_FIREATTACK, combat = COMBAT_FIREDAMAGE, chance = 20, min_max = {100, 300}}, 
    [2] = {items = {11499, 11500, 11501, 11502}, distaceEffect = CONST_ANI_ICE, effect = CONST_ME_ICEATTACK, combat = COMBAT_ICEDAMAGE, chance = 40, min_max = {1000, 3000}}, 
}

local function getCreaturesInArea(fromPos, toPos)
    local retPlayers = {}

    for x = fromPos.x, toPos.x do
        for y = fromPos.y, toPos.y do
            local player = getTopCreature({x=x, y=y, z=fromPos.z})

            if isMonster(player.uid) then

                table.insert(retPlayers, player.uid)
            end
        end
    end
    return retPlayers
end

local function table.compare(table1, table2)
    local n = 0
    local maxn = 0

    if #table1 == #table2 then
        maxn = #table1
    else
        return false
    end

    for i = 1, #table1 do
        for s = 1, #table2 do
            if table1[i] == table2[s] then

                n = n + 1
            end
        end
    end
    if n == maxn then
        return true
    end
    return false
end

function onStatsChange(cid, attacker, type, combat, value)
    local playerSet = {}

    for s = 1, #configs.validSlots do
        if getPlayerSlotItem(cid, configs.validSlots[s]).uid > 0 then

            table.insert(playerSet, getPlayerSlotItem(cid, configs.validSlots[s]).itemid)
        end
    end
    for i = 1, #sets do
        if table.compare(sets[i].items, playerSet) then
            if math.random(100) <= sets[i].chance then
                local creatures = getCreaturesInArea({x = getThingPos(cid).x - configs.radius[1], y = getThingPos(cid).y - configs.radius[1], z = getThingPos(cid).z}, {x = getThingPos(cid).x + configs.radius[2], y = getThingPos(cid).y + configs.radius[2]})
                if isPlayer(attacker) then

                    table.insert(creatures, attacker)
                end

                doSendMagicEffect(getThingPos(cid), sets[i].effect)
                doCreatureSay(cid, configs.msg, TALKTYPE_MONSTER)
                for c = 1, #creatures do
                    addEvent(function()
                        doSendDistanceShoot(getThingPos(cid), getThingPos(creatures[c]), sets[i].distaceEffect)
                        doAreaCombatHealth(cid, sets[i].combat, getThingPos(creatures[c]), 0, - sets[i].min_max[1],  - sets[i].min_max[2], sets[i].effect)
                    end, c * 100)
                end
            end
        end
    end
    return true
end
 

aqui ta dando  erro 28 '(' expected near ','

 

 

Opa brother, obrigado por reportar. Já arrumei no tópico.

Tony Araújo  ;D 

 

Link para o post
Compartilhar em outros sites
jhony157

jhony157 1

Postado
Postado

ae pq aqui fica dando esse erro

data/creaturescripts/scripts/armorsattack.lua:onStatschange

<LuaGetThingPosition>Thing not found  

 

acho q so acontece quando ele ta tipo em andar de cima ai da o erro 

http://ntogolden.ddns.net/

 

1534728_2.png

Link para o post
Compartilhar em outros sites

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

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emojis são permitidos.

×   Seu link foi automaticamente incorporado.   Mostrar como link

×   Seu conteúdo anterior foi restaurado.   Limpar o editor

×   Não é possível colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Seguidores 0
Ir para a lista de tópicos

  • Quem Está Navegando   0 membros estão online

    Nenhum usuário registrado visualizando esta página.

TibiaKing

Open Tibia Server

Quer aprender a criar seu próprio servidor de Tibia? Então está no lugar certo, aqui você encontrará milhares de tutorias, scripts, códigos, mapas e utilitários para que você possa fazer o seu próprio servidor de Tibia começando do zero.

Redes Sociais

Anuncie no TibiaKing

Precisa de mais visibilidade em seus projetos? Quer fazer um plano publicitário para o seu servidor? Anuncie no OTKing e faça sua divulgação, possuímos centenas de acessos simultâneos e milhares diários, com certeza será a sua solução!

×
×
  • Criar Novo...

Informação Importante

Confirmação de Termo

  Eu aceito