summons!

[Taelk]

i'm using this script:

function onTargetTile(cid, position)
position.stackpos = 255
doConvinceCreature(cid, doCreateMonster("Tammed Bear", position, false))
doSendMagicEffect(position, CONST_ME_MAGIC_BLUE)
return true
end
local arr = {
{0, 0, 0},
{0, 3, 0},
{0, 0, 0},
}
local area, combat = createCombatArea(arr), createCombatObject()
setCombatArea(combat, area)
setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_BLUE)
setCombatCallback(combat, CALLBACK_PARAM_TARGETTILE, "onTargetTile")
function onCastSpell(cid, var)
if #getCreatureSummons(cid) >= 1 then doPlayerSendCancel(cid, "ja existe um summon") return false end
return doCombat(cid, combat, var)
end

it's possible to when player do a new summon, the currently summon die and create the new?

ps: sorry my english and thanks for answers!

 

[Printer]

Test it:

function onTargetTile(cid, position)
position.stackpos = 255
doConvinceCreature(cid, doCreateMonster("Tammed Bear", position, false))
doSendMagicEffect(position, CONST_ME_MAGIC_BLUE)
return true
end
local arr = {
{0, 0, 0},
{0, 3, 0},
{0, 0, 0},
}
local area, combat = createCombatArea(arr), createCombatObject()
setCombatArea(combat, area)
setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_BLUE)
setCombatCallback(combat, CALLBACK_PARAM_TARGETTILE, "onTargetTile")
function onCastSpell(cid, var)
if #getCreatureSummons(cid) >= 1 then 
doRemoveCreature(cid, doCreateMonster)
return doCombat(cid, combat, var)
end

 

[Taelk]

you forgot one "end", anyway...
no errors, but i can't summon.

when i used the spell nothing happened.
ps: no waste mana too.
thanks for help.

ps²: sorry my english.

 

[ahmed30]

function onTargetTile(cid, position)
	position.stackpos = 255
	doConvinceCreature(cid, doCreateMonster("Tammed Bear", position, false))
	doSendMagicEffect(position, CONST_ME_MAGIC_BLUE)
	return true
end
local arr = {
{0, 0, 0},
{0, 3, 0},
{0, 0, 0},
}
local area, combat = createCombatArea(arr), createCombatObject()
setCombatArea(combat, area)
setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_BLUE)
setCombatCallback(combat, CALLBACK_PARAM_TARGETTILE, "onTargetTile")

function onCastSpell(cid, var)
	if #getCreatureSummons(cid) >= 1 then
		local s = getCreatureSummons(cid)
		for _, summoned in ipairs(s) do
			if getCreatureName(summoned) == "Tammed Bear" then
				doRemoveCreature(summoned)
				doCombat(cid, combat, var)
				return true
			end
		end
	else
		doCombat(cid, combat, var)
	end
	return true
end

 

[Taelk]

Heeey!
working perfectly,
thanks a lot!

edit: I realized that it works only with the same monster, but i did add another sumons in script.

 

[ahmed30]

function onTargetTile(cid, position)
	position.stackpos = 255
	doConvinceCreature(cid, doCreateMonster("Tammed Bear", position, false))
	doSendMagicEffect(position, CONST_ME_MAGIC_BLUE)
	return true
end
local arr = {
{0, 0, 0},
{0, 3, 0},
{0, 0, 0},
}
local area, combat = createCombatArea(arr), createCombatObject()
setCombatArea(combat, area)
setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_BLUE)
setCombatCallback(combat, CALLBACK_PARAM_TARGETTILE, "onTargetTile")
 
function onCastSpell(cid, var)
	if #getCreatureSummons(cid) >= 1 then
		local s = getCreatureSummons(cid)
		for _, summoned in ipairs(s) do
			doRemoveCreature(summoned)
			doCombat(cid, combat, var)
			return true
		end
	else
		doCombat(cid, combat, var)
	end
	return true
end

 

[Taelk]

ty!