local range = 5 -- set to -1 for unlimited
local exhaust = createConditionObject(CONDITION_EXHAUST)
setConditionParam(exhaust, CONDITION_PARAM_TICKS, 3000)
local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_PHYSICALDAMAGE)
setCombatParam(combat, COMBAT_PARAM_BLOCKARMOR, true)
setCombatParam(combat, COMBAT_PARAM_DISTANCEEFFECT, CONST_ANI_ETHEREALSPEAR)
function onGetFormulaValues(cid, level, skill, attack, factor)
return -(((skill + 25) / 3) + (level / 5)), -((skill + 25) + (level / 5))
end
setCombatCallback(combat, CALLBACK_PARAM_SKILLVALUE, "onGetFormulaValues")
function canThrowObjectTo(fromPos, toPos, checkLineOfSight, rangex, rangey)
local checkLineOfSight, rangex, rangey = checkLineOfSight == nil and true or checkLineOfSight, rangex or 7, rangey or 5
--z checks
--underground 8->15
--ground level and above 7->0
if((fromPos.z >= 8 and toPos.z < 8) or (toPos.z >= 8 and fromPos.z < 8) or fromPos.z - fromPos.z > 2) then
return false
end
local deltax, deltay, deltaz = math.abs(fromPos.x - toPos.x), math.abs(fromPos.y - toPos.y), math.abs(fromPos.z - toPos.z)
if(deltax - deltaz > rangex or deltay - deltaz > rangey) then
return false
end
if(not checkLineOfSight) then
return true
end
return isSightClear(fromPos, toPos, false)
end
function checkSightLine(fromPos, toPos)
local start = fromPos
local _end = toPos
local x, y, z, dx, dy, dz, sx, sy, sz, ey, ez, max, dir = nil, nil, nil, math.abs(start.x - _end.x), math.abs(start.y - _end.y), math.abs(start.z - _end.z), nil, nil, nil, nil, nil, nil, 0
max = dx
if(dy > max) then
max = dy
dir = 1
end
if(dz > max) then
max = dz
dir = 2
end
if(dir == 1) then
-- x -> y
-- y -> x
-- z -> z
start.x, start.y = start.y, start.x
_end.x, _end.y = _end.y, _end.x
dy, dy = dy, dx
elseif(dir == 2) then
-- x -> z
-- y -> y
-- z -> x
start.x, start.z = start.z, start.x
_end.x, _end.z = _end.z, _end.x
dx, dz = dz, dx
end
sx = ((start.x < _end.x) and 1 or -1)
sy = ((start.y < _end.y) and 1 or -1)
sz = ((start.z < _end.z) and 1 or -1)
ey, ez = 0, 0
x = start.x
y = start.y
z = start.z
local lastrx, lastry, lastrz = 0, 0, 0
while(x ~= _end.x + sx) do
local rx, ry, rz = nil, nil, nil
if(dir == 1) then
rx, ry, rz = y, x, z
elseif(dir == 1) then
rx, ry, rz = z, y, x
else
rx, ry, rz = x, y, z
end
if(not lastrx and not lastry and not lastrz) then
lastrx = rx
lastry = ry
lastrz = rz
end
if(lastrz ~= rz or ((toPos.x ~= rx or toPos.y ~= ry or toPos.z ~= rz) and (fromPos.x ~= rx or fromPos.y ~= ry or fromPos.z ~= rz))) then
if(lastrz ~= rz and getTileThingByPos({x = lastrx, y = lastry, z = math.min(lastrz, rz), stackpos = 0}).uid > 0) then
return false
end
lastrx, lastry, lastrz = rx, ry, rz
local tile = getTileThingByPos({x = rx, y = ry, z = rz, stackpos = 0}).uid
if(tile > 0 and hasProperty(tile, CONST_PROP_BLOCKPROJECTILE)) then
return false
end
end
ey = ey + dy
ez = ez + dz
if(2 * ey >= dx) then
y = y + sy;
ey = ey - dx;
end
if(2 * ez >= dx) then
z = z + sz;
ez = ez - dx;
end
x = x + sx
end
return true
end
function isSightClear(fromPos, toPos, floorCheck)
if(floorCheck and fromPos.z ~= toPos.z) then
return false
end
-- Cast two converging rays and see if either yields a result.
return checkSightLine(fromPos, toPos)
end
function onUse(cid, item, fromPosition, itemEx, toPosition)
if getPlayerMana(cid) >= 20 then
if not hasCondition(cid, CONDITION_EXHAUST) then
local target = getCreatureTarget(cid)
if target > 0 then
if getPlayerSlotItem(cid, CONST_SLOT_AMMO).itemid == 2543 then
local fromPos = getThingPos(cid)
local toPos = getThingPos(target)
local v = (not(fromPos.z ~= toPos.z or (range == -1 and not canThrowObjectTo(fromPos, toPos, true)) or (range ~= -1 and not canThrowObjectTo(fromPos, toPos, true, range, range))))
if v then
doAddCondition(cid, exhaust)
doRemoveItem(getPlayerSlotItem(cid, CONST_SLOT_AMMO).uid, 1)
doPlayerAddSkillTry(cid, SKILL_DISTANCE, 1)
return doCombat(cid, combat, numberToVariant(target))
else
return doPlayerSendDefaultCancel(cid, isPlayer(target) and RETURNVALUE_PLAYERISNOTREACHABLE or RETURNVALUE_CREATUREISNOTREACHABLE)
end
else
return doPlayerSendCancel(cid, 'You don\'t have any ammunition.')
end
else
return doPlayerSendDefaultCancel(cid, RETURNVALUE_YOUCANONLYUSEITONCREATURES)
end
else
return doPlayerSendDefaultCancel(cid, RETURNVALUE_YOUAREEXHAUSTED)
end
else
return doPlayerSendDefaultCancel(cid, RETURNVALUE_NOTENOUGHMANA)
end
end
