Spell de atração

[rizen 4]

Tenho duas spells de buraco negro (puxar todos para o centro) porém a primeira spell teleporta os jogadores diretamente para o centro da spell (1), agora a outra spell (segunda) não, ela vai empurrando aos poucos(2). Eu gostaria de uma spell que fosse que nem a segunda spell(2) porém empurrando até o centro da spell e não até o caster. A spell nº 1 teleporta os jogadores até o centro da spell, e eu não quero que teleporte. Eu gostaria que os jogadores fossem empurrados (igual à segunda spell), porém para o centro da spell (uns 3 sqm à frente do caster).

Segue abaixo as spells:

 

Wolf (Primeira spell)

local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE)
setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_MORTAREA)
setCombatFormula(combat, COMBAT_FORMULA_LEVELMAGIC, -9.0, -30, -10.0, 4)
 
 
arr = {
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0},
{0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0},
{0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0},
{0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0},
{0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0},
{0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0},
{0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 3, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
}
 
local area = createCombatArea(arr)
setCombatArea(combat, area)
 
 
local function canEffect(pos, pz, proj) -- Night Wolf based on Nord
if getTileThingByPos({x = pos.x, y = pos.y, z = pos.z, stackpos = 0}).itemid == 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
 
local function isEven(arg)
return arg % 2 == 0 and true or false
end
 
function onCastSpell(cid, var)
local dist = 4 -- distancia que vai sair o buraco negro (4 sqm pra frente)

---------------------------------------
local dir = getPlayerLookDir(cid) + 1
local dirx = dist * (isEven(dir) and (dir == 2 and 1 or -1) or 0)
local diry = dist * (isEven(dir) and 0 or (dir == 1 and -1 or 1))
----------------------------------------------------------------


local pos = {x = getPlayerPosition(cid).x + dirx, y = getPlayerPosition(cid).y + diry, z = getPlayerPosition(cid).z}
local raio = 3 -- alcance do buraco negro
i = ((pos.x)-raio)
while i <= ((pos.x)+raio) do
j = ((pos.y)-raio)
while j <= ((pos.y)+raio) do
player = getThingfromPos({x=i,y=j,z=pos.z,stackpos=253})
if ((isMonster(player.uid) or isPlayer(player.uid)) and ((math.abs(i-(pos.x)) > 1) or (math.abs(j-(pos.y)) > 1)) and (canEffect({x = i, y = j, z = pos.z}))) then
 
npos = getClosestFreeTile(cid, pos, false, true)
if canEffect(npos) then
doSendMagicEffect(npos, 10)
doTeleportThing(player.uid,npos, false)
end
 
end
j = j + 1
end
i = i + 1
end
doCombat(cid, combat, var)
return true
end

 

Segunda spell:

local function doPushCreature(target, cid)
    if target > 0 then
   if not isNpc(target) then
   local position = {x = getPlayerPosition(cid).x, y = getPlayerPosition(cid).y - 4, z = getPlayerPosition(cid).z}
   local fromPosition = getThingPosition(target)
   local x = ((fromPosition.x - position.x) < 0 and -1 or ((fromPosition.x - position.x) == 0 and 0 or 1))
   local y = ((fromPosition.y - position.y) < 0 and -1 or ((fromPosition.y - position.y) == 0 and 0 or 1))
   local toPosition = {x = fromPosition.x - x, y = fromPosition.y - y, z = fromPosition.z}
   if doTileQueryAdd(target, toPosition) == 1 and getTileInfo(toPosition).house == false then
   doTeleportThing(target, toPosition, true)
   end
   end
    end
end
local spell = {}
spell.config = {
    [1] = {
   damageType = 1,
   areaEffect = 43,
   area = {
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0},
{0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0},
{0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0},
{0, 0, 1, 0, 0, 2, 0, 0, 1, 0, 0},
{0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0},
{0, 0, 0, 1, 0, 0, 0, 1, 0, 0, 0},
{0, 0, 0, 0, 1, 1, 1, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 2, 0, 0, 0, 0, 0},
   }   
    },
    [2] = {
   damageType = 1,
   areaEffect = 43,
   area = {
   {0, 0, 0, 0, 0, 0, 0},
   {0, 0, 1, 1, 1, 0, 0},
   {0, 1, 0, 0, 0, 1, 0},
   {0, 1, 0, 2, 0, 1, 0},
   {0, 1, 0, 0, 0, 1, 0},
   {0, 0, 1, 1, 1, 0, 0},
   {0, 0, 0, 2, 0, 0, 0}
   }   
    },
    [3] = {
   damageType = 1,
   areaEffect = 43,
   area = {
   {0, 0, 0, 0, 0, 0, 0},
   {0, 0, 0, 0, 0, 0, 0},
   {0, 0, 1, 1, 1, 0, 0},
   {0, 0, 1, 2, 1, 0, 0},
   {0, 0, 1, 1, 1, 0, 0},
   {0, 0, 0, 0, 0, 0, 0},
   {0, 0, 0, 2, 0, 0, 0}
   }   
    },
    [4] = {
   damageType = 1,
   areaEffect = 55,
   area = {
   {0, 0, 0, 0, 0, 0, 0},
   {0, 0, 0, 0, 0, 0, 0},
   {0, 0, 0, 0, 0, 0, 0},
   {0, 0, 0, 1, 0, 0, 0},
   {0, 0, 0, 0, 0, 0, 0},
   {0, 0, 0, 0, 0, 0, 0},
   {0, 0, 0, 2, 0, 0, 0}
   }   
    }
}
 
spell.combats = {}
for _, config in ipairs(spell.config) do
    local combat = createCombatObject()
    setCombatParam(combat, COMBAT_PARAM_TYPE, config.damageType)
    setCombatParam(combat, COMBAT_PARAM_EFFECT, config.areaEffect)
    setCombatFormula(combat, COMBAT_FORMULA_LEVELMAGIC, -4, 0, -4.7, 0)
    function onTargetCreature(cid, target)
   doPushCreature(target, cid)
    end
    setCombatCallback(combat, CALLBACK_PARAM_TARGETCREATURE, "onTargetCreature")
    setCombatArea(combat, createCombatArea(config.area))
    table.insert(spell.combats, combat)
end
 
function onCastSpell(cid, var)
    for n = 1, #spell.combats do
   addEvent(doCombat, (n * 120), cid, spell.combats[n], var)
    end
    return true
end

Obrigado.

 

 

 

 

REP+ para quem ajudar.