RO
spell

Magia Chuva De Dinheiro

Por RomarinhoO, 06 de mai. de 2013 em Globalevents e Spells

script
6
2.5k
RomarinhoOR
06 de maio de 2013 às 11:16

Este Script,E Um Tipo De Rain,Mais Quando Cai Ele Faz Tipo Uma Chuva De Dinheiro.Segue O Script

 

Va Em Spells/scripts E Crie Um Arquivo Chamado RainMoney.lua

 

local combat = createCombatObject()

local combat2 = createCombatObject()

local combat3 = createCombatObject()

local combat1 = createCombatObject()

setCombatParam(combat1, COMBAT_PARAM_TYPE, 1)

setCombatParam(combat1, COMBAT_PARAM_CREATEITEM, 2160)

setCombatParam(combat1, COMBAT_PARAM_EFFECT, 1)

 

local combat2 = createCombatObject()

setCombatParam(combat2, COMBAT_PARAM_TYPE, 1)

setCombatParam(combat2, COMBAT_PARAM_CREATEITEM, 2160)

setCombatFormula(combat2, COMBAT_FORMULA_LEVELMAGIC, -0, -0, -0, -0)

 

local combat3 = createCombatObject()

setCombatParam(combat3, COMBAT_PARAM_TYPE, 1)

setCombatParam(combat3, COMBAT_PARAM_CREATEITEM, 2160)

setCombatFormula(combat3, COMBAT_FORMULA_LEVELMAGIC, -0, -0, -0, -0)

 

local stun = createConditionObject(CONDITION_PARALYZE)

setConditionParam(stun, CONDITION_PARAM_TICKS, 0)

setConditionFormula(stun, -0.9, 1, -0.9, 1)

setCombatCondition(combat1, stun)

local stun = createConditionObject(CONDITION_PARALYZE)

setConditionParam(stun, CONDITION_PARAM_TICKS, 0)

setConditionFormula(stun, -0.9, 1, -0.9, 1)

setCombatCondition(combat2, stun)

local stun = createConditionObject(CONDITION_PARALYZE)

setConditionParam(stun, CONDITION_PARAM_TICKS, 0)

setConditionFormula(stun, -0.9, 1, -0.9, 1)

setCombatCondition(combat3, stun)

local meteor_water = createCombatObject()

setCombatParam(meteor_water, COMBAT_PARAM_TYPE, 1)

setCombatParam(meteor_water, COMBAT_PARAM_EFFECT, 1)

setCombatFormula(meteor_water, COMBAT_FORMULA_LEVELMAGIC, -0, -0, -0, -0)

arr = {

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

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

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

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

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

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

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

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

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

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

}

 

local combat_area = createCombatArea(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, 0) == 0) then

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

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

local newpos = {x = pos.x - 9, y = pos.y - 8, z = pos.z}

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

else

local newpos = {x = pos.x - 9, y = pos.y - 8, z = pos.z}

addEvent(meteorCast, 100, {cid = cid,pos = pos, combat = combat2})

end

end

end

function onTargetTile2(cid, pos)

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

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

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

local newpos = {x = pos.x - 9, y = pos.y - 8, z = pos.z}

doSendDistanceShoot(newpos, pos, 28)

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

else

local newpos = {x = pos.x + 9, y = pos.y - 8, z = pos.z}

doSendDistanceShoot(newpos, pos, 28)

addEvent(meteorCast, 100, {cid = cid,pos = pos, combat = combat1})

end

end

end

function onTargetTile3(cid, pos)

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

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

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

local newpos = {x = pos.x - 9, y = pos.y - 8, z = pos.z}

doSendDistanceShoot(newpos, pos, 28)

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

else

local newpos = {x = pos.x + 9, y = pos.y - 8, z = pos.z}

doSendDistanceShoot(newpos, pos, 28)

addEvent(meteorCast, 100, {cid = cid,pos = pos, combat = combat1})

end

end

end

 

setCombatCallback(combat, CALLBACK_PARAM_TARGETTILE, "onTargetTile")

setCombatCallback(combat2, CALLBACK_PARAM_TARGETTILE, "onTargetTile2")

setCombatCallback(combat3, CALLBACK_PARAM_TARGETTILE, "onTargetTile3")

function onCastSpell(cid, var)

doCombat(cid, combat, var)

end

 

 

Em Spells.xml coloque

 

<instant name="Crystal Coins" words="/rainmoney" lvl="" mana="0" prem="1" selftarget="1" exhaustion="0" needlearn="0" script="rainmoney.lua">

<vocation name="None"/>

</instant>

 

Em Vocation Name,Não Mude,Pois Vocatio Nome Quase Em Todos Os Servidor,Players Nao Podem Fazer Esta Vocation,Intao Só GOD Podera Usar

Editado Maio 6 por RomarinhoO

AlphaLoveA
06 de maio de 2013 às 11:54

Serve para eventos, se puder ser usada somente pelo god, pois se por pra player fica zuado demais ^^

 

Vo te da Rep + só por que você é corinthiano, uaeheauh

 

#VaiCurintia !!!

Editado Maio 6 por N4K4MUR4

SamueLGuedesS
06 de maio de 2013 às 12:30

Gostei do script, como o N4K4MUR4 disse, tente colocar só pro God usar esse script. abraços

RomarinhoOR
06 de maio de 2013 às 19:22

Gostei do script, como o N4K4MUR4 disse, tente colocar só pro God usar esse script. abraços

Entao,Quando Você For Colocar Para Ser Spell,Em Vocation Coloca None Que Ninguem Vai Ser Essa Vocação So Se For Global

isac313I
12 de maio de 2013 às 16:31

Cara Muito Bom Esse Spells ele e tipo Do TIBIARPGBRASIL, Seria Uma boa Se voce ponha-se pra cai em lugar diferente

tipo. o GOD fica Parado e ele vai falando e vai caindo em lugares diferente, eu testei aki e vi que so cai no mesmo lugar

fiqua A dica :D

 

REP^+

RomarinhoOR
13 de maio de 2013 às 11:28

Cara Muito Bom Esse Spells ele e tipo Do TIBIARPGBRASIL, Seria Uma boa Se voce ponha-se pra cai em lugar diferente

tipo. o GOD fica Parado e ele vai falando e vai caindo em lugares diferente, eu testei aki e vi que so cai no mesmo lugar

fiqua A dica :D

 

REP^+

No 8.60 que eu testei ficava caindo em lugares diferentes xo testa dnv

 

Cara Muito Bom Esse Spells ele e tipo Do TIBIARPGBRASIL, Seria Uma boa Se voce ponha-se pra cai em lugar diferente

tipo. o GOD fica Parado e ele vai falando e vai caindo em lugares diferente, eu testei aki e vi que so cai no mesmo lugar

fiqua A dica :D

 

REP^+

cara o script ta certo,ele nao fica caindo só em um lugar cai ali < dps ali >