ye see this
do not kopy
-- =============== COMBAT VARS ===============
-- Areas/Combat for 0ms
local combat0_NewItem27181 = createCombatObject()
setCombatParam(combat0_NewItem27181, COMBAT_PARAM_EFFECT, CONST_ME_DRAWBLOOD)
setCombatParam(combat0_NewItem27181, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE)
setCombatArea(combat0_NewItem27181,createCombatArea({{0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1},
{0, 0, 1, 0, 0, 0, 0, 0, 0, 1, 0},
{0, 0, 1, 1, 0, 0, 0, 0, 1, 0, 0},
{0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0},
{0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0},
{0, 0, 1, 1, 1, 2, 1, 1, 1, 0, 0},
{0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0},
{0, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0},
{0, 0, 1, 0, 0, 0, 0, 0, 1, 0, 0},
{0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0},
{1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1}}))
function getDmg_NewItem27181(cid, level, maglevel)
return (1500)*-1,(3000)*-1
end
setCombatCallback(combat0_NewItem27181, CALLBACK_PARAM_LEVELMAGICVALUE, "getDmg_NewItem27181")local combat0_NewItem28353 = createCombatObject()
setCombatParam(combat0_NewItem28353, COMBAT_PARAM_EFFECT, CONST_ME_HITAREA)
setCombatParam(combat0_NewItem28353, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE)
setCombatArea(combat0_NewItem28353,createCombatArea({{1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 0},
{1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1},
{1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1},
{1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1},
{1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1},
{1, 0, 0, 0, 0, 2, 0, 0, 0, 0, 1},
{1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1},
{1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1},
{1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1},
{1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1},
{0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0}}))
function getDmg_NewItem28353(cid, level, maglevel)
return (1500)*-1,(3000)*-1
end
setCombatCallback(combat0_NewItem28353, CALLBACK_PARAM_LEVELMAGICVALUE, "getDmg_NewItem28353")local combat0_NewItem60540 = createCombatObject()
setCombatParam(combat0_NewItem60540, COMBAT_PARAM_EFFECT, CONST_ME_HITBYPOISON)
setCombatParam(combat0_NewItem60540, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE)
setCombatArea(combat0_NewItem60540,createCombatArea({{0, 0, 1, 0, 1, 0, 1},
{0, 0, 0, 1, 0, 1, 0},
{0, 0, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 0, 0},
{0, 0, 0, 2, 0, 0, 0},
{0, 0, 0, 0, 0, 0, 0},
{0, 0, 0, 0, 0, 0, 0},
{0, 1, 0, 1, 0, 1, 0},
{1, 0, 1, 0, 1, 0, 1}}))
function getDmg_NewItem60540(cid, level, maglevel)
return (1500)*-1,(3000)*-1
end
setCombatCallback(combat0_NewItem60540, CALLBACK_PARAM_LEVELMAGICVALUE, "getDmg_NewItem60540")local combat0_NewItem93803 = createCombatObject()
setCombatParam(combat0_NewItem93803, COMBAT_PARAM_EFFECT, CONST_ME_LOSEENERGY)
setCombatParam(combat0_NewItem93803, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE)
setCombatArea(combat0_NewItem93803,createCombatArea({{1, 0, 0, 0, 1, 0, 1, 0, 0},
{1, 0, 0, 1, 0, 1, 0, 0, 1},
{1, 0, 0, 0, 0, 0, 0, 0, 1},
{1, 0, 0, 0, 0, 0, 0, 0, 1},
{1, 0, 0, 0, 2, 0, 0, 0, 1},
{1, 0, 0, 0, 0, 0, 0, 0, 1},
{1, 0, 0, 0, 0, 0, 0, 0, 1},
{1, 0, 0, 1, 0, 1, 0, 0, 1},
{0, 0, 1, 0, 1, 0, 1, 0, 0}}))
function getDmg_NewItem93803(cid, level, maglevel)
return (1500)*-1,(3000)*-1
end
setCombatCallback(combat0_NewItem93803, CALLBACK_PARAM_LEVELMAGICVALUE, "getDmg_NewItem93803")
-- Areas/Combat for 300ms
local combat3_NewItem27181 = createCombatObject()
setCombatParam(combat3_NewItem27181, COMBAT_PARAM_EFFECT, CONST_ME_DRAWBLOOD)
setCombatParam(combat3_NewItem27181, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE)
setCombatArea(combat3_NewItem27181,createCombatArea({{1, 1, 1, 0, 0, 0, 0, 0, 1, 1, 1},
{1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1},
{1, 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, 0, 0},
{0, 0, 0, 0, 0, 2, 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},
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1},
{0, 0, 0, 0, 0, 0, 0, 0, 1, 1, 1}}))
function getDmg_NewItem27181(cid, level, maglevel)
return (1500)*-1,(3000)*-1
end
setCombatCallback(combat3_NewItem27181, CALLBACK_PARAM_LEVELMAGICVALUE, "getDmg_NewItem27181")local combat3_NewItem28353 = createCombatObject()
setCombatParam(combat3_NewItem28353, COMBAT_PARAM_EFFECT, CONST_ME_HITAREA)
setCombatParam(combat3_NewItem28353, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE)
setCombatArea(combat3_NewItem28353,createCombatArea({{0, 0, 0, 1, 1},
{0, 0, 0, 0, 1},
{0, 0, 0, 0, 0},
{0, 0, 0, 0, 0},
{2, 0, 0, 0, 0},
{0, 0, 0, 0, 0},
{0, 0, 0, 0, 0},
{0, 0, 0, 0, 1},
{0, 0, 0, 1, 1}}))
function getDmg_NewItem28353(cid, level, maglevel)
return (1500)*-1,(3000)*-1
end
setCombatCallback(combat3_NewItem28353, CALLBACK_PARAM_LEVELMAGICVALUE, "getDmg_NewItem28353")local combat3_NewItem93803 = createCombatObject()
setCombatParam(combat3_NewItem93803, COMBAT_PARAM_EFFECT, CONST_ME_LOSEENERGY)
setCombatParam(combat3_NewItem93803, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE)
setCombatArea(combat3_NewItem93803,createCombatArea({{0, 0, 1, 0},
{0, 0, 0, 0},
{2, 0, 0, 0},
{0, 0, 0, 0},
{0, 0, 0, 0},
{0, 0, 0, 1}}))
function getDmg_NewItem93803(cid, level, maglevel)
return (1500)*-1,(3000)*-1
end
setCombatCallback(combat3_NewItem93803, CALLBACK_PARAM_LEVELMAGICVALUE, "getDmg_NewItem93803")local combat3_NewItem60540 = createCombatObject()
setCombatParam(combat3_NewItem60540, COMBAT_PARAM_EFFECT, CONST_ME_HITBYPOISON)
setCombatParam(combat3_NewItem60540, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE)
setCombatArea(combat3_NewItem60540,createCombatArea({{0, 0, 0, 1},
{0, 0, 0, 0},
{0, 0, 0, 0},
{2, 0, 0, 0}}))
function getDmg_NewItem60540(cid, level, maglevel)
return (1500)*-1,(3000)*-1
end
setCombatCallback(combat3_NewItem60540, CALLBACK_PARAM_LEVELMAGICVALUE, "getDmg_NewItem60540")
-- =============== CORE FUNCTIONS ===============
local function RunPart(c,cid,var,dirList,dirEmitPos) -- Part
if (isCreature(cid)) then
doCombat(cid, c, var)
if (dirList ~= nil) then -- Emit distance effects
local i = 2;
while (i < #dirList) do
doSendDistanceShoot(dirEmitPos,{x=dirEmitPos.x-dirList
,y=dirEmitPos.y-dirList[i+1],z=dirEmitPos.z},dirList[1])
i = i + 2
end
end
end
end
function onCastSpell(cid, var)
local startPos = getCreaturePosition(cid)
RunPart(combat0_NewItem27181,cid,var)
RunPart(combat0_NewItem28353,cid,var)
RunPart(combat0_NewItem60540,cid,var)
RunPart(combat0_NewItem93803,cid,var)
addEvent(RunPart,300,combat3_NewItem27181,cid,var)
addEvent(RunPart,300,combat3_NewItem28353,cid,var)
addEvent(RunPart,300,combat3_NewItem93803,cid,var)
addEvent(RunPart,300,combat3_NewItem60540,cid,var)
return true
end
- - - Updated - - -
PLease the server must go online with this spells please
Add me on msn or skype
Msn:[email protected]
Skype:GhostgertjanGhost