• There is NO official Otland's Discord server and NO official Otland's server list. The Otland's Staff does not manage any Discord server or server list. Moderators or administrator of any Discord server or server lists have NO connection to the Otland's Staff. Do not get scammed!

TFS 1.X+ getPosByDir

Decodde

New Member
Joined
Oct 8, 2018
Messages
31
Reaction score
0
Code:
local config = {
velocidade = 350, -- intervalo entre os giros (quanto menor, mais rapido)
hits = 24, -- quantos hits vai dar
msg = "Frozen Orb", -- msg ao soltar a spell
key = 13871, -- storage que sera utilizado pro cooldown
cooldown = 3, -- tempo em segundos de cooldown entre um uso da spell e outro.
effect1 = 36, -- efeito de distancia que vai ficar rodando
effect2 = 56, -- efeito no sqm do item
effect3 = 37, -- efeito ao castar a spell
effect4 = 43 -- efeito ao acertar a roda no player
}
--[[Note que a velocidade multiplicada pelo numero de hits deve dar algo proximo de 8550 pra que a magia nao fique ruim ou um efeito acabe antes do outro.
Nos valores que eu utilizei eles dao 8400, oque ja eh considerado perto pois temos 200 milisegundos iniciais,
8550 eh o tempo que o item sera removido e coincide com o tempo de duracao do efeito 56 (config.effect2)]]

local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_ICEDAMAGE)
setCombatParam(combat, COMBAT_PARAM_EFFECT, 255)
setCombatFormula(combat, COMBAT_FORMULA_LEVELMAGIC, -1, -10, -1, -20, 5, 5, 1.4, 2.1)
function onTargetCreature(cid, target)
   doSendMagicEffect(getCreaturePosition(target), config.effect4)
end
setCombatCallback(combat, 4, "onTargetCreature")

local arr = {
{1, 1, 1},
{1, 3, 1}, -- area que vai acertar a spell enquanto estiver rodando
{1, 1, 1},
}

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

function initEffect(position)
    for i = 0, 3 do
    
        local pos = {x = position.x, y = position.y, z = position.z}
        local dir = Creature(cid):getDirection(pos, i)
        doSendDistanceShoot(position, dir, config.effect1)
    end
addEvent(doSendMagicEffect, 300, position, config.effect2)
return true
end

function middleEffect(cid, param, position, lim, count)
n = count or 0
    if isCreature(cid) and n < lim then
        for i = 0, 3 do
            local pos = {x = position.x, y = position.y, z = position.z}
            local pos2 = {x = position.x, y = position.y, z = position.z}
            local dir = Creature(cid):getDirection(pos, i)
            local dir2 = Creature(cid):getDirection(pos2, i + 1 <= 3 and i + 1 or 0)
            doSendDistanceShoot(dir, dir2, config.effect1)
        end
        doCombat(cid, combat, param)
        addEvent(middleEffect, config.velocidade, cid, param, position, lim, n + 1)
    end
return true
end

function endEffect(position)
    for i = 0, 3 do
        local pos = {x = position.x, y = position.y, z = position.z}
        local dir = Creature(cid):getDirection(pos, i)
        doSendDistanceShoot(dir, position, config.effect1)
    end
    local item = getTileItemById(position, 2180)
    if item.uid > 0 then
        doRemoveItem(item.uid)
    end
return true
end

function onCastSpell(cid, var)
local player = Player(cid)
if player:getStorageValue(cid, config.key) - os.time() <= 0 then
    player:setStorageValue(cid, config.key, os.time() + config.cooldown)
    local position = getCreaturePosition(cid)
    doCreatureSay(cid, config.msg, 20)
    local orb = doCreateItem(2180, 1, position)
    addEvent(endEffect, 8.55 * 1000, position)
    doSendMagicEffect(position, config.effect3)
    initEffect(position)
    addEvent(middleEffect, 200, cid, var, position, config.hits)
else
    doPlayerSendCancel(cid, "You're exhausted.")
    return false
end

return true
end

Im trying convert this spell to tfs 1.3, but i stuck in that line

It was:
local dir = getPosByDir(pos, i)

I tried
local dir = Creature(cid):getDirection(pos, i)

:rolleyes:

How would it be in tfs 1.x?

e.png
 
