[weapon]Multitarget wand 'star shoter'

hyld · May 7, 2013

hyld said:
He just attack one monster here. Just I having this problem ?

This happened to someone ? my server is 8.7 tfs 0.4 trunk.r4382, no errors occurred just no atk another monsters.

Frikx · May 9, 2013

Ohhhhhh i like it!!!

Advent · May 9, 2013

2008

LucasFerraz · May 10, 2013

I will fix

- - - Updated - - -

Lua:

local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_BLOCKARMOR, 0)
setCombatParam(combat, COMBAT_PARAM_BLOCKSHIELD, 0)
setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_HOLYDAMAGE)
setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_HOLYDAMAGE)
setCombatParam(combat, COMBAT_PARAM_DISTANCEEFFECT, CONST_ANI_HOLY)
setCombatFormula(combat, COMBAT_FORMULA_LEVELMAGIC, -0.2, -25, -0.2, -3)

local manaNeededPerTarget = 20
local hitExtraTargets = 3
local hitExtraTargetsInRange = 2

function getCreaturesInRange(position, radiusx, radiusy, showMonsters, showPlayers)
    local creaturesList = {}
    for x = -radiusx, radiusx do
        for y = -radiusy, radiusy do
            if not (x == 0 and y == 0) then
                creature = getTopCreature({x = position.x+x, y = position.y+y, z = position.z, stackpos = STACKPOS_TOP_CREATURE})
                if (creature.type == 1 and showPlayers == 1) or (creature.type == 2 and showMonsters == 1) then
                    table.insert(creaturesList, creature.uid)
                end
            end
        end
    end
    return creaturesList
end

function onUseWeapon(cid, var)
    local ret = doCombat(cid, combat, var)
    if(ret == LUA_ERROR) then
        return LUA_ERROR
    end
    doPlayerAddManaSpent(cid, manaNeededPerTarget)
    doCreatureAddMana(cid, -manaNeededPerTarget)
    
    local target = variantToNumber(var)
    local hitplayers = 0
    if(target ~= 0) then
        if(isPlayer(target) == TRUE) then
            hitplayers = 1
        end
        local nowHit = 0
        local randomId = 0
        local otherTargets = getCreaturesInRange(getCreaturePosition(target), hitExtraTargetsInRange, hitExtraTargetsInRange, 1, hitplayers)
        if(#otherTargets > 0) then
            for i = 1, hitExtraTargets do
                if(getCreatureMana(cid) > manaNeededPerTarget) then
                    randomId = math.random(1, #otherTargets)
                    nowHit = otherTargets[randomId]
                    if((isCreature(nowHit) == TRUE) and getTilePzInfo(getCreaturePosition(target))) then
                        table.remove(otherTargets, randomId)
                        ret = doCombat(cid, combat, numberToVariant(nowHit))
                        if(ret ~= LUA_ERROR) then
                            doPlayerAddManaSpent(cid, manaNeededPerTarget)
                            doCreatureAddMana(cid, -manaNeededPerTarget)
                        end
                    end
                    if(#otherTargets == 0) then
                        break
                    end
                else
                    break
                end
            end
        end
    end
    return TRUE
end

It is protected so you cant shoot players in depot

player 1 stands outside depot with this wand
player 2 stands outside as an sacrefiece
player 3 stands inside depot

player 1 shoots player 2, and the damage doesnt bumps over to player 3 which is inside depot.

JohnColner · May 10, 2013

true creditos --'

[WEAPON] Wand Multi Target

hyld · May 11, 2013

LucasFerraz said:

I will fix

- - - Updated - - -

Lua:

local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_BLOCKARMOR, 0)
setCombatParam(combat, COMBAT_PARAM_BLOCKSHIELD, 0)
setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_HOLYDAMAGE)
setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_HOLYDAMAGE)
setCombatParam(combat, COMBAT_PARAM_DISTANCEEFFECT, CONST_ANI_HOLY)
setCombatFormula(combat, COMBAT_FORMULA_LEVELMAGIC, -0.2, -25, -0.2, -3)

