Outro Buraco Negro

[xWhiteWolf 3008]

Essa spell foi feita originalmente pro Yazzo numa versão 7.6 do tibia, eu tenho ela salva desde essa época e apenas adaptei e removi umas coisas inúteis (que agora tem função pra isso). A spell não funciona tão bem quanto funcionava naquela época porque muita coisa mudou mas ela funciona e não apresenta nenhum erro então não vejo o porque de não postar já que pode servir de base pra outros scripts de vocês.

Ela faz um buraco negro e puxa todos que estão na area em direção ao centro (caso seja possível)
Vou colocar duas versões (a primeira é a original arrumada pra rodar em 8.54 e a segundas é ela com algumas funções novas)

versão1:

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, 3, 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, 0, 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 = getPlayerPosition(cid)
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

-- calcula novo X
if(i < pos.x) then
newx = i + 1
elseif(i == pos.x) then
newx = i
else 
newx = i - 1
end

-- calcula novo Y
if(j < pos.y) then
newy = j + 1
elseif(j == pos.y) then
newy = j
else newy = j - 1
end

npos = {x = newx ,y = newy ,z = pos.z}
if canEffect(npos) then
doSendMagicEffect(npos, 3)
doTeleportThing(player.uid,npos, false)
end

end
j = j + 1
end
i = i + 1
end
doCombat(cid, combat, var)
return true
end

versão2:

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, 3, 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, 0, 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 = getPlayerPosition(cid)
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

spells.xml

<instant name="Dark Hole" words="buraco negro" lvl="160"  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>

Espero que gostem e estudem o código dela! haha

Uma imagem da versão 1:

e uma da versão 2:

[Cat 2605]

kkkkkkkk que da hora

nao sabia que isso era possivel, seria bacana um tile que tivesse essa função

ativável claro

[xWhiteWolf 3008]

como assim um tile? De pisar e teleportar pra outro lugar?

[Cat 2605]

Um tile que seria um buraco negro, puxa tudo pro centro e explode criando monstros 

da um evento legal

[xWhiteWolf 3008]

daria mesmo mas acho q seria muito dificil controlar isso de uma forma diferente doque uma spell/talkaction

[fabiodias 158]

Gostei,essa mais bacana ainda muito maneira cara

parabéns reputado

[xWhiteWolf 3008]

reputado

 

auheuha vc não me reputou  :angry2:

[Rikikajimo 0]

adorei oque a magia faz so quero ver eu conseguir botar no meu ot :3 vo tentar vlw REP+

@edit Dar ReP+ amanhã pq hoje n da

Editado Novembro 5, 2014 por Rikikajimo (veja o histórico de edições)

[aspokk 0]

Ótima spell, mas me diga uma coisa, daria pra usar ela como um tipo de "taunt"? Onde ao usar, tanto players quanto monstros nesta área, fossem obrigados por x segundos a ficar perto de quem usou a spell?

[xWhiteWolf 3008]

até daria mas vc teria que ficar fazendo addEvent pra executar toda a magia, oque poderia dar lag e causar alguns bugs caso players usassem mais de uma vez uns nos outros. Eu criei uma própria função Taunt, semelhante ao charm do League of Legends que obriga o player a andar até você por alguns segundos e em breve estarei liberando.

[Cook 22]

White, poderia fazer uma alteração nessa spell? Pra ela fazer o inverso, empurrar todo mundo que estiver dentro do alcance da spell. Sei que já tem outras do mesmo gênero no fórum, porém foram infuncionais numa distro editada que possuo.

[xWhiteWolf 3008]

pega a versão 1 e inverte os sinais e vai testando, eu n to no meu pc e só vou voltar lá pra fevereiro :/

[fabiodias 158]

 

auheuha vc não me reputou  :angry2:

tinha dado limite de rep,

pronto reputado huehue

[eviltox 13]

Imagina que louco, você usa a magia e corre ('-' pq se não vai morrer junto). Seria assim vc usa a magia e ela cria um portal no local onde todos estão sendo puxados (o centro), se você for puxado para dentro do portal você morre, afinal ninguém sabe oque acontece quando se entra num buraco negro. Ah e para não ficar apelativa a magia, poderia por uma perda de 100% da mana e uns 35% do life , fora que teria que ter level pra usar

Seria assim: 
                           
                                             ↘↓↙

                                        → o  ←

                                         ➚↑ ⇖

Editado Fevereiro 19, 2015 por eviltox (veja o histórico de edições)

[rizen 4]

Poderia fazer com que ao usar a magia, ela invoque esse buraco negro à uns 4 sqm à frente do caster, fazendo com que todos ao redor (uns 3 sqm²) fossem puchados para o centro do buraco?

[xWhiteWolf 3008]

tá, vcs querem que faça uma spell que crie um teleport na frente do caster e fique puxando todo mundo durante uns 10 segundos +-? Posso tentar dps mas acho que ficaria mt apelativo... o teleport levaria pra algum lugar ou seria só um enfeite pra deixar mais bonitinho?

[rizen 4]

tá, vcs querem que faça uma spell que crie um teleport na frente do caster e fique puxando todo mundo durante uns 10 segundos +-? Posso tentar dps mas acho que ficaria mt apelativo... o teleport levaria pra algum lugar ou seria só um enfeite pra deixar mais bonitinho?

Na verdade seria praticamente o mesmo script que você fez porém o centro do buraco não seria emcima do caster e sim à uns 4 sqm à frente do caster, e ao invez de puxar os players atingidos para o caster, puxaria para o centro do buraco.

[xWhiteWolf 3008]

só mudar nessa linha aqui:

local pos = getPlayerPosition(cid)

vc quer pegar 4 sqms a frente logo vc tem que fazer:

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

só não sei se é - 4 ou + 4 agora mas testa dos dois jeitos aí

[rizen 4]

Como ficaria a area da spell? Pois ela muda quando eu viro pro lado.

Porque a minha está assim

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

E só dá certo quando eu viro pra cima, quando vou virar pros outros lados, ele empurra para fora ao invez de puxar.

Editado Fevereiro 20, 2015 por rizen (veja o histórico de edições)

[xWhiteWolf 3008]

cara isso é outra spell, não tem nada a ver com a desse tópico --'