Lua:
local config = {
velocidade = 350, -- intervalo entre os giros (quanto menor, mais rapido)
hits = 24, -- quantos hits vai dar
msg = "Frozen Orb", -- msg ao soltar a spell
key = 13871, -- storage que sera utilizado pro cooldown
cooldown = 3, -- tempo em segundos de cooldown entre um uso da spell e outro.
effect1 = 36, -- efeito de distancia que vai ficar rodando
effect2 = 56, -- efeito no sqm do item
effect3 = 37, -- efeito ao castar a spell
effect4 = 43 -- efeito ao acertar a roda no player
}
--[[Note que a velocidade multiplicada pelo numero de hits deve dar algo proximo de 8550 pra que a magia nao fique ruim ou um efeito acabe antes do outro.
Nos valores que eu utilizei eles dao 8400, oque ja eh considerado perto pois temos 200 milisegundos iniciais,
8550 eh o tempo que o item sera removido e coincide com o tempo de duracao do efeito 56 (config.effect2)]]

local function getPosByDir(position, direction, size)
    local n = size or 1
    if(direction == NORTH) then
        position.y = position.y - n
    elseif(direction == SOUTH) then
        position.y = position.y + n
    elseif(direction == WEST) then
        position.x = position.x - n
    elseif(direction == EAST) then
        position.x = position.x + n
    elseif(direction == NORTHWEST) then
        position.y = position.y - n
        position.x = position.x - n
    elseif(direction == NORTHEAST) then
        position.y = position.y - n
        position.x = position.x + n
    elseif(direction == SOUTHWEST) then
        position.y = position.y + n
        position.x = position.x - n
    elseif(direction == SOUTHEAST) then
        position.y = position.y + n
        position.x = position.x + n
    end

    return position
end

local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_ICEDAMAGE)
setCombatParam(combat, COMBAT_PARAM_EFFECT, 255)
setCombatFormula(combat, COMBAT_FORMULA_LEVELMAGIC, -1, -10, -1, -20, 5, 5, 1.4, 2.1)
function onTargetCreature(cid, target)
   doSendMagicEffect(getCreaturePosition(target), config.effect4)
end
setCombatCallback(combat, 4, "onTargetCreature")

local arr = {
{1, 1, 1},
{1, 3, 1}, -- area que vai acertar a spell enquanto estiver rodando
{1, 1, 1},
}

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

function initEffect(position)
    for i = 0, 3 do
   
        local pos = {x = position.x, y = position.y, z = position.z}
        local dir = getPosByDir(pos, i)
        doSendDistanceShoot(position, dir, config.effect1)
    end
addEvent(doSendMagicEffect, 300, position, config.effect2)
return true
end

function middleEffect(cid, param, position, lim, count)
n = count or 0
    if isCreature(cid) and n < lim then
        for i = 0, 3 do
            local pos = {x = position.x, y = position.y, z = position.z}
            local pos2 = {x = position.x, y = position.y, z = position.z}
            local dir = getPosByDir(pos, i)
            local dir2 = getPosByDir(pos, i + 1 <= 3 and i + 1 or 0)
            doSendDistanceShoot(dir, dir2, config.effect1)
        end
        doCombat(cid, combat, param)
        addEvent(middleEffect, config.velocidade, cid, param, position, lim, n + 1)
    end
return true
end

function endEffect(position)
    for i = 0, 3 do
        local pos = {x = position.x, y = position.y, z = position.z}
        local dir = getPosByDir(pos, i)
        doSendDistanceShoot(dir, position, config.effect1)
    end
    local item = getTileItemById(position, 2180)
    if item.uid > 0 then
        doRemoveItem(item.uid)
    end
return true
end

function onCastSpell(cid, var)
local player = Player(cid)
if player:getStorageValue(cid, config.key) - os.time() <= 0 then
    player:setStorageValue(cid, config.key, os.time() + config.cooldown)
    local position = player:getPosition()
    doCreatureSay(cid, config.msg, 20)
    local orb = Game.createItem(2180, position)
    addEvent(endEffect, 8.55 * 1000, position)
    doSendMagicEffect(position, config.effect3)
    initEffect(position)
    addEvent(middleEffect, 200, cid, var, position, config.hits)
else
    doPlayerSendCancel(cid, "You're exhausted.")
    return false
end

return true
end

You will need to redo those addEvents tho, I can't confidently say that they are safe in a live server.
 
Back
Top