[Lua] NPC de Profissões

Script Lua para NPC de profissões.
Diferente do comando .learn all recipes, o Script te dá apenas a profissão no nível máximo, as receitas [recipes] você precisa aprender à parte.
No começo do script tem uma variável chamada maxprof que representa a quantidade máxima de profissões que o NPC pode ensinar ao jogador.

Script Lua: NPC Professions (Pastebin)
--[[ -----------------------.
________________________   |
|------------------------|  |
|--Made by: Erictemponi--|  |
|------------------------|  |
|________________________|  |
--]] -----------------------'


local npcid = 190009
local maxprof = 2
local professionsSkill = {
   171, -- Alchemy
   164, -- Blacksmithing
   333, -- Enchanting
   202, -- Engineering
   182, -- Herbalism
   773, -- Inscription
   755, -- Jewelcrafting
   165, -- Leatherworking
   186, -- Mining
   393, -- Skinning
   197  -- Tailoring
}

function profCount(player)
   local count = 0
   for i = 1, #professionsSkill do
       if (player:HasSkill(professionsSkill[i])) then
           count = count + 1
       end
   end
   return count
end

function profession_gossip(event, player, unit)
   player:GossipMenuAddItem(0, "|TInterface\\icons\\INV_Misc_ScrewDriver_02:30:30:-15:0|t Professions ->|r", 0, 1)
   player:GossipMenuAddItem(0, "|TInterface\\icons\\achievement_reputation_01:30:30:-15:0|t Nevermind...|r", 0, 999)
   player:GossipSendMenu(1, unit)
end

