EQ2EMu/server/Spells/Commoner/Terrorbird.lua

--[[
    Script Name    : Spells/Commoner/Terrorbird.lua
    Script Author  : neatz09
    Script Date    : 2019.11.18 08:11:53
    Script Purpose : 
                   : 
--]]
function precast(Caster)
 if GetMount(Caster) > 0 then
        return false
    end

    return true
end

function cast(Caster, Target, SkillAmt, Ground, Air)    
-- Summons a mount
SetMount(Caster, 15640)
AddControlEffect(Caster, 12)
-- Increase Focus, Disruption, Ministration, Subjugation, Ordination, Slashing, Piercing, Crushing,
--Aggression and Ranged of caster by 5
AddSkillBonus(Caster, GetSkillIDByName("Focus"), SkillAmt)
    AddSkillBonus(Caster, GetSkillIDByName("Disruption"), SkillAmt)
    AddSkillBonus(Caster, GetSkillIDByName("Ministration"), SkillAmt)
    AddSkillBonus(Caster, GetSkillIDByName("Subjugation"), SkillAmt)
    AddSkillBonus(Caster, GetSkillIDByName("Ordination"), SkillAmt)
    AddSkillBonus(Caster, GetSkillIDByName("Slashing"), SkillAmt)
    AddSkillBonus(Caster, GetSkillIDByName("Piercing"), SkillAmt)
    AddSkillBonus(Caster, GetSkillIDByName("Crushing"), SkillAmt)
    AddSkillBonus(Caster, GetSkillIDByName("Aggression"), SkillAmt)
    AddSkillBonus(Caster, GetSkillIDByName("Ranged"), SkillAmt)

-- Summons a mount to ride that increases your ground speed by 60%
-- Summons a mount to ride that increases your ground speed by 200%
    AddSpellBonus(Caster, 611, Ground)
    AddSpellBonus(Target, 612, Air)
    Say(Caster, "This is a leaper mount not a flier, leapers not implemented.")

end


function remove(Caster, Target)
    RemoveSpellBonus(Caster)
    RemoveSkillBonus(Caster)
SetMount(Caster, 0)
  RemoveControlEffect(Caster, 12)
end