Ir para conteúdo
TK News
  • Cadastre-se

Spell que vem do alto

Calvin

Por ,
em Suporte Tibia OTServer

 Share Seguidores 0

Posts Recomendados

Calvin

Calvin 6

Postado
Postado (editado)

Mano na humildade estou aki, pedindo um favor alguem tem uma spell que parece que ta vindo do ceu mano eu tenho uma mais nao consigo editar pra dar dano.. desde-já agradeço


function storm(cid, element, DistEfec, MagEfec, damage_1, damage_2)

if isCreature(cid) then

local pos = getThingPos(cid)

pos.x = pos.x + math.random(-4,4)

pos.y = pos.y + math.random(-4,4)

local frompos = getThingPos(cid)

frompos.x = pos.x - 6

frompos.y = pos.y - 6

doSendDistanceShoot(frompos, pos, DistEfec)

doAreaCombatHealth(cid, element, pos, 0, -damage_1, -damage_2, MagEfec)

end

end

function onCastSpell(cid, var)

for i = 1, 72 do

addEvent(storm, i*35,cid,IceDAMAGE,36,52, -230, -410)

end

return true

end

Olha ai mano o video e uma Spell assim >

Editado por Calvin (veja o histórico de edições)
Link para o post
Compartilhar em outros sites
Calvin

Calvin 6

Postado
  • Autor
Postado

Ai ta o caminho das pedras:

http://tibiaking.com...a-seu-servidor/

Se quer uma coisa mais fácil só que mais limitada:

http://tibiaking.com...spell-maker-20/

Vei do jeito que ele encina la e facil fazer uma spell mais do jeito que eu queria.. com o efeito dela vindo de cima da tela nao tem explicando ;s

Link para o post
Compartilhar em outros sites
tiagoduuarte

tiagoduuarte 123

Postado
Postado (editado)

Vei do jeito que ele encina la e facil fazer uma spell mais do jeito que eu queria.. com o efeito dela vindo de cima da tela nao tem explicando ;s

Você só pode usar os efeitos que tem no tibia, para criar novos tera que modificar o client (explica melhor o seu topico...)

Se for tipo a ue que é de cima e tal (mas vis) isso é só o desenho(sprite) teria que criar uma nova, não sei se é isso que vc quer

namnlsvm.jpg

creditos da img:Morrison

Editado por tiagoduuarte (veja o histórico de edições)
Link para o post
Compartilhar em outros sites
Calvin

Calvin 6

Postado
  • Autor
Postado

nao quero criar novos so quero que os egfeitos por exeplo de ice venha do algo tipo no /x com o GOD entende ?

Link para o post
Compartilhar em outros sites
Carinhah

Carinhah 23

Postado
Postado

Ae cara... achei esse script em um server antigo meu... não m lembro de quem era o script para colocar os créditos

se te ajudar da um rep+ ae :P


local water = {490, 491, 492, 493, 4608, 4609, 4610, 4611, 4612, 4613, 4614, 4615, 4616, 4617, 4618, 4619, 4620, 4621, 4622, 4623, 4624, 4625}  -- aqui quando a magia for cair em cima da agua ela tera outro efeito

local combat = createCombatObject()

local meteor = createCombatObject()

setCombatParam(meteor, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE) -- tipo de damage

setCombatParam(meteor, COMBAT_PARAM_EFFECT, 44) -- efeito de quando ele atingir a terra

setCombatFormula(meteor, COMBAT_FORMULA_LEVELMAGIC, -4.6, -200, -4.2, -200) -- calculo de dano por ml

local stun = createConditionObject(CONDITION_PARALYZE) -- add paralize

setConditionParam(stun, CONDITION_PARAM_TICKS, 5000)

setConditionFormula(stun, -0.8, 0, -0.9, 0) -- condition do paralize

setCombatCondition(meteor, stun)


local meteor_water = createCombatObject()

setCombatParam(meteor_water, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE) 

setCombatParam(meteor_water, COMBAT_PARAM_EFFECT, CONST_ME_LOSEENERGY) -- efeito ao atingir a agua

