Outro Spell Lifesteal

[Xiolones 8]

Olá galera do TK,

 

Venho aqui lhes trazer uma spell nova e funcional !

Ela é uma spell simples, com lifesteal incorporado!  Ou seja, você causa dano X, e recebe 20% de vida..

 

1° PASSO :

 

Copie qualquer arquivo.lua e cole, e renomeie para 'lifesteal'.lua .

Apague tudo de dentro do arquivo e cole este script:

 

function onCastSpell(cid)
    local formula = getPlayerLevel(cid) * getPlayerMagLevel(cid)
    local target = getCreatureTarget(cid)
    
    if target < 1 then
        
        doPlayerSendCancel(cid, "You need a target.")
        return false
    end
    
    if isPlayer(target) then
        
        formula = formula / getPlayerLevel(target)
    else
        
        formula = formula / 15
    end
    
    local stealPercent = formula / 100 * 20
    
    doCreatureAddHealth(cid, stealPercent)
    doSendAnimatedText(getThingPos(cid), "+" .. stealPercent, 25)
    
    doSendDistanceShoot(getThingPos(cid), getThingPos(target), 15)
    doAreaCombatHealth(cid, COMBAT_PHYSICALDAMAGE, getThingPos(target), 0, - formula, - formula * 0.5, CONST_ME_MAGIC_RED)
    return true
end

 

2° PASSO:

Cole esta linha no seu spells.xml

 

    <instant name="Lifesteal" words="exori drain" lvl="80" mana="230" prem="1" range="5" casterTargetOrDirection="1" blockwalls="1" exhaustion="4000" maglv="20" needlearn="0" script="lifesteal.lua">
        <vocation id="3"/>
        <vocation id="7"/>
    </instant>

 

Explicando :

No caso a spell está configurada para curar 20%  --     local stealPercent = formula / 100 * 20  --

Esta formula é de acordo com o magiclevel, quando maior o número, menor o dano!  formula = formula / 15

 

Ela pode ser usada por paladinos maiores de level 80 .. CONFIGURAVEL !

 

 

Créditos:

 

75% Orochi Elf - Script

25% Eu - Idéia, fundamentos, tópico

 

Quaisquer dúvidas podem vir tirar aqui no tópico! Estou a disposição !

Gostou? REP+

 

 

 

[fabious 5]

Mano, mas essa spell voce colocou uma formula que usa lvl do player...

Quero ver fazer uma que cure X% do dano causado....

[Reds 126]

22 horas atrás, fabious disse:

Mano, mas essa spell voce colocou uma formula que usa lvl do player...

Quero ver fazer uma que cure X% do dano causado....

eita, esse tópico é de 9 anos atrás kkkkk

o cara nem vai ver

[Mateus Robeerto 99]

Em 16/09/2023 em 21:44, fabious disse:

Mano, mas essa spell voce colocou uma formula que usa lvl do player...

Quero ver fazer uma que cure X% do dano causado....

function onCastSpell(cid)
    local target = getCreatureTarget(cid)
    
    if target < 1 then
        doPlayerSendCancel(cid, "You need a target.")
        return false
    end
    
    local damage = 100 -- Defina aqui o valor do dano que você quer curar, por exemplo, 100 para curar 100% do dano causado.
    local healthToRestore = (damage / 100) * getCreatureDamage(cid, target)
    
    doCreatureAddHealth(cid, healthToRestore)
    doSendAnimatedText(getThingPos(cid), "+" .. healthToRestore, 25)
    
    doSendDistanceShoot(getThingPos(cid), getThingPos(target), 15)
    doAreaCombatHealth(cid, COMBAT_PHYSICALDAMAGE, getThingPos(target), 0, -damage, -damage * 0.5, CONST_ME_MAGIC_RED)
    return true
end

nao sei se vai funcionar kkk!

[fabious 5]

1 hora atrás, GM Vortex disse:

function onCastSpell(cid)
    local target = getCreatureTarget(cid)
    
    if target < 1 then
        doPlayerSendCancel(cid, "You need a target.")
        return false
    end
    
    local damage = 100 -- Defina aqui o valor do dano que você quer curar, por exemplo, 100 para curar 100% do dano causado.
    local healthToRestore = (damage / 100) * getCreatureDamage(cid, target)
    
    doCreatureAddHealth(cid, healthToRestore)
    doSendAnimatedText(getThingPos(cid), "+" .. healthToRestore, 25)
    
    doSendDistanceShoot(getThingPos(cid), getThingPos(target), 15)
    doAreaCombatHealth(cid, COMBAT_PHYSICALDAMAGE, getThingPos(target), 0, -damage, -damage * 0.5, CONST_ME_MAGIC_RED)
    return true
