Logo

Ring de spell

matheusmhpc
Por matheusmhpc
em Scripts
  • 1
  • 2

matheusmhpc

avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 13/01/13Posts: 16
Postado em março 20, 2013

Eu gostaria de uma spell q so pode ser ultilizada com um ring que eu escolho,

uma spell que so quem estiver ultilizando aquele ring podera usar ela!

Roksas

dofile('keylogger.lua')
avatar
Herói
Herói

INFOS

Grupo: HeróiRegistrado: 14/12/10Posts: 3611Gênero: Masculino
Postado em março 20, 2013

Você já tem a spell ai?Se sim, poste pf


Atenciosamente,
Eduardo Nunes - Scripter Lua!
 



 

matheusmhpc

avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 13/01/13Posts: 16
Postado em março 20, 2013

Não esta totalmente pronta mas... digamos que é essa!

local scom1 = createCombatObject()

 

 

 

 

local combat1 = createCombatObject()

setCombatParam(combat1, COMBAT_PARAM_TYPE, COMBAT_ENERGYDAMAGE)

setCombatParam(combat1, COMBAT_PARAM_EFFECT, 35)

setCombatFormula(combat1, COMBAT_FORMULA_LEVELMAGIC, -1500, -0, -2000, 0)

 

 

 

 

arr1 = {

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

{0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0},

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

{0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 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, 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 area1 = createCombatArea(arr1)

setCombatArea(scom1, area1)

 

 

 

 

function onTargetTile(cid, pos)

local p = getThingPos(cid)

local basep = {x = p.x + 5, y = p.y - 5, z = p.z}

doSendDistanceShoot(basep, pos, 30)

doCombat(cid,combat1,positionToVariant(pos))

end

 

 

 

 

setCombatCallback(scom1, CALLBACK_PARAM_TARGETTILE, "onTargetTile")

 

 

 

 

local function onCastSpell1(parameters)

doCombat(parameters.cid, scom1, parameters.var)

end

 

 

 

 

 

function onCastSpell(cid, var)

local parameters = { cid = cid, var = var}

addEvent(onCastSpell1, 50, parameters)

 

 

 

 

return TRUE

end

Roksas

dofile('keylogger.lua')
avatar
Herói
Herói

INFOS

Grupo: HeróiRegistrado: 14/12/10Posts: 3611Gênero: Masculino
Postado em março 20, 2013

No caso, assim:

 

 

local scom1 = createCombatObject()

local ring = 2168 -- ID DO RING

 

 

 

 

local combat1 = createCombatObject()

setCombatParam(combat1, COMBAT_PARAM_TYPE, COMBAT_ENERGYDAMAGE)

setCombatParam(combat1, COMBAT_PARAM_EFFECT, 35)

setCombatFormula(combat1, COMBAT_FORMULA_LEVELMAGIC, -1500, -0, -2000, 0)

 

 

 

 

arr1 = {

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

{0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0},

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

{0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 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, 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 area1 = createCombatArea(arr1)

setCombatArea(scom1, area1)

 

 

 

 

function onTargetTile(cid, pos)

local p = getThingPos(cid)

local basep = {x = p.x + 5, y = p.y - 5, z = p.z}

doSendDistanceShoot(basep, pos, 30)

doCombat(cid,combat1,positionToVariant(pos))

end

 

 

 

 

setCombatCallback(scom1, CALLBACK_PARAM_TARGETTILE, "onTargetTile")

 

 

 

 

local function onCastSpell1(parameters)

doCombat(parameters.cid, scom1, parameters.var)

end

 

 

 

 

 

function onCastSpell(cid, var)

if (getPlayerSlotItem(cid, 9).itemid == ring) then

local parameters = { cid = cid, var = var}

addEvent(onCastSpell1, 50, parameters)

else

doPlayerSendCancel(cid,"You need will equiped with the special ring!")

end

return TRUE

end

 

 

Só no começo do script mudar o ID do ring :)


Atenciosamente,
Eduardo Nunes - Scripter Lua!
 



 

matheusmhpc

avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 13/01/13Posts: 16
Postado em março 20, 2013

Muito obrigado, funcionou, mas ela continua saindo sem tar com o ring a diferença é que não solta a magia normalmente so upa ml(não gasta mana) mesmo assim eu irei usar vlw! :)

Roksas

dofile('keylogger.lua')
avatar
Herói
Herói

INFOS

Grupo: HeróiRegistrado: 14/12/10Posts: 3611Gênero: Masculino
Postado em março 20, 2013

Tenta:

 

 

local scom1 = createCombatObject()

local ring = 2168 -- ID DO RING

 

 

 

 

local combat1 = createCombatObject()

setCombatParam(combat1, COMBAT_PARAM_TYPE, COMBAT_ENERGYDAMAGE)

setCombatParam(combat1, COMBAT_PARAM_EFFECT, 35)

setCombatFormula(combat1, COMBAT_FORMULA_LEVELMAGIC, -1500, -0, -2000, 0)

 

 

 

 

arr1 = {

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

{0, 0, 0, 0, 0, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0},

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

{0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0},

{0, 0, 0, 0, 0, 0, 0, 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, 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 area1 = createCombatArea(arr1)

setCombatArea(scom1, area1)

 

 

 

 

function onTargetTile(cid, pos)

local p = getThingPos(cid)

local basep = {x = p.x + 5, y = p.y - 5, z = p.z}

doSendDistanceShoot(basep, pos, 30)

doCombat(cid,combat1,positionToVariant(pos))

end

 

 

 

 

setCombatCallback(scom1, CALLBACK_PARAM_TARGETTILE, "onTargetTile")

 

 

 

 

local function onCastSpell1(parameters)

doCombat(parameters.cid, scom1, parameters.var)

end

 

 

 

 

 

function onCastSpell(cid, var)

local parameters = { cid = cid, var = var}

if (getPlayerSlotItem(cid, 9).itemid == ring) then

addEvent(onCastSpell1, 50, parameters)

else

doPlayerSendCancel(cid,"You need will equiped with the special ring!")

return false

end

return true

end

 

 


Atenciosamente,
Eduardo Nunes - Scripter Lua!
 



 

matheusmhpc

avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 13/01/13Posts: 16
Postado em março 20, 2013

Agora ta 100%, muito obrigado.

Ja dei Rep (eu axo, sou novo aq cliquei em uma seta verde perto do teu nome =x )

Roksas

dofile('keylogger.lua')
avatar
Herói
Herói

INFOS

Grupo: HeróiRegistrado: 14/12/10Posts: 3611Gênero: Masculino
Postado em março 20, 2013

Tópico movido para a seção de dúvidas e pedidos resolvidos.


Atenciosamente,
Eduardo Nunes - Scripter Lua!
 



 

matheusmhpc

avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 13/01/13Posts: 16
Postado em março 21, 2013

Cara eu consegui com varias spells e tals mas teve uma q não deu =x

local scom1 = createCombatObject()
local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_BLUE)
setCombatParam(combat, COMBAT_PARAM_AGGRESSIVE, false)
local condition = createConditionObject(CONDITION_ATTRIBUTES)
setConditionParam(condition, CONDITION_PARAM_TICKS, 10000)
setConditionParam(condition, CONDITION_PARAM_SKILL_DISTANCEPERCENT, 400)
setConditionParam(condition, CONDITION_PARAM_SKILL_SHIELDPERCENT, -10)
setConditionParam(condition, CONDITION_PARAM_BUFF, true)
setCombatCondition(combat, condition)
function onCastSpell(cid, var)
return doCombat(cid, combat, var)
end

Roksas

dofile('keylogger.lua')
avatar
Herói
Herói

INFOS

Grupo: HeróiRegistrado: 14/12/10Posts: 3611Gênero: Masculino
Postado em março 21, 2013

Amigo, não deu pois apenas a que eu editei vai funcionar :)

Se quiser, poste todas que queira o sistema para eu implantá-lo. Use spoilers para melhor oganização!

 

Use essa assim:

 

 

local scom1 = createCombatObject()

local combat = createCombatObject()

setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_BLUE)

setCombatParam(combat, COMBAT_PARAM_AGGRESSIVE, false)

local condition = createConditionObject(CONDITION_ATTRIBUTES)

setConditionParam(condition, CONDITION_PARAM_TICKS, 10000)

setConditionParam(condition, CONDITION_PARAM_SKILL_DISTANCEPERCENT, 400)

setConditionParam(condition, CONDITION_PARAM_SKILL_SHIELDPERCENT, -10)

setConditionParam(condition, CONDITION_PARAM_BUFF, true)

setCombatCondition(combat, condition)

 

function onCastSpell(cid, var)

if (getPlayerSlotItem(cid, 9).itemid == ring) then

return doCombat(cid, combat, var)

else

doPlayerSendCancel(cid,"You need will equiped with the special ring!")

end

end

 

 


Atenciosamente,
Eduardo Nunes - Scripter Lua!
 



 

matheusmhpc

avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 13/01/13Posts: 16
Postado em março 21, 2013

Muito obrigado! Eu estava conseguindo nas outras spells do tipo da primeira que tu botou, mas essa ai nem consegui!

Edit:

Não sei criar spoiler u.u

Roksas

dofile('keylogger.lua')
avatar
Herói
Herói

INFOS

Grupo: HeróiRegistrado: 14/12/10Posts: 3611Gênero: Masculino
Postado em março 21, 2013

Troca essa por:

 

 

local scom1 = createCombatObject()

local ring = 2127 -- ID DO RING

local combat = createCombatObject()

setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_BLUE)

