Ir para conteúdo

[AJUDA] SPELL

Por Capitao wyz
em Suporte Tibia OTServer

Featured Replies

Postado
  • Autor
  Em 03/04/2021 em 21:41, Zazeros disse:

Hehe, falta de atenção minha, mas agr deve ir. 


 local quant_hit = 4 -- quantidade de hits que ira dar no target 
local timeHit = 0.5 -- segundos de diferença para cada hit

local quant_sqm = 1 -- sqms que ira empurrar o target
local sqmTime = 0.01 -- segundos para empurrar após hitar, exemplo de meio segundo.

local playerEffect241 = 191 -- efeito no player.

local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_BLOCKARMOR, 1)
setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE)
setCombatFormula(combat, COMBAT_FORMULA_SKILL, 1, 0, 1, 0)



function onCastSpell(cid, var)
local target = getCreatureTarget(cid)
if target > 0 then
    local position_target = nil
    local cont = 0
    for i=-1, 1 do
        for j=-1,1 do
            position_target = {x=getCreaturePosition(cid).x+i, y=getCreaturePosition(cid).y+j, z=getCreaturePosition(cid).z}
            if isWalkable(position_target) then
                cont = cont+1
                break
            end
        end
        if cont > 0 then
            break
        end
        position_target = nil
    end
    
    local px = math.random(-1,1)
    local py = 0
    if px == -1 or px == 1 then
        py = 0
    elseif px == 0 then 
        local n = {1,-1}
        py = n[math.random(1,#n)]
    end    
    local poscentral = {x=getCreaturePosition(cid).x+px, y=getCreaturePosition(cid).y+py, z=getCreaturePosition(cid).z}
    if isWalkable(poscentral) then
        position_target = poscentral
    end
    
    if getDistanceBetween(getCreaturePosition(cid), getCreaturePosition(target)) <= 1 then
        position_target = getCreaturePosition(cid)
    end
    
    local pos = position_target
    posTile1 = {{x=pos.x,y=pos.y,z=pos.z,stackpos=1}, 7524} -- embaixo do player
    posTile2 = {{x=pos.x+1,y=pos.y+1,z=pos.z,stackpos=1}, 7520}
    posTile3 = {{x=pos.x+1,y=pos.y,z=pos.z,stackpos=1}, 7523}
    posTile4 = {{x=pos.x+1,y=pos.y-1,z=pos.z,stackpos=1}, 7526}
    posTile5 = {{x=pos.x,y=pos.y-1,z=pos.z,stackpos=1}, 7500}
    posTile6 = {{x=pos.x-1,y=pos.y-1,z=pos.z,stackpos=1}, 7501}
    posTile7 = {{x=pos.x-1,y=pos.y,z=pos.z,stackpos=1}, 7525}
    posTile8 = {{x=pos.x-1,y=pos.y+1,z=pos.z,stackpos=1}, 7522}
    posTile9 = {{x=pos.x,y=pos.y+1,z=pos.z,stackpos=1}, 7521}
    posAll = {posTile1,posTile2,posTile3,posTile4,posTile5,posTile6,posTile7,posTile8,posTile9}
    if position_target ~= nil then
         
        local tempo = 0
        while (tempo ~= quant_hit*(timeHit*1000)) do
            addEvent(sendEffect241, tempo, cid, target)
            tempo = tempo + 500
        end
        tempo = 0
        while (tempo ~= quant_hit*(timeHit*1000)) do
            addEvent(hitTarget, tempo, cid, target)
            tempo = tempo + (timeHit*1000)
        end
        local temp = tempo
        while (tempo ~= temp+quant_sqm*(sqmTime*1000)) do
            addEvent(empurrarTarget, tempo, cid, target, tempo, posAll)
            tempo = tempo + (sqmTime*1000)
        end
        local mana_hit = (getPlayerLevel(cid)*2 + getPlayerMagLevel(cid)*2 + 300)
        doCreatureAddMana(target, -mana_hit)
        for o=1, #posAll do
            doCreateItem(posAll[o][2], 1, posAll[o][1])
        end
        return true
    else
        doPlayerSendDefaultCancel(cid, RETURNVALUE_NOTPOSSIBLE)
    end
else
    doPlayerSendCancel(cid, "Você precisa de um target!")
end
end

function isWalkable(pos, creature, pz, proj)
    if getTileThingByPos({x = pos.x, y = pos.y, z = pos.z, stackpos = 0}).itemid == 0 then return false end
    local creature = getTopCreature(pos)
    if creature.type > 0 then    return false end
    if getTilePzInfo(pos) and not pz then return false end
    local n = not proj and 3 or 2
    for i = 0, 255 do
        pos.stackpos = i
        local tile = getTileThingByPos(pos)
        if tile.itemid ~= 0 and not isCreature(tile.uid) then
            if hasProperty(tile.uid, n) or hasProperty(tile.uid, 7) then
                return false
            end
        end
    end
return true
end

function hitTarget(cid, target)
if isCreature(target) and isPlayer(cid) then
    local effect241 = 9 -- efeito do hit na creatura.

    doTargetCombatHealth(cid, target, COMBAT_PHYSICALDAMAGE, -getHit(cid), -getHit(cid), effect241)
end
end

function getHit(cid)
local hit = getPlayerLevel(cid)*2 + getPlayerMagLevel(cid)*2 + math.random(650,750)
return hit
end

function empurrarTarget(cid, target, tempo, posAll)
if not isCreature(target) then
    for k=1, #posAll do
        for j=0, 255 do
            pos_stack = {x=posAll[k][1].x,y=posAll[k][1].y,z=posAll[k][1].z,stackpos=j}
            removeTile = getThingfromPos(pos_stack)
            if removeTile.itemid == posAll[k][2] then
                doRemoveItem(removeTile.uid)
            end
        end
    end
end
if isCreature(target) and isPlayer(cid) then
    local positions = nil
    if getPlayerLookDir(cid) == 0 then
        positions = {x=getCreaturePosition(cid).x, y=getCreaturePosition(cid).y-1, z=getCreaturePosition(cid).z}
    elseif getPlayerLookDir(cid) == 1 then
        positions = {x=getCreaturePosition(cid).x+1, y=getCreaturePosition(cid).y, z=getCreaturePosition(cid).z}
    elseif getPlayerLookDir(cid) == 2 then
        positions = {x=getCreaturePosition(cid).x, y=getCreaturePosition(cid).y+1, z=getCreaturePosition(cid).z}
    elseif getPlayerLookDir(cid) == 3 then
       positions = {x=getCreaturePosition(cid).x-1, y=getCreaturePosition(cid).y, z=getCreaturePosition(cid).z}
    end

    local tp = sqmTime*1000*(quant_sqm-1)+quant_hit*timeHit*1000
    if tempo == tp then
        for k=1, #posAll do
            for j=0, 255 do
                pos_stack = {x=posAll[k][1].x,y=posAll[k][1].y,z=posAll[k][1].z,stackpos=j}
                removeTile = getThingfromPos(pos_stack)
                if removeTile.itemid == posAll[k][2] then
                    doRemoveItem(removeTile.uid)
                end
            end
        end
    end    
end
end

function sendEffect241(cid, target)
local position1 = {x=getPlayerPosition(cid).x, y=getPlayerPosition(cid).y, z=getPlayerPosition(cid).z}
if isCreature(target) and isPlayer(cid) then
    doSendMagicEffect(position1, playerEffect241) 
end
end

 

quase perfeito amigo agora ele n esta puxando mais, mas so q continua batendo de longe 

  • Citar
  • Mention
    • Respostas 15
    • Visualizações 1k
    • Created
    • Última resposta

    Top Posters In This Topic

    Popular Days

    Most Popular Posts

    • Zazeros
      Zazeros

      local quant_hit = 4 -- quantidade de hits que ira dar no target local timeHit = 0.5 -- segundos de diferença para cada hit local quant_sqm = 1 -- sqms que ira empurrar o target local sqmTime = 0.01

    • Zazeros
      Zazeros

      @Capitao wyz Só dar um curtir que já ta pago   Eu tive que improvisar um tiquin. Em baixo de: function onCastSpell(cid, var) Eu coloquei isso: if getDistanceBetween(getCreat

    Posted Images

    Postado
    • Solução
     local quant_hit = 4 -- quantidade de hits que ira dar no target 
local timeHit = 0.5 -- segundos de diferença para cada hit

local quant_sqm = 1 -- sqms que ira empurrar o target
local sqmTime = 0.01 -- segundos para empurrar após hitar, exemplo de meio segundo.

local playerEffect241 = 191 -- efeito no player.

local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_BLOCKARMOR, 1)
setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE)
setCombatFormula(combat, COMBAT_FORMULA_SKILL, 1, 0, 1, 0)



function onCastSpell(cid, var)
local target = getCreatureTarget(cid)
if getDistanceBetween(getCreaturePosition(cid), getCreaturePosition(target)) == 1 then

if target > 0 then
    local position_target = nil
    local cont = 0
    for i=-1, 1 do
        for j=-1,1 do
            position_target = {x=getCreaturePosition(cid).x+i, y=getCreaturePosition(cid).y+j, z=getCreaturePosition(cid).z}
            if isWalkable(position_target) then
                cont = cont+1
                break
            end
        end
        if cont > 0 then
            break
        end
        position_target = nil
    end
    
    local px = math.random(-1,1)
    local py = 0
    if px == -1 or px == 1 then
        py = 0
    elseif px == 0 then 
        local n = {1,-1}
        py = n[math.random(1,#n)]
    end    
    local poscentral = {x=getCreaturePosition(cid).x+px, y=getCreaturePosition(cid).y+py, z=getCreaturePosition(cid).z}
    if isWalkable(poscentral) then
        position_target = poscentral
    end
    
    if getDistanceBetween(getCreaturePosition(cid), getCreaturePosition(target)) == 1 then
        position_target = getCreaturePosition(cid)
    end
    
    local pos = position_target
    posTile1 = {{x=pos.x,y=pos.y,z=pos.z,stackpos=1}, 7524} -- embaixo do player
    posTile2 = {{x=pos.x+1,y=pos.y+1,z=pos.z,stackpos=1}, 7520}
    posTile3 = {{x=pos.x+1,y=pos.y,z=pos.z,stackpos=1}, 7523}
    posTile4 = {{x=pos.x+1,y=pos.y-1,z=pos.z,stackpos=1}, 7526}
    posTile5 = {{x=pos.x,y=pos.y-1,z=pos.z,stackpos=1}, 7500}
    posTile6 = {{x=pos.x-1,y=pos.y-1,z=pos.z,stackpos=1}, 7501}
    posTile7 = {{x=pos.x-1,y=pos.y,z=pos.z,stackpos=1}, 7525}
    posTile8 = {{x=pos.x-1,y=pos.y+1,z=pos.z,stackpos=1}, 7522}
    posTile9 = {{x=pos.x,y=pos.y+1,z=pos.z,stackpos=1}, 7521}
    posAll = {posTile1,posTile2,posTile3,posTile4,posTile5,posTile6,posTile7,posTile8,posTile9}
    if position_target ~= nil then
         
        local tempo = 0
        while (tempo ~= quant_hit*(timeHit*1000)) do
            addEvent(sendEffect241, tempo, cid, target)
            tempo = tempo + 500
        end
        tempo = 0
        while (tempo ~= quant_hit*(timeHit*1000)) do
            addEvent(hitTarget, tempo, cid, target)
            tempo = tempo + (timeHit*1000)
        end
        local temp = tempo
        while (tempo ~= temp+quant_sqm*(sqmTime*1000)) do
            addEvent(empurrarTarget, tempo, cid, target, tempo, posAll)
            tempo = tempo + (sqmTime*1000)
        end
        local mana_hit = (getPlayerLevel(cid)*2 + getPlayerMagLevel(cid)*2 + 300)
        doCreatureAddMana(target, -mana_hit)
        for o=1, #posAll do
            doCreateItem(posAll[o][2], 1, posAll[o][1])
        end
        return true
    else
        doPlayerSendDefaultCancel(cid, RETURNVALUE_NOTPOSSIBLE)
    end
else
    doPlayerSendCancel(cid, "Você precisa de um target!")
end
else
  doPlayerSendCancel(cid, "Creature is not recheable.")
  doSendMagicEffect(getPlayerPosition(cid), 2) 
  end
end

function isWalkable(pos, creature, pz, proj)
    if getTileThingByPos({x = pos.x, y = pos.y, z = pos.z, stackpos = 0}).itemid == 0 then return false end
    local creature = getTopCreature(pos)
    if creature.type > 0 then    return false end
    if getTilePzInfo(pos) and not pz then return false end
    local n = not proj and 3 or 2
    for i = 0, 255 do
        pos.stackpos = i
        local tile = getTileThingByPos(pos)
        if tile.itemid ~= 0 and not isCreature(tile.uid) then
            if hasProperty(tile.uid, n) or hasProperty(tile.uid, 7) then
                return false
            end
        end
    end
return true
end

function hitTarget(cid, target)
if isCreature(target) and isPlayer(cid) then
    local effect241 = 9 -- efeito do hit na creatura.

    doTargetCombatHealth(cid, target, COMBAT_PHYSICALDAMAGE, -getHit(cid), -getHit(cid), effect241)
end
end

function getHit(cid)
local hit = getPlayerLevel(cid)*2 + getPlayerMagLevel(cid)*2 + math.random(650,750)
return hit
end

function empurrarTarget(cid, target, tempo, posAll)
if not isCreature(target) then
    for k=1, #posAll do
        for j=0, 255 do
            pos_stack = {x=posAll[k][1].x,y=posAll[k][1].y,z=posAll[k][1].z,stackpos=j}
            removeTile = getThingfromPos(pos_stack)
            if removeTile.itemid == posAll[k][2] then
                doRemoveItem(removeTile.uid)
            end
        end
    end
end
if isCreature(target) and isPlayer(cid) then
    local positions = nil
    if getPlayerLookDir(cid) == 0 then
        positions = {x=getCreaturePosition(cid).x, y=getCreaturePosition(cid).y-1, z=getCreaturePosition(cid).z}
    elseif getPlayerLookDir(cid) == 1 then
        positions = {x=getCreaturePosition(cid).x+1, y=getCreaturePosition(cid).y, z=getCreaturePosition(cid).z}
    elseif getPlayerLookDir(cid) == 2 then
        positions = {x=getCreaturePosition(cid).x, y=getCreaturePosition(cid).y+1, z=getCreaturePosition(cid).z}
    elseif getPlayerLookDir(cid) == 3 then
       positions = {x=getCreaturePosition(cid).x-1, y=getCreaturePosition(cid).y, z=getCreaturePosition(cid).z}
    end

    local tp = sqmTime*1000*(quant_sqm-1)+quant_hit*timeHit*1000
    if tempo == tp then
        for k=1, #posAll do
            for j=0, 255 do
                pos_stack = {x=posAll[k][1].x,y=posAll[k][1].y,z=posAll[k][1].z,stackpos=j}
                removeTile = getThingfromPos(pos_stack)
                if removeTile.itemid == posAll[k][2] then
                    doRemoveItem(removeTile.uid)
                end
            end
        end
    end    
end
end

function sendEffect241(cid, target)
local position1 = {x=getPlayerPosition(cid).x, y=getPlayerPosition(cid).y, z=getPlayerPosition(cid).z}
if isCreature(target) and isPlayer(cid) then
    doSendMagicEffect(position1, playerEffect241) 
end
end 

  
     local quant_hit = 4 -- quantidade de hit's que ira dar no target 
local timeHit = 0.5 -- segundos de diferença para cada hit

local quant_sqm = 1 -- sqms que ira empurrar o target
local sqmTime = 0.01 -- segundos para empurrar após hitar, exemplo de meio segundo.

local playerEffect241 = 191 -- efeito no player.

local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_BLOCKARMOR, 1)
setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE)
setCombatFormula(combat, COMBAT_FORMULA_SKILL, 1, 0, 1, 0)



function onCastSpell(cid, var)
local target = getCreatureTarget(cid)
if getDistanceBetween(getCreaturePosition(cid), getCreaturePosition(target)) == 1 then

if target > 0 then
    local position_target = nil
    local cont = 0
    for i=-1, 1 do
        for j=-1,1 do
            position_target = {x=getCreaturePosition(cid).x+i, y=getCreaturePosition(cid).y+j, z=getCreaturePosition(cid).z}
            if isWalkable(position_target) then
                cont = cont+1
                break
            end
        end
        if cont > 0 then
            break
        end
        position_target = nil
    end
    
    local px = math.random(-1,1)
    local py = 0
    if px == -1 or px == 1 then
        py = 0
    elseif px == 0 then 
        local n = {1,-1}
        py = n[math.random(1,#n)]
    end    
    local poscentral = {x=getCreaturePosition(cid).x+px, y=getCreaturePosition(cid).y+py, z=getCreaturePosition(cid).z}
    if isWalkable(poscentral) then
        position_target = poscentral
    end
    
    if getDistanceBetween(getCreaturePosition(cid), getCreaturePosition(target)) == 1 then
        position_target = getCreaturePosition(cid)
    end
    
    local pos = position_target
    posTile1 = {{x=pos.x,y=pos.y,z=pos.z,stackpos=1}, 7524} -- embaixo do player
    posTile2 = {{x=pos.x+1,y=pos.y+1,z=pos.z,stackpos=1}, 7520}
    posTile3 = {{x=pos.x+1,y=pos.y,z=pos.z,stackpos=1}, 7523}
    posTile4 = {{x=pos.x+1,y=pos.y-1,z=pos.z,stackpos=1}, 7526}
    posTile5 = {{x=pos.x,y=pos.y-1,z=pos.z,stackpos=1}, 7500}
    posTile6 = {{x=pos.x-1,y=pos.y-1,z=pos.z,stackpos=1}, 7501}
    posTile7 = {{x=pos.x-1,y=pos.y,z=pos.z,stackpos=1}, 7525}
    posTile8 = {{x=pos.x-1,y=pos.y+1,z=pos.z,stackpos=1}, 7522}
    posTile9 = {{x=pos.x,y=pos.y+1,z=pos.z,stackpos=1}, 7521}
    posAll = {posTile1,posTile2,posTile3,posTile4,posTile5,posTile6,posTile7,posTile8,posTile9}
    if position_target ~= nil then
         
        local tempo = 0
        while (tempo ~= quant_hit*(timeHit*1000)) do
            addEvent(sendEffect241, tempo, cid, target)
            tempo = tempo + 500
        end
        tempo = 0
        while (tempo ~= quant_hit*(timeHit*1000)) do
            addEvent(hitTarget, tempo, cid, target)
            tempo = tempo + (timeHit*1000)
        end
        local temp = tempo
        while (tempo ~= temp+quant_sqm*(sqmTime*1000)) do
            addEvent(empurrarTarget, tempo, cid, target, tempo, posAll)
            tempo = tempo + (sqmTime*1000)
        end
        local mana_hit = (getPlayerLevel(cid)*2 + getPlayerMagLevel(cid)*2 + 300)
        doCreatureAddMana(target, -mana_hit)
        for o=1, #posAll do
            doCreateItem(posAll[o][2], 1, posAll[o][1])
        end
        return true
    else
        doPlayerSendDefaultCancel(cid, RETURNVALUE_NOTPOSSIBLE)
    end
else
    doPlayerSendCancel(cid, "Você precisa de um target!")
end
else
  doPlayerSendCancel(cid, "Creature is not recheable.")
  doSendMagicEffect(getPlayerPosition(cid), 2) 
  end
end

function isWalkable(pos, creature, pz, proj)
    if getTileThingByPos({x = pos.x, y = pos.y, z = pos.z, stackpos = 0}).itemid == 0 then return false end
    local creature = getTopCreature(pos)
    if creature.type > 0 then    return false end
    if getTilePzInfo(pos) and not pz then return false end
    local n = not proj and 3 or 2
    for i = 0, 255 do
        pos.stackpos = i
        local tile = getTileThingByPos(pos)
        if tile.itemid ~= 0 and not isCreature(tile.uid) then
            if hasProperty(tile.uid, n) or hasProperty(tile.uid, 7) then
                return false
            end
        end
    end
return true
end

function hitTarget(cid, target)
if isCreature(target) and isPlayer(cid) then
    local effect241 = 9 -- efeito do hit na creatura.

    doTargetCombatHealth(cid, target, COMBAT_PHYSICALDAMAGE, -getHit(cid), -getHit(cid), effect241)
end
end

function getHit(cid)
local hit = getPlayerLevel(cid)*2 + getPlayerMagLevel(cid)*2 + math.random(650,750)
return hit
end

function empurrarTarget(cid, target, tempo, posAll)
if not isCreature(target) then
    for k=1, #posAll do
        for j=0, 255 do
            pos_stack = {x=posAll[k][1].x,y=posAll[k][1].y,z=posAll[k][1].z,stackpos=j}
            removeTile = getThingfromPos(pos_stack)
            if removeTile.itemid == posAll[k][2] then
                doRemoveItem(removeTile.uid)
            end
        end
    end
end
if isCreature(target) and isPlayer(cid) then
    local positions = nil
    if getPlayerLookDir(cid) == 0 then
        positions = {x=getCreaturePosition(cid).x, y=getCreaturePosition(cid).y-1, z=getCreaturePosition(cid).z}
    elseif getPlayerLookDir(cid) == 1 then
        positions = {x=getCreaturePosition(cid).x+1, y=getCreaturePosition(cid).y, z=getCreaturePosition(cid).z}
    elseif getPlayerLookDir(cid) == 2 then
        positions = {x=getCreaturePosition(cid).x, y=getCreaturePosition(cid).y+1, z=getCreaturePosition(cid).z}
    elseif getPlayerLookDir(cid) == 3 then
       positions = {x=getCreaturePosition(cid).x-1, y=getCreaturePosition(cid).y, z=getCreaturePosition(cid).z}
    end

    local tp = sqmTime*1000*(quant_sqm-1)+quant_hit*timeHit*1000
    if tempo == tp then
        for k=1, #posAll do
            for j=0, 255 do
                pos_stack = {x=posAll[k][1].x,y=posAll[k][1].y,z=posAll[k][1].z,stackpos=j}
                removeTile = getThingfromPos(pos_stack)
                if removeTile.itemid == posAll[k][2] then
                    doRemoveItem(removeTile.uid)
                end
            end
        end
    end    
end
end

function sendEffect241(cid, target)
local position1 = {x=getPlayerPosition(cid).x, y=getPlayerPosition(cid).y, z=getPlayerPosition(cid).z}
if isCreature(target) and isPlayer(cid) then
    doSendMagicEffect(position1, playerEffect241) 
end
end

    EU pensava que a magia era asism, de atacar de longe, malz

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

  • Citar
  • Mention
    • Postado
    • Autor
      Em 03/04/2021 em 21:59, Zazeros disse: 
    

 local quant_hit = 4 -- quantidade de hits que ira dar no target 
local timeHit = 0.5 -- segundos de diferença para cada hit

local quant_sqm = 1 -- sqms que ira empurrar o target
local sqmTime = 0.01 -- segundos para empurrar após hitar, exemplo de meio segundo.

local playerEffect241 = 191 -- efeito no player.

local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_BLOCKARMOR, 1)
setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE)
setCombatFormula(combat, COMBAT_FORMULA_SKILL, 1, 0, 1, 0)



function onCastSpell(cid, var)
local target = getCreatureTarget(cid)
if getDistanceBetween(getCreaturePosition(cid), getCreaturePosition(target)) == 1 then

if target > 0 then
    local position_target = nil
    local cont = 0
    for i=-1, 1 do
        for j=-1,1 do
            position_target = {x=getCreaturePosition(cid).x+i, y=getCreaturePosition(cid).y+j, z=getCreaturePosition(cid).z}
            if isWalkable(position_target) then
                cont = cont+1
                break
            end
        end
        if cont > 0 then
            break
        end
        position_target = nil
    end
    
    local px = math.random(-1,1)
    local py = 0
    if px == -1 or px == 1 then
        py = 0
    elseif px == 0 then 
        local n = {1,-1}
        py = n[math.random(1,#n)]
    end    
    local poscentral = {x=getCreaturePosition(cid).x+px, y=getCreaturePosition(cid).y+py, z=getCreaturePosition(cid).z}
    if isWalkable(poscentral) then
        position_target = poscentral
    end
    
    if getDistanceBetween(getCreaturePosition(cid), getCreaturePosition(target)) == 1 then
        position_target = getCreaturePosition(cid)
    end
    
    local pos = position_target
    posTile1 = {{x=pos.x,y=pos.y,z=pos.z,stackpos=1}, 7524} -- embaixo do player
    posTile2 = {{x=pos.x+1,y=pos.y+1,z=pos.z,stackpos=1}, 7520}
    posTile3 = {{x=pos.x+1,y=pos.y,z=pos.z,stackpos=1}, 7523}
    posTile4 = {{x=pos.x+1,y=pos.y-1,z=pos.z,stackpos=1}, 7526}
    posTile5 = {{x=pos.x,y=pos.y-1,z=pos.z,stackpos=1}, 7500}
    posTile6 = {{x=pos.x-1,y=pos.y-1,z=pos.z,stackpos=1}, 7501}
    posTile7 = {{x=pos.x-1,y=pos.y,z=pos.z,stackpos=1}, 7525}
    posTile8 = {{x=pos.x-1,y=pos.y+1,z=pos.z,stackpos=1}, 7522}
    posTile9 = {{x=pos.x,y=pos.y+1,z=pos.z,stackpos=1}, 7521}
    posAll = {posTile1,posTile2,posTile3,posTile4,posTile5,posTile6,posTile7,posTile8,posTile9}
    if position_target ~= nil then
         
        local tempo = 0
        while (tempo ~= quant_hit*(timeHit*1000)) do
            addEvent(sendEffect241, tempo, cid, target)
            tempo = tempo + 500
        end
        tempo = 0
        while (tempo ~= quant_hit*(timeHit*1000)) do
            addEvent(hitTarget, tempo, cid, target)
            tempo = tempo + (timeHit*1000)
        end
        local temp = tempo
        while (tempo ~= temp+quant_sqm*(sqmTime*1000)) do
            addEvent(empurrarTarget, tempo, cid, target, tempo, posAll)
            tempo = tempo + (sqmTime*1000)
        end
        local mana_hit = (getPlayerLevel(cid)*2 + getPlayerMagLevel(cid)*2 + 300)
        doCreatureAddMana(target, -mana_hit)
        for o=1, #posAll do
            doCreateItem(posAll[o][2], 1, posAll[o][1])
        end
        return true
    else
        doPlayerSendDefaultCancel(cid, RETURNVALUE_NOTPOSSIBLE)
    end
else
    doPlayerSendCancel(cid, "Você precisa de um target!")
end
else
  doPlayerSendCancel(cid, "Creature is not recheable.")
  doSendMagicEffect(getPlayerPosition(cid), 2) 
  end
end

function isWalkable(pos, creature, pz, proj)
    if getTileThingByPos({x = pos.x, y = pos.y, z = pos.z, stackpos = 0}).itemid == 0 then return false end
    local creature = getTopCreature(pos)
    if creature.type > 0 then    return false end
    if getTilePzInfo(pos) and not pz then return false end
    local n = not proj and 3 or 2
    for i = 0, 255 do
        pos.stackpos = i
        local tile = getTileThingByPos(pos)
        if tile.itemid ~= 0 and not isCreature(tile.uid) then
            if hasProperty(tile.uid, n) or hasProperty(tile.uid, 7) then
                return false
            end
        end
    end
return true
end

function hitTarget(cid, target)
if isCreature(target) and isPlayer(cid) then
    local effect241 = 9 -- efeito do hit na creatura.

    doTargetCombatHealth(cid, target, COMBAT_PHYSICALDAMAGE, -getHit(cid), -getHit(cid), effect241)
end
end

function getHit(cid)
local hit = getPlayerLevel(cid)*2 + getPlayerMagLevel(cid)*2 + math.random(650,750)
return hit
end

function empurrarTarget(cid, target, tempo, posAll)
if not isCreature(target) then
    for k=1, #posAll do
        for j=0, 255 do
            pos_stack = {x=posAll[k][1].x,y=posAll[k][1].y,z=posAll[k][1].z,stackpos=j}
            removeTile = getThingfromPos(pos_stack)
            if removeTile.itemid == posAll[k][2] then
                doRemoveItem(removeTile.uid)
            end
        end
    end
end
if isCreature(target) and isPlayer(cid) then
    local positions = nil
    if getPlayerLookDir(cid) == 0 then
        positions = {x=getCreaturePosition(cid).x, y=getCreaturePosition(cid).y-1, z=getCreaturePosition(cid).z}
    elseif getPlayerLookDir(cid) == 1 then
        positions = {x=getCreaturePosition(cid).x+1, y=getCreaturePosition(cid).y, z=getCreaturePosition(cid).z}
    elseif getPlayerLookDir(cid) == 2 then
        positions = {x=getCreaturePosition(cid).x, y=getCreaturePosition(cid).y+1, z=getCreaturePosition(cid).z}
    elseif getPlayerLookDir(cid) == 3 then
       positions = {x=getCreaturePosition(cid).x-1, y=getCreaturePosition(cid).y, z=getCreaturePosition(cid).z}
    end

    local tp = sqmTime*1000*(quant_sqm-1)+quant_hit*timeHit*1000
    if tempo == tp then
        for k=1, #posAll do
            for j=0, 255 do
                pos_stack = {x=posAll[k][1].x,y=posAll[k][1].y,z=posAll[k][1].z,stackpos=j}
                removeTile = getThingfromPos(pos_stack)
                if removeTile.itemid == posAll[k][2] then
                    doRemoveItem(removeTile.uid)
                end
            end
        end
    end    
end
end

function sendEffect241(cid, target)
local position1 = {x=getPlayerPosition(cid).x, y=getPlayerPosition(cid).y, z=getPlayerPosition(cid).z}
if isCreature(target) and isPlayer(cid) then
    doSendMagicEffect(position1, playerEffect241) 
end
end 

  
    

 local quant_hit = 4 -- quantidade de hit's que ira dar no target 
local timeHit = 0.5 -- segundos de diferença para cada hit

local quant_sqm = 1 -- sqms que ira empurrar o target
local sqmTime = 0.01 -- segundos para empurrar após hitar, exemplo de meio segundo.

local playerEffect241 = 191 -- efeito no player.

local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_BLOCKARMOR, 1)
setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE)
setCombatFormula(combat, COMBAT_FORMULA_SKILL, 1, 0, 1, 0)



function onCastSpell(cid, var)
local target = getCreatureTarget(cid)
if getDistanceBetween(getCreaturePosition(cid), getCreaturePosition(target)) == 1 then

if target > 0 then
    local position_target = nil
    local cont = 0
    for i=-1, 1 do
        for j=-1,1 do
            position_target = {x=getCreaturePosition(cid).x+i, y=getCreaturePosition(cid).y+j, z=getCreaturePosition(cid).z}
            if isWalkable(position_target) then
                cont = cont+1
                break
            end
        end
        if cont > 0 then
            break
        end
        position_target = nil
    end
    
    local px = math.random(-1,1)
    local py = 0
    if px == -1 or px == 1 then
        py = 0
    elseif px == 0 then 
        local n = {1,-1}
        py = n[math.random(1,#n)]
    end    
    local poscentral = {x=getCreaturePosition(cid).x+px, y=getCreaturePosition(cid).y+py, z=getCreaturePosition(cid).z}
    if isWalkable(poscentral) then
        position_target = poscentral
    end
    
    if getDistanceBetween(getCreaturePosition(cid), getCreaturePosition(target)) == 1 then
        position_target = getCreaturePosition(cid)
    end
    
    local pos = position_target
    posTile1 = {{x=pos.x,y=pos.y,z=pos.z,stackpos=1}, 7524} -- embaixo do player
    posTile2 = {{x=pos.x+1,y=pos.y+1,z=pos.z,stackpos=1}, 7520}
    posTile3 = {{x=pos.x+1,y=pos.y,z=pos.z,stackpos=1}, 7523}
    posTile4 = {{x=pos.x+1,y=pos.y-1,z=pos.z,stackpos=1}, 7526}
    posTile5 = {{x=pos.x,y=pos.y-1,z=pos.z,stackpos=1}, 7500}
    posTile6 = {{x=pos.x-1,y=pos.y-1,z=pos.z,stackpos=1}, 7501}
    posTile7 = {{x=pos.x-1,y=pos.y,z=pos.z,stackpos=1}, 7525}
    posTile8 = {{x=pos.x-1,y=pos.y+1,z=pos.z,stackpos=1}, 7522}
    posTile9 = {{x=pos.x,y=pos.y+1,z=pos.z,stackpos=1}, 7521}
    posAll = {posTile1,posTile2,posTile3,posTile4,posTile5,posTile6,posTile7,posTile8,posTile9}
    if position_target ~= nil then
         
        local tempo = 0
        while (tempo ~= quant_hit*(timeHit*1000)) do
            addEvent(sendEffect241, tempo, cid, target)
            tempo = tempo + 500
        end
        tempo = 0
        while (tempo ~= quant_hit*(timeHit*1000)) do
            addEvent(hitTarget, tempo, cid, target)
            tempo = tempo + (timeHit*1000)
        end
        local temp = tempo
        while (tempo ~= temp+quant_sqm*(sqmTime*1000)) do
            addEvent(empurrarTarget, tempo, cid, target, tempo, posAll)
            tempo = tempo + (sqmTime*1000)
        end
        local mana_hit = (getPlayerLevel(cid)*2 + getPlayerMagLevel(cid)*2 + 300)
        doCreatureAddMana(target, -mana_hit)
        for o=1, #posAll do
            doCreateItem(posAll[o][2], 1, posAll[o][1])
        end
        return true
    else
        doPlayerSendDefaultCancel(cid, RETURNVALUE_NOTPOSSIBLE)
    end
else
    doPlayerSendCancel(cid, "Você precisa de um target!")
end
else
  doPlayerSendCancel(cid, "Creature is not recheable.")
  doSendMagicEffect(getPlayerPosition(cid), 2) 
  end
end

function isWalkable(pos, creature, pz, proj)
    if getTileThingByPos({x = pos.x, y = pos.y, z = pos.z, stackpos = 0}).itemid == 0 then return false end
    local creature = getTopCreature(pos)
    if creature.type > 0 then    return false end
    if getTilePzInfo(pos) and not pz then return false end
    local n = not proj and 3 or 2
    for i = 0, 255 do
        pos.stackpos = i
        local tile = getTileThingByPos(pos)
        if tile.itemid ~= 0 and not isCreature(tile.uid) then
            if hasProperty(tile.uid, n) or hasProperty(tile.uid, 7) then
                return false
            end
        end
    end
return true
end

function hitTarget(cid, target)
if isCreature(target) and isPlayer(cid) then
    local effect241 = 9 -- efeito do hit na creatura.

    doTargetCombatHealth(cid, target, COMBAT_PHYSICALDAMAGE, -getHit(cid), -getHit(cid), effect241)
end
end

function getHit(cid)
local hit = getPlayerLevel(cid)*2 + getPlayerMagLevel(cid)*2 + math.random(650,750)
return hit
end

function empurrarTarget(cid, target, tempo, posAll)
if not isCreature(target) then
    for k=1, #posAll do
        for j=0, 255 do
            pos_stack = {x=posAll[k][1].x,y=posAll[k][1].y,z=posAll[k][1].z,stackpos=j}
            removeTile = getThingfromPos(pos_stack)
            if removeTile.itemid == posAll[k][2] then
                doRemoveItem(removeTile.uid)
            end
        end
    end
end
if isCreature(target) and isPlayer(cid) then
    local positions = nil
    if getPlayerLookDir(cid) == 0 then
        positions = {x=getCreaturePosition(cid).x, y=getCreaturePosition(cid).y-1, z=getCreaturePosition(cid).z}
    elseif getPlayerLookDir(cid) == 1 then
        positions = {x=getCreaturePosition(cid).x+1, y=getCreaturePosition(cid).y, z=getCreaturePosition(cid).z}
    elseif getPlayerLookDir(cid) == 2 then
        positions = {x=getCreaturePosition(cid).x, y=getCreaturePosition(cid).y+1, z=getCreaturePosition(cid).z}
    elseif getPlayerLookDir(cid) == 3 then
       positions = {x=getCreaturePosition(cid).x-1, y=getCreaturePosition(cid).y, z=getCreaturePosition(cid).z}
    end

    local tp = sqmTime*1000*(quant_sqm-1)+quant_hit*timeHit*1000
    if tempo == tp then
        for k=1, #posAll do
            for j=0, 255 do
                pos_stack = {x=posAll[k][1].x,y=posAll[k][1].y,z=posAll[k][1].z,stackpos=j}
                removeTile = getThingfromPos(pos_stack)
                if removeTile.itemid == posAll[k][2] then
                    doRemoveItem(removeTile.uid)
                end
            end
        end
    end    
end
end

function sendEffect241(cid, target)
local position1 = {x=getPlayerPosition(cid).x, y=getPlayerPosition(cid).y, z=getPlayerPosition(cid).z}
if isCreature(target) and isPlayer(cid) then
    doSendMagicEffect(position1, playerEffect241) 
end
end

    EU pensava que a magia era asism, de atacar de longe, malz

    perfeito amigo n sei nem como te agradecer, mas poderia me mostrar em qual parte vc mudou a distancia dos hits caso eu queira mudar  ???

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

  • Citar
  • Mention
    • Postado

    @Capitao wyz Só dar um curtir que já ta pago =D

     

    Eu tive que improvisar um tiquin.

    Em baixo de: 

    function onCastSpell(cid, var)

    Eu coloquei isso: 

    if getDistanceBetween(getCreaturePosition(cid), getCreaturePosition(target)) == 1 then

    Ou seja, ele pega a distancia do player e a distancia do alvo, se for == 1 ele solta a spell, se não for == 1, ou seja, estiver distante do alvo, ele vai mandar uma msg de erro e um efeito, que estão na linha 95 e 96: 

     doPlayerSendCancel(cid, "Creature is not recheable.")
 doSendMagicEffect(getPlayerPosition(cid), 2)

    Se quiser mudar a msg que aparece quando estiver distante, o efeito ou a própria distancia, só alterar essas partes.

  • Citar
  • Mention
    • Postado
    • Autor
      Em 03/04/2021 em 22:16, Zazeros disse:

    @Capitao wyz Só dar um curtir que já ta pago =D

     

    Eu tive que improvisar um tiquin.

    Em baixo de: 

    
function onCastSpell(cid, var)

    Eu coloquei isso: 

    
if getDistanceBetween(getCreaturePosition(cid), getCreaturePosition(target)) == 1 then

    Ou seja, ele pega a distancia do player e a distancia do alvo, se for == 1 ele solta a spell, se não for == 1, ou seja, estiver distante do alvo, ele vai mandar uma msg de erro e um efeito, que estão na linha 95 e 96: 

    
 doPlayerSendCancel(cid, "Creature is not recheable.")
 doSendMagicEffect(getPlayerPosition(cid), 2)

    Se quiser mudar a msg que aparece quando estiver distante, o efeito ou a própria distancia, só alterar essas partes.

    entendi mano, mas no caso se eu quiser q ele consiga dar os hits de 1 a 3 skm teria como ???

  • 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.6k

    Informação Importante

    Confirmação de Termo

    I accept