[Lua] Lbniese's Morphing NPC v2

Hello


Here is my 2nd version of my Morpher ;)
Credits to Lbniese (me)

- Yes! you may use this for your server or repack, but dont edit the script and dont remove credits please.

http://pastebin.com/f628b338c

Code:

---

]-- [[
Scripted by Lbniese
Dont claim as you own.
Credits is not removed from this script.
This is Lbniese-Morpher v2
 
 ]] --
local id = NPCID

function Lbniese_Morpher_Gossip(unit, event, player)
unit:GossipCreateMenu(100, player, 0)
unit:GossipMenuAddItem(6, "Morph Options (Page 1)", 77, 0)
unit:GossipMenuAdditem(10, "Morph Options (Page 2)", 78, 0)
unit:GossipMenuAddItem(5, "Remove Sickness's Options", 100, 0)
unit:GossipCreateMenu(128, "Made by Lbniese", 545, 0)
unit:GossipSendMenu(player)
end
function Lbniese_Morpher_Submenus(unit, event, player, id, intid, code)
if(intid == 75) then
unit:GossipCreateMenu(78, player, 0)
unit:GossipMenuAddItem(6, "Morph Options (Page 1)", 77, 0)
unit:GossipMenuAdditem(10, "Morph Options (Page2)", 78, 0)
unit:GossipMenuAddItem(5, "Remove Sickness's Options", 100, 0)
unit:GossipCreateMenu(128, "Made by Lbniese", 545, 0)
unit:GossipSendMenu(player)
end
if(intid == 4) then
unit:GossipCreateMenu(62, player, 0)
player:LearnSpell(15007)
player:UnlearnSpell(15007)
unit:GossipMenuAddItem(6, "[Main Menu]", 75, 0)
unit:GossipSendMenu(player)
end
if(intid == 5) then
unit:GossipCreateMenu(63, player, 0)
player:LearnSpell(26013)
player:UnlearnSpell(26013)
unit:GossipMenuAddItem(6, "[Main Menu]", 75, 0)
unit:GossipSendMenu(player)
end
if(intid == 77) then
unit:GossipCreateMenu(65, player, 0)
unit:GossipCreateMenu(3, "De-Morph", 2, 0)
unit:GossipMenuAddItem(3,"Scuba-Goblin", 6, 0)
unit:GossipMenuAddItem(3,"Wrapped Sentry", 7, 0)
unit:GossipMenuAddItem(3,"Warp Guard", 8, 0)
unit:GossipMenuAddItem(3,"Ghost Wolf", 9, 0)
unit:GossipMenuAddItem(3,"Black Flower", 10, 0)
unit:GossipMenuAddItem(3,"Blue Flower", 11, 0)
unit:GossipMenuAddItem(3,"Thrall", 12, 0)
unit:GossipMenuAddItem(3,"Sneeds Shreader", 13, 0)
unit:GossipMenuAddItem(3,"Mage in Pimp Hat", 14, 0)
unit:GossipMenuAddItem(3,"Shark", 15, 0)
unit:GossipMenuAddItem(3,"Hammerhead Shark", 16, 0)
unit:GossipMenuAddItem(3,"Ironforge Guard", 17, 0)
unit:GossipMenuAddItem(3,"Ironforge Mage", 18, 0)
unit:GossipMenuAddItem(3,"Horde Sentry Warrior", 19, 0)
unit:GossipMenuAddItem(3,"Horde Sentry Shaman", 20, 0)

if(intid == 78) then
unit:GossipMenuAddItem(3,"Human", 21, 0)
unit:GossipMenuAddItem(3,"Murloc", 22, 0)
unit:GossipMenuAddItem(3,"Hogger", 23, 0)
unit:GossipMenuAddItem(3,"Robot", 24, 0)
unit:GossipMenuAddItem(3,"Goblin", 25, 0)
unit:GossipMenuAddItem(3,"Wisp", 26, 0)
unit:GossipMenuAddItem(3,"Dragon", 27, 0)
unit:GossipMenuAddItem(3,"Lumberjack", 28, 0)
unit:GossipMenuAddItem(3,"Tauren", 29, 0)
unit:GossipMenuAddItem(3,"Worm", 30, 0)
unit:GossipMenuAddItem(3,"Hydra", 31, 0)
unit:GossipSendMenu(player)
end
 
if(intid == 100) then
unit:GossipCreateMenu(71, player, 0)
unit:GossipMenuAddItem(4, "Remove Ressurection Sickness", 4, 0)
unit:GossipMenuAddItem(4, "Remove Deserter Sickness", 5, 0)
unit:GossipMenuAddItem(0, "[Main Menu]", 75, 0)
unit:GossipSendMenu(player)
end
if(intid == 1) then
unit:FullCastSpellOnTarget(57777, player)
end
if(intid == 2) then
unit:FullCastSpellOnTarget(58053, player)
end
if(intid == 3) then
unit:FullCastSpellOnTarget(51886, player)
end
if(intid == 6) then
player:SetModel(19076)
end
if(intid == 7) then
player:SetModel(19072)
end
if(intid == 8) then
player:SetModel(19061)
end
if(intid == 9) then
player:SetModel(19042)
end
if(intid == 10) then
player:SetModel(19034)
end
if(intid == 11) then
player:SetModel(19031)
end
if(intid == 12) then
player:SetModel(19015)
end
if(intid == 13) then
player:SetModel(19013)
end
if(intid == 14) then
player:SetModel(19005)
end
if(intid == 15) then
player:SetModel(12200)
end
if(intid == 16) then
player:SetModel(12204)
end
if(intid == 17) then
player:SetModel(21816)
end
if(intid == 18) then
player:SetModel(21835)
end
if(intid == 19) then
player:SetModel(23121)
end
if(intid == 20) then
player:SetModel(23183)
end
if (intid == 21) then
    player:SetModel(6074)
    player:SetScale(1)
    end
    if (intid == 22) then
    player:SetModel(15395)
    player:SetScale(1)
    end
    if (intid == 23) then
    player:SetModel(384)
    player:SetScale(1)
    end
    if (intid == 24) then
    player:SetModel(6889)
    player:SetScale(1)
    end
    if (intid == 25) then
    player:SetModel(18290)
    player:SetScale(1)
    end
    if (intid == 26) then
    player:SetModel(17607)
    player:SetScale(1)
    end
    if (intid == 27) then
    player:SetModel(308)
    player:SetScale(1)
    end
    if (intid == 28) then
    player:SetModel(741)
    player:SetScale(1)
    end
    if (intid == 29) then
    player:SetModel(20618)
    player:SetScale(1)
    end
    if (intid == 30) then
    player:SetModel(13009)
    player:SetScale(1)
    end
    if (intid == 31) then
    player:SetModel(6737)
    player:SetScale(1)
    end
if(intid == 2) then
player:DeMorph()
end
end

RegisterUnitGossipEvent(NPCID, 1, "Lbniese_Morpher_Gossip")
RegisterUnitGossipEvent(NPCID, 2, "Lbniese_Morpher_Submenus")
-- Scripted by Lbniese --

---

Thanks,
Lbniese

+rep...

Appreciated :)