Basic gossip script

--[[########CARLSBERG#############
This is a fun script. This will give your Gossip NPC many cool options.
Feel free to steal the script and modify it
This is a small script, I made to test a few functions. I'd suggest you to contact me on [email protected]
for a full version ]]

-- Please Enter your OWN ID.
local YOUR_NPC = 1000

function GossipOnTalk(Unit, Event, player)
    Unit:GossipCreateMenu(100, player, 0)
    Unit:GossipMenuAddItem(0, "Give me HONOR!", 1, 0)
    Unit:GossipMenuAddItem(0, "GIVE ME XP!", 2, 0)
    Unit:GossipMenuAddItem(0, "GIVE ME ARENA POINTS!", 3, 0)
    Unit:GossipMenuAddItem(0, "Take my arena points!", 4, 0)
    Unit:GossipMenuAddItem(0, "Take me to GMISLAND!", 5, 0)
    Unit:GossipSendMenu(player)
end

function GossipOnSelect(Unit, Event, player, id, intid, code, pMisc)
    if (intid == 1) then
        player:GiveHonor(1000)
        player:SendBroadcastMessage("You have been granted 1000 honor points!")
    elseif (intid == 2) then
        player:GiveXp(1000)
        player:SendBroadcastMessage("You have been granted 1000 XP!")
    elseif (intid == 3) then
            player:AddArenaPoints(1)
                player:SendBroadcastMessage("You have been granted with 1 arena point!")
    elseif (intid == 4) then
            player:RemoveArenaPoints(1)
        player:SendBroadcastMessage("I took 1 arena point from you, mohahaha")
    elseif (intid == 5) then
            player:Teleport(0, 000, 000, 000, 0)
        player:SendBroadcastMessage("Welcome to GMISLAND")
    end
    player:GossipComplete()
end

RegisterUnitGossipEvent(YOUR_NPC, 1, GossipOnTalk)
RegisterUnitGossipEvent(YOUR_NPC, 2, GossipOnSelect)