设为首页收藏本站我的广告
切换到宽版

石器时代LA官方

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
石器时代LA官方»石器时代论坛 › 石器时代技术 › 石器LUA区 › 寄售NPC
返回列表 发新帖
查看: 872|回复: 1

[Ab Lua] 寄售NPC

[复制链接]
shiqila

1万

主题

491

回帖

3万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
35504
石币
24669
发表于 2022-8-31 10:39:09 | 显示全部楼层 |阅读模式
  1. function checkEmptItemNum(charaindex)--检测剩余物品格子
  2.         EmptyItemNum = 0
  3.         for i = 8, 27 do
  4.                 if char.getItemIndex(charaindex, i) == -1 then
  5.                         EmptyItemNum = EmptyItemNum + 1
  6.                 end
  7.         end
  8.         return EmptyItemNum
  9. end

  11. function ShowHead(meindex, talkerindex)
  12.                 momny = char.getInt(talkerindex,"金库魔币")
  13.                 gold = char.getInt(talkerindex,"金库金币")
  14.                 token = "3\n            § 请选择您需要的服务 §\n\n\n"
  15.                                                  .. "           ≡  设置出售类型 ≡\n"
  16.                                                  .. "           ≡  设置出售物品 ≡\n"
  17.                                                  .. "           ≡  取回出售物品 ≡\n"
  18.                                                  .. "           ≡   关闭清理NPC ≡\n\n"
  19.                                                  .. "      ≡ 金库现有魔币:".. momny .."  金币:".. gold .." ≡\n\n"
  20.                 --lssproto.windows(talkerindex, "选择框", 8, 0, char.getWorkInt( meindex, "对象"), token)
  21.                 lssproto.windows(talkerindex, "选择框", "确定", 324, meindex, token)
  22. end

  24. function Showselltype(meindex, talkerindex)
  25.                 momny = char.getInt(talkerindex,"金库魔币")
  26.                 gold = char.getInt(talkerindex,"金库金币")
  27.                 token = "3\n            § 请选择您需要的服务 §\n\n\n"
  28.                                                  .. "           ≡  出售类型魔币 ≡\n"
  29.                                                  .. "           ≡  出售类型金卡 ≡\n"
  30.                                                  .. "      ≡ 金库现有魔币:".. momny .."  金币:".. gold .." ≡\n\n"
  31.                 --lssproto.windows(talkerindex, "选择框", 8, 0, char.getWorkInt( meindex, "对象"), token)
  32.                 lssproto.windows(talkerindex, "选择框", "确定", 323, meindex, token)
  33. end
  34. --NPC窗口事件(NPC索引)
  35. --function WindowTalked ( meindex, talkerindex, seqno, select, data)
  36. function MWTalk ( meindex, talkerindex, seqno, select, data)
  37.         char.TalkToCli(talkerindex, -1, "Seqno:"..seqno.." | select:"..select.." | data:"..data, "红色")
  38.         --print(type(data))

  40.         --检测玩家名字 和 NPC 名字 不一样只发送出售消息

  42.         if select == 2  then
  43.                 return
  44.         end

  46.         if seqno == 335 then --顾客购买窗口
  47.                 --print("field")
  48.                 if select == 0 then
  49.                         npc.PlayersellWindowTalked(meindex, talkerindex, seqno, select, data)                       
  50.                         char.TalkToCli(talkerindex, -1, "谢谢您使用寄售系统", "黄色")
  51.                         return
  52.                 end
  53.                 char.TalkToCli(talkerindex, -1, "顾客您好！", "黄色")
  54.                 npc.PlayersellWindowTalked(meindex, talkerindex, 333, 0, "1")
  55.                 return
  56.         end
  57.        
  58.         local field = other.getString(data, " ", 1)
  59.         --print("field")
  60.         --print(field)
  61.         if  field == "" then
  62.                 char.TalkToCli(talkerindex, -1, "谢谢您使用寄售系统删除NPC", "黄色")
  63.                 npc.DelNpc(meindex)--删除NPC
  64.                 char.setInt(talkerindex,"寄售时间",0)--当前时间
  65.                 return
  66.         end
  67.         if field == " " then
  68.                 char.TalkToCli(talkerindex, -1, "谢谢您使用寄售系统删除NPC", "黄色")
  69.                 npc.DelNpc(meindex)--删除NPC
  70.                 char.setInt(talkerindex,"寄售时间",0)--当前时间
  71.                 return
  72.         end
  73.         --and field == "1"
  74.         if seqno == 323 and select == 0 then --顾客购买窗口
  75.                 --print("field")
  76.                 if field == "1" then
  77.                         npc.PlayersellWindowTalked(meindex, talkerindex, seqno, select, data)       
  78.                         char.setInt(npcindex,"金库魔币",1)--设置出售类型是魔币                       
  79.                         char.TalkToCli(talkerindex, -1, "谢谢您使用寄售系统您的寄售物品出售类型是魔币", "黄色")
  80.                         name = char.getChar(npcindex, "名字").."[魔币摊位]"
  81.                         char.setChar(npcindex, "名字",name)
  82.                         --print("npc名字")
  83.                         --print(char.getChar(npcindex, "名字"))
  84.                         char.sendCToArround(npcindex)--设置完 类型重新发送下 外形给周围玩家
  85.                         return
  86.                 end
  87.                 if field == "2" then
  88.                         npc.PlayersellWindowTalked(meindex, talkerindex, seqno, select, data)       
  89.                         char.setInt(npcindex,"金库魔币",2)--设置出售类型是金币                       
  90.                         char.TalkToCli(talkerindex, -1, "谢谢您使用寄售系统您的寄售物品出售类型是金卡", "黄色")
  91.                         --print("npc名字")
  92.                         --print(char.getChar(npcindex, "名字"))
  93.                         name = char.getChar(npcindex, "名字").."[金币摊位]"
  94.                         --print(name)
  95.                         char.setChar(npcindex, "名字",name)
  96.                         --print("npc名字")
  97.                         --print(char.getChar(npcindex, "名字"))
  98.                         char.sendCToArround(npcindex)--设置完 类型重新发送下 外形给周围玩家
  99.                         return
  100.                 end
  101.         end
  102.        
  103.         if seqno == 324  and field == "1" then --设置出售类型
  104.                 char.TalkToCli(talkerindex, -1, "请您选择您要出售的货币类型魔币或是金币！", "黄色")
  105.                 Showselltype(meindex, talkerindex)
  106.                 return
  107.         end
  108.         if seqno == 324  and field == "2" then --设置出售类型
  109.                 char.TalkToCli(talkerindex, -1, "谢谢您使用寄售系统的出售物品", "黄色")
  110.                 npc.PlayersellWindowTalked(meindex, talkerindex, 333, 0, data)
  111.                 return
  112.         end
  113.        
  114.         if seqno == 324  and field == "3" then --取回寄售物品
  115.                 char.TalkToCli(talkerindex, -1, "谢谢您使用寄售系统的取回物品", "黄色")
  116.                 npc.BankmanTalked3(meindex, talkerindex, "", 0)
  117.                 return
  118.         end
  119.        
  120.         if seqno == 324  and field == "4" then --设置出售类型
  121.                 char.TalkToCli(talkerindex, -1, "谢谢您使用寄售系统删除NPC", "黄色")
  122.                 npc.DelNpc(meindex)--删除NPC
  123.                 char.setInt(talkerindex,"寄售时间",0)--当前时间
  124.                 return
  125.         end
  126.        
  127.         if seqno == 326 then --设置出售类型
  128.                 char.TalkToCli(talkerindex, -1, "主人您好！请您仔细设置价格和出售类型", "黄色")
  129.                 npc.PlayersellWindowTalked(meindex, talkerindex, seqno, select, data)
  130.                 return
  131.         end       
  132.         if seqno == 339 then --设置出售类型
  133.                 char.TalkToCli(talkerindex, -1, "谢谢您使用寄售系统的取回物品", "黄色")
  134.                 npc.BankmanWindowTalked3(meindex, talkerindex, seqno, select, data)
  135.                 return
  136.         end
  137.        


  140.         if seqno == 334 then --设置出售类型
  141.                 char.TalkToCli(talkerindex, -1, "主人您好！", "黄色")
  142.                 npc.PlayersellWindowTalked(meindex, talkerindex, seqno, select, data)
  143.                 return
  144.         end               
  145.         --npc.PlayersellWindowTalked(meindex, talkerindex, seqno, select, data)

  147. end



  151. --NPC对话事件(NPC索引)
  152. function Talked(meindex, talkerindex, szMes, color )
  153.         --print("meindex")
  154.         --print(meindex)
  155.         --print("talkerindex")
  156.         --print(talkerindex)
  157.         --print(char.getChar(meindex, "名字"))
  158.         --print(char.getChar(talkerindex, "名字"))
  159.         --if char.getChar(meindex, "名字") == char.getChar(talkerindex, "名字") then
  160.         if char.getChar(meindex, "账号") == char.getChar(talkerindex, "账号") then
  161.                 char.TalkToCli(talkerindex, -1, "主人您好！", "黄色")
  162.                 if npc.isFaceToFace(meindex, talkerindex) == 1 then
  163.                         ShowHead(meindex, talkerindex)
  164.                 end
  165.                 return
  166.         else
  167.                 char.TalkToCli(talkerindex, -1, "顾客您好！", "黄色")
  168.                
  169.                 if char.getInt(meindex,"金库魔币") == 1 then
  170.                         char.TalkToCli(talkerindex, -1, "顾客我主人出售的类型是魔币出售！", "黄色")
  171.                 elseif char.getInt(meindex,"金库魔币") == 2 then
  172.                         char.TalkToCli(talkerindex, -1, "顾客我主人出售的类型是金币出售！", "黄色")
  173.                 else
  174.                         char.TalkToCli(talkerindex, -1, "顾客我主人出售的类型是错误的您不能购买！", "黄色")
  175.                         return
  176.                 end
  177.                
  178.                 npc.PlayersellWindowTalked(meindex, talkerindex, 333, 0, "1")
  179.                 return
  180.         end
  181.         --npc.PlayersellTalked(meindex, talkerindex, szMes, color)
  182.         --if npc.isFaceToFace(meindex, talkerindex) == 1 then
  183.         --        ShowHead(meindex, talkerindex)
  184.         --end
  185. end


  188. function mymaincreate(parameter)       
  189.         charaindex = char.getPointtoindex(parameter)--从玩家索引得到创建NPC的玩家结构体指针
  190.         --检测对面不能有NPC 防止重叠
  191.         findt = char.GetFrontChar(charaindex,4) --检测对面有没NPC 4   玩家1  怪物2 宠物3
  192.         if findt == 1 then
  193.                 char.TalkToCli(charaindex, -1, "请您换个位置当前位置有NPC存在", "黄色")
  194.                 return
  195.         end
  196.         char.TalkToCli(charaindex, -1, "您进入其他脚本调用函数", "黄色")
  197.         --npc已经生成但是没有载入到OBJ 已经存在的列表 怎么查找原因为什么 没有出现
  198.         name = char.getChar(charaindex, "名字")
  199.         img = char.getInt(charaindex, "原图像号")
  200.         map = char.getInt(charaindex, "地图号")
  201.         X = char.getInt(charaindex, "坐标X") + 1
  202.         Y = char.getInt(charaindex, "坐标Y")
  203.         npcindex = npc.CreateNpc(name, img, map, X, Y, 6)
  204.         char.setInt(npcindex, "类型",82) --寄售NPC类型 CHAR_TYPEBANKEX3  是82
  205.         cdkey = char.getChar(charaindex, "账号")
  206.         char.setChar(npcindex, "账号",cdkey)
  207.         char.sendCToArround(npcindex)--设置完 类型重新发送下 外形给周围玩家
  208.         --print("执行sendCToArround完毕")
  209.         --设置事件触发(NPC索引，事件，执行函数，执行函数文件路径)
  210.         --char.setFunctionPointer(npcindex, "对话事件", "Talked", "data/ablua/commondsellnpc.lua")--ok
  211.         char.setFunctionPointer(npcindex, "对话事件", "Talked", "")--ok
  212.         -----********暂时没找到解决方案 应该是LUA 函数名字 超过6个字符 就 stelen就不准了 记住永远不能让命令自动NPC 有超过6个的字符的函数名****----
  213.         char.setFunctionPointer(npcindex, "窗口事件", "MWTalk", "")--ok
  214.         --写入到主人角色,npc 创建时间
  215.         local ntime = other.time()
  216.         char.setInt(charaindex,"寄售时间",ntime)--当前时间
  217.         --写入到npc，主人角色fd
  218.         char.setInt(npcindex,"签到时间",char.getFd(charaindex))--NPC里面放置上玩家fd 好通知和查找玩家
  219.         --相互记录索引
  220.         char.setWorkInt(charaindex, "NPC临时1" , char.getindextoPoint(npcindex)) --记录NPC指针地址  下线删除用
  221.         char.setWorkInt(npcindex, "NPC临时1" , char.getindextoPoint(charaindex)) --让npc记录自己主人玩家的指针地址
  222.        
  223. end


  226. function data()
  227.         worldpay = 5
  228.         worldfmpay = 10
  229.        
  230. end

  232. function main()
  233.         npcindex = 0
  234.         data()
  235. end
复制代码


回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver|手机版|小黑屋|石器时代LA官方

GMT+8, 2024-4-29 06:40 , Processed in 0.118007 second(s), 21 queries .

Copyright © 2001-2023, Tencent Cloud.

快速回复 返回顶部 返回列表