Party buff spells

• All numbers can be changed
  
• The knight has been given physical protection since 5 shielding would only benefit the blocker and would suck compared with the other team buffs. When having a two handed weapon shielding is also quite useless.
  
• The knight buff hasn't been given magical protection as well since knights have only raw power and don't understand a thing of the complicated magic.
  
• The buff spell of sorcerers could also give 5% magical protection instead of 5 magic levels. A better name would be protection/magical aura then.
  
• Wanted to give the druid buff 25 hp and 25 mana regeneration per second, but the mana regeneration would be heavily abused for rune making rather than hunting.
  
• The mana required is chosen such a way that an unpromoted level 40 can use it in a party of two and every 10 levels you can use with an extra team member.
  Promoted people can use it earlier and/or with more people at a lower level.
  
• Pronunciations are literately taken from tibia

local combat = createCombatObject()
local area = createCombatArea(AREA_CROSS5X5)
setCombatArea(combat, area)
setCombatParam(combat, COMBAT_PARAM_EFFECT, CONST_ME_MAGIC_RED)
setCombatParam(combat, COMBAT_PARAM_AGGRESSIVE, FALSE)

local condition = createConditionObject(CONDITION_ATTRIBUTES)
setConditionParam(condition, CONDITION_PARAM_SUBID, 1)
setConditionParam(condition, CONDITION_PARAM_BUFF, TRUE)
setConditionParam(condition, CONDITION_PARAM_TICKS, 2 * 60 * 1000)
setConditionParam(condition, CONDITION_PARAM_STAT_MAGICLEVEL, 1)

function onCastSpell(cid, var)
local pos = getCreaturePosition(cid)
if(getPlayerParty(cid) == nil) then
doPlayerSendCancel(cid, "No party members in range.")
doSendMagicEffect(pos, CONST_ME_POFF)
return LUA_ERROR
end

local membersList = getPartyMembers(cid)
if(type(membersList) ~= 'table' or table.maxn(membersList) <= 1) then
doPlayerSendCancel(cid, "No party members in range.")
doSendMagicEffect(pos, CONST_ME_POFF)
return LUA_ERROR
end

local affectedList = {}
for _, pid in ipairs(membersList) do
if(getDistanceBetween(getCreaturePosition(pid), pos) <= 36) then
table.insert(affectedList, pid)
end
end

local tmp = table.maxn(affectedList)
if(tmp <= 1) then
doPlayerSendCancel(cid, "No party members in range.")
doSendMagicEffect(pos, CONST_ME_POFF)
return LUA_ERROR
end

local mana = (tmp * 50)
if(getCreatureMana(cid) < mana) then
doPlayerSendCancel(cid, "You do not have enough mana.")
doSendMagicEffect(pos, CONST_ME_POFF)
return LUA_ERROR
end

if(doCombat(cid, combat, var) ~= LUA_NO_ERROR) then
doPlayerSendCancel(cid, "Sorry, not possible.")
doSendMagicEffect(pos, CONST_ME_POFF)
return LUA_ERROR
end

doCreatureAddMana(cid, -mana, FALSE)
doPlayerAddSpentMana(cid, mana)
for _, pid in ipairs(affectedList) do
doAddCondition(pid, condition)
end

return LUA_NO_ERROR
end