Solved Need time on this spell

[Matheus Vieira]

Hello guys, i need a time on this spell, after 30 sec, all the creatures die

function onCastSpell(cid, var)
if #getCreatureSummons(cid) < 1 then
for x = 1, 1 do
m = doSummonCreature("Demon", getThingPos(cid))
doConvinceCreature(cid, m)
end
doSendMagicEffect(getThingPos(cid), CONST_ME_MAGIC_BLUE)
else
doPlayerSendCancel(cid, "You already summoned monsters.")
doSendMagicEffect(getThingPos(cid), CONST_ME_POFF)
return false
end
return true
end

 

[owned]

Hello guys, i need a time on this spell, after 30 sec, all the creatures die

function onCastSpell(cid, var)
if #getCreatureSummons(cid) < 1 then
for x = 1, 1 do
m = doSummonCreature("Demon", getThingPos(cid))
doConvinceCreature(cid, m)
end
doSendMagicEffect(getThingPos(cid), CONST_ME_MAGIC_BLUE)
else
doPlayerSendCancel(cid, "You already summoned monsters.")
doSendMagicEffect(getThingPos(cid), CONST_ME_POFF)
return false
end
return true
end

Give this a try, let me know if there's any issues.

local function removeSummons(cid,summons)
    if isCreature(cid) then
        if #summons > 0 then
            for i, v in ipairs(summons) do
                doRemoveCreature(v)
            end  
        end      
    end
end

function onCastSpell(cid, var)
local summons = getCreatureSummons(cid)
    if #summons < 1 then
        for x = 1, 1 do
        m = doSummonCreature("Demon", getThingPos(cid))
            doConvinceCreature(cid, m)
        end
        doSendMagicEffect(getThingPos(cid), CONST_ME_MAGIC_BLUE)
        addEvent(removeSummons, 30000, cid, summons)
    else
        doPlayerSendCancel(cid, "You already summoned monsters.")
        doSendMagicEffect(getThingPos(cid), CONST_ME_POFF)
    return false
    end
return true
end

 

[Matheus Vieira]

didnt work man

 

[owned]

didnt work man

Would you like to elaborate, or would you like no further help?

 

[Tarek]

@Matheus Vieira Say your TFS version so Owned can help you.

 

[Matheus Vieira]

please, i still need help. =) TFS 0.4

 

[owned]

please, i still need help. =) TFS 0.4

Elaborate, meaning what's not working, Are there any errors?

 

[Matheus Vieira]

Nop, no errors in console and the spell summon the creature but do not delete it in 30 sec

 

[owned]

This should work @Matheus Vieira

local function removeSummons(cid)
local summons = getCreatureSummons(cid)
    if #summons > 0 then
        for i, v in ipairs(summons) do
            doRemoveCreature(v)
        end 
    end     
end

function onCastSpell(cid, var)
    if #getCreatureSummons(cid) < 1 then
        addEvent(removeSummons, 30000, cid)
        for x = 1, 1 do
        m = doSummonCreature("Demon", getThingPos(cid))
            doConvinceCreature(cid, m)
        end
        doSendMagicEffect(getThingPos(cid), CONST_ME_MAGIC_BLUE)
    else
        doPlayerSendCancel(cid, "You already summoned monsters.")
        doSendMagicEffect(getThingPos(cid), CONST_ME_POFF)
    return false
    end
return true
end

 

[Matheus Vieira]

great, work fine. can i ask you one more thing?
send magic effect 66 when the creature die ?

 

[owned]

great, work fine. can i ask you one more thing?
send magic effect 66 when the creature die ?

When they creature dies or when you remove the creatures?

 

[Matheus Vieira]

when remove, sry

 

[owned]

when remove, sry

local function removeSummons(cid)
local summons = getCreatureSummons(cid)
    if #summons > 0 then
        for i, v in ipairs(summons) do
            doRemoveCreature(v)
            doSendMagicEffect(getCreaturePosition(v), 66)
        end
    end    
end

function onCastSpell(cid, var)
    if #getCreatureSummons(cid) < 1 then
        addEvent(removeSummons, 30000, cid)
        for x = 1, 1 do
        m = doSummonCreature("Demon", getThingPos(cid))
            doConvinceCreature(cid, m)
        end
        doSendMagicEffect(getThingPos(cid), CONST_ME_MAGIC_BLUE)
    else
        doPlayerSendCancel(cid, "You already summoned monsters.")
        doSendMagicEffect(getThingPos(cid), CONST_ME_POFF)
    return false
    end
return true
end

 

[Matheus Vieira]

now we get a error:
http://prntscr.com/70if1e

 

[owned]

Switch doRemoveCreature and doSendMagicEffect around

 

[Matheus Vieira]

work fine man, thx again =)

 

[Tarek]

Change prefix to solved.