Jeanfersonsp

Amigo topico de checar monster em certas areas ja existe, basta procurar um pouco.
 
Mas recetemente eu encontrei uma script no seguinte tópico https://tibiaking.com/forums/topic/89834-check-de-monster-em-um-determinado-lugar/
no qual checa qualquer Monsters em determinada area então eu resolvi aprimorar a funçao, para checar all ou somente um ou mais monstros em especifico.
 
 
Formas de uso :
 
 
 
Agora respondendo o seu tópico,  coloque isso na script
 
 

vc n especificou onde iria sair o segundo efeito, entao fiz de dois modos.
 
 
function targetEffect(cid, effect, ajust) -- efeito sai no target
if isCreature(cid) and isCreature(getCreatureTarget(cid)) then
local t_Pos = getCreaturePosition(getCreatureTarget(cid))
doSendMagicEffect({x= t_Pos.x+ajust[1], y = t_Pos.y+ajust[2], z = t_Pos.z}, effect)
end
end
 
addEvent(targetEffect, 2000, cid, 169, {0,0})

function cidEffect(cid, effect, ajust) -- efeito sai em min
if isCreature(cid) then
local t_Pos = getCreaturePosition(cid)
doSendMagicEffect({x= t_Pos.x+ajust[1], y = t_Pos.y+ajust[2], z = t_Pos.z}, effect)
end
end
addEvent(cidEffect, 2000, cid, 169, {0,0})

local combat1 = createCombatObject()
setCombatParam(combat1, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE)
setCombatParam(combat1, COMBAT_PARAM_DISTANCEEFFECT, 126) (Efeito Míssil)
setCombatFormula(combat1, COMBAT_FORMULA_LEVELMAGIC, -22.2, 1, -31.2, 1)
local function onCastSpell1(parameters)
doCombat(parameters.cid, parameters.combat1, parameters.var)
end
 
function onCastSpell(cid, var)
local waittime = 2 -- Tempo de exhaustion
local storage = 45672 -- não mecha
if exhaustion.check(cid, storage) then
    doPlayerSendCancel(cid, "Aguarde "..(exhaustion.get(cid, storage)).." segundos(s) para usar novamente.")
    return false
end
local parameters = {cid = cid, var = var, combat1 = combat1}

for k = 1, 5 do
    addEvent(function()
        if isCreature(cid) and isCreature(getCreatureTarget(cid)) then
            onCastSpell1(parameters)
            local t_Pos = getCreaturePosition(getCreatureTarget(cid))
            doSendMagicEffect({x= t_Pos.x+1, y = t_Pos.y, z = t_Pos.z}, 296)
        end
    end, 1 + ((k-1) * 275))
end
exhaustion.set(cid, storage, waittime)
return true
end

local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE)
setCombatParam(combat, COMBAT_PARAM_DISTANCEEFFECT, 15)
function onGetFormulaValues(cid, level, skill, attack, factor)
    local lvl_skill = getPlayerSkillLevel(cid, SKILL_CLUB)
    local min = (level * 3 + lvl_skill * 3) * 1 
    local max = (level * 3 + lvl_skill * 3) * 1
    return -min, -max
end
setCombatCallback(combat, CALLBACK_PARAM_SKILLVALUE, "onGetFormulaValues")
function onCastSpell(cid, var)
local delay = 1500 -- (1000 = 1 seg)
    local target = getCreatureTarget(cid)
    if target > 0 and isCreature(cid) then
        position1 = {x=getThingPos(target).x, y=getThingPos(target).y, z=getThingPos(target).z}
        position2 = {x=getThingPos(target).x, y=getThingPos(target).y, z=getThingPos(target).z}
        doSendMagicEffect(position1, 688)
        addEvent(doSendMagicEffect, delay, position2, 683)
        local skillmin = 1 -- MINIMO DE SKILL PRA LANÇAR A MAGIA
                if getPlayerSkillLevel(cid, skill) < skillmin then
                return doPlayerSendCancel(cid, "You must have at least ".. skillmin .." of sword skill to use this spell.")
            end
        return doCombat(cid, combat, var)
    end
end

Eu não testei ainda então se tiver algo errado me corrijam ou se faltou algo avize
 
 
Em spells/scritps, crie um arquivo chamado Imortaly.lua e coloque dentro
 
 
Em spells.xml  adicione
 
 
 
Em creaturescripts/scripts crie um arquivo chamado Imortaly.lua e coloque dentro
 
 
 
Em creaturescripts.xml adicione
 
 
Sistema Hidan.rar

Desativa o do Frag e o Jin look e dps apaga tudo do Showvoc e poe isso