What's new

[German][Eluna]Professionsteacher

Hei

Member
Member
Joined
Jul 9, 2015
Messages
7
Reaction score
2
Professions Teacher [GERMAN]

Description:
•Teaches the professions
Tested and working under TC Cata: Yes

In this paste the professions are in german

I hope you like it

Code:
--[[
        Do not repost without my permission.
        Do not take credits for what you haven't scripted.
       
------------------------------------------------------
    - Developer: Hei
    - Complete: 100% with ElunaTrinityCata
    - ScriptName: 'Professionsteacher'
]]
 
 
 
 
local npcid = 600025
 
function Vendor_OnGossip(event, player, unit)
           player:GossipMenuAddItem(3, "Berufe", 0, 100)
         player:GossipMenuAddItem(6, "Schlie\195\159en", 0, 500)
           player:GossipSendMenu(1, unit)
end
 
function Vendor_OnSelect(event, player, unit, id, intid, code)
 
        if (intid == 100) then
       player:GossipMenuAddItem(3, "Alchemie", 0, 1)
        player:GossipMenuAddItem(3, "Schmiedekunst", 0, 2)
        player:GossipMenuAddItem(3, "Verzauberungskunst", 0, 3)
        player:GossipMenuAddItem(3, "Ingenieurskunst", 0, 4)
        player:GossipMenuAddItem(3, "Kr\195\164uterkunde", 0, 5)
        player:GossipMenuAddItem(3, "Inschriftkunde", 0, 6)
        player:GossipMenuAddItem(3, "Juwelenschleifen", 0, 7)
        player:GossipMenuAddItem(3, "Lederverarbeitung", 0, 8)
        player:GossipMenuAddItem(3, "Bergbau", 0, 9)
        player:GossipMenuAddItem(3, "K\195\188rschnern", 0, 10)
        player:GossipMenuAddItem(3, "Schneiderei", 0, 14)
        player:GossipMenuAddItem(3, "Arch\195\164ologie", 0, 16)
        player:GossipMenuAddItem(5, "Setzen Sie meinen Beruf F\195\164higkeiten auf 525", 0,15)
        player:GossipMenuAddItem(3, "[Back]", 0, 500)
       player:GossipSendMenu(1, unit)
        end
       
        --Alchemy
        if(intid == 1) then
                player:GossipMenuAddItem(3, "Verlerne Alchimie", 0, 415)
                player:GossipMenuAddItem(3, "Lerne Alchimie", 0, 416)
                player:GossipSendMenu(1, unit)
        end
       
                --BlackSmithing
        if(intid == 2) then
                player:GossipMenuAddItem(3, "Verlerne Schmiedekunst", 0, 417)
                player:GossipMenuAddItem(3, "Lerne Schmiedekunst", 0, 418)
                player:GossipSendMenu(1, unit)
        end
       
        --Enchanting
        if(intid == 3) then
                player:GossipMenuAddItem(3, "Verlerne Verzauberungskunst", 0, 419)
                player:GossipMenuAddItem(3, "Lerne Verzauberungskunst", 0, 420)
                player:GossipSendMenu(1, unit)
        end
       
        --Engineering
        if(intid == 4) then
                player:GossipMenuAddItem(3, "Verlerne Ingenieurskunst", 0, 421)
                player:GossipMenuAddItem(3, "Lerne Ingenieurskunst", 0, 422)
                player:GossipSendMenu(1, unit)
        end
       
        --Herbalism
        if(intid == 5) then
                player:GossipMenuAddItem(3, "Verlerne Kr\195\164uterkunde", 0, 423)
                player:GossipMenuAddItem(3, "Lerne Kr\195\164uterkunde", 0, 424)
                player:GossipSendMenu(1, unit)
        end
       
        --Inscription
        if(intid == 6) then
                player:GossipMenuAddItem(3, "Verlerne Inschriftenkunde", 0, 425)
                player:GossipMenuAddItem(3, "Lerne Inschriftenkunde", 0, 426)
                player:GossipSendMenu(1, unit)
        end
       
        --Jewelcrafting
        if(intid == 7) then
                player:GossipMenuAddItem(3, "Verlerne Juwelenschleifen", 0, 427)
                player:GossipMenuAddItem(3, "Lerne Juwelenschleifen", 0, 428)
                player:GossipSendMenu(1, unit)
        end
       
        --Leatherworking
        if(intid == 8) then
                player:GossipMenuAddItem(3, "Verlerne Lederverarbeitung", 0, 429)
                player:GossipMenuAddItem(3, "Lerne Lederverarbeitung", 0, 430)
                player:GossipSendMenu(1, unit)
        end
       
        --Mining
        if(intid == 9) then
                player:GossipMenuAddItem(3, "Verlerne Bergbau", 0, 431)
                player:GossipMenuAddItem(3, "Lerne Bergbau", 0, 432)
                player:GossipSendMenu(1, unit)
        end
       
        --Skinning
        if(intid == 10) then
                player:GossipMenuAddItem(3, "Verlerne K\195\188rschnern", 0, 433)
                player:GossipMenuAddItem(3, "Lerne K\195\188rschnern", 0, 434)
                player:GossipSendMenu(1, unit)
        end
       
        --Tailor
        if(intid == 14) then
                player:GossipMenuAddItem(3, "Verlerne Schneiderei", 0, 441)
                player:GossipMenuAddItem(3, "Lerne Schneiderei", 0, 442)
                player:GossipSendMenu(1, unit)
        end
       
        --Archaeology
        if(intid == 16) then
                player:GossipMenuAddItem(3, "Verlerne Arch\195\164ologie", 0, 443)
                player:GossipMenuAddItem(3, "Lerne Arch\195\164ologie", 0, 444)
                player:GossipSendMenu(1, unit)
        end
       
        --This is the unlearn/learn procces
       
       
        if(intid == 415) then
               
                player:RemoveSpell(80731)
                player:GossipComplete()
        end
 
        if(intid == 416) then
               
                player:LearnSpell(80731)
                player:GossipComplete()
        end
       
        if(intid == 417) then
               
                player:RemoveSpell(76666)
                player:GossipComplete()
        end
 
        if(intid == 418) then
               
                player:LearnSpell(76666)
                player:GossipComplete()
        end
 
        if(intid == 419) then
               
                player:RemoveSpell(74258)
                player:GossipComplete()
        end
 
        if(intid == 420) then
               
                player:LearnSpell(74258)
                player:GossipComplete()
        end
 
        if(intid == 421) then
               
                player:RemoveSpell(82774)
                player:GossipComplete()
        end
 
        if(intid == 422) then
               
                player:LearnSpell(82774)
                player:GossipComplete()
        end
 
        if(intid == 423) then
               
                player:RemoveSpell(74519)
                player:GossipComplete()
        end
 
        if(intid == 424) then
               
                player:LearnSpell(74519)
                player:GossipComplete()
        end
 
        if(intid == 425) then
               
                player:RemoveSpell(86008)
                player:GossipComplete()
        end
 
        if(intid == 426) then
               
                player:LearnSpell(86008)
                player:GossipComplete()
        end
 
        if(intid == 427) then
               
                player:RemoveSpell(73318)
                player:GossipComplete()
        end
 
        if(intid == 428) then
               
                player:LearnSpell(73318)
                player:GossipComplete()
        end
 
        if(intid == 429) then
               
                player:RemoveSpell(81199)
                player:GossipComplete()
        end
 
        if(intid == 430) then
               
                player:LearnSpell(81199)
                player:GossipComplete()
        end
 
        if(intid == 431) then
               
                player:RemoveSpell(74517)
                player:GossipComplete()
        end
 
        if(intid == 432) then
               
                player:LearnSpell(74517)
                player:GossipComplete()
        end
 
        if(intid == 433) then
               
                player:RemoveSpell(74522)
                player:GossipComplete()
        end
 
        if(intid == 434) then
                 
                player:LearnSpell(74522)
                player:GossipComplete()
        end
 
 
        if(intid == 441) then
               
                player:RemoveSpell(75156)
                player:GossipComplete()
        end
 
        if(intid == 442) then
               
                player:LearnSpell(75156)
                player:GossipComplete()
        end
 
        if(intid == 443) then
               
                player:RemoveSpell(51308)
                player:GossipComplete()
        end
 
        if(intid == 444) then
               
                player:LearnSpell(89722)
                        player:LearnSpell(74268)
                                player:LearnSpell(80451)
                player:GossipComplete()
        end
 
       
        if (intid == 15) then
                player:AdvanceSkill(333, 525)
                player:AdvanceSkill(197, 525)
                player:AdvanceSkill(202, 525)
                player:AdvanceSkill(755, 525)
                player:AdvanceSkill(171, 525)
                player:AdvanceSkill(164, 525)
                player:AdvanceSkill(182, 525)
                player:AdvanceSkill(165, 525)
                player:AdvanceSkill(186, 525)
                player:AdvanceSkill(393, 525)
                player:AdvanceSkill(185, 525)
                player:AdvanceSkill(129, 525)
                player:AdvanceSkill(356, 525)
                player:AdvanceSkill(773, 525)
                player:AdvanceSkill(794, 525)
                player:GossipComplete()
        end
       
        if (intid == 500) then
                player:GossipComplete()
        end
end
 
 
RegisterCreatureGossipEvent(npcid, 1, Vendor_OnGossip)
RegisterCreatureGossipEvent(npcid, 2, Vendor_OnSelect)

attachment.php

attachment.php

attachment.php

attachment.php
 
  • Like
Reactions: ExO

ExO

Administrator
Staff Member
Admin
Mythical User
Joined
Mar 29, 2014
Messages
4,824
Reaction score
760
Thanks for the contribution!
 
Top