传奇单机版论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

名称
引擎
开区时间
版本特色简介
QQ群
主页地址
查看: 424|回复: 0

[技术分享] GowLom2战神引擎传奇手游 NPC商店配置脚本

[复制链接]

821

主题

2527

帖子

3万

积分

管理员

Rank: 9Rank: 9Rank: 9

元宝
17271
贡献
0
金币
45660

最佳新人活跃会员灌水之王

发表于 2019-11-6 12:17:07 | 显示全部楼层 |阅读模式
GowLom2战神引擎传奇手游 NPC商店配置脚本
所有商店中必须有OnInitialize方法,用于程序初始化时加载
该方法中 This_Npc.AddStdMode(X);  X为该商店可买卖、修理的物品对应DB表中StdMode的值
This_Npc.FillGoods(物品名,数量,时间);
如:This_Npc.FillGoods('布衣(男)',50,1);表示该商店每分钟会刷新50件布衣(男),
注:刷新时只补齐到50件
比如衣服店
procedure _DoExit;
begin
  This_Npc.CloseDialog(This_Player);
end;
procedure domain;
begin
         This_Npc.NpcDialog(This_Player,
         +'感谢光临。请问有什么事情帮忙吗?\ \'
         +'|{cmd}<买衣服[url=]/@buy>'[/url]+ addSpace('', 24) + '|{cmd}<修复衣服[url=]/@repair>\'[/url]
         +'|{cmd}<卖衣服[url=]/@sell>'[/url]+ addSpace('', 24) + '|{cmd}<特殊修理[url=]/@s_repair>\'[/url]
         +'|{cmd}<退出[url=]/@doexit>'[/url]);
end;
procedure _buy;
begin
  This_Npc.NpcDialog(This_Player,
    '要购买什么吗?\ \ \|{cmd}<返回[url=]/@main>'[/url]
  );
  This_Npc.Click_Buy(This_Player);
end;
procedure _Sell;
begin
  This_Npc.NpcDialog(This_Player,
    '请放上去要卖的衣服,我给估价。\头盔和帽子也收购,\最好在这儿一起卖吧。\ \|{cmd}<返回[url=]/@main>'[/url]
  );
  This_Npc.Click_Sell(This_Player);
end;
procedure _Repair;
begin
  This_Npc.NpcDialog(This_Player,
    '可以修复衣服,头盔,帽子。\ \ \|{cmd}<返回[url=]/@main>'[/url]
  );
  This_Npc.Click_Repair(This_Player);
end;
procedure RepairDone;
begin
  This_Npc.NpcDialog(This_Player,
    '修得还算不错。\ \ \ |{cmd}<返回[url=]/@main>'[/url]
  );
end;
procedure _S_Repair;
begin
  This_Npc.NpcDialog(This_Player,
    '你这家伙,你可太幸运了,我正好有材料做特殊修补,\但费用是普通的3倍!'
  );
  This_Npc.Click_SRepair(This_Player);
end;
procedure SRepairDone;
begin
  This_Npc.NpcDialog(This_Player,
    '看上去它已经修好了……\请好好的使用它。\ \|{cmd}<返回[url=]/@main>'[/url]
  );
end;
//初始化操作
procedure OnInitialize;
begin
  This_Npc.AddStdMode(10);  //
  This_Npc.AddStdMode(11);
  This_Npc.AddStdMode(15);
  This_Npc.AddStdMode(27);
  This_Npc.AddStdMode(28);
  This_Npc.FillGoods('布衣(男)',50,1);
  This_Npc.FillGoods('布衣(女)',50,1);
  This_Npc.FillGoods('轻型盔甲(男)',50,1);
  This_Npc.FillGoods('轻型盔甲(女)',50,1);
  This_Npc.FillGoods('中型盔甲(男)',50,1);
  This_Npc.FillGoods('中型盔甲(女)',50,1);
  This_Npc.FillGoods('重盔甲(男)',30,1);
  This_Npc.FillGoods('重盔甲(女)',30,1);
  This_Npc.FillGoods('魔法长袍(男)',50,1);
  This_Npc.FillGoods('魔法长袍(女)',50,1);
  This_Npc.FillGoods('灵魂战衣(男)',50,1);
  This_Npc.FillGoods('灵魂战衣(女)',50,1);
  This_Npc.FillGoods('幽灵战衣(男)',50,1);
  This_Npc.FillGoods('幽灵战衣(女)',50,1);
  This_Npc.FillGoods('恶魔长袍(男)',30,1);
  This_Npc.FillGoods('恶魔长袍(女)',30,1);
  This_Npc.FillGoods('战神盔甲(男)',30,1);
  This_Npc.FillGoods('战神盔甲(女)',30,1);
  This_Npc.SetRebate(100);
end;
//脚本执行的入口
begin
  domain;
end.




上一篇:GowLom2战神引擎登录脚本触发实例
下一篇:GowLom2战神引擎常用脚本接口
有问题请去传奇交流求助版块发帖咨询,帖子下面回复是看不到的!每天信息太多,请见谅!
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver|手机版|小黑屋|传奇单机版论坛 |网站地图

GMT+8, 2020-9-22 18:54 , Processed in 0.017741 second(s), 20 queries , Gzip On, MemCache On.

Powered by 108pc.com X3.4

Copyright © 2001-2020, Tencent Cloud.

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