[Lua] Combo NPC

[Trle94]

-=[Combo NPC]=-


Description
Hi all. I maked this small Lua script.So what it does?? Hmm, Well its small "Combo NPC" He can teleport you to Mall,Lvling Road And he has some special Fuctions...
How menu looks?
Like this:
--Mall
--Leveling Area
--------------------
-NPC Windows
--Trainer
--InnKeeper
--Bank Window
--Auction Window
Nevermind
----------------
-Player Tools
--Player Speed (25)
--Sex Changer
Nevermind
--Show My Honor
--Show My Arena Points
Nevermind.

How to work
Copy this code down and read first lines before " --Do not touch after this comment-- " put it in scripts save as Itembank.lua and restart the server
Remember you need to make NPC..

-=[Combo NPC]=-
-=[LunarScriptors- Onlykl]=-

-- Change this down --
local NPC_ID = -- Npc ID here! You can make it with www.wow-v.com

local MallMapId = -- Enter Mall map id here
local MallMapX = -- Enter Mall X coords here
local MallMapY =  -- Enter Mall Y coords here
local MallMapZ =  -- Enter Mall Z coords here

local LevMapId = -- Enter LvlRoad map id here
local LevMapX = -- Enter LvlRoad leveling x coord here
local LevMapY = -- Enter LvlRoad leveling y coord here
local LevMapZ = -- Enter LvlRoad leveling z coord here 

--Do not touch after this comment--

function Lunar_OnGossipTalk(pUnit, event, player)
    pUnit:GossipCreateMenu(1, player, 0)
    pUnit:GossipMenuAddItem(1,"Mall", 1, 0)
    pUnit:GossipMenuAddItem(1,"Leveling Area", 2, 0)
    pUnit:GossipMenuAddItem(0,"NPC Windows", 3,0)
    pUnit:GossipMenuAddItem(0,"Player Tools", 4,0)
    pUnit:GossipMenuAddItem(0,"Show My Honor", 5,0)
    pUnit:GossipMenuAddItem(0,"Show My Arena Points", 6,0)
    pUnit:GossipMenuAddItem(1,"Nevermind.", 999, 0)
    pUnit:GossipSendMenu(player)
end

function Lunar_OnGossipSelect(pUnit, Event, player, id, intid, code, pMisc)

if(intid == 1) then
    player:Teleport(MallMapId, MallMapX, MallMapY, MallMapZ)
    player:GossipComplete()
end

if(intid == 2) then
    player:Teleport(LevMapId, LevMapX, LevMapY, LevMapZ)
    player:GossipComplete()
end

if(intid == 3) then
	pUnit:GossipCreateMenu(3545, player, 0)
	pUnit:GossipMenuAddItem(0,"Trainer", 7,0)
	pUnit:GossipMenuAddItem(0,"InnKeeper", 8,0)
	pUnit:GossipMenuAddItem(0,"Bank Window", 9,0)
	pUnit:GossipMenuAddItem(0,"Auction Window", 10,0)
	pUnit:GossipMenuAddItem(0,"Nevermind", 999,0)
	pUnit:GossipSendMenu(player)
end

if(intid == 4) then
	pUnit:GossipCreateMenu(3546, player, 0)
	pUnit:GossipMenuAddItem(0,"Player Speed (25)", 11,0)
	pUnit:GossipMenuAddItem(0,"Sex Changer", 12,0)
	pUnit:GossipMenuAddItem(0,"Nevermind", 999,0)
	pUnit:GossipSendMenu(player)
end


if (intid == 5) then
player:GetTotalHonor()
player:GossipComplete()
end

if (intid == 6) then
player:GetArenaPoints()
player:GossipComplete()
end

if (intid == 7) then
player:SendTrainerWindow(unit)
player:GossipComplete()
end

if (intid == 8) then
player:SendInnkeeperWindow(unit)
player:GossipComplete()
end

if (intid == 9) then
player:SendBankWindow(unit)
player:GossipComplete()
end

if (intid == 10) then
player:SendAuctionWindow(unit)
player:GossipComplete()
end

if (intid == 11) then
player:SetPlayerSpeed(25)
player:GossipComplete()
end

if (intid == 12 and Player:GetGender() == 0) then
	player:SendBroadcastMessage("Your gender has been changed!")
	Player:SetGender(1)
elseif (Player:GetGender() == 1) then
	Player:SendBroadcastMessage("Your gender has been changed!")
	Player:SetGender(0)
end

if(intid == 999) then
    player:GossipComplete()
end
end

RegisterUnitGossipEvent(NPC_ID, 1, "Lunar_OnGossipTalk")
RegisterUnitGossipEvent(NPC_ID, 2, "Lunar_OnGossipSelect")

[Found]

Nice release.. good to be part of a team that knows WTF to do +Rep my friend.