魔兽世界开源 Azeroth Core 服务端 Lua

--[[
    制作炉石对话功能
]] --
-- 已知【炉石】id为6948，声明它为绑定对象
local BIND_ITEM = 6948

--[[
    添加菜单项
        player：当前玩家
        object：绑定对象
        menuId：菜单id
]] --
local function AddMenuItem(player, object, menuId)
    player:GossipClearMenu() -- 清除当前玩家对话菜单列表
    --[[
        发送菜单到绑定物品
        GossipSendMenu(npc_text, sender)
            npc_text：world数据库表npc_text对应的id，默认使用id为100的数据记录
            sender：绑定对象
    ]] --
    player:GossipSendMenu(1, object, menuId)
end

--[[
    指定物品绑定对话菜单回调函数，这里我们先让它显示主菜单界面
        参数：
            参阅源码RegisterItemGossipEvent函数注释
]] --
local function OnShowMenu(event, player, object)
    --[[
        添加菜单项
        AddMenuItem(player, object, menuId)
            player：当前玩家
            object：绑定对象
            menuId：菜单id
    ]] --
    AddMenuItem(player, object, 1)
end

--[[
    注册物品对话菜单绑定事件
        BIND_ITEM：绑定的物品
        1：注册绑定事件类型，对指定物品绑定对话菜单
        ShowMenu：当使用绑定的物品时回调的函数
]] --
RegisterItemGossipEvent(BIND_ITEM, 1, OnShowMenu)

local function OnShowMenu(event, player, object)
    --[[
        添加菜单项
        AddMenuItem(player, object, menuId)
            player：当前玩家
            object：绑定对象
            menuId：菜单id
    ]] --
    AddMenuItem(player, object, 1)
    return false --停止施法
end

local function AddMenuItem(player, object, menuId)
    player:GossipClearMenu() -- 清除当前玩家对话菜单列表
    --[[
        添加菜单项
        GossipMenuAddItem(icon, text, sender, intid, code = false, popup, money)
            icon：图标类型可以搜源码查看枚举GossipOptionIcon，下图中的函数。
            text：菜单名称
            sender：绑定句柄
            intid：唯一标识，菜单id
            code：是否弹出输入框
            popup：字符串类型，有值的话就弹出对话确认
            money：扣除玩家费用
    ]] --
    player:GossipMenuAddItem(0, "菜单一", 0, 2)
    --[[
        发送菜单到绑定物品
        GossipSendMenu(npc_text, sender)
            npc_text：world数据库表npc_text对应的id，默认使用id为100的数据记录
            sender：绑定对象
    ]] --
    player:GossipSendMenu(1, object, menuId)
end

--[[
    注册对话菜单选中事件
    BIND_ITEM：绑定的物品
    2：注册绑定事件类型，对话菜单项被选中
    OnSelectMenu：选中对话菜单项时回调的函数
]] --
RegisterItemGossipEvent(BIND_ITEM, 2, OnSelectMenuItem)

--[[
    选中菜单回调函数
        event：事件
        player：玩家
        object：绑定对象
        sender：绑定句柄
        intid：唯一标识，菜单id
        code：弹出的输入框输入内容
        menuid：菜单id
]] --
local function OnSelectMenuItem(event, player, object, sender, intid, code, menuid)
    player:SendBroadcastMessage("响应菜单点击事件,菜单id:" .. intid)
end

local function OnSelectMenuItem(event, player, object, sender, intid, code, menuid)
    local mapId = player:GetMapId() --获取当前玩家所在地图id
    local x = player:GetX() --获取当前玩家所在地图X坐标
    local y = player:GetY() --获取当前玩家所在地图Y坐标
    local z = player:GetZ() --获取当前玩家所在地图Z坐标
    local o = player:GetO() --获取当前玩家所在地图O坐标
    player:SendBroadcastMessage("响应菜单点击事件,菜单id:" .. intid .. ",当前地图id:" .. mapId ..
                                    ",X坐标:" .. x .. ",Y坐标:" .. y .. ",Z坐标:" .. z .. ",O坐标:" .. o)
end

local function OnSelectMenuItem(event, player, object, sender, intid, code, menuid)
    --[[
        Teleport(mapId, x, y, z, o)
            mapId：地图id
            x：X坐标
            y：Y坐标
            z：Z坐标
            o：O坐标
        刚才获取到的各项传递参数，小数位精确到后3位就够了
            mapId：1
            x：-2920.7922363281
            y：-269.55258178711
            z：53.859161376953
            o：6.1865758895874

    ]]--
    player:Teleport(1, -2920.792, -269.552, 53.859, 6.186)
end