function profession_select(event, player, unit, sender, intid)
   if (intid == 1) then
       player:GossipMenuAddItem(0, "|TInterface\\icons\\trade_alchemy:30:30:-15:0|t Alchemy|r", 0, 10)
       player:GossipMenuAddItem(0, "|TInterface\\icons\\INV_Ingot_05:30:30:-15:0|t Blacksmithing|r", 0, 13)
       player:GossipMenuAddItem(0, "|TInterface\\icons\\INV_Misc_LeatherScrap_02:30:30:-15:0|t Leatherworking|r", 0, 16)
       player:GossipMenuAddItem(0, "|TInterface\\icons\\INV_Fabric_Felcloth_Ebon:30:30:-15:0|t Tailoring|r", 0, 19)
       player:GossipMenuAddItem(0, "|TInterface\\icons\\inv_misc_wrench_01:30:30:-15:0|t Engineering|r", 0, 22)
       player:GossipMenuAddItem(0, "|TInterface\\icons\\trade_engraving:30:30:-15:0|t Enchanting|r", 0, 25)
       player:GossipMenuAddItem(0, "|TInterface\\icons\\inv_misc_gem_01:30:30:-15:0|t Jewelcrafting|r", 0, 28)
       player:GossipMenuAddItem(0, "|TInterface\\icons\\INV_Scroll_08:30:30:-15:0|t Inscription|r", 0, 31)
       player:GossipMenuAddItem(0, "|TInterface\\icons\\INV_Misc_Herb_07:30:30:-15:0|t Herbalism|r", 0, 34)
       player:GossipMenuAddItem(0, "|TInterface\\icons\\inv_misc_pelt_wolf_01:30:30:-15:0|t Skinning|r", 0, 37)
       player:GossipMenuAddItem(0, "|TInterface\\icons\\trade_mining:30:30:-15:0|t Mining|r", 0, 40)
       player:GossipMenuAddItem(0, "|TInterface\\icons\\inv_misc_food_15:30:30:-15:0|t Cooking|r", 0, 43)
       player:GossipMenuAddItem(0, "|TInterface\\icons\\spell_holy_sealofsacrifice:30:30:-15:0|t First Aid|r", 0, 46)
       player:GossipMenuAddItem(0, "|TInterface\\icons\\trade_fishing:30:30:-15:0|t Fishing|r", 0, 49)
       player:GossipMenuAddItem(0, "|TInterface\\icons\\Spell_ChargePositive:30:30:-15:0|t Set my profession skills to 450|r", 0, 100)
       player:GossipMenuAddItem(0, "|TInterface\\Glues\\Common\\Glue-LeftArrow-Button-Up:30:30:-20:3|t  Back...|r", 0, 500)
       player:GossipSendMenu(1, unit)
   end
   
   -- Alchemy
   if (intid == 10) then
       player:GossipMenuAddItem(0, "Grand Master Alchemy", 0, 11)
       player:GossipMenuAddItem(0, "Unlearn Grand Master Alchemy", 0, 12)
       player:GossipMenuAddItem(0, "Back...", 0, 500)
       player:GossipSendMenu(1, unit)
   end
   
   -- Blacksmithing
   if (intid == 13) then
       player:GossipMenuAddItem(0, "Grand Master Blacksmithing", 0, 14)
       player:GossipMenuAddItem(0, "Unlearn Grand Master Blacksmithing", 0, 15)
       player:GossipMenuAddItem(0, "Back...", 0, 500)
       player:GossipSendMenu(1, unit)
   end
   
   -- Leatherworking
   if (intid == 16) then
       player:GossipMenuAddItem(0, "Grand Master Leatherworking", 0, 17)
       player:GossipMenuAddItem(0, "Unlearn Grand Master Leatherworking", 0, 18)
       player:GossipMenuAddItem(0, "Back...", 0, 500)
       player:GossipSendMenu(1, unit)
   end
   
   -- Tailoring
   if (intid == 19) then
       player:GossipMenuAddItem(0, "Grand Master Tailoring", 0, 20)
       player:GossipMenuAddItem(0, "Unlearn Grand Master Tailoring", 0, 21)
       player:GossipMenuAddItem(0, "Back...", 0, 500)
       player:GossipSendMenu(1, unit)
   end
   
   -- Engineering
   if (intid == 22) then
       player:GossipMenuAddItem(0, "Grand Master Engineering", 0, 23)
       player:GossipMenuAddItem(0, "Unlearn Grand Master Engineering", 0, 24)
       player:GossipMenuAddItem(0, "Back...", 0, 500)
       player:GossipSendMenu(1, unit)
   end
   
   -- Enchanting
   if (intid == 25) then
       player:GossipMenuAddItem(0, "Grand Master Enchanting", 0, 26)
       player:GossipMenuAddItem(0, "Unlearn Grand Master Enchanting", 0, 27)
       player:GossipMenuAddItem(0, "Back...", 0, 500)
       player:GossipSendMenu(1, unit)
   end
   
   -- Jewelcrafting
   if (intid == 28) then
       player:GossipMenuAddItem(0, "Grand Master Jewelcrafting", 0, 29)
       player:GossipMenuAddItem(0, "Unlearn Grand Master Jewelcrafting", 0, 30)
       player:GossipMenuAddItem(0, "Back...", 0, 500)
       player:GossipSendMenu(1, unit)
   end
   
   -- Inscription
   if (intid == 31) then
       player:GossipMenuAddItem(0, "Grand Master Inscription", 0, 32)
       player:GossipMenuAddItem(0, "Unlearn Grand Master Inscription", 0, 33)
       player:GossipMenuAddItem(0, "Back...", 0, 500)
       player:GossipSendMenu(1, unit)
   end
   
   -- Herbalism
   if (intid == 34) then
       player:GossipMenuAddItem(0, "Grand Master Herbalism", 0, 35)
       player:GossipMenuAddItem(0, "Unlearn Grand Master Herbalism", 0, 36)
       player:GossipMenuAddItem(0, "Back...", 0, 500)
       player:GossipSendMenu(1, unit)
   end
   
   -- Skinning
   if (intid == 37) then
       player:GossipMenuAddItem(0, "Grand Master Skinning", 0, 38)
       player:GossipMenuAddItem(0, "Unlearn Grand Master Skinning", 0, 39)
       player:GossipMenuAddItem(0, "Back...", 0, 500)
       player:GossipSendMenu(1, unit)
   end
   
   -- Mining
   if (intid == 40) then
       player:GossipMenuAddItem(0, "Grand Master Mining", 0, 41)
       player:GossipMenuAddItem(0, "Unlearn Grand Master Mining", 0, 42)
       player:GossipMenuAddItem(0, "Back...", 0, 500)
       player:GossipSendMenu(1, unit)
   end
   
   -- Cooking
   if (intid == 43) then
       player:GossipMenuAddItem(0, "Grand Master Mining", 0, 44)
       player:GossipMenuAddItem(0, "Unlearn Grand Master Mining", 0, 45)
       player:GossipMenuAddItem(0, "Back...", 0, 500)
       player:GossipSendMenu(1, unit)
   end
   
   -- First Aid
   if (intid == 46) then
       player:GossipMenuAddItem(0, "Grand Master Mining", 0, 47)
       player:GossipMenuAddItem(0, "Unlearn Grand Master Mining", 0, 48)
       player:GossipMenuAddItem(0, "Back...", 0, 500)
       player:GossipSendMenu(1, unit)
   end
   
   -- Fishing
   if (intid == 49) then
       player:GossipMenuAddItem(0, "Grand Master Mining", 0, 50)
       player:GossipMenuAddItem(0, "Unlearn Grand Master Mining", 0, 51)
       player:GossipMenuAddItem(0, "Back...", 0, 500)
       player:GossipSendMenu(1, unit)
   end
   
   
   -- ----- Learn/Unlearn ----- --
   -- Alchemy
   if (intid == 11) then
       if (profCount(player) < maxprof) then
           player:LearnSpell(2259)
           player:LearnSpell(3101)
           player:LearnSpell(3464)
           player:LearnSpell(11611)
           player:LearnSpell(28596)
           player:LearnSpell(51304)
           player:GossipComplete()
       else
           unit:SendUnitWhisper("You already have "..maxprof.." professions!", 0, player)
           player:GossipComplete()
       end
   end
   if (intid == 12) then
       player:RemoveSpell(51304)
       player:RemoveSpell(28596)
       player:RemoveSpell(11611)
       player:RemoveSpell(3464)
       player:RemoveSpell(3101)
       player:RemoveSpell(2259)
       player:GossipComplete()
   end
   
   -- Blacksmithing
   if (intid == 14) then
       if (profCount(player) < maxprof) then
           player:LearnSpell(2018)
           player:LearnSpell(3100)
           player:LearnSpell(3538)
           player:LearnSpell(9785)
           player:LearnSpell(29844)
           player:LearnSpell(51300)
           player:GossipComplete()
       else
           unit:SendUnitWhisper("You already have "..maxprof.." professions!", 0, player)
           player:GossipComplete()
       end
   end
   if (intid == 15) then
       player:RemoveSpell(51300)
       player:RemoveSpell(29844)
       player:RemoveSpell(9785)
       player:RemoveSpell(3538)
       player:RemoveSpell(3100)
       player:RemoveSpell(2018)
       player:GossipComplete()
   end

   -- Leatherworking
   if (intid == 17) then
       if (profCount(player) < maxprof) then
           player:LearnSpell(2108)
           player:LearnSpell(3104)
           player:LearnSpell(3811)
           player:LearnSpell(10662)
           player:LearnSpell(32549)
           player:LearnSpell(51302)
           player:GossipComplete()
       else
           unit:SendUnitWhisper("You already have "..maxprof.." professions!", 0, player)
           player:GossipComplete()
       end
   end
   if (intid == 18) then
       player:RemoveSpell(51302)
       player:RemoveSpell(32549)
       player:RemoveSpell(10662)
       player:RemoveSpell(3811)
       player:RemoveSpell(3104)
       player:RemoveSpell(2108)
       player:GossipComplete()
   end

   -- Tailoring
   if (intid == 20) then
       if (profCount(player) < maxprof) then
           player:LearnSpell(3908)
           player:LearnSpell(3909)
           player:LearnSpell(3910)
           player:LearnSpell(12180)
           player:LearnSpell(26790)
           player:LearnSpell(51309)
           player:GossipComplete()
       else
           unit:SendUnitWhisper("You already have "..maxprof.." professions!", 0, player)
           player:GossipComplete()
       end
   end
   if (intid == 21) then
       player:RemoveSpell(51309)
       player:RemoveSpell(26790)
       player:RemoveSpell(12180)
       player:RemoveSpell(3910)
       player:RemoveSpell(3909)
       player:RemoveSpell(3908)
       player:GossipComplete()
   end

   -- Engineering
   if (intid == 23) then
       if (profCount(player) < maxprof) then
           player:LearnSpell(4036)
           player:LearnSpell(4037)
           player:LearnSpell(4038)
           player:LearnSpell(12656)
           player:LearnSpell(30350)
           player:LearnSpell(51306)
           player:GossipComplete()
       else
           unit:SendUnitWhisper("You already have "..maxprof.." professions!", 0, player)
           player:GossipComplete()
       end
   end
   if (intid == 24) then
       player:RemoveSpell(51306)
       player:RemoveSpell(30350)
       player:RemoveSpell(12656)
       player:RemoveSpell(4038)
       player:RemoveSpell(4037)
       player:RemoveSpell(4036)
       player:GossipComplete()
   end

   -- Enchanting
   if (intid == 26) then
       if (profCount(player) < maxprof) then
           player:LearnSpell(7411)
           player:LearnSpell(7412)
           player:LearnSpell(7413)
           player:LearnSpell(13920)
           player:LearnSpell(28029)
           player:LearnSpell(51313)
           player:GossipComplete()
       else
           unit:SendUnitWhisper("You already have "..maxprof.." professions!", 0, player)
           player:GossipComplete()
       end
   end
   if (intid == 27) then
       player:RemoveSpell(51313)
       player:RemoveSpell(28029)
       player:RemoveSpell(13920)
       player:RemoveSpell(7413)
       player:RemoveSpell(7412)
       player:RemoveSpell(7411)
       player:GossipComplete()
   end

   -- Jewelcrafting
   if (intid == 29) then
       if (profCount(player) < maxprof) then
           player:LearnSpell(25229)
           player:LearnSpell(25230)
           player:LearnSpell(28894)
           player:LearnSpell(28895)
           player:LearnSpell(28897)
           player:LearnSpell(51311)
           player:GossipComplete()
       else
           unit:SendUnitWhisper("You already have "..maxprof.." professions!", 0, player)
           player:GossipComplete()
       end
   end
   if (intid == 30) then
       player:RemoveSpell(51311)
       player:RemoveSpell(28897)
       player:RemoveSpell(28895)
       player:RemoveSpell(28894)
       player:RemoveSpell(25230)
       player:RemoveSpell(25229)
       player:GossipComplete()
   end

   -- Inscription
   if (intid == 32) then
   if (profCount(player) < maxprof) then
           player:LearnSpell(45357)
           player:LearnSpell(45358)
           player:LearnSpell(45359)
           player:LearnSpell(45360)
           player:LearnSpell(45361)
           player:LearnSpell(45363)
           player:GossipComplete()
       else
           unit:SendUnitWhisper("You already have "..maxprof.." professions!", 0, player)
           player:GossipComplete()
       end
   end
   if (intid == 33) then
       player:RemoveSpell(45363)
       player:RemoveSpell(45361)
       player:RemoveSpell(45360)
       player:RemoveSpell(45359)
       player:RemoveSpell(45358)
       player:RemoveSpell(45357)
       player:GossipComplete()
   end

   -- Herbalism
   if (intid == 35) then
       if (profCount(player) < maxprof) then
           player:LearnSpell(2366)
           player:LearnSpell(2368)
           player:LearnSpell(3570)
           player:LearnSpell(11993)
           player:LearnSpell(28695)
           player:LearnSpell(50300)
           player:GossipComplete()
       else
           unit:SendUnitWhisper("You already have "..maxprof.." professions!", 0, player)
           player:GossipComplete()
       end
   end
   if (intid == 36) then
       player:RemoveSpell(50300)
       player:RemoveSpell(28695)
       player:RemoveSpell(11993)
       player:RemoveSpell(3570)
       player:RemoveSpell(2368)
       player:RemoveSpell(2366)
       player:GossipComplete()
   end

   -- Skinning
   if (intid == 38) then
       if (profCount(player) < maxprof) then
           player:LearnSpell(8613)
           player:LearnSpell(8617)
           player:LearnSpell(8618)
           player:LearnSpell(10768)
           player:LearnSpell(32678)
           player:LearnSpell(50305)
           player:GossipComplete()
       else
           unit:SendUnitWhisper("You already have "..maxprof.." professions!", 0, player)
           player:GossipComplete()
       end
   end
   if (intid == 39) then
       player:RemoveSpell(50305)
       player:RemoveSpell(32678)
       player:RemoveSpell(10768)
       player:RemoveSpell(8618)
       player:RemoveSpell(8617)
       player:RemoveSpell(8613)
       player:GossipComplete()
   end

   -- Mining
   if (intid == 41) then
       if (profCount(player) < maxprof) then
           player:LearnSpell(2575)
           player:LearnSpell(2576)
           player:LearnSpell(3564)
           player:LearnSpell(10248)
           player:LearnSpell(29354)
           player:LearnSpell(50310)
           player:GossipComplete()
       else
           unit:SendUnitWhisper("You already have "..maxprof.." professions!", 0, player)
           player:GossipComplete()
       end
   end
   if (intid == 42) then
       player:RemoveSpell(50310)
       player:RemoveSpell(29354)
       player:RemoveSpell(10248)
       player:RemoveSpell(3564)
       player:RemoveSpell(2576)
       player:RemoveSpell(2575)
       player:GossipComplete()
   end
   
   -- Cooking
   if (intid == 44) then
       player:LearnSpell(2550)
       player:LearnSpell(3102)
       player:LearnSpell(3413)
       player:LearnSpell(18260)
       player:LearnSpell(33359)
       player:LearnSpell(51296)
       player:GossipComplete()
   end
   if (intid == 45) then
       player:RemoveSpell(51296)
       player:RemoveSpell(33359)
       player:RemoveSpell(18260)
       player:RemoveSpell(3413)
       player:RemoveSpell(3102)
       player:RemoveSpell(2550)
       player:GossipComplete()
   end
   
   -- First Aid
   if (intid == 47) then
       player:LearnSpell(3273)
       player:LearnSpell(3274)
       player:LearnSpell(7924)
       player:LearnSpell(10846)
       player:LearnSpell(27028)
       player:LearnSpell(45542)
       player:GossipComplete()
   end
   if (intid == 48) then
       player:RemoveSpell(45542)
       player:RemoveSpell(27028)
       player:RemoveSpell(10846)
       player:RemoveSpell(7924)
       player:RemoveSpell(3274)
       player:RemoveSpell(3273)
       player:GossipComplete()
   end
   
   -- Fishing
   if (intid == 50) then
       player:LearnSpell(7620)
       player:LearnSpell(7731)
       player:LearnSpell(7732)
       player:LearnSpell(18248)
       player:LearnSpell(33095)
       player:LearnSpell(51294)
       player:GossipComplete()
   end
   if (intid == 51) then
       player:RemoveSpell(51294)
       player:RemoveSpell(33095)
       player:RemoveSpell(18248)
       player:RemoveSpell(7732)
       player:RemoveSpell(7731)
       player:RemoveSpell(7620)
       player:GossipComplete()
   end
   
   
   -----------------------------------------------------
   
   if (intid == 100) then
       player:AdvanceSkill(171, 450) -- Alchemy
       player:AdvanceSkill(164, 450) -- Blacksmithing
       player:AdvanceSkill(333, 450) -- Enchanting
       player:AdvanceSkill(202, 450) -- Engineering
       player:AdvanceSkill(182, 450) -- Herbalism
       player:AdvanceSkill(773, 450) -- Inscription
       player:AdvanceSkill(755, 450) -- Jewelcrafting
       player:AdvanceSkill(165, 450) -- Leatherworking
       player:AdvanceSkill(186, 450) -- Mining
       player:AdvanceSkill(393, 450) -- Skinning
       player:AdvanceSkill(197, 450) -- Tailoring
       player:AdvanceSkill(185, 450) -- Cooking
       player:AdvanceSkill(129, 450) -- First Aid
       player:AdvanceSkill(356, 450) -- Fishing
       player:GossipComplete()
   end
   
   if (intid == 500) then
       profession_gossip(unit, player, unit)
   end
   
   if (intid == 999) then
       player:GossipComplete()
   end
end

RegisterCreatureGossipEvent(npcid, 1, profession_gossip)
RegisterCreatureGossipEvent(npcid, 2, profession_select)

SQL do NPC:
SET
@Entry = 190009,
@Name = "Huan'ba",
@SubName = "Professions";

INSERT INTO `creature_template` (`entry`, `modelid1`, `modelid2`, `name`, `subname`, `IconName`, `gossip_menu_id`, `minlevel`, `maxlevel`, `exp`, `faction`, `npcflag`, `scale`, `rank`, `dmgschool`, `baseattacktime`, `rangeattacktime`, `unit_class`, `unit_flags`, `type`, `type_flags`, `lootid`, `pickpocketloot`, `skinloot`, `AIName`, `MovementType`, `InhabitType`, `HoverHeight`, `RacialLeader`, `movementId`, `RegenHealth`, `mechanic_immune_mask`, `flags_extra`, `ScriptName`) VALUES
(@Entry, 19646, 0, @Name, @SubName, NULL, 0, 80, 80, 2, 35, 1, 1, 0, 0, 2000, 0, 1, 0, 7, 138936390, 0, 0, 0, '', 0, 3, 1, 0, 0, 1, 0, 0);


Créditos: Eric Temponi