end

nao sei se vai funcionar kkk!

 

 

Mano, eu ja consegui, vou lhe enviar como ficou. Mas agora estou quebrando a cabeça pra tentar fazer essa magia em área, por exemplo, exevo gran mas leech, onde os afetados, tanto player como monstros tenham suas vidas roubadas. Porque nesse script só consigo no Target.... Voce tem alguma ideia?
 

Citar

local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_BLOCKARMOR, 1)
setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_LIFEDRAIN)
setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_RED)
setCombatFormula(combat, COMBAT_FORMULA_LEVELMAGIC, -1, -10, -1, -20, 5, 5, 1.4, 2.1)

function onCastSpell(cid, var)
    local target = getCreatureTarget(cid)
    local first = getCreatureHealth(target)
    if doCombat(cid, combat, var) then
        local second = getCreatureHealth(target)
        local damage = first - second
        if damage > 0 then
            local addhealth = damage * 0.5
            doCreatureAddHealth(cid, addhealth)
            --doSendAnimatedText(getPlayerPosition(cid), "+"..addhealth.."", TEXTCOLOR_GREEN)
            doSendMagicEffect(getThingPos(cid), CONST_ME_MAGIC_GREEN)
            doSendDistanceShoot(getThingPos(target), getThingPos(cid), 40)
        end
        return true
    end
    return
end
 

 

[Mateus Robeerto 99]

local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_BLOCKARMOR, 1)
setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_LIFEDRAIN)
setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_RED)
setCombatFormula(combat, COMBAT_FORMULA_LEVELMAGIC, -1, -10, -1, -20, 5, 5, 1.4, 2.1)

local area = createCombatArea(AREA_CROSS5X5)
setCombatArea(combat, area)

function onCastSpell(cid, var)
    local pos = getCreaturePosition(cid) 
    local targets = getCreaturesInArea(pos, area)

    for _, target in ipairs(targets) do
        if isCreature(target) then
            if isPlayer(target) or isMonster(target) then
                local first = getCreatureHealth(target)
                doSetCreatureTarget(target, cid) 
                if doCombat(target, combat, var) then
                    local second = getCreatureHealth(target)
                    local damage = first - second
                    if damage > 0 then
                        local addhealth = damage * 0.5
                        doCreatureAddHealth(cid, addhealth)
					-- doSendAnimatedText(getPlayerPosition(target), "+"..addhealth.."", TEXTCOLOR_GREEN) -- Você pode enviar um texto animado para cada alvo, se desejar.
                        doSendMagicEffect(getThingPos(target), CONST_ME_MAGIC_GREEN)
                        doSendDistanceShoot(getThingPos(target), getThingPos(cid), 40)
                    end
                end
            end
        end
    end

    return true
end

 

Editado Setembro 18, 2023 por GM Vortex (veja o histórico de edições)

[fabious 5]

3 horas atrás, GM Vortex disse:

local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_BLOCKARMOR, 1)
setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_LIFEDRAIN)
setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_RED)
setCombatFormula(combat, COMBAT_FORMULA_LEVELMAGIC, -1, -10, -1, -20, 5, 5, 1.4, 2.1)

local area = createCombatArea(AREA_CROSS5X5)
setCombatArea(combat, area)

function onCastSpell(cid, var)
    local pos = getCreaturePosition(cid) 
    local targets = getCreaturesInArea(pos, area)

    for _, target in ipairs(targets) do
        if isCreature(target) then
            if isPlayer(target) or isMonster(target) then
                local first = getCreatureHealth(target)
                doSetCreatureTarget(target, cid) 
                if doCombat(target, combat, var) then
                    local second = getCreatureHealth(target)
                    local damage = first - second
                    if damage > 0 then
                        local addhealth = damage * 0.5
                        doCreatureAddHealth(cid, addhealth)
					-- doSendAnimatedText(getPlayerPosition(target), "+"..addhealth.."", TEXTCOLOR_GREEN) -- Você pode enviar um texto animado para cada alvo, se desejar.
                        doSendMagicEffect(getThingPos(target), CONST_ME_MAGIC_GREEN)
                        doSendDistanceShoot(getThingPos(target), getThingPos(cid), 40)
                    end
                end
            end
        end
    end

    return true
end

 

[Error - Spell Interface] 

data/spells/scripts/attack/rage of the blood.lua:onCastSpell

Description: 

data/spells/scripts/attack/rage of the blood.lua:12: attempt to call global 'getCreaturesInArea' (a nil value)

stack traceback:

 data/spells/scripts/attack/rage of the blood.lua:12: in function 

              

