All-In-One NPC

--[[
    This script
    was created
    by Krinolin
--]]

local NPC_ID = 112112

local function On_GossipMenu(event, player, unit)

    if (player:IsInCombat() == true) then
    player:SendAreaTriggerMessage("You can not do that when in combat!")
    else
    if (player:IsGM()) then
    player:GossipMenuAddItem(8, "GM Spells", 0, 1)
    end
    player:GossipMenuAddItem(2, "Max heal", 0, 2)
    player:GossipMenuAddItem(2, "Remove Resurrection Sickness", 0, 3)
    player:GossipMenuAddItem(3, "Learn weapon skills", 0, 4)
    player:GossipMenuAddItem(3, "Advance weapon skills", 0, 5)
    player:GossipMenuAddItem(3, "Artisan Riding", 0, 6)
    player:GossipSendMenu(1, unit)
    end
end

local function On_GossipSelect(event, player, unit, sender, intid, code)
    if (intid == 2) then
    player:SendAreaTriggerMessage("You are now fully healed!")
    player:CastSpell(69693)
    On_GossipMenu(event, player, unit)

    elseif (intid == 1) then
    player:LearnSpell(69693)
    player:LearnSpell(35874)        -- Here you can add more GM spells
    player:LearnSpell(35912)
    player:LearnSpell(38734)
    On_GossipMenu(event, player, unit)

    elseif (intid == 3) then
    player:SendAreaTriggerMessage("Ressurection Sickness is now removed!")
    local aura = player:GetAura(15007)
    if(aura) then
    aura:Remove()
    end
    On_GossipMenu(event, player, unit)

    elseif (intid == 4) then
    player:SendAreaTriggerMessage("You have learned all weapon skills!")
    player:LearnSpell(201)
    player:LearnSpell(202)
    player:LearnSpell(196)
    player:LearnSpell(197)
    player:LearnSpell(227)
    player:LearnSpell(200)
    player:LearnSpell(266)
    player:LearnSpell(264)
    player:LearnSpell(5011)
    player:LearnSpell(3018)
    player:LearnSpell(198)
    player:LearnSpell(199)
    player:LearnSpell(1180)
    player:LearnSpell(2567)
    player:LearnSpell(2764)
    player:LearnSpell(5009)
    player:LearnSpell(5019)
    On_GossipMenu(event, player, unit)

    elseif (intid == 5) then
    player:SendAreaTriggerMessage("Your weapon skills are now maxed!")
    player:AdvanceAllSkills(450)
    player:AdvanceSkill (176, 450)
    On_GossipMenu(event, player, unit)

    elseif (intid == 6) then
    player:SendAreaTriggerMessage ("You have learned Artisan Riding!")
    player:LearnSpell(34091)
    player:Learnspell(54197)
    On_GossipMenu(event, player, unit)
    end
end
RegisterCreatureGossipEvent(NPC_ID, 1, On_GossipMenu)
RegisterCreatureGossipEvent(NPC_ID, 2, On_GossipSelect)