远程商店类型的ｌｕａ,继续求教各位大佬

zhangwei2199

玩家说话远程打开商店那种，用这个窗口测试ｌｕａ尝试了一下可以正常显示购买窗口，但是后面的购买结算部分不知道怎么处理 @ahsin

ahsin

这个是k佬的测试lua，远程商店挺麻烦的，各种处理，如果好做，各大佬都做出来了。

xman

1.        local data = tostring(_data)
   
2.        if (select == CONST.按钮_关闭) then
   
3.                  return;
   
4.        end
   
5.        local items = string.split(data, '|');
   
6.        local itemMenu = itemMenu;
   
7.        for key = 1, #items / 2 do
   
8.          local c = itemMenu[items[(key - 1) * 2 + 1] + 1]
   
9.          if c then
   
10.            count = (tonumber(items[(key - 1) * 2 + 2]) or 0);
    
11.            if c.maxCount > 0 then
    
12.              maxCount = c.maxCount - count;
    
13.              totalGold = c.price * count;
    
14.              keyNum = items[(key - 1) * 2 + 1] + 1;
    
15.            else
    
16.              maxCount = c.maxCount;
    
17.              NLG.SystemMessage(player,"[系統]此物品倉庫已無存貨！");
    
18.              return;
    
19.            end
    
20.            if c.itemid > 1 then
    
21.              itemid = c.itemid;
    
22.            else
    
23.              itemid = -1;
    
24.            end
    
25.          end
    
26.          if itemid == -1 then  ----排除透过按钮取得道具
    
27.             return;
    
28.          end
    
29.          if maxCount < 0 then
    
30.            NLG.SystemMessage(player,"[系統]數量超過庫存！");
    
31.            return;
    
32.          end
    
33.          if Char.ItemNum(player, 68000) < totalGold then
    
34.            NLG.SystemMessage(player,"[系統]魔力金幣卡數量不足無法購買！");
    
35.            return;
    
36.          end
    
37.          if (Char.ItemSlot(player)<20) then
    
38.                 itemList[keyNum][3] = itemList[keyNum][3] - count;
    
39.                 Char.GiveItem(player,itemList[keyNum][2],count);
    
40.                 Char.DelItem(player, 68000, totalGold);
    
41.                 for NewItemSlot = 8,27 do
    
42.                     local NewItemIndex = Char.GetItemIndex(player, NewItemSlot);
    
43.                     if (NewItemIndex > 0) then
    
44.                       if (Item.GetData(NewItemIndex, CONST.道具_已鉴定)==0) then
    
45.                         Item.SetData(NewItemIndex, CONST.道具_已鉴定, 1);
    
46.                         Item.UpItem(player, NewItemSlot);
    
47.                         NLG.UpChar(player);
    
48.                       end
    
49.                     end
    
50.                 end
    
51.          else
    
52.                 NLG.Say(player, -1, "注意提取數量超過物品欄！", CONST.颜色_黄色, CONST.字体_中);
    
53.                 return;
    
54.          end
    
55.          if (itemList[keyNum][3]==0) then
    
56.                 table.remove(itemList,keyNum);
    
57.                 itemList = itemList;
    
58.          end

复制代码

zhangwei2199

用了ahxin大佬的ol_shop脚本，结合了xmen大佬的结算脚本，目前效果是玩家说话///aaa可以呼出购买窗口，商店物品列表正常，点击购买和结算画面正常，点击确定后无反应


报错
[ERROR][ol_shop]        ol_shop_npc_12800_WindowTalkedEvent event callback error:       lua/Modules/ol_shop.lua:39: attempt to index local 'itemMenu' (a nil value)

xman

zhangwei2199 发表于 2025-3-23 18:46
用了ahxin大佬的ol_shop脚本，结合了xmen大佬的结算脚本，目前效果是玩家说话///aaa可以呼出购买窗口，商店 ...

itemMenu跟itemList是一样的，就是你卖的商品，要整活起来

for i=1,#itemList
    itemMenu = {name='..ItemName..', image='..ItemImage..', price=price, desc='..ItemMsg..', count=1, maxCount=maxCount, itemid=itemid};
end



你把你的商品转换成这个表格的格式，M大要你参考的manaPool就是在说这部分
如果你要自弄商品表，捣穀出怎么才对应就测试当经验。

商店NPC的data输出的格式先去了解，会是一长串含|的字串
local items = string.split(data, '|');

ahsin

数量和价格，挺难做的，不想做哈

zhangwei2199

数量和价格如果商品不多的话也就是手动输入列表，不需要调用函数去获取，现在的问题就是最后无法发放物品并扣除金币
搞不定，真搞不定,几位大佬轮番指教，我还是死在代码拼接

zhangwei2199

以我的能力只能做到这一步了，npc创建，打开商店，物品显示，价格计算一切正常，点击购买后不扣魔币不给道具，大佬们最后一次求助，还不行就放弃了



l

1. local Module = ModuleBase:createModule('ol_shop')
   
