Dimman
09-08-10, 05:36 PM
MMOPro Lua Morpher
Pm or comment disp ids
------------------------------------------
function morph_on_gossip(unit, event, player)
unit:GossipCreateMenu(50, player, 0)
unit:GossipMenuAddItem(0, "MMOPro Elite Members", 1, 0)
unit:GossipSendMenu(player)
end
function morph_submenus(unit, event, player, id, intid, code)
if(intid == 1) then
unit:GossipCreateMenu(55, player, 0)
unit:GossipMenuAddItem(1, "MysteriousSouL", 700, 0)
unit:GossipMenuAddItem(1, "Diocia", 701, 0)
unit:GossipMenuAddItem(1, "Dimman", 702, 0)
unit:GossipMenuAddItem(1, "WigSplitta", 703, 0)
unit:GossipMenuAddItem(1, "Noobcraft", 704, 0)
unit:GossipMenuAddItem(1, "Fatbeard", 705, 0)
unit:GossipMenuAddItem(1, "Onlykl", 706, 0)
unit:GossipMenuAddItem(1, "Knaur", 707, 0)
unit:GossipMenuAddItem(1, "Enegue", 708, 0)
unit:GossipMenuAddItem(1, "Dr. Emu", 709, 0)
unit:GossipMenuAddItem(1, "Avidgamer", 710, 0)
unit:GossipMenuAddItem(1, "TheRealMethuselah", 711, 0)
unit:GossipMenuAddItem(1, "Keazain", 712, 0)
unit:GossipMenuAddItem(1, "PaikProductions", 713, 0)
unit:GossipMenuAddItem(1, "DjAligator", 714, 0)
unit:GossipMenuAddItem(1, "Cosminelu16", 715, 0)
unit:GossipMenuAddItem(1, "Enegue", 716, 0)
unit:GossipMenuAddItem(1, "Xees", 717, 0)
unit:GossipMenuAddItem(1, "Cocain", 718, 0)
unit:GossipMenuAddItem(1, "Pedregon", 719, 0)
unit:GossipMenuAddItem(1, "*Alexz*", 720, 0)
unit:GossipSendMenu(player)
end
if(intid == 700) then
player:SetModel(21135)
player:GossipComplete(player)
end
if(intid == 701) then
player:SetModel(18945)
player:GossipComplete(player)
end
if(intid == 702) then
player:SetModel(2490)
player:GossipComplete(player)
end
if(intid == 703) then
player:SetModel(17903)
player:GossipComplete(player)
end
if(intid == 704) then
player:SetModel(DisplayId)
player:GossipComplete(player)
end
if(intid == 705) then
player:SetModel(DisplayId)
player:GossipComplete(player)
end
if(intid == 706) then
player:SetModel(DisplayId)
player:GossipComplete(player)
end
if(intid == 707) then
player:SetModel(DisplayId)
player:GossipComplete(player)
end
if(intid == 708) then
player:SetModel(DisplayId)
player:GossipComplete(player)
end
if(intid == 709) then
player:SetModel(DisplayId)
player:GossipComplete(player)
end
if(intid == 710) then
player:SetModel(DisplayId)
player:GossipComplete(player)
end
if(intid == 711) then
player:SetModel(DisplayId)
player:GossipComplete(player)
end
if(intid == 712) then
player:SetModel(DisplayId)
player:GossipComplete(player)
end
if(intid == 713) then
player:SetModel(DisplayId)
player:GossipComplete(player)
end
if(intid == 714) then
player:SetModel(DisplayId)
player:GossipComplete(player)
end
if(intid == 715) then
player:SetModel(DisplayId)
player:GossipComplete(player)
end
if(intid == 716) then
player:SetModel(DisplayId)
player:GossipComplete(player)
end
if(intid == 717) then
player:SetModel(DisplayId)
player:GossipComplete(player)
end
if(intid == 718) then
player:SetModel(DisplayId)
player:GossipComplete(player)
end
if(intid == 719) then
player:SetModel(DisplayId)
player:GossipComplete(player)
end
if(intid == 720) then
player:SetModel(DisplayId)
player:GossipComplete(player)
end
end
RegisterUnitGossipEvent(333333, 1, "morph_on_gossip")
RegisterUnitGossipEvent(333333, 2, "morph_submenus")
Pm or comment disp ids
------------------------------------------
function morph_on_gossip(unit, event, player)
unit:GossipCreateMenu(50, player, 0)
unit:GossipMenuAddItem(0, "MMOPro Elite Members", 1, 0)
unit:GossipSendMenu(player)
end
function morph_submenus(unit, event, player, id, intid, code)
if(intid == 1) then
unit:GossipCreateMenu(55, player, 0)
unit:GossipMenuAddItem(1, "MysteriousSouL", 700, 0)
unit:GossipMenuAddItem(1, "Diocia", 701, 0)
unit:GossipMenuAddItem(1, "Dimman", 702, 0)
unit:GossipMenuAddItem(1, "WigSplitta", 703, 0)
unit:GossipMenuAddItem(1, "Noobcraft", 704, 0)
unit:GossipMenuAddItem(1, "Fatbeard", 705, 0)
unit:GossipMenuAddItem(1, "Onlykl", 706, 0)
unit:GossipMenuAddItem(1, "Knaur", 707, 0)
unit:GossipMenuAddItem(1, "Enegue", 708, 0)
unit:GossipMenuAddItem(1, "Dr. Emu", 709, 0)
unit:GossipMenuAddItem(1, "Avidgamer", 710, 0)
unit:GossipMenuAddItem(1, "TheRealMethuselah", 711, 0)
unit:GossipMenuAddItem(1, "Keazain", 712, 0)
unit:GossipMenuAddItem(1, "PaikProductions", 713, 0)
unit:GossipMenuAddItem(1, "DjAligator", 714, 0)
unit:GossipMenuAddItem(1, "Cosminelu16", 715, 0)
unit:GossipMenuAddItem(1, "Enegue", 716, 0)
unit:GossipMenuAddItem(1, "Xees", 717, 0)
unit:GossipMenuAddItem(1, "Cocain", 718, 0)
unit:GossipMenuAddItem(1, "Pedregon", 719, 0)
unit:GossipMenuAddItem(1, "*Alexz*", 720, 0)
unit:GossipSendMenu(player)
end
if(intid == 700) then
player:SetModel(21135)
player:GossipComplete(player)
end
if(intid == 701) then
player:SetModel(18945)
player:GossipComplete(player)
end
if(intid == 702) then
player:SetModel(2490)
player:GossipComplete(player)
end
if(intid == 703) then
player:SetModel(17903)
player:GossipComplete(player)
end
if(intid == 704) then
player:SetModel(DisplayId)
player:GossipComplete(player)
end
if(intid == 705) then
player:SetModel(DisplayId)
player:GossipComplete(player)
end
if(intid == 706) then
player:SetModel(DisplayId)
player:GossipComplete(player)
end
if(intid == 707) then
player:SetModel(DisplayId)
player:GossipComplete(player)
end
if(intid == 708) then
player:SetModel(DisplayId)
player:GossipComplete(player)
end
if(intid == 709) then
player:SetModel(DisplayId)
player:GossipComplete(player)
end
if(intid == 710) then
player:SetModel(DisplayId)
player:GossipComplete(player)
end
if(intid == 711) then
player:SetModel(DisplayId)
player:GossipComplete(player)
end
if(intid == 712) then
player:SetModel(DisplayId)
player:GossipComplete(player)
end
if(intid == 713) then
player:SetModel(DisplayId)
player:GossipComplete(player)
end
if(intid == 714) then
player:SetModel(DisplayId)
player:GossipComplete(player)
end
if(intid == 715) then
player:SetModel(DisplayId)
player:GossipComplete(player)
end
if(intid == 716) then
player:SetModel(DisplayId)
player:GossipComplete(player)
end
if(intid == 717) then
player:SetModel(DisplayId)
player:GossipComplete(player)
end
if(intid == 718) then
player:SetModel(DisplayId)
player:GossipComplete(player)
end
if(intid == 719) then
player:SetModel(DisplayId)
player:GossipComplete(player)
end
if(intid == 720) then
player:SetModel(DisplayId)
player:GossipComplete(player)
end
end
RegisterUnitGossipEvent(333333, 1, "morph_on_gossip")
RegisterUnitGossipEvent(333333, 2, "morph_submenus")