local manaNeededPerTarget = 20
local hitExtraTargets = 3
local hitExtraTargetsInRange = 2

function getCreaturesInRange(position, radiusx, radiusy, showMonsters, showPlayers)
    local creaturesList = {}
    for x = -radiusx, radiusx do
        for y = -radiusy, radiusy do
            if not (x == 0 and y == 0) then
                creature = getTopCreature({x = position.x+x, y = position.y+y, z = position.z, stackpos = STACKPOS_TOP_CREATURE})
                if (creature.type == 1 and showPlayers == 1) or (creature.type == 2 and showMonsters == 1) then
                    table.insert(creaturesList, creature.uid)
                end
            end
        end
    end
    return creaturesList
end

function onUseWeapon(cid, var)
    local ret = doCombat(cid, combat, var)
    if(ret == LUA_ERROR) then
        return LUA_ERROR
    end
    doPlayerAddManaSpent(cid, manaNeededPerTarget)
    doCreatureAddMana(cid, -manaNeededPerTarget)
    
    local target = variantToNumber(var)
    local hitplayers = 0
    if(target ~= 0) then
        if(isPlayer(target) == TRUE) then
            hitplayers = 1
        end
        local nowHit = 0
        local randomId = 0
        local otherTargets = getCreaturesInRange(getCreaturePosition(target), hitExtraTargetsInRange, hitExtraTargetsInRange, 1, hitplayers)
        if(#otherTargets > 0) then
            for i = 1, hitExtraTargets do
                if(getCreatureMana(cid) > manaNeededPerTarget) then
                    randomId = math.random(1, #otherTargets)
                    nowHit = otherTargets[randomId]
                    if((isCreature(nowHit) == TRUE) and getTilePzInfo(getCreaturePosition(target))) then
                        table.remove(otherTargets, randomId)
                        ret = doCombat(cid, combat, numberToVariant(nowHit))
                        if(ret ~= LUA_ERROR) then
                            doPlayerAddManaSpent(cid, manaNeededPerTarget)
                            doCreatureAddMana(cid, -manaNeededPerTarget)
                        end
                    end
                    if(#otherTargets == 0) then
                        break
                    end
                else
                    break
                end
            end
        end
    end
    return TRUE
end

It is protected so you cant shoot players in depot

player 1 stands outside depot with this wand
player 2 stands outside as an sacrefiece
player 3 stands inside depot

player 1 shoots player 2, and the damage doesnt bumps over to player 3 which is inside depot.

Here i still can`t atk more than 1 target.

HeberPcL · May 11, 2013

There are 2 bugs in the script!

1º Bug

Mikuch said:
it`s bugged :/
if player 1 stand outside pz and player 2 stand in pz
and you attack player 1 the wand attack player 2 in pz too.

Znote said:
Is it protected so you cant shoot players in depot?

player 1 stands outside depot with this wand
player 2 stands outside as an sacrefiece
player 3 stands inside depot

player 1 shoots player 2, and the damage bumps over to player 3 which is inside depot.

2º Bug
in config:

PHP:

local hitExtraTargets = 2
local hitExtraTargetsInRange = 2

Was to attack only 2 players and sometimes attacking 3 players!

hyld · May 12, 2013

Someone fixed the bugs of this wand ?

hyld · May 16, 2013

Is this script fixed yet ?

HeberPcL said:
There are 2 bugs in the script!

1º Bug

2º Bug
in config:

PHP:

local hitExtraTargets = 2 local hitExtraTargetsInRange = 2

Was to attack only 2 players and sometimes attacking 3 players!

LucasFerraz · May 16, 2013

It's still bugged

Gesior.pl · May 16, 2013

Try that:

Lua:

local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_BLOCKARMOR, 0)
setCombatParam(combat, COMBAT_PARAM_BLOCKSHIELD, 0)
setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_HOLYDAMAGE)
setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_HOLYDAMAGE)
setCombatParam(combat, COMBAT_PARAM_DISTANCEEFFECT, CONST_ANI_HOLY)
setCombatFormula(combat, COMBAT_FORMULA_LEVELMAGIC, -0.2, -25, -0.2, -3)