setCombatFormula(meteor_water, COMBAT_FORMULA_LEVELMAGIC, -4.6, -200, -4.2, -200) -- calculo de dano por ML

combat_arr = {

{0, 0, 0, 0, 0, 1, 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, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0},

{1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1},

{0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 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, 1, 0, 0, 0, 0, 0}

}

local combat_area = createCombatArea(combat_arr)

setCombatArea(combat, combat_area)

local function meteorCast(p)

	    doCombat(p.cid, p.combat, positionToVariant(p.pos))

end

local function stunEffect(cid)

	    doSendMagicEffect(getThingPos(cid), CONST_ME_STUN)

end

function onTargetTile(cid, pos)

	    if (math.random(0, 1) == 1) then

			    local ground = getThingfromPos({x = pos.x, y = pos.y, z = pos.z, stackpos = 0})

			    if (isInArray(water, ground.itemid) == TRUE) then

					    local newpos = {x = pos.x - 7, y = pos.y - 6, z = pos.z}

					    doSendDistanceShoot(newpos, pos, CONST_ANI_FIRE) -- eefeito dele caindo sobre a agua

					    addEvent(meteorCast, 200, {cid = cid, pos = pos, combat = meteor_water})

			    else

					    local newpos = {x = pos.x - 7, y = pos.y - 6, z = pos.z}

					    doSendDistanceShoot(newpos, pos, 11) -- aqui efeito dele caindo do céu sobre a terra!

					    addEvent(meteorCast, 200, {cid = cid,pos = pos, combat = meteor})

			    end

	    end

end

setCombatCallback(combat, CALLBACK_PARAM_TARGETTILE, "onTargetTile")

function onCastSpell(cid, var)

	    return doCombat(cid, combat, var)

end

Link para o post
Compartilhar em outros sites
Calvin

Calvin 6

Postado
  • Autor
Postado

Ae cara... achei esse script em um server antigo meu... não m lembro de quem era o script para colocar os créditos

se te ajudar da um rep+ ae :P


local water = {490, 491, 492, 493, 4608, 4609, 4610, 4611, 4612, 4613, 4614, 4615, 4616, 4617, 4618, 4619, 4620, 4621, 4622, 4623, 4624, 4625} -- aqui quando a magia for cair em cima da agua ela tera outro efeito

local combat = createCombatObject()

local meteor = createCombatObject()

setCombatParam(meteor, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE) -- tipo de damage

setCombatParam(meteor, COMBAT_PARAM_EFFECT, 44) -- efeito de quando ele atingir a terra

setCombatFormula(meteor, COMBAT_FORMULA_LEVELMAGIC, -4.6, -200, -4.2, -200) -- calculo de dano por ml

local stun = createConditionObject(CONDITION_PARALYZE) -- add paralize

setConditionParam(stun, CONDITION_PARAM_TICKS, 5000)

setConditionFormula(stun, -0.8, 0, -0.9, 0) -- condition do paralize

setCombatCondition(meteor, stun)


local meteor_water = createCombatObject()

setCombatParam(meteor_water, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE)

setCombatParam(meteor_water, COMBAT_PARAM_EFFECT, CONST_ME_LOSEENERGY) -- efeito ao atingir a agua

setCombatFormula(meteor_water, COMBAT_FORMULA_LEVELMAGIC, -4.6, -200, -4.2, -200) -- calculo de dano por ML

combat_arr = {

{0, 0, 0, 0, 0, 1, 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, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0},

{1, 1, 1, 1, 1, 3, 1, 1, 1, 1, 1},

{0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 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, 1, 0, 0, 0, 0, 0}

}

local combat_area = createCombatArea(combat_arr)

setCombatArea(combat, combat_area)

local function meteorCast(p)

	 doCombat(p.cid, p.combat, positionToVariant(p.pos))

end

local function stunEffect(cid)

	 doSendMagicEffect(getThingPos(cid), CONST_ME_STUN)