2. local itemList = {
   
3.   { name = '母爱之卵', image = 27075, price = 100000, desc = '大地鼠媽媽石像所贈與的奇異之蛋', count = 1, maxCount = 999,  itemid = '26' },
   
4.   { name = '再生剧药', image = 26206, price = 50000, desc = '能重新分配人物點數，使能力改變', count = 1, maxCount = 999,  itemid = '26' },
   
5.   { name = '新手标志', image = 252025, price = 500, desc = '代表剛來這個世界沒多久的頭飾,新手的證明', count = 1, maxCount = 999,  itemid = '55' },
   
6.   { name = '金刚不坏安全帽', image = 27933, price = 5000, desc = '可以用來抵擋受傷一百次，史上最強的安全帽', count = 1, maxCount = 999,  itemid = '8' },
   
7.   { name = '王者守护神', image = 99194, price = 50000, desc = '裝備上就會擁有王者的保護，可以輕鬆的襲擊魔族', count = 1, maxCount = 999,  itemid = '21' },
   
8.   { name = '水龙料理', image = 26364, price = 500, desc = '宠物親近度+10', count = 1, maxCount = 999,  itemid = '23' },
   
9. }
   
10. 
    
11. --- 加载模块钩子
    
12. function Module:onLoad()
    
13.   self:logInfo('load')
    
14.   local npc = self:NPC_createNormal('在线商店', 101024, { map = 1000, x = 220, y = 88, direction = 4, mapType = 0 })
    
15.   self:NPC_regTalkedEvent(npc, Func.bind(self.onSellerTalked, self))
    
16.   self:NPC_regWindowTalkedEvent(npc, Func.bind(self.onSellerSelected, self));
    
17. end
    
18. 
    
19. function Module:onSellerTalked(npc, player)
    
20.   if NLG.CanTalk(npc, player) then
    
21.     NLG.ShowWindowTalked(player, npc, CONST.窗口_商店买, CONST.BUTTON_是, 0,
    
22.       self:NPC_buildBuyWindowData(101024, '在线商店', '选择你要的商品', '金钱不足', '背包已满', itemList))
    
23.   end
    
24. end
    
25. 
    
26. function Module:onSellerSelected(npc, player, seqNo, select, data)
    
27.        local data = tostring(_data)
    
28.        if (select == CONST.按钮_关闭) then
    
29.                  return;
    
30.        end
    
31.        local items = string.split(data, '|');
    
32.        local itemList = itemList;
    
33.        for key = 1, #items / 2 do
    
34.          local c = itemList[items[(key - 1) * 2 + 1] + 1]
    
35.          if c then
    
36.            count = (tonumber(items[(key - 1) * 2 + 2]) or 0);
    
37.            if c.maxCount > 0 then
    
38.              maxCount = c.maxCount - count;
    
39.              totalGold = c.price * count;
    
40.              keyNum = items[(key - 1) * 2 + 1] + 1;
    
41.            else
    
42.              maxCount = c.maxCount;
    
43.              NLG.SystemMessage(player,"[系統]此物品倉庫已無存貨！");
    
44.              return;
    
45.            end
    
46.            if c.itemid > 1 then
    
47.              itemid = c.itemid;
    
48.            else
    
49.              itemid = -1;
    
50.            end
    
51.          end
    
52.          if itemid == -1 then  ----排除透过按钮取得道具
    
53.             return;
    
54.          end
    
55.          if maxCount < 0 then
    
56.            NLG.SystemMessage(player,"[系統]數量超過庫存！");
    
57.            return;
    
58.          end
    
59.          if Char.ItemNum(player, 68000) < totalGold then
    
60.            NLG.SystemMessage(player,"[系統]魔力金幣卡數量不足無法購買！");
    
61.            return;
    
62.          end
    
63.          if (Char.ItemSlot(player)<20) then
    
64.                 itemList[keyNum][3] = itemList[keyNum][3] - count;
    
65.                 Char.GiveItem(player,itemList[keyNum][2],count);
    
66.                 Char.DelItem(player, 68000, totalGold);
    
67.                 for NewItemSlot = 8,27 do
    
68.                     local NewItemIndex = Char.GetItemIndex(player, NewItemSlot);
    
69.                     if (NewItemIndex > 0) then
    
70.                       if (Item.GetData(NewItemIndex, CONST.道具_已鉴定)==0) then
    
71.                         Item.SetData(NewItemIndex, CONST.道具_已鉴定, 1);
    
72.                         Item.UpItem(player, NewItemSlot);
    
73.                         NLG.UpChar(player);
    
74.                       end
    
75.                     end
    
76.                 end
    
77.          else
    
78.                 NLG.Say(player, -1, "注意提取數量超過物品欄！", CONST.颜色_黄色, CONST.字体_中);
    
79.                 return;
    
80.          end
    
81.          if (itemList[keyNum][3]==0) then
    
82.                 table.remove(itemList,keyNum);
    
83.                 itemList = itemList;
    
84.          end
    
85.    end
    
86. end
    
87. 
    
88. --- 卸载模块钩子
    
89. function Module:onUnload()
    
90.   self:logInfo('unload')
    
91. end
    
92. 
    
93. return Module;
    

复制代码

ahsin

论坛插入代码时，请使用

ahsin

ol_shop.lua 只是测试版，我没发布过，代码只供参考。强撸当心服务器爆炸

xman

zhangwei2199 发表于 2025-3-31 20:01
以我的能力只能做到这一步了，npc创建，打开商店，物品显示，价格计算一切正常，点击购买后不扣魔币不给道 ...

你确认一下你的itemList中itemid有正确吗?看上去错误
我的代码之前是扣除另一种货币，我帮你改成魔币了

恩  21列那边确实改出错，全名是之后要远端的fn才用

zhangwei2199

xman大佬慧眼如炬，itemid确实不对，去引号，然后21行这里  (player, shopNPc, CONST.窗口_商店买, CONST.BUTTON_是, 0,   应该是npc，deepseek帮忙查的错
现在可以结算了，不过买到的物品全是铜剑,买一次后商店窗口也有些问题，离胜利不远了，大佬们威武