local manaNeededPerTarget = 20
local hitExtraTargets = 2 -- number of extra targets, so it should attack our target + X other monsters/players
local hitExtraTargetsInRange = 2 -- distance to 'extra target' from our target


function onUseWeapon(cid, var)
	local ret = doCombat(cid, combat, var)
	if(ret == LUA_ERROR) then
		return LUA_ERROR
	end
	local manaSpent = manaNeededPerTarget
	local target = variantToNumber(var)
	local hitplayers = false
	if(target ~= 0) then
		if(isPlayer(target)) then
			hitplayers = true
		end
		local otherTargets = getSpectators(getCreaturePosition(target), hitExtraTargetsInRange, hitExtraTargetsInRange, false)
		if(#otherTargets > 0) then
			local i = 1
			while(i ~= #otherTargets) do
				local pid = otherTargets[i]
				if(isNpc(pid) or pid == cid or pid == target or (isPlayer(pid) and (not hitplayers or getTileInfo(getCreaturePosition(pid)).protection))) then
					table.remove(otherTargets, i)
				else
					i = i + 1
				end
			end
		end
		for i = 1, hitExtraTargets do
			if(#otherTargets > 0 and getCreatureMana(cid) >= manaSpent + manaNeededPerTarget) then	
				local randomId = math.random(1, #otherTargets)
				local nowHit = otherTargets[randomId]
				table.remove(otherTargets, randomId)
				ret = doCombat(cid, combat, numberToVariant(nowHit))
				if(ret ~= LUA_ERROR) then
					manaSpent = manaSpent + manaNeededPerTarget
				end
			else
				break
			end
		end
	end
	doPlayerAddSpentMana(cid, manaSpent)
	doCreatureAddMana(cid, -manaSpent)
	return true
end

NOT TESTED, I JUST WROTE IT IN NOTEPAD

HeberPcL · May 16, 2013

Up, Fix

Change doPlayerAddManaSpent to doPlayerAddSpentMana.

LucasFerraz · May 17, 2013

Update main post

HeberPcL · May 17, 2013

2º Bug not fixed... i try
Was to attack only 2 players and sometimes attacking 3 players!

Gesior.pl · May 17, 2013

HeberPcL said:
2º Bug not fixed... i try
Was to attack only 2 players and sometimes attacking 3 players!

View attachment 20697

You set hitExtraTargets = 1 (hit selected target + 1 more) and it hits 3 targets? o0

>> POST NUMBER 1337! <<

JoccE · May 17, 2013

Gesior.pl said:
You set hitExtraTargets = 1 (hit selected target + 1 more) and it hits 3 targets? o0

>> POST NUMBER 1337! <<

! now you should retire and start another account

always stop at the top (1337)

hyld · May 18, 2013

thank you, finally worked here

danek121 · Mar 9, 2015

how to increase the damage?

Limos · Mar 9, 2015

Same as with spells, here.

Code:

setCombatFormula(combat, COMBAT_FORMULA_LEVELMAGIC, -0.2, -25, -0.2, -3)

How it works: https://otland.net/threads/spells-damage.159751/#post-1537893

danek121 · Mar 9, 2015

Thanks for help

[weapon]Multitarget wand 'star shoter'

New Member

Computer Science

Custom RPG Maker

Attachments

Systems Analyst

New Member

New Member

[PowerOT.com.br]

New Member

New Member

Systems Analyst

Mega Noob&LOL 2012

[PowerOT.com.br]

Systems Analyst

[PowerOT.com.br]

Mega Noob&LOL 2012

CopyLeft (ɔ)

New Member

New Member

★

New Member

Similar threads