Dos Spells new

Este es el primero: Storm Gust


[codigo]
local arr =
{
{
{1, 0, 1, 0, 1},
{0, 1, 0, 1, 0},
{1, 0, 3, 0, 1},
{0, 1, 0, 1, 0},
{1, 0, 1, 0, 1}
},
{
{0, 1, 0, 1, 0},
{1, 0, 1, 0, 1},
{0, 1, 3, 1, 0},
{1, 0, 1, 0, 1},
{0, 1, 0, 1, 0}
},
{
{1, 1, 1, 1, 1},
{1, 1, 1, 1, 1},
{1, 1, 3, 1, 1},
{1, 1, 1, 1, 1},
{1, 1, 1, 1, 1}
}
}

local effect, combat = {CONST_ME_ICEATTACK, CONST_ME_ICEATTACK, CONST_ME_ICEAREA}, {}

local function tileChecker(pos)
local myTable = {}
if (type(pos) == 'table') then
for i = 1, 5 do
pos.stackpos = i
local Thing = getThingFromPos(pos)
local thisID, thisUID = Thing.itemid, Thing.uid
if thisID > 1 then
table.insert(myTable, thisUID)
end
end
end
return #myTable > 0 and myTable or nil
end

local function MoveAgain(p)
if isPlayer(p.player) == TRUE then
doPlayerSetNoMove(p.player, FALSE)
end
end

local function GetPosToPush(cid, pos)
local nPos = {
[0]={x=pos.x, y=pos.y-1, z=pos.z},
[1]={x=pos.x+1, y=pos.y, z=pos.z},
[2]={x=pos.x, y=pos.y+1, z=pos.z},
[3]={x=pos.x-1, y=pos.y, z=pos.z}}
return nPos[getPlayerLookDir(cid)]
end

function onTargetTile(cid, pos)
pos.stackpos = 253
local player = getThingFromPos(pos).uid
if isPlayer(player) == TRUE then
if math.random(1, 2) == 1 then
doPlayerSetNoMove(player, TRUE)
addEvent(MoveAgain, 2000, {player=player})
else
if cid ~= player then
local P = GetPosToPush(player, pos)
local tileItems, count = tileChecker(P) or {}, 0
if #tileItems > 0 then
for _, i in ipairs(tileItems) do
if getTilePzInfo(P) == false then
if (hasProperty(i, CONST_PROP_BLOCKSOLID) == FALSE)then
count = count + 1
end
end
end
end
if count == #tileItems then
doTeleportThing(player, P, TRUE)
end
tileItems, count = {}, 0
end
end
end
return TRUE
end

for i = 1, 3 do
combat[i] = createCombatObject()
setCombatParam(combat[i], COMBAT_PARAM_EFFECT, effect[i])
setCombatArea(combat[i], createCombatArea(arr[i]))
_G["onTargetTile" .. i] = onTargetTile
setCombatCallback(combat[i], CALLBACK_PARAM_TARGETTILE, "onTargetTile" .. i)
end

local function Spell(x)
doCombat(x.cid, combat[x.i], x.var)
end

function onCastSpell(cid, var)
for i = 1, 3 do
addEvent(Spell, 500 * i, {cid=cid, var=var, i=i})
end
return TRUE
end
[/codigo]


Este es el segundo:Aura strike.
[codigo]
local function getDamage(cid)
min = (getPlayerLevel(cid) * 1 + getPlayerMagLevel(cid) * 1) * 0.6
max = (getPlayerLevel(cid) * 1 + getPlayerMagLevel(cid) * 1) * 1
return math.random(min, max)
end

local function efecto(x)
local P, C = getCreaturePosition(x.cid), 0
local From =
{
{x = P.x + 2, y = P.y, z = P.z},
{x = P.x, y = P.y - 2, z = P.z},
{x = P.x - 2, y = P.y, z = P.z},
{x = P.x, y = P.y + 2, z = P.z},
{x = P.x - 1, y = P.y - 1, z = P.z},
{x = P.x - 1, y = P.y + 1, z = P.z},
{x = P.x + 1, y = P.y + 1, z = P.z},
{x = P.x + 1, y = P.y - 1, z = P.z}
}
local To = {2, 3, 4, 1, 6, 7, 8, 5}
repeat
for i = 1, (#From / 2) do
local dmg = getDamage(x.cid)
local to, f = From[To[i]], (C % 2 == 1) and true or false
doSendDistanceShoot(From[i], to, CONST_ANI_SMALLICE)
if f then doAreaCombatHealth(x.cid, COMBAT_ICEDAMAGE, to, 0, -(dmg / 2), -dmg, CONST_ME_ICEATTACK) end
i = i + (#From / 2)
local to = From[To[i]]
doSendDistanceShoot(From[i], to, CONST_ANI_SMALLHOLY)
if f then doAreaCombatHealth(x.cid, COMBAT_HOLYDAMAGE, to, 0, -1, -getDamage(x.cid), CONST_ME_HOLYDAMAGE) end
end
C = C + 1
until C == 10
end

function onCastSpell(cid, var)
for i = 1, 5 do
addEvent(efecto, i * 400, {cid = cid})
end
return TRUE
end
[/codigo]
Creditos: 50% Sismo - Helpserver 50% Darksys (God Shaotick)

Nadie ve los spell :S

O.o Los Provare ahora, ahorita toy ocupado Deben ser bueno

Buen Post