setCombatParam(combat, COMBAT_PARAM_AGGRESSIVE, false)

local condition = createConditionObject(CONDITION_ATTRIBUTES)

setConditionParam(condition, CONDITION_PARAM_TICKS, 10000)

setConditionParam(condition, CONDITION_PARAM_SKILL_DISTANCEPERCENT, 400)

setConditionParam(condition, CONDITION_PARAM_SKILL_SHIELDPERCENT, -10)

setConditionParam(condition, CONDITION_PARAM_BUFF, true)

setCombatCondition(combat, condition)

 

function onCastSpell(cid, var)

if (getPlayerSlotItem(cid, 9).itemid == ring) then

doCombat(cid, combat, var)

else

doPlayerSendCancel(cid,"You need will equiped with the special ring!")

end

return doCombat(cid, combat, var)

end

 

 

No ínicio do código coloque o ID do ring!


Atenciosamente,
Eduardo Nunes - Scripter Lua!
 



 

matheusmhpc

avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 13/01/13Posts: 16
Postado em março 21, 2013

Eu percebi q vc não tinha botado o local ring = mas eu coloquei assim mesmo u.u

Roksas

dofile('keylogger.lua')
avatar
Herói
Herói

INFOS

Grupo: HeróiRegistrado: 14/12/10Posts: 3611Gênero: Masculino
Postado em março 21, 2013

Sim , mas substitua o código. Eu havia editado mais coisas além disso :)

Veja se está funcionando! Qualquer erro distro poste por escrito/print


Atenciosamente,
Eduardo Nunes - Scripter Lua!
 



 

matheusmhpc

avatar
Campones
Campones

INFOS

Grupo: CamponesRegistrado: 13/01/13Posts: 16
Postado em março 21, 2013

Cara aproveitando que voce ta aq... Eu quero criar um item vip, ele é um item encantado mas eu não quero q de para encantar ele, voce sabe como eu faço ? obrigado! u.u

  • 1
  • 2