• There is NO official Otland's Discord server and NO official Otland's server list. The Otland's Staff does not manage any Discord server or server list. Moderators or administrator of any Discord server or server lists have NO connection to the Otland's Staff. Do not get scammed!

Spell [TFS 1.x] Summon: Hate

BboyChaos

Member
Joined
May 20, 2014
Messages
10
Reaction score
7
Causes targeted monster to aggro the players summon.

Code:
local combat = Combat()
combat:setParameter(COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_BLUE)
combat:setParameter(COMBAT_PARAM_AGGRESSIVE, 0)

function onCastSpell(cid, var)

  local player = Player(cid)
  local player_summon = Player(cid):getSummons()

  if not next(player_summon) then
    player:getPosition():sendMagicEffect(CONST_ME_POFF)
    player:sendCancelMessage("You don't have any summons.")
    return false
  end

  for i = 1, #player_summon, +1
  do
    doChallengeCreature(player_summon[i], player:getTarget())
    player_summon[i]:getPosition():sendMagicEffect(CONST_ME_MAGIC_RED)
    player:getTarget():getPosition():sendMagicEffect(CONST_ME_MAGIC_RED)
    return true
  end

  return doCombat(cid, combat, var)
end
 
Hey Bboy
Do you know how does a spell that summon a monster in specific? And convinces him too
 
Xeraphus, this is my code.
How do I convince a summoned creature, in that code?

local combat = createCombatObject()
setCombatParam(combat, COMBAT_PARAM_TYPE, COMBAT_NONE)
setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_SMALLPLANTS)

local area = createCombatArea(AREA_CROSS1X1)
setCombatArea(combat, area)


local maxsummons = 2

function onCastSpell(cid, var)
doCreatureSay(cid, "Watch my Tree!", TALKTYPE_ORANGE_1)
local summoncount = getCreatureSummons(cid)
if #summoncount < 1 then
for i = 1, maxsummons - #summoncount do
local mid = doSummonCreature("Poison Plant", getCreaturePosition(cid))
if mid == false then
return false
end
doConvinceCreature(cid, mid)

end
end
return doCombat(cid, combat, var)
end
 
Code:
local combat = Combat()
combat:setParameter(COMBAT_PARAM_TYPE, COMBAT_NONE)
combat:setParameter(COMBAT_PARAM_EFFECT, CONST_ME_SMALLPLANTS)
combat:setArea(createCombatArea(AREA_CROSS1X1))

local maxsummons = 2

function onCastSpell(creature, variant)
    local summoncount = creature:getSummons()
    local pos = creature:getPosition()
    if #summoncount < maxsummons then
        for i = 1, maxsummons - #summoncount do
            local summon = Game.createMonster("Poison Plant", pos)
            if summon then
                summon:setMaster(creature)
            end
        end
    end
    creature:say("Watch my Tree!", TALKTYPE_MONSTER_SAY)
    return combat:execute(creature, variant)
end
 
Convince Dont Work :c
16128824_1215343498572992_645553144_n.png
 
Causes targeted monster to aggro the players summon.

Code:
local combat = Combat()
combat:setParameter(COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_BLUE)
combat:setParameter(COMBAT_PARAM_AGGRESSIVE, 0)

function onCastSpell(cid, var)

  local player = Player(cid)
  local player_summon = Player(cid):getSummons()

  if not next(player_summon) then
    player:getPosition():sendMagicEffect(CONST_ME_POFF)
    player:sendCancelMessage("You don't have any summons.")
    return false
  end

  for i = 1, #player_summon, +1
  do
    doChallengeCreature(player_summon[i], player:getTarget())
    player_summon[i]:getPosition():sendMagicEffect(CONST_ME_MAGIC_RED)
    player:getTarget():getPosition():sendMagicEffect(CONST_ME_MAGIC_RED)
    return true
  end

  return doCombat(cid, combat, var)
end

Amazing idea.
 
Back
Top