end

function onTargetTile(cid, pos)

	 if (math.random(0, 1) == 1) then

			 local ground = getThingfromPos({x = pos.x, y = pos.y, z = pos.z, stackpos = 0})

			 if (isInArray(water, ground.itemid) == TRUE) then

					 local newpos = {x = pos.x - 7, y = pos.y - 6, z = pos.z}

					 doSendDistanceShoot(newpos, pos, CONST_ANI_FIRE) -- eefeito dele caindo sobre a agua

					 addEvent(meteorCast, 200, {cid = cid, pos = pos, combat = meteor_water})

			 else

					 local newpos = {x = pos.x - 7, y = pos.y - 6, z = pos.z}

					 doSendDistanceShoot(newpos, pos, 11) -- aqui efeito dele caindo do céu sobre a terra!

					 addEvent(meteorCast, 200, {cid = cid,pos = pos, combat = meteor})

			 end

	 end

end

setCombatCallback(combat, CALLBACK_PARAM_TARGETTILE, "onTargetTile")

function onCastSpell(cid, var)

	 return doCombat(cid, combat, var)

end

Pow vei vlw mesmo fico show so to testando aki pra ve ser ela para de pega em area aleatoria

mais ja ganho meu REP :D

Link para o post
Compartilhar em outros sites
Carinhah

Carinhah 23

Postado
Postado

pq não falou antes... é só apagar 2 linhas :P...

ta ela sem o random!!


local water = {490, 491, 492, 493, 4608, 4609, 4610, 4611, 4612, 4613, 4614, 4615, 4616, 4617, 4618, 4619, 4620, 4621, 4622, 4623, 4624, 4625}

local combat = createCombatObject()

local meteor = createCombatObject()

setCombatParam(meteor, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE)

setCombatParam(meteor, COMBAT_PARAM_EFFECT, 44)

setCombatFormula(meteor, COMBAT_FORMULA_LEVELMAGIC, -4.6, -200, -4.2, -200)

local stun = createConditionObject(CONDITION_PARALYZE)

setConditionParam(stun, CONDITION_PARAM_TICKS, 5000)

setConditionFormula(stun, -0.8, 0, -0.9, 0)

setCombatCondition(meteor, stun)


local meteor_water = createCombatObject()

setCombatParam(meteor_water, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE)

setCombatParam(meteor_water, COMBAT_PARAM_EFFECT, CONST_ME_LOSEENERGY)

setCombatFormula(meteor_water, COMBAT_FORMULA_LEVELMAGIC, -4.6, -200, -4.2, -200)

combat_arr = {

{0, 0, 0, 0, 0, 1, 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, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0},

{1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1},

{0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 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, 1, 0, 0, 0, 0, 0}

}

local combat_area = createCombatArea(combat_arr)

setCombatArea(combat, combat_area)

local function meteorCast(p)

	    doCombat(p.cid, p.combat, positionToVariant(p.pos))

end

local function stunEffect(cid)

	    doSendMagicEffect(getThingPos(cid), CONST_ME_STUN)

end

function onTargetTile(cid, pos)

			    local ground = getThingfromPos({x = pos.x, y = pos.y, z = pos.z, stackpos = 0})

			    if (isInArray(water, ground.itemid) == TRUE) then

					    local newpos = {x = pos.x - 7, y = pos.y - 6, z = pos.z}

					    doSendDistanceShoot(newpos, pos, CONST_ANI_FIRE)

					    addEvent(meteorCast, 200, {cid = cid, pos = pos, combat = meteor_water})

			    else

					    local newpos = {x = pos.x - 7, y = pos.y - 6, z = pos.z}

					    doSendDistanceShoot(newpos, pos, 11)

					    addEvent(meteorCast, 200, {cid = cid,pos = pos, combat = meteor})

			    end

end

setCombatCallback(combat, CALLBACK_PARAM_TARGETTILE, "onTargetTile")

function onCastSpell(cid, var)

	    return doCombat(cid, combat, var)

end

