Outro Buraco Negro

[rizen 4]

Foi mal, postei a spell errada.

O correto seria essa

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)

 

 

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

 

 

function onCastSpell(cid, var)

local pos = {x = getPlayerPosition(cid).x, y = getPlayerPosition(cid).y - 4, z = getPlayerPosition(cid).z}

local player = getThingfromPos({x=pos.x,y=pos.y,z=pos.z,stackpos= 253})

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

[xWhiteWolf 3008]

ah sim, entendi oque tá acontecendo:

troca o local pos lá por:

local position = getPlayerPosition(cid)
local pos = {x = position.x, y = position.y - 4, z = position.z}

[rizen 4]

Então... Continua com o mesmo bug.

Quando eu olho pra cima, dá certo.

Agora se eu usar a spell olhando pros lados ou pra baixo, ela não junta eles.

[xWhiteWolf 3008]

ah, nossa.. agr que eu me toquei oque vc quer uhauheua seja sempre 4 sqms pra frente na direção que está olhando, certo? Eu tava fazendo sempre 4 sqm pra cima independente de onde estivesse olhando. Dps que eu chegar da aula eu arrumo pra vc

[rizen 4]

Exatamente!

Estou no aguardo, obrigado.

[xWhiteWolf 3008]

Pronto:

Você vai ter que fazer uma pequena alteração no seu spells.xml, deixando ele assim:

<instant name="Dark Hole" words="buraco negro" lvl="160" direction="1" mana="500" prem="1" exhaustion="2000" needlearn="0" event="script" value="especiais/buraco negro.lua">
<vocation id="6"/>
<vocation id="7"/>
<vocation id="5"/>
</instant>

com esse direction = "1"


e o script vc deve deixar assim:

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 

[rizen 4]

Funcionou, obrigado.

[Cain Jorge 53]

Onde muda o efeito do buraco negro ?

[xWhiteWolf 3008]

aqui: 

setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_MORTAREA)