请选择 进入手机版 | 继续访问电脑版

【柠檬交流社区】

搜索
查看:【52】 回复:【0】 发表于 2020-4-26 09:31:14

[UID商城]   [抢购靓号]

13

主题

13

帖子

102

积分

2级

Rank: 2

积分
102
发表于 2020-4-26 09:31:14 | 显示全部楼层 |阅读模式

GowLom2战神引擎传奇手游 NPC商店配置脚本

[复制链接]
GowLom2战神引擎传奇手游 NPC商店配置脚本
所有商店中必须有OnInitialize方法,用于程序初始化时加载
该方法中 This_Npc.AddStdMode(X);  X为该商店可买卖、修理的物品对应DB表中StdMode的值
This_Npc.FillGoods(物品名,数量,时间);

如:This_Npc.FillGoods('布衣(男)',50,1);表示该商店每分钟会刷新50件布衣(男),
注:刷新时只补齐到50件
  1. 比如衣服店
  2. procedure _DoExit;
  3. begin
  4.    This_Npc.CloseDialog(This_Player);
  5. end;

  6. procedure domain;
  7. begin
  8.           This_Npc.NpcDialog(This_Player,
  9.           +'感谢光临。请问有什么事情帮忙吗?\ \'

  10.           +'|{cmd}<买衣服/@buy>'+ addSpace('', 24) + '|{cmd}<修复衣服/@repair>\'
  11.           +'|{cmd}<卖衣服/@sell>'+ addSpace('', 24) + '|{cmd}<特殊修理/@s_repair>\'
  12.           +'|{cmd}<退出/@doexit>');
  13. end;

  14. procedure _buy;
  15. begin
  16.    This_Npc.NpcDialog(This_Player,
  17.      '要购买什么吗?\ \ \|{cmd}<返回/@main>'
  18.    );
  19.    This_Npc.Click_Buy(This_Player);
  20. end;
  21. procedure _Sell;
  22. begin
  23.    This_Npc.NpcDialog(This_Player,
  24.      '请放上去要卖的衣服,我给估价。\头盔和帽子也收购,\最好在这儿一起卖吧。\ \|{cmd}<返回/@main>'
  25.    );
  26.    This_Npc.Click_Sell(This_Player);
  27. end;
  28. procedure _Repair;
  29. begin
  30.    This_Npc.NpcDialog(This_Player,
  31.      '可以修复衣服,头盔,帽子。\ \ \|{cmd}<返回/@main>'
  32.    );
  33.    This_Npc.Click_Repair(This_Player);
  34. end;
  35. procedure RepairDone;
  36. begin
  37.    This_Npc.NpcDialog(This_Player,
  38.      '修得还算不错。\ \ \ |{cmd}<返回/@main>'
  39.    );
  40. end;
  41. procedure _S_Repair;
  42. begin
  43.    This_Npc.NpcDialog(This_Player,
  44.      '你这家伙,你可太幸运了,我正好有材料做特殊修补,\但费用是普通的3倍!'
  45.    );
  46.    This_Npc.Click_SRepair(This_Player);
  47. end;
  48. procedure SRepairDone;
  49. begin
  50.    This_Npc.NpcDialog(This_Player,
  51.      '看上去它已经修好了……\请好好的使用它。\ \|{cmd}<返回/@main>'
  52.    );
  53. end;
  54. //初始化操作
  55. procedure OnInitialize;
  56. begin
  57.    This_Npc.AddStdMode(10);  //
  58.    This_Npc.AddStdMode(11);
  59.    This_Npc.AddStdMode(15);
  60.    This_Npc.AddStdMode(27);
  61.    This_Npc.AddStdMode(28);
  62.    This_Npc.FillGoods('布衣(男)',50,1);
  63.    This_Npc.FillGoods('布衣(女)',50,1);
  64.    This_Npc.FillGoods('轻型盔甲(男)',50,1);
  65.    This_Npc.FillGoods('轻型盔甲(女)',50,1);
  66.    This_Npc.FillGoods('中型盔甲(男)',50,1);
  67.    This_Npc.FillGoods('中型盔甲(女)',50,1);
  68.    This_Npc.FillGoods('重盔甲(男)',30,1);
  69.    This_Npc.FillGoods('重盔甲(女)',30,1);
  70.    This_Npc.FillGoods('魔法长袍(男)',50,1);
  71.    This_Npc.FillGoods('魔法长袍(女)',50,1);
  72.    This_Npc.FillGoods('灵魂战衣(男)',50,1);
  73.    This_Npc.FillGoods('灵魂战衣(女)',50,1);
  74.    This_Npc.FillGoods('幽灵战衣(男)',50,1);
  75.    This_Npc.FillGoods('幽灵战衣(女)',50,1);
  76.    This_Npc.FillGoods('恶魔长袍(男)',30,1);
  77.    This_Npc.FillGoods('恶魔长袍(女)',30,1);
  78.    This_Npc.FillGoods('战神盔甲(男)',30,1);
  79.    This_Npc.FillGoods('战神盔甲(女)',30,1);
  80.    This_Npc.SetRebate(100);
  81. end;
  82. //脚本执行的入口
  83. begin
  84.    domain;
  85. end.
复制代码


回复

使用道具 举报

快速回复

Smilies
您需要登录后才可以回帖 登录 | 注册
高级模式

回复楼主

您好, 欢迎您来到本社区 , 请注册或者登录以便更好的玩转本社区!

用户组: 游客

我能做什么?

懒得打字嘛,点击右侧快捷回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则

坛友爱热闹

12.12云产品限时秒杀,爆款1核2G云服务器,99元/1年

Archiver|手机版|小黑屋|

GMT+8, 2020-9-30 17:33 , Powered by Discuz! X3.4. Licensed. 技术支持 by 五号.

版权所有艁艧【柠檬交流社区】膭膭信息产业部备案/许可证编号艁艧鄂ICP备20008277号-4

发表新贴 快速回复 返回顶部 官方微信

扫描二维码添加好友
或直接添加微信账号
膭掳 fansbar 膭膮