[Mateus Robeerto 99]

local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_BLOCKARMOR, 1)
setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_LIFEDRAIN)
setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_RED)
setCombatFormula(combat, COMBAT_FORMULA_LEVELMAGIC, -1, -10, -1, -20, 5, 5, 1.4, 2.1)

local area = createCombatArea(AREA_CIRCLE3X3)
setCombatArea(combat, area)

function onCastSpell(cid, var)
    local target = getCreatureTarget(cid)
    if target and (isPlayer(target) or isMonster(target)) then
        local first = getCreatureHealth(target)
        doCreatureSay(cid, "Prepare to be drained!", TALKTYPE_MONSTER)
        doCreatureSay(target, "Uh-oh, I'm getting drained!", TALKTYPE_MONSTER)
        if doCombat(cid, combat, var) == LUA_NO_ERROR then
            local second = getCreatureHealth(target)
            local damage = first - second
            if damage > 0 then
                local addhealth = damage * 0.5
                doCreatureAddHealth(cid, addhealth)
                doSendAnimatedText(getCreaturePosition(target), "+" .. addhealth, TEXTCOLOR_GREEN)
                doSendMagicEffect(getCreaturePosition(target), CONST_ME_MAGIC_GREEN)
                doSendDistanceShoot(getCreaturePosition(target), getCreaturePosition(cid), 40)
            end
        end
    else
        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Nenhum alvo válido encontrado.")
    end
    return true
end

tenta ai! deve funcionar

[fabious 5]

1 hora atrás, GM Vortex disse:

local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_BLOCKARMOR, 1)
setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_LIFEDRAIN)
setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_RED)
setCombatFormula(combat, COMBAT_FORMULA_LEVELMAGIC, -1, -10, -1, -20, 5, 5, 1.4, 2.1)

local area = createCombatArea(AREA_CIRCLE3X3)
setCombatArea(combat, area)

function onCastSpell(cid, var)
    local target = getCreatureTarget(cid)
    if target and (isPlayer(target) or isMonster(target)) then
        local first = getCreatureHealth(target)
        doCreatureSay(cid, "Prepare to be drained!", TALKTYPE_MONSTER)
        doCreatureSay(target, "Uh-oh, I'm getting drained!", TALKTYPE_MONSTER)
        if doCombat(cid, combat, var) == LUA_NO_ERROR then
            local second = getCreatureHealth(target)
            local damage = first - second
            if damage > 0 then
                local addhealth = damage * 0.5
                doCreatureAddHealth(cid, addhealth)
                doSendAnimatedText(getCreaturePosition(target), "+" .. addhealth, TEXTCOLOR_GREEN)
                doSendMagicEffect(getCreaturePosition(target), CONST_ME_MAGIC_GREEN)
                doSendDistanceShoot(getCreaturePosition(target), getCreaturePosition(cid), 40)
            end
        end
    else
        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Nenhum alvo válido encontrado.")
    end
    return true
end

tenta ai! deve funcionar

Funcionou, mas não dá maneira correta. Problemas:

1. Precisa ter target para usar a magia.

2. Suga a vida apenas do target, e não de todos os afetados.

 

O que preciso:

1. Soltar a magia sem a necessidade de estar atacando alguém (target).

2. Sugar a vida de todos atingidos por ela.

 

Será isso possível?

[Mateus Robeerto 99]

vamos tentar aqui:

local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_BLOCKARMOR, 1)
setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_LIFEDRAIN)
setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_RED)
setCombatFormula(combat, COMBAT_FORMULA_LEVELMAGIC, -1, -10, -1, -20, 5, 5, 1.4, 2.1)

local area = createCombatArea(AREA_CIRCLE3X3)
setCombatArea(combat, area)

function onCastSpell(cid, var)
    local pos = getCreaturePosition(cid) 
    local creatures = {}  

    for _, target in ipairs(getSpectators(pos, -1, -1, false)) do
        if isCreature(target) and (isPlayer(target) or isMonster(target)) then
            table.insert(creatures, target)  
        end
    end

    if #creatures > 0 then
        doCreatureSay(cid, "Prepare to be drained!", TALKTYPE_MONSTER)
        for _, target in ipairs(creatures) do
            local first = getCreatureHealth(target)
            doCreatureSay(target, "Uh-oh, I'm getting drained!", TALKTYPE_MONSTER)
            if doCombat(cid, combat, var) == LUA_NO_ERROR then
                local second = getCreatureHealth(target)
                local damage = first - second
                if damage > 0 then
                    local addhealth = damage * 0.5
                    doCreatureAddHealth(cid, addhealth)
                    doSendAnimatedText(getCreaturePosition(target), "+" .. addhealth, TEXTCOLOR_GREEN)
                    doSendMagicEffect(getCreaturePosition(target), CONST_ME_MAGIC_GREEN)
                    doSendDistanceShoot(getCreaturePosition(target), pos, 40)
                end
            end
        end
    else
        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Nenhum alvo válido encontrado.")
    end

    return true