Link para o post
Compartilhar em outros sites
Calvin

Calvin 6

Postado
  • Autor
Postado

pq não falou antes... é só apagar 2 linhas :P...

ta ela sem o random!!


local water = {490, 491, 492, 493, 4608, 4609, 4610, 4611, 4612, 4613, 4614, 4615, 4616, 4617, 4618, 4619, 4620, 4621, 4622, 4623, 4624, 4625}

local combat = createCombatObject()

local meteor = createCombatObject()

setCombatParam(meteor, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE)

setCombatParam(meteor, COMBAT_PARAM_EFFECT, 44)

setCombatFormula(meteor, COMBAT_FORMULA_LEVELMAGIC, -4.6, -200, -4.2, -200)

local stun = createConditionObject(CONDITION_PARALYZE)

setConditionParam(stun, CONDITION_PARAM_TICKS, 5000)

setConditionFormula(stun, -0.8, 0, -0.9, 0)

setCombatCondition(meteor, stun)


local meteor_water = createCombatObject()

setCombatParam(meteor_water, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE)

setCombatParam(meteor_water, COMBAT_PARAM_EFFECT, CONST_ME_LOSEENERGY)

setCombatFormula(meteor_water, COMBAT_FORMULA_LEVELMAGIC, -4.6, -200, -4.2, -200)

combat_arr = {

{0, 0, 0, 0, 0, 1, 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, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0},

{1, 1, 1, 1, 1, 2, 1, 1, 1, 1, 1},

{0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 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, 1, 0, 0, 0, 0, 0}

}

local combat_area = createCombatArea(combat_arr)

setCombatArea(combat, combat_area)

local function meteorCast(p)

	 doCombat(p.cid, p.combat, positionToVariant(p.pos))

end

local function stunEffect(cid)

	 doSendMagicEffect(getThingPos(cid), CONST_ME_STUN)

end

function onTargetTile(cid, pos)

			 local ground = getThingfromPos({x = pos.x, y = pos.y, z = pos.z, stackpos = 0})

			 if (isInArray(water, ground.itemid) == TRUE) then

					 local newpos = {x = pos.x - 7, y = pos.y - 6, z = pos.z}

					 doSendDistanceShoot(newpos, pos, CONST_ANI_FIRE)

					 addEvent(meteorCast, 200, {cid = cid, pos = pos, combat = meteor_water})

			 else

					 local newpos = {x = pos.x - 7, y = pos.y - 6, z = pos.z}

					 doSendDistanceShoot(newpos, pos, 11)

					 addEvent(meteorCast, 200, {cid = cid,pos = pos, combat = meteor})

			 end

end

setCombatCallback(combat, CALLBACK_PARAM_TARGETTILE, "onTargetTile")

function onCastSpell(cid, var)

	 return doCombat(cid, combat, var)

end

Vlw mano!! mais um REP meu :D ve se consegue da uma ajuda lá

Da uma ajuda aee! POr Favor

Link para o post
Compartilhar em outros sites

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

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emojis são permitidos.

×   Seu link foi automaticamente incorporado.   Mostrar como link

×   Seu conteúdo anterior foi restaurado.   Limpar o editor

×   Não é possível colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Seguidores 0
Ir para a lista de tópicos

  • Quem Está Navegando   0 membros estão online

    Nenhum usuário registrado visualizando esta página.

TibiaKing

Open Tibia Server

Quer aprender a criar seu próprio servidor de Tibia? Então está no lugar certo, aqui você encontrará milhares de tutorias, scripts, códigos, mapas e utilitários para que você possa fazer o seu próprio servidor de Tibia começando do zero.

Redes Sociais

Anuncie no TibiaKing

Precisa de mais visibilidade em seus projetos? Quer fazer um plano publicitário para o seu servidor? Anuncie no OTKing e faça sua divulgação, possuímos centenas de acessos simultâneos e milhares diários, com certeza será a sua solução!

×
×
  • Criar Novo...

Informação Importante

Confirmação de Termo

  Eu aceito