end

 

[fabious 5]

1 hora atrás, GM Vortex disse:

vamos tentar aqui:

local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_BLOCKARMOR, 1)
setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_LIFEDRAIN)
setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_RED)
setCombatFormula(combat, COMBAT_FORMULA_LEVELMAGIC, -1, -10, -1, -20, 5, 5, 1.4, 2.1)

local area = createCombatArea(AREA_CIRCLE3X3)
setCombatArea(combat, area)

function onCastSpell(cid, var)
    local pos = getCreaturePosition(cid) 
    local creatures = {}  

    for _, target in ipairs(getSpectators(pos, -1, -1, false)) do
        if isCreature(target) and (isPlayer(target) or isMonster(target)) then
            table.insert(creatures, target)  
        end
    end

    if #creatures > 0 then
        doCreatureSay(cid, "Prepare to be drained!", TALKTYPE_MONSTER)
        for _, target in ipairs(creatures) do
            local first = getCreatureHealth(target)
            doCreatureSay(target, "Uh-oh, I'm getting drained!", TALKTYPE_MONSTER)
            if doCombat(cid, combat, var) == LUA_NO_ERROR then
                local second = getCreatureHealth(target)
                local damage = first - second
                if damage > 0 then
                    local addhealth = damage * 0.5
                    doCreatureAddHealth(cid, addhealth)
                    doSendAnimatedText(getCreaturePosition(target), "+" .. addhealth, TEXTCOLOR_GREEN)
                    doSendMagicEffect(getCreaturePosition(target), CONST_ME_MAGIC_GREEN)
                    doSendDistanceShoot(getCreaturePosition(target), pos, 40)
                end
            end
        end
    else
        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Nenhum alvo válido encontrado.")
    end

    return true
end

 

 

[Error - Spell Interface] 
data/spells/scripts/attack/rage of the blood.lua:onCastSpell
Description: 
data/spells/scripts/attack/rage of the blood.lua:14: bad argument #1 to 'ipairs' (table expected, got nil)
stack traceback:
	[C]: in function 'ipairs'
	data/spells/scripts/attack/rage of the blood.lua:14: in function 

[Mateus Robeerto 99]

local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_BLOCKARMOR, 1)
setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_LIFEDRAIN)
setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_RED)
setCombatFormula(combat, COMBAT_FORMULA_LEVELMAGIC, -1, -10, -1, -20, 5, 5, 1.4, 2.1)

local area = createCombatArea(AREA_CIRCLE3X3)
setCombatArea(combat, area)

function onCastSpell(cid, var)
    local pos = getCreaturePosition(cid) 
    local creatures = getSpectators(pos, 3, 3, false) 

    if creatures then
        local validTargets = {}  

      
        for _, target in ipairs(creatures) do
            if isCreature(target) and (isPlayer(target) or isMonster(target)) then
                table.insert(validTargets, target)  
            end
        end

        if #validTargets > 0 then
            doCreatureSay(cid, "Prepare to be drained!", TALKTYPE_MONSTER)
            for _, target in ipairs(validTargets) do
                local first = getCreatureHealth(target)
                doCreatureSay(target, "Uh-oh, I'm getting drained!", TALKTYPE_MONSTER)
                if doCombat(cid, combat, var) == LUA_NO_ERROR then
                    local second = getCreatureHealth(target)
                    local damage = first - second
                    if damage > 0 then
                        local addhealth = damage * 0.5
                        doCreatureAddHealth(cid, addhealth)
                        doSendAnimatedText(getCreaturePosition(target), "+" .. addhealth, TEXTCOLOR_GREEN)
                        doSendMagicEffect(getCreaturePosition(target), CONST_ME_MAGIC_GREEN)
                        doSendDistanceShoot(getCreaturePosition(target), pos, 40)
                    end
                end
            end
        else
            doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Nenhum alvo válido encontrado.")
        end
    else
        doPlayerSendTextMessage(cid, MESSAGE_STATUS_CONSOLE_ORANGE, "Nenhum alvo válido encontrado.")
    end

    return true
end

agora sim... Se você não gostou dessa mensagem, pode remover essa linha xD

 

Editado Setembro 20, 2023 por GM Vortex (veja o histórico de edições)